Agreed! Google for sc33-0674 <snip>
GIYF.... > -----Original Message----- > From: IBM Mainframe Discussion List On Behalf Of Hansen, Dave L - > Eagan, MN > > 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. > > ---------------------------------------------------------------------- </snip> ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
