Batch job · 5 steps · CREASTMT.JCL:1CREASTMT

CLASS=A MSGCLASS=H MSGLEVEL=(1,1) NOTIFY=&SYSUID TIME=1440

Steps in order

Job stream

DELDEF01

runs IDCAMS observed — VSAM access method services (define/delete/copy datasets)CREASTMT.JCL:22

DD	Dataset	DISP	Use	Basis	At
SYSPRINT	SYSOUT=*		write derived	SYSOUT=*	CREASTMT.JCL:23
SYSIN	in-stream (15 lines)		read derived	in-stream data	CREASTMT.JCL:24

SYSIN control cards · in-stream app/jcl/CREASTMT.JCL:25-39

  DELETE    AWS.M2.CARDDEMO.TRXFL.SEQ
  DELETE    AWS.M2.CARDDEMO.TRXFL.VSAM.KSDS                     -
            CLUSTER
  SET       MAXCC = 0
  DEFINE    CLUSTER  (NAME(AWS.M2.CARDDEMO.TRXFL.VSAM.KSDS)     -
                      KEYS(32 0)                                -
                      VOLUMES(TSU023)                           -
                      RECORDSIZE(350 350)                       -
                      SHAREOPTIONS(2 3)                         -
                      ERASE                                     -
                      INDEXED                                   -
                      CYL(1 5))                                 -
            DATA      (NAME(AWS.M2.CARDDEMO.TRXFL.DATA)         -
                      CISZ(4096))                               -
            INDEX     (NAME(AWS.M2.CARDDEMO.TRXFL.INDEX))

IDCAMS: DELETE deletes AWS.M2.CARDDEMO.TRXFL.SEQDELETE deletes AWS.M2.CARDDEMO.TRXFL.VSAM.KSDSDEFINE CLUSTER defines AWS.M2.CARDDEMO.TRXFL.VSAM.KSDS, defines AWS.M2.CARDDEMO.TRXFL.DATA, defines AWS.M2.CARDDEMO.TRXFL.INDEX

STEP010

runs SORT observed — DFSORT sort/merge/copy SORTIN -> SORTOUTCREASTMT.JCL:44

DD	Dataset	DISP	Use	Basis	At
SORTIN	AWS.M2.CARDDEMO.TRANSACT.VSAM.KSDS	SHR	read derived	SORT convention for DD SORTIN	CREASTMT.JCL:45
SYSPRINT	SYSOUT=*		write derived	SYSOUT=*	CREASTMT.JCL:46
SYSOUT	SYSOUT=*		write derived	SYSOUT=*	CREASTMT.JCL:47
SORTOUT	AWS.M2.CARDDEMO.TRXFL.SEQ	NEW,CATLG,DELETE	write derived	SORT convention for DD SORTOUT	CREASTMT.JCL:48
SYSIN	in-stream (2 lines)		read derived	in-stream data	CREASTMT.JCL:52

SYSIN control cards · in-stream app/jcl/CREASTMT.JCL:53-54

  SORT FIELDS=(263,16,CH,A,1,16,CH,A)
  OUTREC FIELDS=(1:263,16,17:1,262,279:279,50)

STEP020

runs IDCAMS observed — VSAM access method services (define/delete/copy datasets)COND=(0,NE)CREASTMT.JCL:56

DD	Dataset	DISP	Use	Basis	At
SYSPRINT	SYSOUT=*		write derived	SYSOUT=*	CREASTMT.JCL:57
INFILE	AWS.M2.CARDDEMO.TRXFL.SEQ	SHR	read derived	IDCAMS REPRO INPUT (in-stream app/jcl/CREASTMT.JCL:61)	CREASTMT.JCL:58
OUTFILE	AWS.M2.CARDDEMO.TRXFL.VSAM.KSDS	SHR	write derived	IDCAMS REPRO OUTPUT (in-stream app/jcl/CREASTMT.JCL:61)	CREASTMT.JCL:59
SYSIN	in-stream (1 lines)		read derived	in-stream data	CREASTMT.JCL:60

SYSIN control cards · in-stream app/jcl/CREASTMT.JCL:61

  REPRO INFILE(INFILE) OUTFILE(OUTFILE)

IDCAMS: REPRO input DD INFILE, output DD OUTFILE

STEP030

runs IEFBR14 observed — no-op; used to allocate or delete datasets through DD DISPCOND=(0,NE)CREASTMT.JCL:66

DD	Dataset	DISP	Use	Basis	At
HTMLFILE	AWS.M2.CARDDEMO.STATEMNT.HTML	MOD,DELETE,DELETE	appenddelete inferred	DISP=(MOD,DELETE,DELETE)	CREASTMT.JCL:67
STMTFILE	AWS.M2.CARDDEMO.STATEMNT.PS	MOD,DELETE,DELETE	appenddelete inferred	DISP=(MOD,DELETE,DELETE)	CREASTMT.JCL:72

STEP040

runs CBSTM03A observedCOND=(0,NE)CREASTMT.JCL:79

DD	Dataset	DISP	Use	Basis	At
STEPLIB	AWS.M2.CARDDEMO.LOADLIB	SHR	read inferred	DISP=(SHR)	CREASTMT.JCL:80
SYSPRINT	SYSOUT=*		write derived	SYSOUT=*	CREASTMT.JCL:81
SYSOUT	SYSOUT=*		write derived	SYSOUT=*	CREASTMT.JCL:82
TRNXFILE	AWS.M2.CARDDEMO.TRXFL.VSAM.KSDS	SHR	read inferred	DISP=(SHR)	CREASTMT.JCL:83
XREFFILE	AWS.M2.CARDDEMO.CARDXREF.VSAM.KSDS	SHR	read inferred	DISP=(SHR)	CREASTMT.JCL:84
ACCTFILE	AWS.M2.CARDDEMO.ACCTDATA.VSAM.KSDS	SHR	read inferred	DISP=(SHR)	CREASTMT.JCL:85
CUSTFILE	AWS.M2.CARDDEMO.CUSTDATA.VSAM.KSDS	SHR	read inferred	DISP=(SHR)	CREASTMT.JCL:86
STMTFILE	AWS.M2.CARDDEMO.STATEMNT.PS	NEW,CATLG,DELETE	write derived	CBSTM03A SELECT STMT-FILE ASSIGN TO STMTFILE (app/cbl/CBSTM03A.CBL:39), OPEN OUTPUT	CREASTMT.JCL:87
HTMLFILE	AWS.M2.CARDDEMO.STATEMNT.HTML	NEW,CATLG,DELETE	write derived	CBSTM03A SELECT HTML-FILE ASSIGN TO HTMLFILE (app/cbl/CBSTM03A.CBL:40), OPEN OUTPUT	CREASTMT.JCL:92