Dear Group,
(Still waiting on the CICS-L Listserv)
Back when my hair was a younger color I used to write online CICS programs.
I found a sample CICS program shown below. I found the JCL for Batch
compilation for COBOL programs documented in the CICS Application Programming
Guide (SC34-2844). I was looking for more information on building a test
transaction for CICS. From the infocenter I did find The general insurance
application under the samples. Also I could find Batch compilation for COBOL
programs documented at the infocenter.
The CICS TS for z/OS V5 R1 Application Programming Reference (SC34-2845)
describes What you need to know to understand this manual on page vii. It
lists the CICS Application Programming Primer.
Q). Where is the CICS Application Programming Primer? I did not find it in
the bibliography. I didn't find a link like that at the infocenter. Just
trying to find what information is available and where.
Thanks, Dave
IDENTIFICATION DIVISION.
PROGRAM-ID. SAMCICS.
*
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE DIVISION.
*
01 WS-INPUT.
05 WS-TRAN-ID PIC X(4).
05 WS-MESSAGE-I PIC X(70).
*
01 WS-OUTPUT.
05 WS-TEXT PIC X(8).
05 WS-MESSAGE-O PIC X(70).
*
01 WS-MSG-LENGTH PIC S9(4) COMP.
*
PROCEDURE DIVISION.
*
MOVE 74 TO WS-MSG-LENGTH.
*
EXEC CICS RECEIVE
INTO(WS-INPUT)
LENGTH(WS-MSG-LENGTH)
END-EXEC.
*
MOVE WS-MESSAGE-I TO WS-MESSAGE-O.
MOVE 'OUTPUT: ' TO WS-TEXT.
MOVE 78 TO WS-MSG-LENGTH.
*
EXEC CICS SEND
FROM(WS-OUTPUT)
LENGTH(WS-MSG-LENGTH)
ERASE
END-EXEC.
*
EXEC CICS RETURN
END-EXEC.
*
GOBACK.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
