Batch job · 3 steps · TRANBKP.jcl:1TRANBKP

CLASS=A MSGCLASS=0 NOTIFY=&SYSUID

EXEC

PROCs expanded

REPROC

REPROC.prc:1

TRANBKP.jcl:23

Steps in order

Job stream

STEP05R.PRC001

runs IDCAMS observed — VSAM access method services (define/delete/copy datasets)from PROC REPROCREPROC.prc:21

DD	Dataset	DISP	Use	Basis	At
SYSPRINT	SYSOUT=*		write derived	SYSOUT=*	REPROC.prc:22
FILEIN	AWS.M2.CARDDEMO.TRANSACT.VSAM.KSDSoverride	SHR	read derived	IDCAMS REPRO INPUT (app/app-transaction-type-db2/ctl/REPROCT.ctl)	REPROC.prc:23
FILEOUT	AWS.M2.CARDDEMO.TRANSACT.BKUPGDG +1override	NEW,CATLG,DELETE	write derived	IDCAMS REPRO OUTPUT (app/app-transaction-type-db2/ctl/REPROCT.ctl)	REPROC.prc:25
SYSIN	AWS.M2.CARDDEMO.CNTL(REPROCT)	SHR	read inferred	DISP=(SHR)	REPROC.prc:27

SYSIN control cards · app/app-transaction-type-db2/ctl/REPROCT.ctl

  … 14 comment lines
    REPRO INFILE(FILEIN) OUTFILE(FILEOUT)

IDCAMS: REPRO input DD FILEIN, output DD FILEOUT

STEP05

runs IDCAMS observed — VSAM access method services (define/delete/copy datasets)TRANBKP.jcl:37

DD	Dataset	DISP	Use	Basis	At
SYSPRINT	SYSOUT=*		write derived	SYSOUT=*	TRANBKP.jcl:38
SYSIN	in-stream (6 lines)		read derived	in-stream data	TRANBKP.jcl:39

SYSIN control cards · in-stream app/jcl/TRANBKP.jcl:40-45

   DELETE AWS.M2.CARDDEMO.TRANSACT.VSAM.KSDS -
          CLUSTER
   IF MAXCC LE 08 THEN SET MAXCC = 0
   DELETE AWS.M2.CARDDEMO.TRANSACT.VSAM.AIX -
          ALTERNATEINDEX
   IF MAXCC LE 08 THEN SET MAXCC = 0

IDCAMS: DELETE deletes AWS.M2.CARDDEMO.TRANSACT.VSAM.KSDSDELETE deletes AWS.M2.CARDDEMO.TRANSACT.VSAM.AIX

STEP10

runs IDCAMS observed — VSAM access method services (define/delete/copy datasets)COND=(4,LT)TRANBKP.jcl:51

DD	Dataset	DISP	Use	Basis	At
SYSPRINT	SYSOUT=*		write derived	SYSOUT=*	TRANBKP.jcl:52
SYSIN	in-stream (14 lines)		read derived	in-stream data	TRANBKP.jcl:53

SYSIN control cards · in-stream app/jcl/TRANBKP.jcl:54-67

   DEFINE CLUSTER (NAME(AWS.M2.CARDDEMO.TRANSACT.VSAM.KSDS) -
          CYLINDERS(1 5) -
          VOLUMES(AWSHJ1 -
          ) -
          KEYS(16 0) -
          RECORDSIZE(350 350) -
          SHAREOPTIONS(2 3) -
          ERASE -
          INDEXED -
          ) -
          DATA (NAME(AWS.M2.CARDDEMO.TRANSACT.VSAM.KSDS.DATA) -
          ) -
          INDEX (NAME(AWS.M2.CARDDEMO.TRANSACT.VSAM.KSDS.INDEX) -
          )

IDCAMS: DEFINE CLUSTER defines AWS.M2.CARDDEMO.TRANSACT.VSAM.KSDS, defines AWS.M2.CARDDEMO.TRANSACT.VSAM.KSDS.DATA, defines AWS.M2.CARDDEMO.TRANSACT.VSAM.KSDS.INDEX