IBM Mainframe Forum

The sort card used to generate date is as follows :

//STEP1 EXEC PGM=ICEMAN
//SORTIN DD *
EMPTY record
/*
//SORTOUT DD DSN=DEVELOP.EMPLYO.DUMMY,
// DCB=(LRECL=80,RECFM=FB,BLKSIZE=0),
// SPACE=(CYL,(1,1),RLSE),
// DISP=(NEW,CATLG,DELETE)
//SYSIN DD *
OPTION COPY
INREC BUILD=(1:DATE1-1)
OUTFIL BUILD=(5,2,7,2,3,2,80:X)
/*
the output of step1 will be
********************************* Top of Data **********************************
072509
******************************** Bottom of Data ********************************

//STEP2 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=PROD.EMPLYO.FILE,DISP=SHR

//SYSUT2 DD DSN=DEVELOP.EMPLYO.FILE.Z&d ,DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(TRK,(3,4),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//SYSIN DD *
COPY INDD=SYSUT1,OUTDD=SYSUT2
/*
and the value of &d should be yesterdays date in the format of 072509

Do let me know if you need further information.

Please do suggest me the alternative way if any to get the value &d = 072509

My response:

Or:

First Job:


Second Job:

Have you considered using REXX and ISPF file tailoring to do this.

Thanks a lot Mr Spock. I am able to take the back ups using JCL.

Thanks a ton.