Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
Here is my proof:
Code:
//STEP0001 EXEC PGM=IEFBR14
//FILE1 DD DSN=&SYSUID..WORK.DATA,DISP=(MOD,DELETE,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(1,0),RLSE)
//*
//STEP0002 EXEC PGM=ICEGENER
//SYSUT1 DD DATA
THIS IS THE RECORD FOR &&WORK
/*
//SYSUT2 DD DSN=&&WORK,DISP=(NEW,PASS),UNIT=SYSDA,
// SPACE=(CYL,(1,1,),RLSE)
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//*
//STEP0003 EXEC PGM=ICEGENER
//SYSUT1 DD DSN=&&WORK,DISP=(OLD,DELETE)
//SYSUT2 DD DSN=&SYSUID..WORK.DATA,DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE)
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//*
//STEP0004 EXEC PGM=ICEGENER
//SYSUT1 DD DATA
THIS IS THE RECORD FOR &WORK
/*
//SYSUT2 DD DSN=&WORK,DISP=(NEW,PASS),UNIT=SYSDA,
// SPACE=(CYL,(1,1,),RLSE)
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//*
//STEP0005 EXEC PGM=ICEGENER
//SYSUT1 DD DSN=&WORK,DISP=(OLD,DELETE)
//SYSUT2 DD DSN=&SYSUID..WORK.DATA,DISP=(MOD,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE)
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//*
which results in this output data:
Code:
****** ***************************** Top of Data *********
=COLS> ----+----1----+----2----+----3----+----4----+----5-
000001 THIS IS THE RECORD FOR &&WORK
000002 THIS IS THE RECORD FOR &WORK
