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