Pls help: to combine the step3 and step4 ..

In this Mainframe Forum - You can post your queries on JCL, OS/390 JCL, MVS JCL, z/OS JCL, JES2 & JES3

Moderators: Frank Yaeger, DikDude, Moderator Group

Post Reply
anup3838
Member
Posts: 2
Joined: Thu Jun 25, 2015 2:37 am

Pls help: to combine the step3 and step4 ..

Post by anup3838 » Thu Jun 25, 2015 2:45 am

The below steps 3 & 4 are from the same proc and have different ezytrieve pgsm , i would like to know how can i combine both steps and make it one since the input file is the same.

//STEP003 EXEC PGM=CC017EZ2,REGION=4M
//STEPLIB DD DSN=&NODE1..&ENV1..PGMLIB,
// DISP=SHR
// DD DSN=&NODE1..PROD.PGMLIB,
// DISP=SHR
//EZTVFM DD UNIT=(SYSDA,3),SPACE=(4096,(100,100),RLSE)
//SYSPRINT DD SYSOUT=&SOUTJ
//SYSSNAP DD SYSOUT=&SOUTJ
//SYSOUT DD SYSOUT=&SOUTJ
//*
//CURRENT DD DSN=&STAT.CC.BB.DB&CYCLE.077.RESYNC(+1),
// DISP=SHR,BUFNO=20
//*
//PREVIOUS DD DSN=&STAT.CC.BB.DB&CYCLE.077.RESYNC(+0),
// DISP=SHR,BUFNO=20
//*
//DELTAS DD DSN=&STAT.CC.WROC.DB&CYCLE.077.PROFILE.DATA,
// DISP=(NEW,CATLG,DELETE),
// DATACLAS=LARGE,
// RECFM=FB,LRECL=3000,BLKSIZE=0
//TOTFILE DD DSN=&STAT.CC.WROC.DB&CYCLE.077.PROFILE.DATA.CTL,
// DISP=(NEW,CATLG,DELETE),
// DATACLAS=STANDARD,
// DCB=(LRECL=8,BLKSIZE=0,RECFM=FB)


STEP004

//STEP004 EXEC PGM=CC017EZT,REGION=4M
//STEPLIB DD DSN=&NODE1..&ENV1..PGMLIB,
// DISP=SHR
// DD DSN=&NODE1..PROD.PGMLIB,
// DISP=SHR
//EZTVFM DD UNIT=(SYSDA,3),SPACE=(4096,(100,100),RLSE)
//SYSPRINT DD SYSOUT=&SOUTJ
//SYSSNAP DD SYSOUT=&SOUTJ
//SYSOUT DD SYSOUT=&SOUTJ
//*
//CURRENT DD DSN=&STAT.CC.BB.DB&CYCLE.077.RESYNC(+1),
// DISP=SHR,BUFNO=20
//*
//PREVIOUS DD DSN=&STAT.CC.BB.DB&CYCLE.077.RESYNC(+0),
// DISP=SHR,BUFNO=20
//*
//DELTAS DD DSN=&STAT.CC.WROC2.DB&CYCLE.077.PROFILE.DATA,
// DISP=(NEW,CATLG,DELETE),
// DATACLAS=LARGE,BUFNO=20,
// RECFM=FB,LRECL=3000,BLKSIZE=0
//TOTFILE DD DSN=&STAT.CC.WROC2.DB&CYCLE.077.PROFILE.DATA.CTL,
// DISP=(NEW,CATLG,DELETE),
// DATACLAS=STANDARD,
// DCB=(LRECL=8,BLKSIZE=0,RECFM=FB)
//*
//PURGED DD DSN=&STAT.CC.WROC.DB&CYCLE.077.PURGE.DATA,
// DISP=(NEW,CATLG,DELETE),
// DATACLAS=LARGE,
// RECFM=FB,LRECL=15,BLKSIZE=0
//TOTFILE2 DD DSN=&STAT.CC.WROC.DB&CYCLE.077.PURGE.DATA.CTL,
// DISP=(NEW,CATLG,DELETE),
// DATACLAS=STANDARD,
// DCB=(LRECL=8,BLKSIZE=0,RECFM=FB)
Anup

William Collins
Active Member
Posts: 732
Joined: Thu May 24, 2012 4:07 am

Post by William Collins » Fri Jun 26, 2015 11:49 am

You will only be able to combine the steps if you can combine the programs.

However, since we can't see the source of the programs, we can have no clue whether that is easy, hard, possible or impossible with the original program.

Post Reply