// 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
//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