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. > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send email to > lists...@listserv.ua.edu > with the message: INFO IBM-MAIN
********************************************************************** Information contained in this e-mail message and in any attachments thereto is confidential. If you are not the intended recipient, please destroy this message, delete any copies held on your systems, notify the sender immediately, and refrain from using or disclosing all or any part of its content to any other person. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
