Effective: November 14, 1999
Revised: September 27, 1999
This appendix shows the JCL generated by the FASTER System for those institutions having IBM MVS operating systems and who wish to use IBM's NetView File Transfer Program to upload and download data to and from NWRDC.
The generated JCL exhibited in this appendix includes the job steps that are required to receive both print and file output from FASTER jobs running at NWRDC. If you choose to receive only print output when generating the JCL (see Chapter VI), some of the job steps shown here will not be included in your final generated job stream. Specifically, the job step necessary to establish communications between the Netview FTP executing at NWRDC and the Netview FTP executing at the local site in order to transmit a file to the institution would not be included. These JCL's always execute at NWR and therefore show NWR as the local logical unit and the institution as the remote logical unit in the transfer steps.
Usage Notes
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 VI. 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
//*
// EXEC IKJBATCH
//NWRISPF.SYSTSPRT DD DUMMY
DELETE 'DSNPRFX.REQUESTS.ONTO.SYSTEM'
/*
NOTE============================================ BEGIN MS SECTION ====
NOTE== LINES THAT NEED TO BE EDITED IN MS SECTION:
NOTE== MS.1 = LOCAL SITE ACCOUNT NUMBER AND PASSWORD
NOTE== MS.2 = NWRDC PASSWORD
//*---------------------------------------------------
//* MVS SEND (MS) -- GENERATED ON SYSDATE AT SYSTIME
//* JCL EXECUTED AT NWRDC TO
//* INITIATE THE TRANSFER OF A FILE TO NWRDC VIA FTP
//*---------------------------------------------------
//SEND EXEC PGM=DVGIFBI,PARM=ENGLISH
//SYSUDUMP DD DUMMY
//DVGLOG DD SYSOUT=A
//SYSIN DD *
FUNCTION=ADD
XMODE=FROM
WAIT=YES
REMLU=XXXXXXXX
LOCLU=NWRFXXXX
RESTART=NO
SFTYPE=SAM
SFILEID='LOCAL.REQUESTS.ONTO.SYSTEM'
++MS.1++ SSECURP=(lclaccnt,lclpswrd)
RFTYPE=SAM
RFILEID='DSNPRFX.REQUESTS.ONTO.SYSTEM'
++MS.2++ RSECURP=(ACCT,nwrpswrd)
RTDISP=CAT
RRECFM=FB,RLRECL=1020,RBLKSIZE=27540
RUNIT=SYSDA,RSTORCLS=SCFNSTD
RSPCUNIT=TRK,RSPCPRIM=22,RSPCSEC=3
//*----OUTPUT SPACE(PRI,SEC) FOR LRECL = 1020, BLKSIZE = 27540
//*----PRIMARY CAN BE DETERMINED USING 54 RECORDS PER TRACK
//*---- (1 TRACK WILL HOLD 54 RECORDS)
//*----SECONDARY SPACE IS 1/10 THE PRIMARY TRACK ALLOCATION
//*----
NOTE============================================== END MS SECTION ====
//*-------- JOB IS SUBMITTED THRU THE INTERNAL ----------*
//*-------- READER TO EXECUTE ----------*
//SUBJCL EXEC PGM=IEBGENER
COND-(0,NE,SEND)
//SYSIN DD DUMMY
//SYSPRINT DD DUMMY
//SYSUT2 DD SYSOUT=(,INTRDR)
//SYSUT1 DD DATA,DLM='##'
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 ====
//************************************************************
//* *
//* 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============================================ BEGIN MS SECTION ====
NOTE== LINES THAT NEED TO BE EDITED IN MS SECTION:
NOTE== MS.1 = NWRDC PASSWORD
NOTE== MS.2 = LOCAL SITE ACCOUNT NUMBER AND PASSWORD
NOTE== MS.3 = YOUR VOLUME SERIAL NUMBER
NOTE== MS.4 = YOUR UNIT OF SPACE - TRACKS, BLOCKS, ETC.
//*---------------------------------------------------
//* RECEIVE JCL EXECUTED AT NWR
//* TO TRANSMIT NWR FILE TO INSTITUTION
//*---------------------------------------------------
//RECEIVE EXEC PGM=DVGIFBI,PARM=ENGLISH,
// COND=(0,NE,SRTS01)
//SYSUDUMP DD DUMMY
//DVGLOG DD SYSOUT=A
//SYSIN DD *
FUNCTION=ADD
XMODE=TO
WAIT=NO
REMLU=XXXXXXXX
LOCLU=NWRFXXXX
SFTYPE=SAM
SFILEID='DSNPRFX.REQUESTS.ONTO.SYSERRS'
++MS.1++ SSECURP=(ACCT,nwrpswrd)
RFTYPE=SAM
RFILEID='LOCAL.REQUESTS.ONTO.SYSERRS'
++MS.2++ RSECURP=(lclacct,lclpswrd)
RTDISP=CAT
RRECFM=FB,RLRECL=1020,RBLKSIZE=27540
RUNIT=SYSDA
++MS.3++ RVOLSER=lclvolser
++MS.4++ RSPCUNIT=TRK
RSPCPRIM=3
RSPCSEC=3
NOTE============================================== END MS SECTION ====
##
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'
/*
NOTE============================================ BEGIN MS SECTION ====
NOTE== LINES THAT NEED TO BE EDITED IN MS SECTION:
NOTE== MS.1 = LOCAL SITE ACCOUNT NUMBER AND PASSWORD
NOTE== MS.2 = NWRDC PASSWORD
//*---------------------------------------------------
//* MVS SEND (MS) -- GENERATED ON SYSDATE AT SYSTIME
//* JCL EXECUTED AT NWRDC TO
//* INITIATE THE TRANSFER OF A FILE TO NWRDC VIA FTP
//*---------------------------------------------------
//SEND EXEC PGM=DVGIFBI,PARM=ENGLISH
//SYSUDUMP DD DUMMY
//DVGLOG DD SYSOUT=A
//SYSIN DD *
FUNCTION=ADD
XMODE=FROM
WAIT=YES
REMLU=XXXXXXXX
LOCLU=NWRFXXXX
RESTART=NO
SFTYPE=SAM
SFILEID='LOCAL.RESPONSE.ONTO.SYSTEM'
++MS.1++ SSECURP=(lclaccnt,lclpswrd)
RFTYPE=SAM
RFILEID='DSNPRFX.RESPONSE.ONTO.SYSTEM'
++MS.2++ RSECURP=(ACCT,nwrpswrd)
RTDISP=CAT
RRECFM=FB,RLRECL=1020,RBLKSIZE=27540
RUNIT=SYSDA,RSTORCLS=SCFNSTD
RSPCUNIT=TRK,RSPCPRIM=22,RSPCSEC=3
//*----OUTPUT SPACE(PRI,SEC) FOR LRECL = 1020, BLKSIZE = 27540
//*----PRIMARY CAN BE DETERMINED USING 54 RECORDS PER TRACK
//*---- (1 TRACK WILL HOLD 54 RECORDS)
//*----SECONDARY SPACE IS 1/10 THE PRIMARY TRACK ALLOCATION
//*----
NOTE============================================== END MS SECTION ====
//*-------- JOB IS SUBMITTED THRU THE INTERNAL ----------*
//*-------- READER TO EXECUTE ----------*
//SUBJCL EXEC PGM=IEBGENER,
COND=(0,NE,SEND)
//SYSIN DD DUMMY
//SYSPRINT DD DUMMY
//SYSUT2 DD SYSOUT=(,INTRDR)
//SYSUT1 DD DATA,DLM='##'
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=(,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 JCL 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============================================ BEGIN MS SECTION ====
NOTE== LINES THAT NEED TO BE EDITED IN MS SECTION:
NOTE== MS.1 = NWRDC PASSWORD
NOTE== MS.2 = LOCAL SITE ACCOUNT NUMBER AND PASSWORD
NOTE== MS.3 = YOUR VOLUME SERIAL NUMBER
NOTE== MS.4 = YOUR UNIT OF SPACE - TRACKS, BLOCKS, ETC.
//*---------------------------------------------------
//* RECEIVE JCL EXECUTED AT NWR
//* TO TRANSMIT NWR FILE TO INSTITUTION
//*---------------------------------------------------
//RECEIVE EXEC PGM=DVGIFBI,PARM=ENGLISH,
// COND=(0,NE,SRTS03)
//SYSUDUMP DD DUMMY
//DVGLOG DD SYSOUT=A
//SYSIN DD *
FUNCTION=ADD
XMODE=TO
WAIT=NO
REMLU=XXXXXXXX
LOCLU=NWRFXXXX
SFTYPE=SAM
SFILEID='DSNPRFX.RESPONSE.ONTO.SYSERRS'
++MS.1++ SSECURP=(ACCT,nwrpswrd)
RFTYPE=SAM
RFILEID='LOCAL.RESPONSE.ONTO.SYSERRS'
++MS.2++ RSECURP=(lclacct,lclpswrd)
RTDISP=CAT
RRECFM=FB,RLRECL=1020,RBLKSIZE=27540
RUNIT=SYSDA
++MS.3++ RVOLSER=lclvolser
++MS.4++ RSPCUNIT=CYL
RSPCPRIM=1
RSPCSEC=1
NOTE============================================== END MS SECTION ====
##
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 - 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)
NOTE============================================ BEGIN MS SECTION ====
NOTE== LINES THAT NEED TO BE EDITED IN MS SECTION:
NOTE== MS.1 = NWRDC PASSWORD
NOTE== MS.2 = LOCAL SITE ACCOUNT NUMBER AND PASSWORD
NOTE== MS.3 = YOUR VOLUME SERIAL NUMBER
NOTE== MS.4 = YOUR UNIT OF SPACE - TRACKS, BLOCKS, ETC.
//*---------------------------------------------------
//* RECEIVE JCL EXECUTED AT NWR
//* TO TRANSMIT NWR FILE TO INSTITUTION
//*---------------------------------------------------
//RECEIVE EXEC PGM=DVGIFBI,PARM=ENGLISH,
// COND=(0,NE,SRTS02)
//SYSUDUMP DD DUMMY
//DVGLOG DD SYSOUT=A
//SYSIN DD *
FUNCTION=ADD
XMODE=TO
WAIT=NO
REMLU=XXXXXXXX
LOCLU=NWRFXXXX
SFTYPE=SAM
SFILEID='DSNPRFX.REQUESTS.ALLFROM.MAILBOX'
++MS.1++ SSECURP=(ACCT,nwrpswrd)
RFTYPE=SAM
RFILEID='LOCAL.REQUESTS.ALLFROM.MAILBOX'
++MS.2++ RSECURP=(lclacct,lclpswrd)
RTDISP=CAT
RRECFM=FB,RLRECL=1020,RBLKSIZE=27540
RUNIT=SYSDA
++MS.3++ RVOLSER=lclvolser
++MS.4++ RSPCUNIT=TRK
RSPCPRIM=3
RSPCSEC=3
NOTE============================================== END MS SECTION ====
//**********************************************************************
//* *
//*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 - 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)
NOTE============================================ BEGIN MS SECTION ====
NOTE== LINES THAT NEED TO BE EDITED IN MS SECTION:
NOTE== MS.1 = NWRDC PASSWORD
NOTE== MS.2 = LOCAL SITE ACCOUNT NUMBER AND PASSWORD
NOTE== MS.3 = YOUR VOLUME SERIAL NUMBER
NOTE== MS.4 = YOUR UNIT OF SPACE - TRACKS, BLOCKS, ETC.
//*---------------------------------------------------
//* RECEIVE JCL EXECUTED AT NWR
//* TO TRANSMIT NWR FILE TO INSTITUTION
//*---------------------------------------------------
//RECEIVE EXEC PGM=DVGIFBI,PARM=ENGLISH,
// COND=((1000,GE,SRTS04),(2000,LT,SRTS04))
//SYSUDUMP DD DUMMY
//DVGLOG DD SYSOUT=A
//SYSIN DD *
FUNCTION=ADD
XMODE=TO
WAIT=NO
REMLU=XXXXXXXX
LOCLU=NWRFXXXX
SFTYPE=SAM
SFILEID='DSNPRFX.RESPONSE.ALLFROM.MAILBOX'
++MS.1++ SSECURP=(ACCT,nwrpswrd)
RFTYPE=SAM
RFILEID='LOCAL.RESPONSE.ALLFROM.MAILBOX'
++MS.2++ RSECURP=(lclacct,lclpswrd)
RTDISP=CAT
RRECFM=FB,RLRECL=1020,RBLKSIZE=27540
RUNIT=SYSDA
++MS.3++ RVOLSER=lclvolser
++MS.4++ RSPCUNIT=CYL
RSPCPRIM=1
RSPCSEC=1
NOTE============================================== END MS SECTION ====
//**********************************************************************
//* *
//* 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=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)
NOTE============================================ BEGIN MS SECTION ====
NOTE== LINES THAT NEED TO BE EDITED IN MS SECTION:
NOTE== MS.1 = NWRDC PASSWORD
NOTE== MS.2 = LOCAL SITE ACCOUNT NUMBER AND PASSWORD
NOTE== MS.3 = YOUR VOLUME SERIAL NUMBER
NOTE== MS.4 = YOUR UNIT OF SPACE - TRACKS, BLOCKS, ETC.
//*---------------------------------------------------
//* RECEIVE JCL EXECUTED AT NWR
//* TO TRANSMIT NWR FILE TO INSTITUTION
//*---------------------------------------------------
//RECEIVE EXEC PGM=DVGIFBI,PARM=ENGLISH,
// COND=(0,NE,SRTS21)
//SYSUDUMP DD DUMMY
//DVGLOG DD SYSOUT=A
//SYSIN DD *
FUNCTION=ADD
XMODE=TO
WAIT=NO
REMLU=XXXXXXXX
LOCLU=NWRFXXXX
SFTYPE=SAM
SFILEID='DSNPRFX.OUTGOING.AGING.RECORDS'
++MS.1++ SSECURP=(ACCT,nwrpswrd)
RFTYPE=SAM
RFILEID='LOCAL.OUTGOING.AGING.RECORDS'
++MS.2++ RSECURP=(lclacct,lclpswrd)
RTDISP=CAT
RRECFM=FB,RLRECL=1020,RBLKSIZE=27540
RUNIT=SYSDA
++MS.3++ RVOLSER=lclvolser
++MS.4++ RSPCUNIT=TRK
RSPCPRIM=3
RSPCSEC=3
NOTE============================================== END MS SECTION ====
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 - 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)
NOTE============================================ BEGIN MS SECTION ====
NOTE== LINES THAT NEED TO BE EDITED IN MS SECTION:
NOTE== MS.1 = NWRDC PASSWORD
NOTE== MS.2 = LOCAL SITE ACCOUNT NUMBER AND PASSWORD
NOTE== MS.3 = YOUR VOLUME SERIAL NUMBER
NOTE== MS.4 = YOUR UNIT OF SPACE - TRACKS, BLOCKS, ETC.
//*---------------------------------------------------
//* RECEIVE JCL EXECUTED AT NWR
//* TO TRANSMIT NWR FILE TO INSTITUTION
//*---------------------------------------------------
//RECEIVE EXEC PGM=DVGIFBI,PARM=ENGLISH,
// COND=(0,NE,SRTS22)
//SYSUDUMP DD DUMMY
//DVGLOG DD SYSOUT=A
//SYSIN DD *
FUNCTION=ADD
XMODE=TO
WAIT=NO
REMLU=XXXXXXXX
LOCLU=NWRFXXXX
SFTYPE=SAM
SFILEID='DSNPRFX.INCOMING.AGING.RECORDS'
++MS.1++ SSECURP=(ACCT,nwrpswrd)
RFTYPE=SAM
RFILEID='LOCAL.INCOMING.AGING.RECORDS'
++MS.2++ RSECURP=(lclacct,lclpswrd)
RTDISP=CAT
RRECFM=FB,RLRECL=1020,RBLKSIZE=27540
RUNIT=SYSDA
++MS.3++ RVOLSER=lclvolser
++MS.4++ RSPCUNIT=TRK
RSPCPRIM=3
RSPCSEC=3
NOTE============================================== END MS SECTION ====
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)
NOTE============================================ BEGIN MS SECTION ====
NOTE== LINES THAT NEED TO BE EDITED IN MS SECTION:
NOTE== MS.1 = NWRDC PASSWORD
NOTE== MS.2 = LOCAL SITE ACCOUNT NUMBER AND PASSWORD
NOTE== MS.3 = YOUR VOLUME SERIAL NUMBER
NOTE== MS.4 = YOUR UNIT OF SPACE - TRACKS, BLOCKS, ETC.
//*---------------------------------------------------
//* RECEIVE JCL EXECUTED AT NWR
//* TO TRANSMIT NWR FILE TO INSTITUTION
//*---------------------------------------------------
//RECEIVE EXEC PGM=DVGIFBI,PARM=ENGLISH,
// COND=(0,NE,SRTS31)
//SYSUDUMP DD DUMMY
//DVGLOG DD SYSOUT=A
//SYSIN DD *
FUNCTION=ADD
XMODE=TO
WAIT=NO
REMLU=XXXXXXXX
LOCLU=NWRFXXXX
SFTYPE=SAM
SFILEID='DSNPRFX.PARTSTAT.FILE.RECORDS'
++MS.1++ SSECURP=(ACCT,nwrpswrd)
RFTYPE=SAM
RFILEID='LOCAL.PARTSTAT.FILE.RECORDS'
++MS.2++ RSECURP=(lclacct,lclpswrd)
RTDISP=CAT
RRECFM=FB,RLRECL=80,RBLKSIZE=27920
RUNIT=SYSDA
++MS.3++ RVOLSER=lclvolser
++MS.4++ RSPCUNIT=TRK
RSPCPRIM=3
RSPCSEC=3
NOTE============================================== END MS SECTION ====
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 *
//* 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 - 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)
NOTE============================================ BEGIN MS SECTION ====
NOTE== LINES THAT NEED TO BE EDITED IN MS SECTION:
NOTE== MS.1 = NWRDC PASSWORD
NOTE== MS.2 = LOCAL SITE ACCOUNT NUMBER AND PASSWORD
NOTE== MS.3 = YOUR VOLUME SERIAL NUMBER
NOTE== MS.4 = YOUR UNIT OF SPACE - TRACKS, BLOCKS, ETC.
//*---------------------------------------------------
//* RECEIVE JCL EXECUTED AT NWR
//* TO TRANSMIT NWR FILE TO INSTITUTION
//*---------------------------------------------------
//RECEIVE EXEC PGM=DVGIFBI,PARM=ENGLISH,
// COND=(0,NE,SRTS42)
//SYSUDUMP DD DUMMY
//DVGLOG DD SYSOUT=A
//SYSIN DD *
FUNCTION=ADD
XMODE=TO
WAIT=NO
REMLU=XXXXXXXX
LOCLU=NWRFXXXX
SFTYPE=SAM
SFILEID='DSNPRFX.CNTCLIST.FILE.RECORDS'
++MS.1++ SSECURP=(ACCT,nwrpswrd)
RFTYPE=SAM
RFILEID='LOCAL.CNTCLIST.FILE.RECORDS'
++MS.2++ RSECURP=(lclacct,lclpswrd)
RTDISP=CAT
RRECFM=FB,RLRECL=80,RBLKSIZE=27540
RUNIT=SYSDA
++MS.3++ RVOLSER=lclvolser
++MS.4++ RSPCUNIT=TRK
RSPCPRIM=3
RSPCSEC=3
NOTE============================================== END MS SECTION ====