Return to the Sample Job Stream List

DOM6935 Sample Job Stream

Original JCL (VSE)

// PLOC PL1='&PARM1',PL2='&PARM2',PL3='&PARM3'
// PLOC PL4='&PARM4',PL5='&PARM5',PL6='&PARM6'
// PLOC PL7='&PARM7',PL8='&PARM8',PL9='&PARM9'
// PDEF PG1='&PARM1',PG2='&PARM2',PG3='&PARM3'
// PDEF PG4='&PARM4',PG5='&PARM5',PG6='&PARM6'
// PDEF PG7='&PARM7',PG8='&PARM8',PG9='&PARM9'
// PDEF CG1=,CG2=,CG3=,CG4=,CG5=,CG6=,CG7=,CG8=,CG9=
// PLOC CL1=,CL2=,CL3=,CL4=,CL5=,CL6=,CL7=,CL8=,CL9=
*  PARAMETER 4 IS &PL4 , WHICH IS A TWO DIGIT BRANCH-CODE
.* PARAMETER 4 IS BRANCH CODE, PARAMETER 5 IS RESTART-POINT
*/***** DOM6935A.PROC      /BEGIN/  DOM6935.JECL       001 */
// PLOC PL1='&PARM1',PL2='&PARM2',PL3='&PARM3'
// PLOC PL4='&PARM4',PL5='&PARM5',PL6='&PARM6'
// PLOC PL7='&PARM7',PL8='&PARM8',PL9='&PARM9'
// PDEF PG1='&PARM1',PG2='&PARM2',PG3='&PARM3'
// PDEF PG4='&PARM4',PG5='&PARM5',PG6='&PARM6'
// PDEF PG7='&PARM7',PG8='&PARM8',PG9='&PARM9'
// PDEF CG1=,CG2=,CG3=,CG4=,CG5=,CG6=,CG7=,CG8=,CG9=
// PLOC CL1=,CL2=,CL3=,CL4=,CL5=,CL6=,CL7=,CL8=,CL9=
// JOB D6935A&PG3
// PIF ('&PG4' BEQ '00').ERR
// PIF ('&PG4' CLT '44').ERR1
// PIF ('&PG4' CGT '44').ERR1
// PGO .NORM
//.ERR PNOP ,
* *****************************************************************
*   MUST ENTER PARAMETER 4 FOR BRANCH CODE, MUST BE TWO DIGITS LONG
* *****************************************************************
//          PGO .BYEBYE
//.ERR1 PNOP ,
* *****************************************************************
*   MUST ENTER VALID BRANCH CODE FOR PARM 4 ('44' THRU '44')
* *****************************************************************
//          PGO .BYEBYE
//.NORM PNOP ,
/*
// PIF ('&EOM' NE 'Y').NOTEOM
* *****************************************************************
*   TAG RECORDS AT END-OF-MONTH (WHEN EOM=Y)
* *****************************************************************
// DLBL DISK1,'INTL WEEKLY &AAA'
// EXEC JKLM05M
/*
//.NOTEOM PNOP
* *****************************************************************
*   EVERYDAY PROCESSING
* *****************************************************************
// TLBL SYS010,'INTL DAILY &PG4',,,,,1,18
// TLBL SYS010,'INTL DAILY &PG4',,,,,2,18
// TLBL SYS010,'INTL DAILY &PG4',,,,,3,18
// TLBL SYS010,'INTL DAILY &PG4',,,,,4,18
// TLBL SYS010,'INTL DAILY &PG4',,,,,5,18
// TLBL SYS010,'INTL DAILY &PG4',,,,,6,18
// TLBL SYS010,'INTL DAILY &PG4',,,,,7,18
// TLBL SYS010,'INTL DAILY &PG4',,,,,8,18
// TLBL SYS010,'INTL DAILY &PG4',,,,,9,18
// TLBL SYS010,'INTL DAILY &PG4',,,,,10,18
// TLBL SYS010,'INTL DAILY &PG4',,,,,11,18
// TLBL SYS010,'INTL DAILY &PG4',,,,,12,18
// TLBL SYS010,'INTL DAILY &PG4',,,,,13,18
// TLBL SYS010,'INTL DAILY &PG4',,,,,14,18
// TLBL SYS010,'INTL DAILY &PG4',,,,,15,18
// TLBL SYS010,'INTL DAILY &PG4',,,,,16,18
// TLBL SYS010,'INTL DAILY &PG4',,,,,17,18
// TLBL SYS010,'INTL DAILY &PG4',,,,,18,2
// DLBL SYS011,'INTL WEEKLY &AAA'
// EXTENT SYS001,WORK04,,,1,300
// ASSGN SYS005,PRINTER
// RPT SYS005,CUST=BR-&PG4,CL=W
// RPT SYS005,COPIES=002
// RPT SYS005,RO=X
//.R54LAB PNOP
// EXEC JKLM05D
&PG1&PG3.W
/*
// DLBL DISK1,'INTL WEEKLY &AAA'
// EXTENT SYS001,WORK04,,,1,300
// TLBL TAPE10,'INTL WEEKLY &PG4',,,,,,2
// EXEC SELCOPY
 IN F=DISK1,L=200
  N F=TAPE10,B=2000
/*
/&
/+
/*
*/***** DOM6935A.PROC      //END//  DOM6935.JECL       001 */
.* // PROC DOM6935B
//.BYEBYE PNOP ,
/+
/*
   

Return to the Sample Job Stream List

Translated JCL (MVS)

//DOM6935  PROC EOM=N,&AAA=,&PG1=,&PG3=,&PG4=
//* *****************************************************************
//*   TAG RECORDS AT END-OF-MONTH (WHEN EOM=Y)
//* *****************************************************************
//*PIF ('&EOM' NE 'Y').NOTEOM
//CONDCD01 EXEC PGM=CONDCODE,PARM='&EOM^=Y'
//*
//*     STEP0010  PGM=JKLM05M
//*
// IF (CONDCD01.RC NE 0) THEN
//STEP0010 EXEC PGM=JKLM05M
//* SD U                       'INTL WEEKLY &AAA'
//DISK1    DD  DSN=INTL.WEEKLY.&AAA(0),
//             DISP=SHR
//* PR O SYS005 UA
//SYS005   DD  SYSOUT=*
//SYSOUT  INCLUDE MEMBER=SYSOUT
//* CD I SYSIPT IGN
//SYSIN    DD  DUMMY
// ENDIF
//*
//* *****************************************************************
//*   EVERYDAY PROCESSING
//* *****************************************************************
//*//.NOTEOM PNOP
//*
//*     STEP0020  PGM=JKLM05D
//*
//STEP0020 EXEC PGM=JKLM05D
//* MT I SYS010 UA             'INTL DAILY &PG4'
//SYS010   DD  DSN=INTL.DAILY.&PG4(0),
//             DISP=SHR,
//             FREE=CLOSE
//* MT I SYS010 UA             'INTL DAILY &PG4'
//SYS010   DD  DSN=INTL.DAILY.&PG4(-1),
//             DISP=SHR,
//             FREE=CLOSE
//* MT I SYS010 UA             'INTL DAILY &PG4'
//SYS010   DD  DSN=INTL.DAILY.&PG4(-2),
//             DISP=SHR,
//             FREE=CLOSE
//* MT I SYS010 UA             'INTL DAILY &PG4'
//SYS010   DD  DSN=INTL.DAILY.&PG4(-3),
//             DISP=SHR,
//             FREE=CLOSE
//* MT I SYS010 UA             'INTL DAILY &PG4'
//SYS010   DD  DSN=INTL.DAILY.&PG4(-4),
//             DISP=SHR,
//             FREE=CLOSE
//* MT I SYS010 UA             'INTL DAILY &PG4'
//SYS010   DD  DSN=INTL.DAILY.&PG4(-5),
//             DISP=SHR,
//             FREE=CLOSE
//* MT I SYS010 UA             'INTL DAILY &PG4'
//SYS010   DD  DSN=INTL.DAILY.&PG4(-6),
//             DISP=SHR,
//             FREE=CLOSE
//* MT I SYS010 UA             'INTL DAILY &PG4'
//SYS010   DD  DSN=INTL.DAILY.&PG4(-7),
//             DISP=SHR,
//             FREE=CLOSE
//* MT I SYS010 UA             'INTL DAILY &PG4'
//SYS010   DD  DSN=INTL.DAILY.&PG4(-8),
//             DISP=SHR,
//             FREE=CLOSE
//* MT I SYS010 UA             'INTL DAILY &PG4'
//SYS010   DD  DSN=INTL.DAILY.&PG4(-9),
//             DISP=SHR,
//             FREE=CLOSE
//* MT I SYS010 UA             'INTL DAILY &PG4'
//SYS010   DD  DSN=INTL.DAILY.&PG4(-10),
//             DISP=SHR,
//             FREE=CLOSE
//* MT I SYS010 UA             'INTL DAILY &PG4'
//SYS010   DD  DSN=INTL.DAILY.&PG4(-11),
//             DISP=SHR,
//             FREE=CLOSE
//* MT I SYS010 UA             'INTL DAILY &PG4'
//SYS010   DD  DSN=INTL.DAILY.&PG4(-12),
//             DISP=SHR,
//             FREE=CLOSE
//* MT I SYS010 UA             'INTL DAILY &PG4'
//SYS010   DD  DSN=INTL.DAILY.&PG4(-13),
//             DISP=SHR,
//             FREE=CLOSE
//* MT I SYS010 UA             'INTL DAILY &PG4'
//SYS010   DD  DSN=INTL.DAILY.&PG4(-14),
//             DISP=SHR,
//             FREE=CLOSE
//* MT I SYS010 UA             'INTL DAILY &PG4'
//SYS010   DD  DSN=INTL.DAILY.&PG4(-15),
//             DISP=SHR,
//             FREE=CLOSE
//* MT I SYS010 UA             'INTL DAILY &PG4'
//SYS010   DD  DSN=INTL.DAILY.&PG4(-16),
//             DISP=SHR,
//             FREE=CLOSE
//* MT I SYS010 UA             'INTL DAILY &PG4'
//SYS010   DD  DSN=INTL.DAILY.&PG4(-17),
//             DISP=SHR
//* SD O SYS011 UA             'INTL WEEKLY &AAA'
//SYS011   DD  DSN=INTL.WEEKLY.&AAA(+1),
//             DISP=(NEW,CATLG,DELETE),
//             SPACE=(TRK,(300,75),RLSE),
//             UNIT=SYSDA
//* PR O SYS005 00E
//SYS005   DD  SYSOUT=W,
//             COPIES=002
//SYSOUT  INCLUDE MEMBER=SYSOUT
//* SD I SYSIPT 00C     /0/0 CD
//SYSIN    DD  SUBSYS=(CCSS,'&PG1&PG3.W')
//*
//*     STEP0030  PGM=SELCOPY
//*
//STEP0030 EXEC PGM=SELCOPY
//* MODULE SELCOPY PROCESSED BY PLUG-IN JCLTSELC
//* SD I                       'INTL WEEKLY &AAA'
//DISK1    DD  DSN=INTL.WEEKLY.&AAA(+1),
//             DISP=SHR
//* MT O                       'INTL WEEKLY &PG4'
//TAPE10   DD  DSN=INTL.WEEKLY.&PG4(+1),
//             DISP=(NEW,CATLG,DELETE),
//             UNIT=TAPE
//* PR O SYSLST 00E
//SYSPRINT DD  SYSOUT=W,
//             COPIES=002
//* SD I SYSIPT 00C     /0/0 CD
//SYSIN    DD  SUBSYS=(CCSS,' IN F=DISK1,L=200','  N F=TAPE10,B=2000')
   

Return to the Sample Job Stream List