Batch job · 2 steps · CBEXPORT.jcl:1CBEXPORT

CLASS=A MSGCLASS=0 NOTIFY=&SYSUID

Steps in order

Job stream

STEP01

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

DD	Dataset	DISP	Use	Basis	At
SYSPRINT	SYSOUT=*		write derived	SYSOUT=*	CBEXPORT.jcl:25
SYSIN	in-stream (12 lines)		read derived	in-stream data	CBEXPORT.jcl:26

SYSIN control cards · in-stream app/jcl/CBEXPORT.jcl:27-38

  DELETE AWS.M2.CARDDEMO.EXPORT.DATA CLUSTER PURGE
  SET MAXCC = 0

  DEFINE CLUSTER (NAME(AWS.M2.CARDDEMO.EXPORT.DATA) -
                  INDEXED -
                  KEYS(4 28) -
                  RECORDSIZE(500 500) -
                  CYLINDERS(10 5) -
                  FREESPACE(10 10) -
                  SHAREOPTIONS(2 3)) -
         DATA (NAME(AWS.M2.CARDDEMO.EXPORT.DATA.DATA)) -
         INDEX (NAME(AWS.M2.CARDDEMO.EXPORT.DATA.INDEX))

IDCAMS: DELETE deletes AWS.M2.CARDDEMO.EXPORT.DATADEFINE CLUSTER defines AWS.M2.CARDDEMO.EXPORT.DATA, defines AWS.M2.CARDDEMO.EXPORT.DATA.DATA, defines AWS.M2.CARDDEMO.EXPORT.DATA.INDEX

STEP02

runs CBEXPORT observedCBEXPORT.jcl:43

DD	Dataset	DISP	Use	Basis	At
STEPLIB	AWS.M2.CARDDEMO.LOADLIB	SHR	read inferred	DISP=(SHR)	CBEXPORT.jcl:44
CUSTFILE	AWS.M2.CARDDEMO.CUSTDATA.VSAM.KSDS	SHR	read derived	CBEXPORT SELECT CUSTOMER-INPUT ASSIGN TO CUSTFILE (app/cbl/CBEXPORT.cbl:35), OPEN INPUT	CBEXPORT.jcl:49
ACCTFILE	AWS.M2.CARDDEMO.ACCTDATA.VSAM.KSDS	SHR	read derived	CBEXPORT SELECT ACCOUNT-INPUT ASSIGN TO ACCTFILE (app/cbl/CBEXPORT.cbl:41), OPEN INPUT	CBEXPORT.jcl:51
XREFFILE	AWS.M2.CARDDEMO.CARDXREF.VSAM.KSDS	SHR	read derived	CBEXPORT SELECT XREF-INPUT ASSIGN TO XREFFILE (app/cbl/CBEXPORT.cbl:47), OPEN INPUT	CBEXPORT.jcl:53
TRANSACT	AWS.M2.CARDDEMO.TRANSACT.VSAM.KSDS	SHR	read derived	CBEXPORT SELECT TRANSACTION-INPUT ASSIGN TO TRANSACT (app/cbl/CBEXPORT.cbl:53), OPEN INPUT	CBEXPORT.jcl:55
CARDFILE	AWS.M2.CARDDEMO.CARDDATA.VSAM.KSDS	SHR	read derived	CBEXPORT SELECT CARD-INPUT ASSIGN TO CARDFILE (app/cbl/CBEXPORT.cbl:59), OPEN INPUT	CBEXPORT.jcl:57
EXPFILE	AWS.M2.CARDDEMO.EXPORT.DATA	SHR	write derived	CBEXPORT SELECT EXPORT-OUTPUT ASSIGN TO EXPFILE (app/cbl/CBEXPORT.cbl:65), OPEN OUTPUT	CBEXPORT.jcl:62
SYSOUT	SYSOUT=*		write derived	SYSOUT=*	CBEXPORT.jcl:67
SYSPRINT	SYSOUT=*		write derived	SYSOUT=*	CBEXPORT.jcl:68