Can we use referback in same step?

toughmetals · New User Joined: 10 Jan 2006 Posts: 14 Location: India

Hi All,

With in a step if we declare one DD stmt, Can we use referback to get the same parameters in the subsequent DD stmt?

Could you please provide example for this if possible ?

sbalajibe · New User Joined: 15 Aug 2005 Posts: 62

Hi toughmetals,

eg:

//STEP1 EXEC PGM = IEFBR14
//DD1 DD DSN =INFILE1, DISP = (NEW,CATLG,DELETE),
// DCB = (LRECL=80,RECFM=FB,BLKSIZE=800),
// VOL=SER=MTPUN1,SPACE =(TRK,(3,5))
//DD2 DD DSN = INFILE2 DISP = *.DD1,
// DCB = *.DD1,
// VOL=SER=MTPUN1,SPACE =(TRK,(3,5))
//STEP2 EXEC PGM = IEFBR14
//DD3 DD DSN = INFILE3 DISP = *.STEP1.DD1
// DCB = (LRECL=80,RECFM=FB,BLKSIZE=800),
// VOL=SER=MTPUN1,SPACE =(TRK,(3,5))

in the above jcl all files will have same properties
in step1 dd2 will refer same step dd1 and in step2 dd3 will refer pervious step dd1

thanks
balaji

toughmetals · New User Joined: 10 Jan 2006 Posts: 14 Location: India

That Was helpful. Thanks Balaji.

Thanks,
Deeps

MGIndaco · Posted: Wed Jan 18, 2006 1:40 pm

Be sure that your file are not on multivolume because using VOL=REF=*.mydd data is truncated at the end of primary volume.
Try to see JCL manuals for further information.

I hope in this.