Effective: November 14, 1999
Revised: September 27, 1999
Lines that begin with 'NOTE==' are comments to the user pinpointing the lines in 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 VIII. 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=1
/*JOBPARM CARDS=999999,LINES=9999
/*ROUTE XEQ NWR
++JC.3++/*PASSWORD nwrpswrd
++JC.4++/*ROUTE PRINT NODE.RMT
++JC.5++/*ROUTE PUNCH NODE.RMT
//*---------------------------------------------------
//* NWRDC JOB CONTROL (JC) -- GENERATED ON SYSDATE AT SYSTIME
//*---------------------------------------------------
NOTE============================================== END JC SECTION ====
//*
//* THIS STEP DELETES A FILE TO BE CREATED IN NEXT STEP
//*
// EXEC IKJBATCH
//NWRISPF.SYSTSPRT DD DUMMY
DELETE 'DSNPRFX.REQUESTS.ONTO.SYSTEM.BYTE80'
/*
//*
//* THIS STEP DELETES A FILE
//*
// EXEC IKJBATCH
//NWRISPF.SYSTSPRT DD DUMMY
DELETE 'DSNPRFX.REQUESTS.ONTO.SYSTEM'
/*
//RJEXFER EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=A
//SYSUT2 DD DSN=DSNPRFX.REQUESTS.ONTO.SYSTEM.BYTE80,
// DISP=(NEW,CATLG,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=,DSORG=PS),
// UNIT=SYSDA,STORCLAS=SCFNSTD,
// SPACE=(TRK,(20,4),RLSE)
//*---- OUTPUT SPACE (PRI, SEC) FOR LRECL = 80 AND BLKSIZE = 23440
//*---- PRIMARY CAN BE DETERMINED USING 586 80-BYTE RECORDS PER TRACK
//*---- (586 80-BYTE RJE RECS = 45 1020-BYTE TRANSCRIPT RECS)
//*---- SECONDARY SPACE IS 2/10 THE PRIMARY TRACK ALLOCATION
//SYSUT1 DD *
//*NOTES==
//*NOTES==
//*NOTES== (OUTPUT FILE OBTAINED FROM RUNNING LOCAL FILE OF REQUESTS
//*NOTES== OR OF RESPONSES THROUGH PROGRAM SRTS05 AT HOST'S SITE
//*NOTES== COMPUTER GOES HERE AS INSTREAM DATA)
//*NOTES==
//*NOTES==
//*NOTES==
//*NOTES==
//*NOTES==
//*NOTES==
//SRTS06 EXEC PGM=SRTS06,COND=(0,NE,RJEXFER)
//STEPLIB DD DSN=FRN.DISTRICT.LINKLIB,DCB=BLKSIZE=32760,DISP=SHR
//SYSOUT DD SYSOUT=A
//OUTPUT DD DSN=DSNPRFX.REQUESTS.ONTO.SYSTEM,
// DISP=(NEW,PASS),UNIT=SYSDA,STORCLAS=SCFNSTD,
// DCB=(RECFM=FB,LRECL=1020,BLKSIZE=27540,DSORG=PS),
// SPACE=(TRK,(20,4),RLSE)
//*----OUTPUT SPACE(PRI,SEC) FOR LRECL = 1020, BLKSIZE = 27540
//*----PRIMARY CAN BE DETERMINED USING 46 RECORDS PER TRACK
//*---- (1 TRACK WILL HOLD 46 RECORDS)
//*----SECONDARY SPACE IS 2/10 THE PRIMARY TRACK ALLOCATION
//INPUT DD DISP=SHR,DSN=DSNPRFX.REQUESTS.ONTO.SYSTEM.BYTE80
//************************************************************
//* *
//* 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),
// COND=((0,NE,RJEXFER),(0,NE,SRTS06))
//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
//STEPRJE EXEC PGM=SRTS05,
// COND=((0,NE,RJEXFER),(0,NE,SRTS06),(0,NE,SRTS01))
//STEPLIB DD DSN=FRN.DISTRICT.LINKLIB,DCB=BLKSIZE=32760,DISP=SHR
//SYSOUT DD SYSOUT=A
//INPUT DD DSN=DSNPRFX.REQUESTS.ONTO.SYSERRS,
// DISP=SHR
//OUTPUT DD SYSOUT=B
/*
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=1
/*JOBPARM CARDS=999999,LINES=9999
/*ROUTE XEQ NWR
++JC.3++/*PASSWORD nwrpswrd
++JC.4++/*ROUTE PRINT NODE.RMT
++JC.5++/*ROUTE PUNCH NODE.RMT
//*---------------------------------------------------
//* NWRDC JOB CONTROL (JC) -- GENERATED ON SYSDATE AT SYSTIME
//*---------------------------------------------------
NOTE============================================== END JC SECTION ====
//*
//* THIS STEP DELETES A FILE
//*
// EXEC IKJBATCH
//NWRISPF.SYSTSPRT DD DUMMY
DELETE 'DSNPRFX.RESPONSE.ONTO.SYSTEM.BYTE80'
/*
//*
//* THIS STEP DELETES A FILE
//*
// EXEC IKJBATCH
//NWRISPF.SYSTSPRT DD DUMMY
DELETE 'DSNPRFX.RESPONSE.ONTO.SYSTEM'
/*
//RJEXFER EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=A
//SYSUT2 DD DSN=DSNPRFX.RESPONSE.ONTO.SYSTEM.BYTE80,
// DISP=(NEW,CATLG,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=27920,DSORG=PS),
// UNIT=SYSDA,STORCLAS=SCFNSTD,
// SPACE=(TRK,(20,4),RLSE)
//*---- OUTPUT SPACE (PRI, SEC) FOR LRECL = 80 AND BLKSIZE = 27920
//*---- PRIMARY CAN BE DETERMINED USING 586 80-BYTE RECORDS PER TRACK
//*---- (586 80-BYTE RJE RECS = 45 1020-BYTE TRANSCRIPT RECS)
//*---- SECONDARY SPACE IS 2/10 THE PRIMARY TRACK ALLOCATION
//SYSUT1 DD *
//*NOTES==
//*NOTES==
//*NOTES== (OUTPUT FILE OBTAINED FROM RUNNING LOCAL FILE OF REQUESTS
//*NOTES== OR OF RESPONSES THROUGH PROGRAM SRTS05 AT HOST'S SITE
//*NOTES== COMPUTER GOES HERE AS INSTREAM DATA)
//*NOTES==
//*NOTES==
//*NOTES==
//*NOTES==
//*NOTES==
//*NOTES==
//SRTS06 EXEC PGM=SRTS06,COND=(0,NE,RJEXFER)
//STEPLIB DD DSN=FRN.DISTRICT.LINKLIB,DCB=BLKSIZE=32760,DISP=SHR
//SYSOUT DD SYSOUT=A
//OUTPUT DD DSN=DSNPRFX.RESPONSE.ONTO.SYSTEM,
// DISP=(NEW,PASS),UNIT=SYSDA,STORCLAS=SCFNSTD,
// DCB=(RECFM=FB,LRECL=1020,BLKSIZE=27540,DSORG=PS),
// SPACE=(TRK,(20,4),RLSE)
//*----OUTPUT SPACE(PRI,SEC) FOR LRECL = 1020, BLKSIZE = 27540
//*----PRIMARY CAN BE DETERMINED USING 46 RECORDS PER TRACK
//*---- (1 TRACK WILL HOLD 46 RECORDS)
//*----SECONDARY SPACE IS 2/10 THE PRIMARY TRACK ALLOCATION
//INPUT DD DISP=SHR,DSN=DSNPRFX.RESPONSE.ONTO.SYSTEM.BYTE80
//************************************************************
//* *
//* 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),
// COND=((0,NE,RJEXFER),(0,NE,SRTS06))
//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
//STEPRJE EXEC PGM=SRTS05,
// COND=((0,NE,RJEXFER),(0,NE,SRTS06),(0,NE,SRTS03))
//STEPLIB DD DSN=FRN.DISTRICT.LINKLIB,DCB=BLKSIZE=32760,DISP=SHR
//SYSOUT DD SYSOUT=A
//INPUT DD DSN=DSNPRFX.RESPONSE.ONTO.SYSERRS,
// DISP=SHR
//OUTPUT DD SYSOUT=B
/*
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=1
/*JOBPARM CARDS=999999,LINES=9999
/*ROUTE XEQ NWR
++JC.3++/*PASSWORD nwrpswrd
++JC.4++/*ROUTE PRINT NODE.RMT
++JC.5++/*ROUTE PUNCH NODE.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 - 34 = 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)
//STEPRJE EXEC PGM=SRTS05,
// COND=(0,NE,SRTS02)
//STEPLIB DD DSN=FRN.DISTRICT.LINKLIB,DCB=BLKSIZE=32760,DISP=SHR
//SYSOUT DD SYSOUT=A
//INPUT DD DSN=DSNPRFX.REQUESTS.ALLFROM.MAILBOX,
// DISP=SHR
//OUTPUT DD SYSOUT=B
/*
//**********************************************************************
//* *
//*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=1
/*JOBPARM CARDS=999999,LINES=9999
/*ROUTE XEQ NWR
++JC.3++/*PASSWORD nwrpswrd
++JC.4++/*ROUTE PRINT NODE.RMT
++JC.5++/*ROUTE PUNCH NODE.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 - 37 = 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)
//STEPRJE EXEC PGM=SRTS05,
// COND=((1000,GE,SRTS04),(2000,LT,SRTS04))
//STEPLIB DD DSN=FRN.DISTRICT.LINKLIB,DCB=BLKSIZE=32760,DISP=SHR
//SYSOUT DD SYSOUT=A
//INPUT DD DSN=DSNPRFX.RESPONSE.ALLFROM.MAILBOX,
// DISP=SHR
//OUTPUT DD SYSOUT=B
/*
//**********************************************************************
//* *
//* 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 BY DOUBLE
NOTE== 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=1
/*JOBPARM CARDS=999999,LINES=9999
/*ROUTE XEQ NWR
++JC.3++/*PASSWORD nwrpswrd
++JC.4++/*ROUTE PRINT NODE.RMT
++JC.5++/*ROUTE PUNCH NODE.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 - 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)
//STEPRJE EXEC PGM=SRTS05,
// COND=(0,NE,SRTS21)
//STEPLIB DD DSN=FRN.DISTRICT.LINKLIB,DCB=BLKSIZE=32760,DISP=SHR
//SYSOUT DD SYSOUT=A
//INPUT DD DSN=DSNPRFX.OUTGOING.AGING.RECORDS,
// DISP=SHR
//OUTPUT DD SYSOUT=B
/*
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=1
/*JOBPARM CARDS=999999,LINES=9999
/*ROUTE XEQ NWR
++JC.3++/*PASSWORD nwrpswrd
++JC.4++/*ROUTE PRINT NODE.RMT
++JC.5++/*ROUTE PUNCH NODE.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 = OUTPUT TYPE *
//* P - 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)
//STEPRJE EXEC PGM=SRTS05,
// COND=(0,NE,SRTS22)
//STEPLIB DD DSN=FRN.DISTRICT.LINKLIB,DCB=BLKSIZE=32760,DISP=SHR
//SYSOUT DD SYSOUT=A
//INPUT DD DSN=DSNPRFX.INCOMING.AGING.RECORDS,
// DISP=SHR
//OUTPUT DD SYSOUT=B
/*
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=1
/*JOBPARM CARDS=999999,LINES=9999
/*ROUTE XEQ NWR
++JC.3++/*PASSWORD nwrpswrd
++JC.4++/*ROUTE PRINT NODE.RMT
++JC.5++/*ROUTE PUNCH NODE.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 - 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)
//RJE31 EXEC PGM=IEBGENER,
// COND=(0,NE,SRTS31)
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=A
//SYSUT2 DD SYSOUT=B
//SYSUT1 DD DSN=DSNPRFX.PARTSTAT.FILE.RECORDS,
// DISP=SHR
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=1
/*JOBPARM CARDS=999999,LINES=9999
/*ROUTE XEQ NWR
++JC.3++/*PASSWORD nwrpswrd
++JC.4++/*ROUTE PRINT NODE.RMT
++JC.5++/*ROUTE PUNCH NODE.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.CNTCLIST.FILE.RECORDS'
//*************************************************************
//* PARAM CARD VALUES *
//* *
//* CONTACT POS 1 - 1 = OUTPUT TYPE *
//* LIST P - 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)
//STEPRJE EXEC PGM=SRTS05,
// COND=(0,NE,SRTS42)
//STEPLIB DD DSN=FRN.DISTRICT.LINKLIB,DCB=BLKSIZE=32760,DISP=SHR
//SYSOUT DD SYSOUT=A
//INPUT DD DSN=DSNPRFX.CNTCLIST.FILE.RECORDS,
// DISP=SHR
//OUTPUT DD SYSOUT=B
/*