Previous Topic: PARM KeywordsNext Topic: Job 3


Data Sets Used/Created

DT20WORK is a work file used by SASSDT20. It must not have a DISP of MOD.

DATASETS contains one card-image record for each application data set name being moved with the name beginning in position 1 of the record. (This data set may be useful for producing sorted data set checklists to assist in the physical movement of data sets to the new site.)

The SASSDT20-01 control report (DT20CR01) can be used to verify accuracy before running Job 3.

After verifying that Job 2 ran correctly, Job 3 may be run.

The following is a SASSDT20 execution JCL sample:

//jobname  JOB .......,REGION=4M
//EXTRACT  EXEC PGM=SASSBSTR,PARM=batch-terminal-id
//JOBLIB   DD  DSN=cai.CAL2LOAD,DISP=SHR
//UCC7CMDS DD  DSN=ca7.communications.data.set,DISP=SHR
//SYSOUT   DD  SYSOUT=x
//SYSPRINT DD  DSN=&&DT20IN,DISP=(,PASS),UNIT=SYSDA,
//             SPACE=(CYL,(5,1),RLSE),DCB=(RECFM=FBA,LRECL=133,BLKSIZE=3990)
//SYSIN    DD  DSN=input.to.job2,DISP=(OLD,DELETE)
//*
//CREATE2  EXEC PGM=SASSDT20,COND=(0,NE,EXTRACT),
//             PARM='LOGON=operid[,password][,DDPROSE=N][,JCL=N]'
//DT20IN   DD  DSN=&&DT20IN,DISP=(OLD,DELETE)
//DT20OUT  DD  DSN=input.to.job3,DISP=(,CATLG),
//             UNIT=SYSDA,SPACE=(CYL,(2,1),RLSE),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=4000)
//DT20CR01 DD  SYSOUT=x,DCB=BLKSIZE=133
//DATASETS DD  SYSOUT=x,DCB=BLKSIZE=80
//DT20WORK DD  DISP=(,DELETE),UNIT=SYSDA,
//             SPACE=(CYL,(1,1)),DCB=(RECFM=FBA,LRECL=133,BLKSIZE=3990)
//SYSUDUMP DD  SYSOUT=x