Effective: November 14, 1999
Revised: September 27, 1999
This appendix shows the JCL generated by the System for LOCAL NWRDC users.
Usage Notes
Lines that begin with 'NOTE==' are comments to the user pinpointing the portions of the generated job stream that may require modification. These lines must be deleted from the job stream before it is submitted for execution. Lines that begin with the characters '++__._++' will need modification but should remain in the final job stream with the '++__._++' deleted from the beginning of the line. Items in the actual JCL that should be modified are printed in bold type and lower case. Items in BOLD TYPE AND UPPER CASE are shown here as generic codes but are supplied by the System based on your local site default values and parameters specified at JCL generation time as described in Chapter IV. For example, ACCT will be the user's NWRTSO logon ID in the generated JCL.
NOTE== JOB STREAM TO POST REQUESTS RECORDS - SYSDATE SYSTIME
NOTE== LINES TO BE EDITED ARE UNIQUELY MARKED BY A LINE CODE DELIMITED
NOTE== BY DOUBLE PLUS SIGNS IN THE FIRST 8 CHARACTERS (EG. ++MS.1++).
NOTE== INSTRUCTIONS FOR EDITING EACH LINE ARE EMBEDDED THROUGHOUT THE
NOTE== TEXT. ALL 'NOTE==' LINES AND LINE CODE MARKERS MUST BE DELETED
NOTE== BEFORE SUBMITTING THE JOB STREAM OR THE JOB WILL NOT EXECUTE.
NOTE==
NOTE============================================ BEGIN JC SECTION ====
NOTE== LINES THAT NEED TO BE EDITED IN JC SECTION: (EXECUTED AT NWRDC)
NOTE== JC.1 = NWRDC JOB CARD 1
NOTE== JC.2 = NWRDC JOB CARD 2
NOTE== JC.3 = NWRDC PASSWORD CARD
NOTE== JC.4 = ROUTE PRINT TO LOCAL SITE
NOTE== JC.5 = ROUTE PUNCH TO LOCAL SITE
++JC.1++//ACCTSQ JOB (ACCT),'programmer name',MSGLEVEL=(0,0),
++JC.2++// REGION=4096K,MSGCLASS=A,TIME=(,10),CLASS=A
/*JOBPARM CARDS=999999,LINES=9999
/*ROUTE XEQ NWR
++JC.3++/*PASSWORD nwrpswrd
++JC.4++/*ROUTE PRINT NWR.RMT
++JC.5++/*ROUTE PUNCH NWR.RMT
//*---------------------------------------------------
//* NWRDC JOB CONTROL (JC) -- GENERATED ON SYSDATE AT SYSTIME
//*---------------------------------------------------
NOTE============================================== END JC SECTION ====
//************************************************************
//* *
//* STUDENT RECORD TRANSFER SYSTEM *
//* POST REQUESTS *
//* *
//************************************************************
//*
//* THIS STEP DELETES THE FILE TO BE CREATED IN NEXT STEP
//*
// EXEC IKJBATCH
//NWRISPF.SYSTSPRT DD DUMMY
DELETE 'DSNPRFX.REQUESTS.ONTO.SYSERRS'
//******************************************************************
//* PARAM CARD VALUES *
//* *
//* POST A BATCH POS 1 = ERROR FILE PROCESSING *
//* OF REQUESTS 'P' - ERROR PRINT *
//* TO THE DATABASE REPORT ONLY *
//* 'B' - GENERATE BOTH *
//* ERR REC FILE IN *
//* ADDITION TO THE *
//* PRINT REPORT *
//******************************************************************
//SRTS01 EXEC PGM=IKJEFT01,DYNAMNBR=20,TIME=(,10)
//STEPLIB DD DSN=FRN.DISTRICT.LINKLIB,DCB=BLKSIZE=32760,DISP=SHR
//$ORTPARM DD *
INCORE=OFF
/*
//MASTID DD DSN=DPSV.G4.F25031,DISP=SHR
//EDITRPT DD SYSOUT=A
//RQSFILE DD DISP=SHR,DSN=DSNPRFX.REQUESTS.ONTO.SYSTEM
//*----RQSFILE MUST BE SAME NAME AS TRANSFER OUTPUT
//SORTWK01 DD UNIT=SYSDA,SPACE=(TRK,(3,3),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(TRK,(3,3),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(TRK,(3,3),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(TRK,(3,3),RLSE)
//RQSERRS DD DSN=DSNPRFX.REQUESTS.ONTO.SYSERRS, /*ERROR RECORDS
// DISP=(NEW,CATLG),
// DCB=(RECFM=FB,LRECL=1020,BLKSIZE=27540,DSORG=PS),
// UNIT=SYSDA,STORCLAS=SCFNSTD,
// SPACE=(TRK,(3,3),RLSE)
//PARAM DD *
B
//SYSOUT DD SYSOUT=A
//SYSPRINT DD SYSOUT=A
//SYSUDUMP DD SYSOUT=A
//SYSERR DD SYSOUT=A
//SYSABOUT DD SYSOUT=A
//SYSTSPRT DD DUMMY
//DSNTRACE DD DUMMY
//IGZSRTCD DD DUMMY
//SYSTSIN DD *
DSN SYSTEM(DSN)
RUN PROGRAM(SRTS01) PLAN(FNSRTS01) -
LIB('FRN.DISTRICT.LINKLIB')
END
NOTE== JOB STREAM TO POST RESPONSE RECORDS - SYSDATE SYSTIME
NOTE== LINES TO BE EDITED ARE UNIQUELY MARKED BY A LINE CODE DELIMITED
NOTE== BY DOUBLE PLUS SIGNS IN THE FIRST 8 CHARACTERS (EG. ++MS.1++).
NOTE== INSTRUCTIONS FOR EDITING EACH LINE ARE EMBEDDED THROUGHOUT THE
NOTE== TEXT. ALL 'NOTE==' LINES AND LINE CODE MARKERS MUST BE DELETED
NOTE== BEFORE SUBMITTING THE JOB STREAM OR THE JOB WILL NOT EXECUTE.
NOTE==
NOTE============================================ BEGIN JC SECTION ====
NOTE== LINES THAT NEED TO BE EDITED IN JC SECTION: (EXECUTED AT NWRDC)
NOTE== JC.1 = NWRDC JOB CARD 1
NOTE== JC.2 = NWRDC JOB CARD 2
NOTE== JC.3 = NWRDC PASSWORD CARD
NOTE== JC.4 = ROUTE PRINT TO LOCAL SITE
NOTE== JC.5 = ROUTE PUNCH TO LOCAL SITE
++JC.1++//ACCTSS JOB (ACCT),'programmer name',MSGLEVEL=(0,0),
++JC.2++// REGION=4096K,MSGCLASS=A,TIME=(2,30),CLASS=A
/*JOBPARM CARDS=999999,LINES=9999
/*ROUTE XEQ NWR
++JC.3++/*PASSWORD nwrpswrd
++JC.4++/*ROUTE PRINT NWR.RMT
++JC.5++/*ROUTE PUNCH NWR.RMT
//*---------------------------------------------------
//* NWRDC JOB CONTROL (JC) -- GENERATED ON SYSDATE AT SYSTIME
//*---------------------------------------------------
NOTE============================================== END JC SECTION ====
//************************************************************
//* *
//* STUDENT RECORD TRANSFER SYSTEM *
//* POST RESPONSES *
//* *
//************************************************************
//*
//* THIS STEP DELETES THE FILE TO BE CREATED IN NEXT STEP
//*
// EXEC IKJBATCH
//NWRISPF.SYSTSPRT DD DUMMY
DELETE 'DSNPRFX.RESPONSE.ONTO.SYSERRS'
//************************************************************
//* PARAM CARD VALUES *
//* *
//* POST A BATCH POS 1 = ERROR FILE PROCESSING *
//* OF RESPONSES 'P' - ERROR PRINT *
//* TO THE DATABASE REPORT ONLY *
//* 'B' - GENERATE BOTH *
//* ERR REC FILE IN *
//* ADDITION TO THE *
//* PRINT REPORT *
//************************************************************
//SRTS03 EXEC PGM=IKJEFT01,DYNAMNBR=20,TIME=(2,30)
//STEPLIB DD DSN=FRN.DISTRICT.LINKLIB,DCB=BLKSIZE=32760,DISP=SHR
//$ORTPARM DD *
INCORE=OFF
/*
//EDITRPT DD SYSOUT=A
//MASTID DD DSN=DPSV.G4.F25031,DISP=SHR
//RSPFILE DD DISP=SHR,DSN=DSNPRFX.RESPONSE.ONTO.SYSTEM
//*----RSPFILE MUST BE SAME NAME AS TRANSFER OUTPUT
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(3,1),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(3,1),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(3,1),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(3,1),RLSE)
//RSPERRS DD DSN=DSNPRFX.RESPONSE.ONTO.SYSERRS, /*ERROR RECORDS
// DISP=(NEW,CATLG),
// DCB=(RECFM=FB,LRECL=1020,BLKSIZE=27540,DSORG=PS),
// UNIT=SYSDA,STORCLAS=SCFNSTD,
// SPACE=(CYL,(1,1),RLSE)
//PARAM DD *
B
//SYSOUT DD SYSOUT=A
//SYSPRINT DD SYSOUT=A
//SYSUDUMP DD SYSOUT=A
//SYSERR DD SYSOUT=A
//SYSABOUT DD SYSOUT=A
//SYSTSPRT DD DUMMY
//DSNTRACE DD DUMMY
//IGZSRTCD DD DUMMY
//SYSTSIN DD *
DSN SYSTEM(DSN)
RUN PROGRAM(SRTS03) PLAN(FNSRTS03) -
LIB('FRN.DISTRICT.LINKLIB')
END
NOTE== JOB STREAM TO RECEIVE REQUESTS RECORDS - SYSDATE SYSTIME
NOTE== LINES TO BE EDITED ARE UNIQUELY MARKED BY A LINE CODE DELIMITED
NOTE== BY DOUBLE PLUS SIGNS IN THE FIRST 8 CHARACTERS (EG. ++MS.1++).
NOTE== INSTRUCTIONS FOR EDITING EACH LINE ARE EMBEDDED THROUGHOUT THE
NOTE== TEXT. ALL 'NOTE==' LINES AND LINE CODE MARKERS MUST BE DELETED
NOTE== BEFORE SUBMITTING THE JOB STREAM OR THE JOB WILL NOT EXECUTE.
NOTE==
NOTE============================================ BEGIN JC SECTION ====
NOTE== LINES THAT NEED TO BE EDITED IN JC SECTION: (EXECUTED AT NWRDC)
NOTE== JC.1 = NWRDC JOB CARD 1
NOTE== JC.2 = NWRDC JOB CARD 2
NOTE== JC.3 = NWRDC PASSWORD CARD
NOTE== JC.4 = ROUTE PRINT TO LOCAL SITE
NOTE== JC.5 = ROUTE PUNCH TO LOCAL SITE
++JC.1++//ACCTRQ JOB (ACCT),'programmer name',MSGLEVEL=(0,0),
++JC.2++// REGION=4096K,MSGCLASS=A,TIME=(,15),CLASS=A
/*JOBPARM CARDS=999999,LINES=9999
/*ROUTE XEQ NWR
++JC.3++/*PASSWORD nwrpswrd
++JC.4++/*ROUTE PRINT NWR.RMT
++JC.5++/*ROUTE PUNCH NWR.RMT
//*---------------------------------------------------
//* NWRDC JOB CONTROL (JC) -- GENERATED ON SYSDATE AT SYSTIME
//*---------------------------------------------------
NOTE============================================== END JC SECTION ====
//************************************************************
//* *
//* STUDENT RECORD TRANSFER SYSTEM *
//* GENERATE A FILE OF CURRENT REQUESTS *
//* *
//************************************************************
//*
//* THIS STEP DELETES THE FILE TO BE CREATED IN NEXT STEP
//*
// EXEC IKJBATCH
//NWRISPF.SYSTSPRT DD DUMMY
DELETE 'DSNPRFX.REQUESTS.ALLFROM.MAILBOX'
//************************************************************
//* PARAM CARD VALUES *
//* *
//* GENERATE FILE POS 1 - 10 = 'CURRENT ' *
//* OF CURRENT SELECT NEW *
//* REQUESTS AND REQUEST RECORDS, *
//* SUMMARIZE OR *
//* PROCESSING 'RETRANSMIT' *
//* PERFORMED SELECT RECORDS *
//* ALREADY DELIVERED *
//* POS 11 - 18 = BEGIN DATE (MMDDYYYY) *
//* POS 19 - 26 = END DATE (MMDDYYYY) *
//* POS 27 - 33 = SENDING INSTITUTION *
//* (= SPACES -OR- IF *
//* FILLED IN, ALLOWS *
//* ROWS TO BE RETRIEVED*
//* BY SENDING INST) *
//************************************************************
//SRTS02 EXEC PGM=IKJEFT01,DYNAMNBR=20,TIME=(,15)
//STEPLIB DD DSN=FRN.DISTRICT.LINKLIB,DCB=BLKSIZE=32760,DISP=SHR
//PARAM DD *
CURRENT
//SYSPRINT DD SYSOUT=A
//SYSOUT DD SYSOUT=A
//SYSUDUMP DD SYSOUT=A
//SYSERR DD SYSOUT=A
//SYSABOUT DD SYSOUT=A
//SYSTSPRT DD DUMMY
//DSNTRACE DD DUMMY
//SYSTSIN DD *
DSN SYSTEM(DSN)
RUN PROGRAM(SRTS02) PLAN(FNSRTS02) -
LIB('FRN.DISTRICT.LINKLIB')
END
//RQSUMRY DD SYSOUT=A /*SUMMARY STATEMENTS
//RQSFILE DD DSN=DSNPRFX.REQUESTS.ALLFROM.MAILBOX, /*TRANSFER RECORDS
// DISP=(NEW,CATLG),
// DCB=(RECFM=FB,LRECL=1020,BLKSIZE=27540,DSORG=PS),
// UNIT=SYSDA,STORCLAS=SCFNSTD,
// SPACE=(TRK,(3,3),RLSE)
//**********************************************************************
//* *
//*THIS STEP IS EXECUTED IF THE USER HAS REQUESTED A PRINTED TRANSCRIPT*
//* *
//**********************************************************************
//SRTS11 EXEC PGM=SRTS11,TIME=(,15),
// COND=(0,NE,SRTS02)
//STEPLIB DD DSN=FRN.DISTRICT.LINKLIB,DCB=BLKSIZE=32760,DISP=SHR
//PARAM DD *
SRTS11
//SYSPRINT DD SYSOUT=A
//SYSOUT DD SYSOUT=A
//SYSUDUMP DD SYSOUT=A
//SYSABOUT DD SYSOUT=A
//MASTID DD DSN=DPSV.G4.F25031,DISP=SHR
//RPTFILE DD SYSOUT=A /*TRANSCRIPT
//RQSFILE DD DSN=DSNPRFX.REQUESTS.ALLFROM.MAILBOX, /*TRANSFER RECORDS
// DISP=SHR
//*----RQSFILE MUST BE THE SAME NAME AS OUTPUT FILE FROM SRTS02
NOTE== JOB STREAM TO RECEIVE RESPONSE RECORDS - SYSDATE SYSTIME
NOTE== LINES TO BE EDITED ARE UNIQUELY MARKED BY A LINE CODE DELIMITED
NOTE== BY DOUBLE PLUS SIGNS IN THE FIRST 8 CHARACTERS (EG. ++MS.1++).
NOTE== INSTRUCTIONS FOR EDITING EACH LINE ARE EMBEDDED THROUGHOUT THE
NOTE== TEXT. ALL 'NOTE==' LINES AND LINE CODE MARKERS MUST BE DELETED
NOTE== BEFORE SUBMITTING THE JOB STREAM OR THE JOB WILL NOT EXECUTE.
NOTE==
NOTE============================================ BEGIN JC SECTION ====
NOTE== LINES THAT NEED TO BE EDITED IN JC SECTION: (EXECUTED AT NWRDC)
NOTE== JC.1 = NWRDC JOB CARD 1
NOTE== JC.2 = NWRDC JOB CARD 2
NOTE== JC.3 = NWRDC PASSWORD CARD
NOTE== JC.4 = ROUTE PRINT TO LOCAL SITE
NOTE== JC.5 = ROUTE PUNCH TO LOCAL SITE
++JC.1++//ACCTRS JOB (ACCT),'programmer name',MSGLEVEL=(0,0),
++JC.2++// REGION=4096K,MSGCLASS=A,TIME=(,40),CLASS=A
/*JOBPARM CARDS=999999,LINES=9999
/*ROUTE XEQ NWR
++JC.3++/*PASSWORD nwrpswrd
++JC.4++/*ROUTE PRINT NWR.RMT
++JC.5++/*ROUTE PUNCH NWR.RMT
//*---------------------------------------------------
//* NWRDC JOB CONTROL (JC) -- GENERATED ON SYSDATE AT SYSTIME
//*---------------------------------------------------
NOTE============================================== END JC SECTION ====
//************************************************************
//* *
//* STUDENT RECORD TRANSFER SYSTEM *
//* PROCESS RESPONSE FILE AND REPORT RESPONSES *
//* *
//************************************************************
//*
//* THIS STEP DELETES THE FILE TO BE CREATED IN NEXT STEP
//*
// EXEC IKJBATCH
//NWRISPF.SYSTSPRT DD DUMMY
DELETE 'DSNPRFX.RESPONSE.ALLFROM.MAILBOX'
//************************************************************
//* PARAM CARD VALUES *
//* *
//* GENERATE FILE POS 1 - 3 = SENDING INSTITUTION *
//* OF CURRENT TYPE: *
//* RESPONSES AND 'INT' - INTERDISTRICT *
//* SUMMARIZE 'SEC' - SECONDARY *
//* PROCESSING 'PST' - POSTSECONDARY *
//* PERFORMED 'ALL' - ALL THE ABOVE *
//* POS 4 - 13 = 'CURRENT ' *
//* SELECT NEW *
//* REQUEST RECORDS, *
//* OR *
//* 'RETRANSMIT' *
//* SELECT RECORDS *
//* ALREADY DELIVERED *
//* POS 14 - 21 = BEGIN DATE (MMDDYYYY) *
//* POS 22 - 29 = END DATE (MMDDYYYY) *
//* POS 30 - 36 = SENDING INSTITUTION *
//* (= SPACES -OR- IF *
//* FILLED IN, ALLOWS *
//* ROWS TO BE RETRIEVED*
//* BY SENDING INST) *
//************************************************************
//SRTS04 EXEC PGM=IKJEFT01,DYNAMNBR=20,TIME=(,40)
//STEPLIB DD DSN=FRN.DISTRICT.LINKLIB,DCB=BLKSIZE=32760,DISP=SHR
//PARAM DD *
ALLCURRENT
//SYSPRINT DD SYSOUT=A
//SYSOUT DD SYSOUT=A
//SYSUDUMP DD SYSOUT=A
//SYSERR DD SYSOUT=A
//SYSABOUT DD SYSOUT=A
//SYSTSPRT DD DUMMY
//DSNTRACE DD DUMMY
//SYSTSIN DD *
DSN SYSTEM(DSN)
RUN PROGRAM(SRTS04) PLAN(FNSRTS04) -
LIB('FRN.DISTRICT.LINKLIB')
END
//RSSUMRY DD SYSOUT=A /*SUMMARY STATEMENTS
//RSPFILE DD DSN=DSNPRFX.RESPONSE.ALLFROM.MAILBOX, /*TRANSFER RECORDS
// DISP=(NEW,CATLG),
// DCB=(RECFM=FB,LRECL=1020,BLKSIZE=27540,DSORG=PS),
// UNIT=SYSDA,STORCLAS=SCFNSTD,
// SPACE=(CYL,(1,1),RLSE)
//**********************************************************************
//* *
//* SRTS03A PRINTS WARNING MESSAGES INDICATING POSSIBLE ERRORS IN THE *
//* SECONDARY AND INTERDISTRICT TRANSCRIPTS BEING RETRIEVED. *
//* *
//**********************************************************************
//SRTS03A EXEC PGM=IKJEFT01,DYNAMNBR=20,TIME=(,40),
// COND=((1000,GE,SRTS04),(1060,EQ,SRTS04),(2000,LT,SRTS04))
//STEPLIB DD DSN=FRN.DISTRICT.LINKLIB,DCB=BLKSIZE=32760,DISP=SHR
//$ORTPARM DD *
INCORE=OFF
/*
//EDITRPT DD SYSOUT=A
//MASTID DD DSN=DPSV.G4.F25031,DISP=SHR
//RSPFILE DD DISP=SHR,DSN=DSNPRFX.RESPONSE.ALLFROM.MAILBOX
//*----RSPFILE MUST BE SAME NAME AS OUTPUT FROM SRTS04 STEP
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE)
//SYSOUT DD SYSOUT=A
//SYSPRINT DD SYSOUT=A
//SYSUDUMP DD SYSOUT=A
//SYSERR DD SYSOUT=A
//SYSABOUT DD SYSOUT=A
//SYSTSPRT DD DUMMY
//DSNTRACE DD DUMMY
//IGZSRTCD DD DUMMY
//SYSTSIN DD *
DSN SYSTEM(DSN)
RUN PROGRAM(SRTS03A) PLAN(FNSRT03A) -
LIB('FRN.DISTRICT.LINKLIB')
END
//**********************************************************************
//* *
//*THIS STEP IS EXECUTED IF THE USER HAS REQUESTED A PRINTED TRANSCRIPT*
//* *
//**********************************************************************
//************************************************************
//* PARAM CARD VALUES *
//* *
//* PRINT PERMANENT POS 1 - 8 = 'SRTS12IS' *
//* RECORD/TRANSCRIPT 9 - 9 = OUTPUT TYPE *
//* 'P' = PRINTS PERM *
//* RECORD/TRANSCRIPT *
//* BLANK = PRINTS PERM *
//* RECORD/TRANSCRIPT *
//* PLUS CATEGORY B *
//* 10 - 12 = NUMBER OF LINES PER *
//* PAGE, 3-DIGIT *
//* NUMBER OR BLANKS *
//* (DEFAULT = 049) *
//* 13 - 13 = BANNER PAGE NEEDED *
//* BLANK = NO BANNERS *
//* A NUMBER (1 - 9) *
//* MEANS PRINT THAT MANY *
//* BANNER PAGES WHEN A *
//* NEW ADDRESSEE IS *
//* ENCOUNTERED. *
//* 14 - 14 = GRD SCALE/CRS FLAGS *
//* BLANK=DON'T SUPPRESS *
//* S=SUPPRESS *
//************************************************************
//SRTS12IS EXEC PGM=SRTS12IS,TIME=(,40),
// COND=((1000,GE,SRTS04),(1060,EQ,SRTS04),(2000,LT,SRTS04))
//STEPLIB DD DSN=FRN.DISTRICT.LINKLIB,DCB=BLKSIZE=32760,DISP=SHR
//PARAM DD *
SRTS12IS
//SYSPRINT DD SYSOUT=A
//SYSOUT DD SYSOUT=A
//SYSUDUMP DD SYSOUT=A
//SYSABOUT DD SYSOUT=A
//TSCRIPT DD SYSOUT=A /*TRANSCRIPT
//TRANRECS DD DSN=DSNPRFX.RESPONSE.ALLFROM.MAILBOX, /*TRANSFER RECORDS
// DISP=SHR
//*----TRANRECS MUST BE THE SAME NAME AS THE OUTPUT FILE FROM SRTS04
//*
//**********************************************************************
//* *
//*THIS STEP IS EXECUTED IF THE USER HAS REQUESTED A PRINTED TRANSCRIPT*
//* *
//**********************************************************************
//************************************************************
//* PARAM CARD VALUES *
//* *
//* PRINT TRANSCRIPT POS 1 - 8 = 'SRTS12P ' *
//* 9 - 11 = NUMBER OF LINES PER *
//* PAGE, 3-DIGIT *
//* NUMBER OR BLANKS *
//* (DEFAULT = 049) *
//* 12 - 12 = TERM TOTALS *
//* BLANK = DON'T PRINT *
//* C = PRINT *
//* 13 - 13 = BANNER PAGE NEEDED *
//* BLANK = NO BANNERS *
//* A NUMBER(1-9) MEANS *
//* PRINT THAT MANY BANNER*
//* PAGES WHEN A NEW *
//* ADDRESSEE IS ENCOUN- *
//* TERED. *
//* 14 - 14 = GRADE QUALIFIER *
//* INFORMATION *
//* BLANK = PRINT *
//* X = DON’T PRINT *
//* 15 - 15 = CURRICULUM CODE QUAL *
//* BLANK=PRINT *
//* X=DON’T PRINT *
//************************************************************
//SRTS12P EXEC PGM=SRTS12P,TIME=(,40),
// COND=((1000,GE,SRTS04),(1050,EQ,SRTS04),(2000,LT,SRTS04))
//STEPLIB DD DSN=FRN.DISTRICT.LINKLIB,DCB=BLKSIZE=32760,DISP=SHR
//PARAM DD *
SRTS12P
//SYSPRINT DD SYSOUT=A
//TESTRECS DD DSN=&&TESTRECS,
// STORCLAS=SCFNSTD,UNIT=SYSDA,
// DISP=(NEW,DELETE,DELETE),SPACE=(TRK,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=1025,BLKSIZE=27675,DSORG=PS)
//SYSOUT DD SYSOUT=A
//SYSUDUMP DD SYSOUT=A
//SYSABOUT DD SYSOUT=A
//TSCRIPT DD SYSOUT=A /*TRANSCRIPT
//TRANRECS DD DSN=DSNPRFX.RESPONSE.ALLFROM.MAILBOX, /*TRANSFER RECORDS
// DISP=SHR
//*----TRANRECS MUST BE SAME NAME AS OUTPUT FILE FROM SRTS04
//*
NOTE== JOB STREAM TO EXECUTE THE OUTGOING AGING REPORT - SYSDATE SYSTIME
NOTE== LINES TO BE EDITED ARE UNIQUELY MARKED BY A LINE CODE DELIMITED
NOTE== BY DOUBLE PLUS SIGNS IN THE FIRST 8 CHARACTERS (EG. ++MS.1++).
NOTE== INSTRUCTIONS FOR EDITING EACH LINE ARE EMBEDDED THROUGHOUT THE
NOTE== TEXT. ALL 'NOTE==' LINES AND LINE CODE MARKERS MUST BE DELETED
NOTE== BEFORE SUBMITTING THE JOB STREAM OR THE JOB WILL NOT EXECUTE.
NOTE==
NOTE============================================ BEGIN JC SECTION ====
NOTE== LINES THAT NEED TO BE EDITED IN JC SECTION: (EXECUTED AT NWRDC)
NOTE== JC.1 = NWRDC JOB CARD 1
NOTE== JC.2 = NWRDC JOB CARD 2
NOTE== JC.3 = NWRDC PASSWORD CARD
NOTE== JC.4 = ROUTE PRINT TO LOCAL SITE
NOTE== JC.5 = ROUTE PUNCH TO LOCAL SITE
++JC.1++//ACCTOU JOB (ACCT),'programmer name',MSGLEVEL=(0,0),
++JC.2++// REGION=4096K,MSGCLASS=A,TIME=(,15),CLASS=A
/*JOBPARM CARDS=999999,LINES=9999
/*ROUTE XEQ NWR
++JC.3++/*PASSWORD nwrpswrd
++JC.4++/*ROUTE PRINT NWR.RMT
++JC.5++/*ROUTE PUNCH NWR.RMT
//*---------------------------------------------------
//* NWRDC JOB CONTROL (JC) -- GENERATED ON SYSDATE AT SYSTIME
//*---------------------------------------------------
NOTE============================================== END JC SECTION ====
//************************************************************
//* *
//* STUDENT RECORD TRANSFER SYSTEM *
//* OUTGOING AGING REPORT *
//* *
//************************************************************
//*
//* THIS STEP DELETES THE FILE TO BE CREATED IN NEXT STEP
//*
// EXEC IKJBATCH
//NWRISPF.SYSTSPRT DD DUMMY
DELETE 'DSNPRFX.OUTGOING.AGING.RECORDS'
//*************************************************************
//* PARAM CARD VALUES *
//* *
//* OUTGOING *
//* AGING POS 1 - 1 = OUTPUT TYPE *
//* REPORT P - PRINT REPORT ONLY *
//* F - FILE ONLY *
//* B - REPORT AND FILE *
//* POS 2 - 2 = RECORD STATUS *
//* Y - EXCLUDE RECORDS *
//* ALREADY CHECKED *
//* N - ALL RECORDS *
//*************************************************************
//SRTS21 EXEC PGM=IKJEFT01,DYNAMNBR=20,TIME=(,15)
//STEPLIB DD DSN=FRN.DISTRICT.LINKLIB,DCB=BLKSIZE=32760,DISP=SHR
//PARAM DD *
BN
//SYSPRINT DD SYSOUT=A
//SYSOUT DD SYSOUT=A
//SYSUDUMP DD SYSOUT=A
//SYSERR DD SYSOUT=A
//SYSABOUT DD SYSOUT=A
//SYSTSPRT DD DUMMY
//DSNTRACE DD DUMMY
//IGZSRTCD DD DUMMY
//SYSTSIN DD *
DSN SYSTEM(DSN)
RUN PROGRAM(SRTS21) PLAN(FNSRTS21) -
LIB('FRN.DISTRICT.LINKLIB')
END
//AGERPT DD SYSOUT=A /* PRINT REPORT
//AGEFILE DD DSN=DSNPRFX.OUTGOING.AGING.RECORDS, /* HEADER RECORDS
// DISP=(NEW,CATLG),
// DCB=(RECFM=FB,LRECL=1020,BLKSIZE=27540,DSORG=PS),
// UNIT=SYSDA,STORCLAS=SCFNSTD,
// SPACE=(TRK,(3,3),RLSE)
NOTE== JOB STREAM TO EXECUTE THE INCOMING AGING REPORT - SYSDATE SYSTIME
NOTE== LINES TO BE EDITED ARE UNIQUELY MARKED BY A LINE CODE DELIMITED
NOTE== BY DOUBLE PLUS SIGNS IN THE FIRST 8 CHARACTERS (EG. ++MS.1++).
NOTE== INSTRUCTIONS FOR EDITING EACH LINE ARE EMBEDDED THROUGHOUT THE
NOTE== TEXT. ALL 'NOTE==' LINES AND LINE CODE MARKERS MUST BE DELETED
NOTE== BEFORE SUBMITTING THE JOB STREAM OR THE JOB WILL NOT EXECUTE.
NOTE==
NOTE============================================ BEGIN JC SECTION ====
NOTE== LINES THAT NEED TO BE EDITED IN JC SECTION: (EXECUTED AT NWRDC)
NOTE== JC.1 = NWRDC JOB CARD 1
NOTE== JC.2 = NWRDC JOB CARD 2
NOTE== JC.3 = NWRDC PASSWORD CARD
NOTE== JC.4 = ROUTE PRINT TO LOCAL SITE
NOTE== JC.5 = ROUTE PUNCH TO LOCAL SITE
++JC.1++//ACCTIN JOB (ACCT),'programmer name',MSGLEVEL=(0,0),
++JC.2++// REGION=4096K,MSGCLASS=A,TIME=(,15),CLASS=A
/*JOBPARM CARDS=999999,LINES=9999
/*ROUTE XEQ NWR
++JC.3++/*PASSWORD nwrpswrd
++JC.4++/*ROUTE PRINT NWR.RMT
++JC.5++/*ROUTE PUNCH NWR.RMT
//*---------------------------------------------------
//* NWRDC JOB CONTROL (JC) -- GENERATED ON SYSDATE AT SYSTIME
//*---------------------------------------------------
NOTE============================================== END JC SECTION ====
//************************************************************
//* *
//* STUDENT RECORD TRANSFER SYSTEM *
//* INCOMING AGING REPORT *
//* *
//************************************************************
//*
//* THIS STEP DELETES THE FILE TO BE CREATED IN NEXT STEP
//*
// EXEC IKJBATCH
//NWRISPF.SYSTSPRT DD DUMMY
DELETE 'DSNPRFX.INCOMING.AGING.RECORDS'
//*************************************************************
//* PARAM CARD VALUES *
//* *
//* INCOMING POS 1 - 8 = BEGIN DATE (MMDDYYYY) *
//* AGING POS 9 - 16 = END DATE (MMDDYYYY) *
//* REPORT POS 17 - 17 = OUTPUT TYPE *
//* P - PRINT REPORT ONLY *
//* F - FILE ONLY *
//* B - REPORT AND FILE *
//*************************************************************
//SRTS22 EXEC PGM=IKJEFT01,DYNAMNBR=20,TIME=(,15)
//STEPLIB DD DSN=FRN.DISTRICT.LINKLIB,DCB=BLKSIZE=32760,DISP=SHR
//PARAM DD *
0000000000000000B
//SYSPRINT DD SYSOUT=A
//SYSOUT DD SYSOUT=A
//SYSUDUMP DD SYSOUT=A
//SYSERR DD SYSOUT=A
//SYSABOUT DD SYSOUT=A
//SYSTSPRT DD DUMMY
//DSNTRACE DD DUMMY
//IGZSRTCD DD DUMMY
//SYSTSIN DD *
DSN SYSTEM(DSN)
RUN PROGRAM(SRTS22) PLAN(FNSRTS22) -
LIB('FRN.DISTRICT.LINKLIB')
END
//AGERPT DD SYSOUT=A /* PRINT REPORT
//AGEFILE DD DSN=DSNPRFX.INCOMING.AGING.RECORDS, /* HEADER RECORDS
// DISP=(NEW,CATLG),
// DCB=(RECFM=FB,LRECL=1020,BLKSIZE=27540,DSORG=PS),
// UNIT=SYSDA,STORCLAS=SCFNSTD,
// SPACE=(TRK,(3,3),RLSE)
NOTE== JOB STREAM TO EXECUTE THE PARTICIPANT REPORT - SYSDATE SYSTIME
NOTE== LINES TO BE EDITED ARE UNIQUELY MARKED BY A LINE CODE DELIMITED
NOTE== BY DOUBLE PLUS SIGNS IN THE FIRST 8 CHARACTERS (EG. ++MS.1++).
NOTE== INSTRUCTIONS FOR EDITING EACH LINE ARE EMBEDDED THROUGHOUT THE
NOTE== TEXT. ALL 'NOTE==' LINES AND LINE CODE MARKERS MUST BE DELETED
NOTE== BEFORE SUBMITTING THE JOB STREAM OR THE JOB WILL NOT EXECUTE.
NOTE==
NOTE============================================ BEGIN JC SECTION ====
NOTE== LINES THAT NEED TO BE EDITED IN JC SECTION: (EXECUTED AT NWRDC)
NOTE== JC.1 = NWRDC JOB CARD 1
NOTE== JC.2 = NWRDC JOB CARD 2
NOTE== JC.3 = NWRDC PASSWORD CARD
NOTE== JC.4 = ROUTE PRINT TO LOCAL SITE
NOTE== JC.5 = ROUTE PUNCH TO LOCAL SITE
++JC.1++//ACCTPA JOB (ACCT),'programmer name',MSGLEVEL=(0,0),
++JC.2++// REGION=4096K,MSGCLASS=A,TIME=(,15),CLASS=A
/*JOBPARM CARDS=999999,LINES=9999
/*ROUTE XEQ NWR
++JC.3++/*PASSWORD nwrpswrd
++JC.4++/*ROUTE PRINT NWR.RMT
++JC.5++/*ROUTE PUNCH NWR.RMT
//*---------------------------------------------------
//* NWRDC JOB CONTROL (JC) -- GENERATED ON SYSDATE AT SYSTIME
//*---------------------------------------------------
NOTE============================================== END JC SECTION ====
//************************************************************
//* *
//* STUDENT RECORD TRANSFER SYSTEM *
//* PARTICIPANT STATUS REPORT *
//* *
//************************************************************
//*
//* THIS STEP DELETES THE FILE TO BE CREATED IN NEXT STEP
//*
// EXEC IKJBATCH
//NWRISPF.SYSTSPRT DD DUMMY
DELETE 'DSNPRFX.PARTSTAT.FILE.RECORDS'
//*************************************************************
//* PARAM CARD VALUES *
//* *
//* PARTICIPANT POS 1 - 1 = OUTPUT TYPE *
//* STATUS P - PRINT REPORT ONLY *
//* REPORT F - FILE ONLY *
//* B - REPORT AND FILE *
//* POS 2 - 2 = PARTICIPANT TYPE *
//* F - FASTER INSTITUTIONS*
//* (FLORIDA PUBLIC *
//* SCHOOL DISTRICTS, *
//* COMMUNITY COLLEGES*
//* & UNIVERSITIES) *
//* N - NON-FASTER *
//* INSTITUTIONS *
//* (SPEEDE/ExPRESS) *
//* B - BOTH OF THE ABOVE *
//* BLANK = SAME AS F *
//*************************************************************
//SRTS31 EXEC PGM=IKJEFT01,DYNAMNBR=20,TIME=(,15)
//STEPLIB DD DSN=FRN.DISTRICT.LINKLIB,DCB=BLKSIZE=32760,DISP=SHR
//PARAM DD *
B
//SYSPRINT DD SYSOUT=A
//SYSOUT DD SYSOUT=A
//SYSUDUMP DD SYSOUT=A
//SYSERR DD SYSOUT=A
//SYSABOUT DD SYSOUT=A
//SYSTSPRT DD DUMMY
//DSNTRACE DD DUMMY
//IGZSRTCD DD DUMMY
//SYSTSIN DD *
DSN SYSTEM(DSN)
RUN PROGRAM(SRTS31) PLAN(FNSRTS31) -
LIB('FRN.DISTRICT.LINKLIB')
END
//STATRPT DD SYSOUT=A /* PARTICIPANT STATUS REPORT
//STATFILE DD DSN=DSNPRFX.PARTSTAT.FILE.RECORDS, /* PARTICIPANT STATUS RECORDS
// DISP=(NEW,CATLG),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=27920,DSORG=PS),
// UNIT=SYSDA,STORCLAS=SCFNSTD,
// SPACE=(TRK,(3,3),RLSE)
NOTE== JOB STREAM TO EXECUTE THE CONTACT LIST REPORT - SYSDATE SYSTIME
NOTE== LINES TO BE EDITED ARE UNIQUELY MARKED BY A LINE CODE DELIMITED
NOTE== BY DOUBLE PLUS SIGNS IN THE FIRST 8 CHARACTERS (EG. ++MS.1++).
NOTE== INSTRUCTIONS FOR EDITING EACH LINE ARE EMBEDDED THROUGHOUT THE
NOTE== TEXT. ALL 'NOTE==' LINES AND LINE CODE MARKERS MUST BE DELETED
NOTE== BEFORE SUBMITTING THE JOB STREAM OR THE JOB WILL NOT EXECUTE.
NOTE==
NOTE============================================ BEGIN JC SECTION ====
NOTE== LINES THAT NEED TO BE EDITED IN JC SECTION: (EXECUTED AT NWRDC)
NOTE== JC.1 = NWRDC JOB CARD 1
NOTE== JC.2 = NWRDC JOB CARD 2
NOTE== JC.3 = NWRDC PASSWORD CARD
NOTE== JC.4 = ROUTE PRINT TO LOCAL SITE
NOTE== JC.5 = ROUTE PUNCH TO LOCAL SITE
++JC.1++//ACCTCN JOB (ACCT),'programmer name',MSGLEVEL=(0,0),
++JC.2++// REGION=4096K,MSGCLASS=A,TIME=(,15),CLASS=A
/*JOBPARM CARDS=999999,LINES=9999
/*ROUTE XEQ NWR
++JC.3++/*PASSWORD nwrpswrd
++JC.4++/*ROUTE PRINT NWR.RMT
++JC.5++/*ROUTE PUNCH NWR.RMT
//*---------------------------------------------------
//* NWRDC JOB CONTROL (JC) -- GENERATED ON SYSDATE AT SYSTIME
//*---------------------------------------------------
NOTE============================================== END JC SECTION ====
//************************************************************
//* *
//* STUDENT RECORD TRANSFER SYSTEM *
//* CONTACT LIST REPORT *
//* *
//************************************************************
//*
//* THIS STEP DELETES THE FILE TO BE CREATED IN NEXT STEP
//*
// EXEC IKJBATCH
//NWRISPF.SYSTSPRT DD DUMMY
DELETE 'DSNPRFX.CNTCLIST.FILE.RECORDS'
//*************************************************************
//* PARAM CARD VALUES *
//* *
//* CONTACT POS 1 - 1 = OUTPUT TYPE *
//* LIST P - PRINT REPORT ONLY *
//* REPORT F - FILE ONLY *
//* B - REPORT AND FILE *
//* POS 2 - 2 = PARTICIPANT TYPE *
//* F - FASTER INSTITUTIONS*
//* (FLORIDA PUBLIC *
//* SCHOOL DISTRICTS, *
//* COMMUNITY COLLEGES*
//* & UNIVERSITIES) *
//* N - NON-FASTER *
//* INSTITUTIONS *
//* (SPEEDE/ExPRESS) *
//* B - BOTH OF THE ABOVE *
//* BLANK = SAME AS F *
//*************************************************************
//SRTS42 EXEC PGM=IKJEFT01,DYNAMNBR=20,TIME=(,15)
//STEPLIB DD DSN=FRN.DISTRICT.LINKLIB,DCB=BLKSIZE=32760,DISP=SHR
//PARAM DD *
B
//SYSPRINT DD SYSOUT=A
//SYSOUT DD SYSOUT=A
//SYSUDUMP DD SYSOUT=A
//SYSERR DD SYSOUT=A
//SYSABOUT DD SYSOUT=A
//SYSTSPRT DD DUMMY
//DSNTRACE DD DUMMY
//IGZSRTCD DD DUMMY
//SYSTSIN DD *
DSN SYSTEM(DSN)
RUN PROGRAM(SRTS42) PLAN(FNSRTS42) -
LIB('FRN.DISTRICT.LINKLIB')
END
//CONTLIST DD SYSOUT=A /* CONTACT LIST REPORT
//CONTFILE DD DSN=DSNPRFX.CNTCLIST.FILE.RECORDS, /* CONTACT LIST RECORDS
// DISP=(NEW,CATLG),
// DCB=(RECFM=FB,LRECL=1020,BLKSIZE=27540,DSORG=PS),
// UNIT=SYSDA,STORCLAS=SCFNSTD,
// SPACE=(TRK,(3,3),RLSE)