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

FREE TUTORIALS

Tutorials
Free tutorials from mainframegurukul
  • JCL Tutorial
    Covers all important JCL concepts.
  • Cobol Tutorial
    This tutorials covers all Cobol Topics from STRING to COMP-3.
  • DB2 Tutorial
    DB2 Tutorial focuses on DB2 COBOL Programming.
  • SORT Tutorial
    This Tutorial covers all important aspects of DFSORT with examples
  • CICS Tutorial
    This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming.
Interview
Mainframe Interview questions



Other References
Mainframe Tools and others