CODE SNIPPET
IDENTIFICATION DIVISION.
PROGRAM-ID. SAMPLE.
AUTHOR.
DATE-WRITTEN. 04/01/XXXX.
DATE-COMPILED. 04/01/XXXX.
*******************************************************************
* CODE SNIPPET TO FORM JCL VIA CICS. *
* ONLINE PROGRAM CALLED THROUGH TRANSACTION *
*******************************************************************
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-T PIC X (8).
01 JCL-CARDS.
05 FILLER PIC X (80) VALUE '//SAMPLE JOB (XYZ),"BATCH RUN"','.00
05 FILLER PIC X(80) VALUE '// CLASS=E,MSGLEVEL=(1,1),REGION=0M,MSGCLASS=X'.
05 FILLER PIC X(80) VALUE '//THREAD EXEC PGM=IKJEFT01,DYNAMNBR=20'.
05 FILLER PIC X(80) VALUE '//STEPLIB DD DSN=CEE.SCEERUN,DISP=SHR'.
05 FILLER PIC X(80) VALUE '// DD DSN=CEE.SCEECICS,DISP=SHR'.
05 FILLER PIC X(80) VALUE '// DD DSN=CEE.SCEELKED,DISP=SHR'.
05 FILLER PIC X(80) VALUE '// DD DSN=SYS1.DSNXXX.SDSNLOAD,DISP=SHR'.
05 FILLER PIC X(80) VALUE '// DD DSN=DSNXXX.DBXX.RUNLIB.LOAD,DISP=SHR'.
05 FILLER PIC X(80) VALUE '// DD DSN=ABCD.XXX.ASMLOAD,DISP=SHR'.
05 FILLER PIC X(80) VALUE '//SYSTSPRT DD SYSOUT=*'.
05 FILLER PIC X(80) VALUE '//SYSPRINT DD SYSOUT=*'.
05 FILLER PIC X(80) VALUE '//SYSABOUT DD SYSOUT=*'.
05 FILLER PIC X(80) VALUE '//SYSDBOUT DD SYSOUT=*'.
05 FILLER PIC X(80) VALUE '//SYSUDUMP DD SYSOUT=*'.
05 FILLER PIC X(80) VALUE '//SYSOUT DD SYSOUT=*'.
05 FILLER PIC X(80) VALUE '//SYSIN DD *'.
05 WS-THREAD-DTLS.
10 FILLER PIC X(12) VALUE 'CTRANSAC 0001'.
10 FILLER PIC X(68) VALUE ' '.
05 FILLER PIC X(80) VALUE ' '.
05 FILLER PIC X(80) VALUE '/*'.
05 FILLER PIC X(80) VALUE '//SYSTSIN DD *'.
05 FILLER PIC X(80) VALUE ' DSN SYSTEM(DBXX)'.
05 FILLER PIC X(80) VALUE ' RUN PROGRAM(PXXXXXX)-'.
05 FILLER PIC X(80) VALUE ' PLAN(PXXXX)'.
05 FILLER PIC X(80) VALUE 'END'.
05 FILLER PIC X(80) VALUE '//*'.
05 FILLER PIC X(80) VALUE '/*EOF'.
05 FILLER PIC X(80) VALUE '/*EOF'.
01 FILLER REDEFINES JCL-CARDS.
05 CARD OCCURS 27 TIMES INDEXED BY CARD-INDEX PIC X(80).
01 WS-JCL-LINES PIC 9(3) VALUE 27.
PROCEDURE DIVISION.
A-MAIN-PARA.
PERFORM B-MAIN-PROCESS THRU B-MAIN-PROCESS-EXIT
PERFORM C-TERMINATION THRU C-TERMINATION-EXIT
A-MAIN-PARA-EXIT.
EXIT.
B-MAIN-PROCESS.
EXEC CICS
SPOOLOPEN OUTPUT
USERID('INTRDR')
NODE('XXXX')
TOKEN(WS-T)
NOHANDLE
END-EXEC
