Effective: November 14, 1999
Revised: September 27, 1999
This appendix shows the JCL generated by the FASTER System for those institutions having IBM DOS operating systems and who wish to use IBM's File Transfer Program Version 2 to upload and download data 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 VII), some of the job steps shown here will not be included in your final generated job stream. Specifically the job step necessary to start NetView FTP at NWR and the job step to start FTP/V2 at the local site in order to transmit a file from NWR to the local site would not be included.
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 VII. 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=F
/*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 ====
//*-------- JOB IS SUBMITTED THRU THE INTERNAL ----------*
//*-------- READER TO EXECUTE ----------*
//SENDJCL EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSPRINT DD DUMMY
//SYSUT2 DD SYSOUT=(,INTRDR)
//SYSUT1 DD DATA,DLM='##'
//ACCT2N JOB
/*XMIT NODE DLM='@@'
// JOB lcljobnm SEND FILE TO NWR
* $$ LST DEST=(NODE,RMT)
// DLBL DVGCR,'LOCAL.FTP.CHECKPT.RESTART',,VSAM,CAT=FTPVCAT
// EXEC DVGFTP,SIZE=AUTO
XMODE=S
RUSIZE=2048
RESTART=NO
TIME=30
SLU=XXXXFTPS
SFTYPE=VSAM
SFILEID='LOCAL.REQUESTS.ONTO.SYSTEM'
SUCATID='USER.VSAM.CATALOG.NAME'
RLU=NWR1TRXX
RFTYPE=SAM
RFILEID='DSNPRFX.REQUESTS.ONTO.SYSTEM'
RTDISP=OLD
RUNIT=SYSDA,RSTRCLAS=SCFNSTD
RRECFM=FB,RRECL=1020,RBLKSIZE=27540
/*
/&
@@
##
//*
//* THIS STEP DELETES A FILE
//*
// EXEC IKJBATCH,
// COND=(0,NE,SENDJCL)
//NWRISPF.SYSTSPRT DD DUMMY
DELETE 'DSNPRFX.REQUESTS.ONTO.SYSTEM'
/*
//* THIS STEP ALLOCATES SPACE FOR THE FILE RECEIVED BY NVFTP
//*
//ALLOC EXEC PGM=IEFBR14
//DD1 DD DSN=DSNPRFX.REQUESTS.ONTO.SYSTEM,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,STORCLAS=SCFNSTD,
// SPACE=(TRK,(22,3),RLSE),
// DCB=(RECFM=FB,LRECL=1020,BLKSIZE=27540,DSORG=PS)
//*----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 SPACE ALLOCATION
//*----
//* RECEIVE JOB EXECUTED AT NWR
//* TO RECEIVE INSTITUTION FILE AT NWR
//ACCTRC EXEC NWRNVFTP,
// COND=(0,NE,SENDJCL)
//CONTROL DD *
LUNAME=NWR1TRXX
//*----
//*-------- JOB IS SUBMITTED THRU THE INTERNAL ----------*
//*-------- READER TO EXECUTE ----------*
//SUBJCL EXEC PGM=IEBGENER,
// COND=((0,NE,SENDJCL),(4,LT,ACCTRC.EXNVFTP))
//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++//ACCTPQ 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
//*
//DELSTEP 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
//*-------- JOB IS SUBMITTED THRU THE INTERNAL ----------*
//*-------- READER TO EXECUTE ----------*
//SENDERR EXEC PGM=IEBGENER,
// COND=(0,NE,SRTS01)
//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++//ACCTSE JOB (ACCT),'programmer name',MSGLEVEL=(0,0),
++JC.2++// REGION=4096K,MSGCLASS=A,TIME=(,10),CLASS=F
/*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 ====
//* SEND JOB EXECUTED AT NWR
//* TO SEND GENERATED FILE TO INSTITUTION
//SEND EXEC NWRNVFTP
//CONTROL DD *
LUNAME=NWR1TSXX
!!
//*-------- JOB IS SUBMITTED THRU THE INTERNAL ----------*
//*-------- READER TO EXECUTE ----------*
//RECVERR EXEC PGM=IEBGENER,
// COND=((0,NE,SRTS01),(0,NE,SENDERR))
//SYSIN DD DUMMY
//SYSPRINT DD DUMMY
//SYSUT2 DD SYSOUT=(,INTRDR)
//SYSUT1 DD DATA,DLM='!!'
//ACCTRC JOB
/*XMIT NODE DLM='@@'
// JOB lcljobnm RECEIVE FILE FROM NWR
* $$ LST DEST=(NODE,RMT)
// DLBL DVGCR,'LOCAL.FTP.CHECKPT.RESTART',,VSAM,CAT=FTPVCAT
// EXEC DVGFTP,SIZE=AUTO
XMODE=R
RUSIZE=2048
RESTART=NO
TIME=30
RLU=XXXXFTPR
RFTYPE=VSAM
RFILEID='LOCAL.REQUESTS.ONTO.SYSERRS'
RUCATID='USER.VSAM.CATALOG.NAME'
SLU=NWR1TSXX
SFILEID='DSNPRFX.REQUESTS.ONTO.SYSERRS'
SFTYPE=SAM
/*
/&
@@
!!
##
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=F
/*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 ====
//*-------- JOB IS SUBMITTED THRU THE INTERNAL ----------*
//*-------- READER TO EXECUTE ----------*
//SENDJCL EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSPRINT DD DUMMY
//SYSUT2 DD SYSOUT=(,INTRDR)
//SYSUT1 DD DATA,DLM='##'
//ACCT2N JOB
/*XMIT NODE DLM='@@'
// JOB lcljobnm SEND FILE TO NWR
* $$ LST DEST=(NODE,RMT)
// DLBL DVGCR,'LOCAL.FTP.CHECKPT.RESTART',,VSAM,CAT=FTPVCAT
// EXEC DVGFTP,SIZE=AUTO
XMODE=S
RUSIZE=2048
RESTART=NO
TIME=30
SLU=XXXXFTPS
SFTYPE=VSAM
SFILEID='LOCAL.RESPONSE.ONTO.SYSTEM'
SUCATID='USER.VSAM.CATALOG.NAME'
RLU=NWR1TRXX
RFTYPE=SAM
RFILEID='DSNPRFX.RESPONSE.ONTO.SYSTEM'
RTDISP=OLD
RUNIT=SYSDA,RSTORCLS=SCFNSTD
RRECFM=FB,RLRECL=1020,RBLKSIZE=27540
/*
/&
@@
##
//*
//* THIS STEP DELETES A FILE
//*
// EXEC IKJBATCH,
// COND=(0,NE,SENDJCL)
//NWRISPF.SYSTSPRT DD DUMMY
DELETE 'DSNPRFX.RESPONSE.ONTO.SYSTEM'
/*
//ALLOC EXEC PGM=IEFBR14
//DD1 DD DSN=DSNPRFX.RESPONSE.ONTO.SYSTEM,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,STORCLAS=SCFNSTD,
// DCB=(RECFM=FB,LRECL=1020,BLKSIZE=27540,DSORG=PS),
// SPACE=(TRK,(22,3),RLSE)
//*----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
//*----
//* RECEIVE JOB EXECUTED AT NWR
//* TO RECEIVE INSTITUTION FILE AT NWR
//ACCTRC EXEC NWRNVFTP,
// COND=(0,NE,SENDJCL)
//CONTROL DD *
LUNAME=NWR1TRXX
//*-------- ----------*
//*-------- JOB IS SUBMITTED THRU THE INTERNAL ----------*
//*-------- READER TO EXECUTE ----------*
//SUBJCL EXEC PGM=IEBGENER,
// COND=((0,NE,SENDJCL),(4,LT,ACCTRC.EXNVFTP))
//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++//ACCTPS 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 ====
//************************************************************
//* *
//* STUDENT RECORD TRANSFER SYSTEM *
//* POST RESPONSES *
//* *
//************************************************************
//*
//* THIS STEP DELETES THE FILE TO BE CREATED IN NEXT STEP
//*
//DELSTEP 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
//*-------- JOB IS SUBMITTED THRU THE INTERNAL ----------*
//*-------- READER TO EXECUTE ----------*
//SENDERR EXEC PGM=IEBGENER,
// COND=(0,NE,SRTS03)
//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++//ACCTSE JOB (ACCT),'programmer name',MSGLEVEL=(0,0),
++JC.2++// REGION=4096K,MSGCLASS=A,TIME=(2,30),CLASS=F
/*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 ====
//* SEND JOB EXECUTED AT NWR
//* TO SEND GENERATED FILE TO INSTITUTION
//SEND EXEC NWRNVFTP
//CONTROL DD *
LUNAME=NWR1TSXX
!!
//*-------- JOB IS SUBMITTED THRU THE INTERNAL ----------*
//*-------- READER TO EXECUTE ----------*
//RECVERR EXEC PGM=IEBGENER,
// COND=((0,NE,SRTS03),(0,NE,SENDERR))
//SYSIN DD DUMMY
//SYSPRINT DD DUMMY
//SYSUT2 DD SYSOUT=(,INTRDR)
//SYSUT1 DD DATA,DLM='!!'
//ACCTRC JOB
/*XMIT NODE DLM='@@'
// JOB lcljobnm RECEIVE FILE FROM NWR
* $$ LST DEST=(NODE,RMT)
// DLBL DVGCR,'LOCAL.FTP.CHECKPT.RESTART',,VSAM,CAT=FTPVCAT
// EXEC DVGFTP,SIZE=AUTO
XMODE=R
RUSIZE=2048
RESTART=NO
TIME=30
RLU=XXXXFTPR
RFTYPE=VSAM
RFILEID='LOCAL.RESPONSE.ONTO.SYSERRS'
RUCATID='USER.VSAM.CATALOG.NAME'
SLU=NWR1TSXX
SFILEID='DSNPRFX.RESPONSE.ONTO.SYSERRS'
SFTYPE=SAM
/*
/&
@@
!!
##
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
//*
//DELSTEP 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 18 - 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)
//*-------- JOB IS SUBMITTED THRU THE INTERNAL ----------*
//*-------- READER TO EXECUTE ----------*
//SENDJCL EXEC PGM=IEBGENER,
// COND=(0,NE,SRTS02)
//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++//ACCTSN JOB (ACCT),'programmer name',MSGLEVEL=(0,0),
++JC.2++// REGION=4096K,MSGCLASS=A,TIME=(,15),CLASS=F
/*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 ====
//* SEND JOB EXECUTED AT NWR
//* TO SEND GENERATED FILE TO INSTITUTION
//SEND EXEC NWRNVFTP
//CONTROL DD *
LUNAME=NWR1TSXX
##
//*-------- JOB IS SUBMITTED THRU THE INTERNAL ----------*
//*-------- READER TO EXECUTE ----------*
//RECVJCL EXEC PGM=IEBGENER,
// COND=((0,NE,SRTS02),(0,NE,SENDJCL))
//SYSIN DD DUMMY
//SYSPRINT DD DUMMY
//SYSUT2 DD SYSOUT=(,INTRDR)
//SYSUT1 DD DATA,DLM='##'
//ACCTRC JOB
/*XMIT NODE DLM='@@'
// JOB lcljobnm RECEIVE FILE FROM NWR
* $$ LST DEST=(NODE,RMT)
// DLBL DVGCR,'LOCAL.FTP.CHECKPT.RESTART',,VSAM,CAT=FTPVCAT
// EXEC DVGFTP,SIZE=AUTO
XMODE=R
RUSIZE=2048
RESTART=NO
TIME=30
RLU=XXXXFTPR
RFTYPE=VSAM
RFILEID='LOCAL.REQUESTS.ALLFROM.MAILBOX'
RUCATID='USER.VSAM.CATALOG.NAME'
SLU=NWR1TSXX
SFILEID='DSNPRFX.REQUESTS.ALLFROM.MAILBOX'
SFTYPE=SAM
/*
/&
@@
##
//**********************************************************************
//* *
//*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
//*
//DELSTEP 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)
//*-------- JOB IS SUBMITTED THRU THE INTERNAL ----------*
//*-------- READER TO EXECUTE ----------*
//SENDJCL EXEC PGM=IEBGENER,
// COND=((1000,GE,SRTS04),(2000,LT,SRTS04))
//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++//ACCTSN JOB (ACCT),'programmer name',MSGLEVEL=(0,0),
++JC.2++// REGION=4096K,MSGCLASS=A,TIME=(,40),CLASS=F
/*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 ====
//* SEND JOB EXECUTED AT NWR
//* TO SEND GENERATED FILE TO INSTITUTION
//SEND EXEC NWRNVFTP
//CONTROL DD *
LUNAME=NWR1TSXX
##
//*-------- JOB IS SUBMITTED THRU THE INTERNAL ----------*
//*-------- READER TO EXECUTE ----------*
//RECVJCL EXEC PGM=IEBGENER,
// COND=((1000,GE,SRTS04),(2000,LT,SRTS04),(0,NE,SENDJCL))
//SYSIN DD DUMMY
//SYSPRINT DD DUMMY
//SYSUT2 DD SYSOUT=(,INTRDR)
//SYSUT1 DD DATA,DLM='##'
//ACCTRC JOB
/*XMIT NODE DLM='@@'
// JOB lcljobnm RECEIVE FILE FROM NWR
* $$ LST DEST=(NODE,RMT)
// DLBL DVGCR,'LOCAL.FTP.CHECKPT.RESTART',,VSAM,CAT=FTPVCAT
// EXEC DVGFTP,SIZE=AUTO
XMODE=R
RUSIZE=2048
RESTART=NO
TIME=30
RLU=XXXXFTPR
RFTYPE=VSAM
RFILEID='LOCAL.RESPONSE.ALLFROM.MAILBOX'
RUCATID='USER.VSAM.CATALOG.NAME'
SLU=NWR1TSXX
SFILEID='DSNPRFX.RESPONSE.ALLFROM.MAILBOX'
SFTYPE=SAM
/*
/&
@@
##
//**********************************************************************
//* *
//* 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,(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)
//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
//*
//DELSTEP 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)
//*-------- JOB IS SUBMITTED THRU THE INTERNAL ----------*
//*-------- READER TO EXECUTE ----------*
//SENDJCL EXEC PGM=IEBGENER,
// COND=(0,NE,SRTS21)
//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++//ACCTSN JOB (ACCT),'programmer name',MSGLEVEL=(0,0),
++JC.2++// REGION=4096K,MSGCLASS=A,TIME=(,15),CLASS=F
/*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 ====
//* SEND JOB EXECUTED AT NWR
//* TO SEND GENERATED FILE TO INSTITUTION
//SEND EXEC NWRNVFTP
//CONTOL DD *
LUNAME=NWR1TSXX
##
//*-------- JOB IS SUBMITTED THRU THE INTERNAL ----------*
//*-------- READER TO EXECUTE ----------*
//RECVJCL EXEC PGM=IEBGENER,
// COND=((0,NE,SRTS21),(0,NE,SENDJCL))
//SYSIN DD DUMMY
//SYSPRINT DD DUMMY
//SYSUT2 DD SYSOUT=(,INTRDR)
//SYSUT1 DD DATA,DLM='##'
//ACCTRC JOB
/*XMIT NODE DLM='@@'
// JOB lcljobnm RECEIVE FILE FROM NWR
* $$ LST DEST=(NODE,RMT)
// DLBL DVGCR,'LOCAL.FTP.CHECKPT.RESTART',,VSAM,CAT=FTPVCAT
// EXEC DVGFTP,SIZE=AUTO
XMODE=R
RUSIZE=2048
RESTART=NO
TIME=30
RLU=XXXXFTPR
RFTYPE=VSAM
RFILEID='LOCAL.OUTGOING.AGING.RECORDS'
RUCATID='USER.VSAM.CATALOG.NAME'
SLU=NWR1TSXX
SFILEID='DSNPRFX.OUTGOING.AGING.RECORDS'
SFTYPE=SAM
/*
/&
@@
##
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
//*
//DELSTEP 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)
//*-------- JOB IS SUBMITTED THRU THE INTERNAL ----------*
//*-------- READER TO EXECUTE ----------*
//SENDJCL EXEC PGM=IEBGENER,
// COND=(0,NE,SRTS22)
//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++//ACCTSN JOB (ACCT),'programmer name',MSGLEVEL=(0,0),
++JC.2++// REGION=4096K,MSGCLASS=A,TIME=(,15),CLASS=F
/*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 ====
//* SEND JOB EXECUTED AT NWR
//* TO SEND GENERATED FILE TO INSTITUTION
//SEND EXEC NWRNVFTP
//CONTROL DD *
LUNAME=NWR1TSXX
##
//*-------- JOB IS SUBMITTED THRU THE INTERNAL ----------*
//*-------- READER TO EXECUTE ----------*
//RECVJCL EXEC PGM=IEBGENER,
// COND=((0,NE,SRTS22),(0,NE,SENDJCL))
//SYSIN DD DUMMY
//SYSPRINT DD DUMMY
//SYSUT2 DD SYSOUT=(,INTRDR)
//SYSUT1 DD DATA,DLM='##'
//ACCTRC JOB
/*XMIT NODE DLM='@@'
// JOB lcljobnm RECEIVE FILE FROM NWR
* $$ LST DEST=(NODE,RMT)
// DLBL DVGCR,'LOCAL.FTP.CHECKPT.RESTART',,VSAM,CAT=FTPVCAT
// EXEC DVGFTP,SIZE=AUTO
XMODE=R
RUSIZE=2048
RESTART=NO
TIME=30
RLU=XXXXFTPR
RFTYPE=VSAM
RFILEID='LOCAL.INCOMING.AGING.RECORDS'
RUCATID='USER.VSAM.CATALOG.NAME'
SLU=NWR1TSXX
SFILEID='DSNPRFX.INCOMING.AGING.RECORDS'
SFTYPE=SAM
/*
/&
@@
##
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
//*
//DELSTEP 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)
//*-------- JOB IS SUBMITTED THRU THE INTERNAL ----------*
//*-------- READER TO EXECUTE ----------*
//SENDJCL EXEC PGM=IEBGENER,
// COND=(0,NE,SRTS31)
//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++//ACCTSN JOB (ACCT),'programmer name',MSGLEVEL=(0,0),
++JC.2++// REGION=4096K,MSGCLASS=A,TIME=(,15),CLASS=F
/*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 ====
//* SEND JOB EXECUTED AT NWR
//* TO SEND GENERATED FILE TO INSTITUTION
//SEND EXEC NWRNVFTP
//CONTOL DD *
LUNAME=NWR1TSXX
##
//*-------- JOB IS SUBMITTED THRU THE INTERNAL ----------*
//*-------- READER TO EXECUTE ----------*
//RECVJCL EXEC PGM=IEBGENER,
// COND=((0,NE,SRTS31),(0,NE,SENDJCL))
//SYSIN DD DUMMY
//SYSPRINT DD DUMMY
//SYSUT2 DD SYSOUT=(,INTRDR)
//SYSUT1 DD DATA,DLM='##'
//ACCTRC JOB
/*XMIT NODE DLM='@@'
// JOB lcljobnm RECEIVE FILE FROM NWR
* $$ LST DEST=(NODE,RMT)
// DLBL DVGCR,'LOCAL.FTP.CHECKPT.RESTART',,VSAM,CAT=FTPVCAT
// EXEC DVGFTP,SIZE=AUTO
XMODE=R
RUSIZE=2048
RESTART=NO
TIME=30
RLU=XXXXFTPR
RFTYPE=VSAM
RFILEID='LOCAL.PARTSTAT.FILE.RECORDS'
RUCATID='USER.VSAM.CATALOG.NAME'
SLU=NWR1TSXX
SFILEID='DSNPRFX.PARTSTAT.FILE.RECORDS'
SFTYPE=SAM
/*
/&
@@
##
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
//*
//DELSTEP 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)
//*-------- JOB IS SUBMITTED THRU THE INTERNAL ----------*
//*-------- READER TO EXECUTE ----------*
//SENDJCL EXEC PGM=IEBGENER,
// COND=(0,NE,SRTS42)
//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++//ACCTSN JOB (ACCT),'programmer name',MSGLEVEL=(0,0),
++JC.2++// REGION=4096K,MSGCLASS=A,TIME=(,15),CLASS=F
/*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 ====
//* SEND JOB EXECUTED AT NWR
//* TO SEND GENERATED FILE TO INSTITUTION
//SEND EXEC NWRNVFTP
//CONTROL DD *
LUNAME=NWR1TSXX
##
//*-------- JOB IS SUBMITTED THRU THE INTERNAL ----------*
//*-------- READER TO EXECUTE ----------*
//RECVJCL EXEC PGM=IEBGENER,
// COND=((0,NE,SRTS42),(0,NE,SENDJCL))
//SYSIN DD DUMMY
//SYSPRINT DD DUMMY
//SYSUT2 DD SYSOUT=(,INTRDR)
//SYSUT1 DD DATA,DLM='##'
//ACCTRC JOB
/*XMIT NODE DLM='@@'
// JOB lcljobnm RECEIVE FILE FROM NWR
* $$ LST DEST=(NODE,RMT)
// DLBL DVGCR,'LOCAL.FTP.CHECKPT.RESTART',,VSAM,CAT=FTPVCAT
// EXEC DVGFTP,SIZE=AUTO
XMODE=R
RUSIZE=2048
RESTART=NO
TIME=30
RLU=XXXXFTPR
RFTYPE=VSAM
RFILEID='LOCAL.CNTCLIST.FILE.RECORDS'
RUCATID='USER.VSAM.CATALOG.NAME'
SLU=NWR1TSXX
SFILEID='DSNPRFX.CNTCLIST.FILE.RECORDS'
SFTYPE=SAM
/*
/&
@@
##