Looks like a really _old_ manual. But you can read a version of it here: http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/DFHZP104/CCONTENTS It is from over 11 years ago.
On Thu, Sep 25, 2014 at 10:02 AM, Hansen, Dave L - Eagan, MN <[email protected]> wrote: > Thank you. > > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[email protected]] On > Behalf Of Chase, John > Sent: Thursday, September 25, 2014 9:37 AM > To: [email protected] > Subject: Re: Help finding CICS Application Programming Primer > > 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 [email protected] 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 > [email protected] with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN -- There is nothing more pleasant than traveling and meeting new people! Genghis Khan Maranatha! <>< John McKown ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
