$!
$ SET NOVERIFY
$ SAY :== "WRITE SYS$OUTPUT"
$ ASK :== READ/END=END/PROMPT=
$ CL :== SET TERM/WIDTH=80
$ CL
$!
$ SAY "This process will set up ABA110 (TUITION CALC TABLE REPORT). "
$ SAY " "
$!
$! Prompt for term
$!
$ENTER_TERM:
$ READ SYS$COMMAND/TIME=60/END=EXIT/ERROR=EXIT/PROMPT= -
"Run Three Digit Term (YYX) >>> " TERMIN
$ LEN_TERM = F$LENGTH(TERMIN)
$ IF LEN_TERM .NE. 3 THEN GOTO ENTER_TERM
$ TYP_TERM = F$TYPE(TERMIN)
$ IF TYP_TERM .NES. "INTEGER" THEN GOTO ENTER_TERM
$!
$! Create parameter file.
$!
$ OPEN/WRITE output_file SI$DATA:ABA110PRM.DAT
$!
$ output_record = "PGM=ABA110,TERM1=" + TERMIN
$ WRITE output_file output_record
$ CLOSE output_file
$!
$! Submit program to run.
$!
$ USER = F$EDIT(F$GETJPI("","USERNAME"),"UPCASE,COLLAPSE")
$!
$ PRM = "SI$DATA:ABA110PRM.DAT;"
$ PGM = "ABA110"
$ OUT_FILE = F$SEARCH(PRM)
$ PARM_LIST = "(SI$COM:AJA110," + PGM + "," + OUT_FILE + "," + PRM + ",0,0,0," + USER + ")"
$!
$ SUBMIT COM:SISRUNJOB -
/LOG=LOG:'PGM'.LOG/NOPRINT/NOTIFY -
/QUE=SYS$BATCH -
/NAME= 'PGM' -
/PARAMETER = 'PARM_LIST'
$!
$ SHOW QUE SYS$BATCH
$ SAY " "
$ SAY " "
$ ASK "<RETURN> TO CONTINUE ... " SYS$COMMAND DUMMY
$!
$EXIT:
$!
$ SAY " "
$ SAY "All done..."
$ SAY " "
$!
$ SET DEFAULT SYS$LOGIN
$ EXIT
$!
$ SET NOVERIFY
$ SAY :== "WRITE SYS$OUTPUT"
$ ASK :== READ/END=END/PROMPT=
$ CL :== SET TERM/WIDTH=80
$ CL
$!
$ SAY "This process will set up BBA400 (A/P feed process). "
$ SAY " "
$ SAY "Please select the run type :
$ SAY " "
$ SAY "1 - RUN TYPE 1"
$ SAY "2 - RUN TYPE 2"
$ SAY "3 - RUN TYPE 3"
$ SAY " "
$!
$! Prompt for run type
$!
$ENTER_RUN_TYPE:
$ READ SYS$COMMAND/TIME=60/END=EXIT/ERROR=EXIT/PROMPT= -
"Run Type >>> " TYPEIN
$ IF (TYPEIN .NES. "1") .AND. (TYPEIN .NES. "2") .AND. (TYPEIN .NES. "3") THEN GOTO ENTER_RUN_TYPE
$!
$! Prompt for SEQUENCE value if applicable.
$!
$ENTER_SEQ:
$ READ SYS$COMMAND/TIME=60/END=EXIT/ERROR=EXIT/PROMPT= -
"SEQUENCE value (just press <ENTER> if not needed) >>> " SEQIN
$ IF (SEQIN .EQS. "")
$ THEN
$ SEQIN = 999999
$ ENDIF
$!
$ LEN_SEQ = F$LENGTH(SEQIN)
$ IF LEN_SEQ .NE. 6 THEN GOTO ENTER_SEQ
$ TYP_SEQ = F$TYPE(SEQIN)
$ IF TYP_SEQ .NES. "INTEGER" THEN GOTO ENTER_SEQ
$!
$! Create batch id
$!
$ OPEN/READ input_file SI$DATA:BBA400PRM.DAT
$ READ input_file in_record
$ READ input_file in_record
$ NUM_ID = F$INTEGER(F$EXTRACT(13,1,in_record))
$ NUM_ID = NUM_ID + 1
$ IF NUM_ID .EQ. 10 THEN NUM_ID = 1
$ CLOSE input_file
$!
$! Create parameter file.
$!
$ OPEN/WRITE output_file SI$DATA:BBA400PRM.DAT
$!
$ IF (TYPEIN .EQS. "1")
$ THEN
$ output_record = "PGM=BBA400," + (BBA400 parameter record)
$ WRITE output_file output_record
$ ENDIF
$!
$ IF (TYPEIN .EQS. "2")
$ THEN
$ output_record = "PGM=BBA400," + (BBA400 parameter record)
$ WRITE output_file output_record
$ ENDIF
$!
$ IF (TYPEIN .EQS. "3")
$ THEN
$ output_record = "PGM=BBA400," + (BBA400 parameter record)
$ WRITE output_file output_record
$ ENDIF
$!
$ IF (SEQIN .EQ. 999999)
$ THEN
$ output_record = "BATCHID=BRS00" + F$STRING(NUM_ID) + ",UPDATE=Y,BANK=01"
$ WRITE output_file output_record
$ ELSE
$ output_record = "BATCHID=BRS00" + F$STRING(NUM_ID) + ",UPDATE=Y,BANK=01,SEQUENCE=" + SEQIN
$ WRITE output_file output_record
$ ENDIF
$!
$ CLOSE output_file
$!
$! Submit program to run.
$!
$ SUBMIT_TIME = """TODAY + 23:45"""
$ USER = F$EDIT(F$GETJPI("","USERNAME"),"UPCASE,COLLAPSE")
$!
$ PRM = "SI$DATA:BBA400PRM.DAT;"
$ PGM = "BBA400"
$ OUT_FILE = F$SEARCH(PRM)
$ PARM_LIST = "(SI$COM:BJA400," + PGM + "," + OUT_FILE + "," + PRM + ",0,0,0," + USER + ")"
$!
$ SUBMIT COM:SISRUNJOB -
/LOG=LOG:'PGM'.LOG/NOPRINT/NOTIFY -
/QUE=SYS$BATCH -
/AFTER='SUBMIT_TIME' -
/NAME= 'PGM' -
/PARAMETER = 'PARM_LIST'
$!
$ SHOW QUE SYS$BATCH
$ SAY " "
$ SAY " "
$ ASK "<RETURN> TO CONTINUE ... " SYS$COMMAND DUMMY
$!
$EXIT:
$!
$ SAY " "
$ SAY "All done..."
$ SAY " "
$!
$ SET DEFAULT SYS$LOGIN
$ EXIT
$!
$ SET NOVERIFY
$ SAY :== "WRITE SYS$OUTPUT"
$ ASK :== READ/END=END/PROMPT=
$ CL :== SET TERM/WIDTH=80
$ CL
$!
$ SAY "This process will run BBR330 (AGED RECEIVABLES). "
$ SAY " "
$ SAY " "
$!
$! Create today's date for the DATE parameter.
$!
$ TODAY = F$TIME()
$ DATE = F$CVTIME(TODAY)
$ TODAY = F$EXTRACT(5,2,DATE) + F$EXTRACT(8,2,DATE) + F$EXTRACT(0,4,DATE)
$!
$! Prompt for date.
$!
$ENTER_DATE:
$ SAY "Enter the date (MMDDYYYY) to run this report for ... "
$ READ SYS$COMMAND/TIME=60/END=EXIT/ERROR=EXIT/PROMPT= -
"Press <ENTER> to use current date >>> " DAYIN
$ IF DAYIN .EQS. ""
$ THEN
$ DAYIN = TODAY
$ ENDIF
$ LEN_DAYIN = F$LENGTH(DAYIN)
$ IF LEN_DAYIN .NE. 8 THEN GOTO ENTER_DATE
$ TYP_DAYIN = F$TYPE(DAYIN)
$ IF TYP_DAYIN .NES. "INTEGER" THEN GOTO ENTER_DATE
$!
$! Create parameter file.
$!
$ OPEN/WRITE output_file SI$DATA:BBR330PRM.DAT
$ WRITE output_file "PGM=BBR330,DATE=" + DAYIN
$ CLOSE output_file
$!
$! Submit program to run.
$!
$ USER = F$EDIT(F$GETJPI("","USERNAME"),"UPCASE,COLLAPSE")
$!
$ PRM = "SI$DATA:BBR330PRM.DAT;"
$ PGM = "BBR330"
$ OUT_FILE = F$SEARCH(PRM)
$ PARM_LIST = "(SI$COM:BJR330," + PGM + "," + OUT_FILE + "," + PRM + ",0,0,0," + USER + ")"
$!
$ SUBMIT COM:SISRUNJOB -
/LOG=LOG:'PGM'.LOG/NOPRINT/NOTIFY -
/QUE=SYS$BATCH -
/NAME= 'PGM' -
/PARAMETER = 'PARM_LIST'
$!
$ SHOW QUE SYS$BATCH
$ SAY " "
$ SAY " "
$ ASK "<RETURN> TO CONTINUE ... " SYS$COMMAND DUMMY
$!
$EXIT:
$!
$ SAY " "
$ SAY "All done..."
$ SAY " "
$!
$ SET DEFAULT SYS$LOGIN
$ EXIT
$!
$ SET NOVERIFY
$ SAY :== "WRITE SYS$OUTPUT"
$ ASK :== READ/END=END/PROMPT=
$ CL :== SET TERM/WIDTH=80
$ CL
$!
$ SAY "This process will set up SBA420 (PELL GRANT PAYMENTS). "
$ SAY " "
$!
$! Prompt for award year selection
$!
$ENTER_PARM_AWDYR:
$ READ SYS$COMMAND/TIME=60/END=EXIT/ERROR=EXIT/PROMPT= -
"Enter the award year >>> " AWDYR
$ LEN_AWDYR = F$LENGTH(AWDYR)
$ IF LEN_AWDYR .NE. 2 THEN GOTO ENTER_PARM_AWDYR
$ TYP_AWDYR = F$TYPE(AWDYR)
$ IF TYP_AWDYR .NES. "INTEGER" THEN GOTO ENTER_PARM_AWDYR
$!
$! Prompt for EFC threshold for Pell awards
$!
$ENTER_PARM_PAMT:
$ READ SYS$COMMAND/TIME=60/END=EXIT/ERROR=EXIT/PROMPT= -
"Enter the EFC threshold for Pell awards (default is 3000) >>> " PAMT
$ IF PAMT .EQS. "" THEN PAMT = "3000"
$ LEN_PAMT = F$LENGTH(PAMT)
$ IF LEN_PAMT .NE. 4 THEN GOTO ENTER_PARM_PAMT
$ TYP_PAMT = F$TYPE(PAMT)
$ IF TYP_PAMT .NES. "INTEGER" THEN GOTO ENTER_PARM_PAMT
$!
$! Prompt to run in update.
$!
$ENTER_UPD:
$ SAY " "
$ SAY "Run In Update Mode? "
$ READ SYS$COMMAND/TIME=60/END=EXIT/ERROR=EXIT/PROMPT= -
"(1 - Update / 2 - Non-update) >>> " UPDIN
$ LEN_UPD = F$LENGTH(UPDIN)
$ IF LEN_UPD .NE. 1 THEN GOTO ENTER_UPD
$ TYP_UPD = F$TYPE(UPDIN)
$ IF TYP_UPD .NES. "INTEGER" THEN GOTO ENTER_UPD
$ IF (UPDIN .NE. 1) .AND. (UPDIN .NE. 2) THEN GOTO ENTER_UPD
$!
$! Create code to use in FD transaction.
$!
$ STR_AWDYR = F$EXTRACT(1,1,F$STRING(AWDYR))
$ IF STR_AWDYR .EQS. "0"
$ THEN
$ FDCODE = "80009"
$ ELSE
$ FDCODE = "8000" + F$STRING(F$INTEGER(STR_AWDYR)-1)
$ ENDIF
$!
$! Create parameter file.
$!
$ OPEN/WRITE output_file SI$DATA:SBA420PRM.DAT
$!
$ output_record = "PGM=SBA420,AMOUNT=" + PAMT + ",RUNTYPE=A,ADMGRP=T,"
$ WRITE output_file output_record
$!
$ IF (UPDIN .EQS. "1")
$ THEN
$ output_record = "RPTYPE=EDE,UPDATE=Y" + ",YR=" + AWDYR + ",OPTION1=Y,PRNTSEQ=A"
$ ENDIF
$!
$ IF (UPDIN .EQS. "2")
$ THEN
$ output_record = "RPTYPE=EDE,UPDATE=N" + ",YR=" + AWDYR + ",OPTION1=Y,PRNTSEQ=A"
$ ENDIF
$!
$ WRITE output_file output_record
$ WRITE output_file "NA..."
$ WRITE output_file "NA..."
$ WRITE output_file "NA..."
$ WRITE output_file "IA..."
$ WRITE output_file "FD T " + FDCODE
$ WRITE output_file "HT..."
$ WRITE output_file "TT..."
$!
$ CLOSE output_file
$!
$! Prompt for any additional users to send report to.
$!
$ USER = F$EDIT(F$GETJPI("","USERNAME"),"UPCASE,COLLAPSE")
$ GOSUB MAIL_OUTPUT_LIST
$!
$! Submit program to run.
$!
$ SUBMIT_TIME = """TODAY + 23:48"""
$!
$ PRM = "SI$DATA:SBA420PRM.DAT;"
$ PGM = "SBA420"
$ OUT_FILE = F$SEARCH(PRM)
$ PARM_LIST = "(SI$COM:SJA420," + PGM + "," + OUT_FILE + "," + PRM + ",0,0,0," + USERLIST + ")"
$!
$ IF (UPDIN .EQS. "1")
$ THEN
$ SUBMIT COM:SISRUNJOB -
/LOG=LOG:'PGM'.LOG/NOPRINT/NOTIFY -
/QUE=SYS$BATCH -
/AFTER='SUBMIT_TIME' -
/NAME= 'PGM' -
/PARAMETER = 'PARM_LIST'
$ ENDIF
$!
$ IF (UPDIN .EQS. "2")
$ THEN
$ SUBMIT COM:SISRUNJOB -
/LOG=LOG:'PGM'.LOG/NOPRINT/NOTIFY -
/QUE=SYS$BATCH -
/NAME= 'PGM' -
/PARAMETER = 'PARM_LIST'
$ ENDIF
$!
$ SHOW QUE SYS$BATCH
$ SAY " "
$ SAY " "
$ ASK "<RETURN> TO CONTINUE ... " SYS$COMMAND DUMMY
$!
$EXIT:
$!
$ SAY " "
$ SAY "All done..."
$ SAY " "
$!
$ SET DEFAULT SYS$LOGIN
$ EXIT
$!
$MAIL_OUTPUT_LIST:
$!
$ SAY " "
$ SAY " "
$ SAY " To send other users a copy of the report, answer Y to the next"
$ SAY " question and enter the name(s) of the all users who will get a copy."
$ SAY " The usernames need to be seperated by a comma. "
$ SAY " "
$ SAY " To send only to yourself then answer N to the next question."
$ SAY " "
$!
$ ASK "Do you want others to get the results [N] " SYS$COMMAND ANSWER
$ IF ANSWER
$ THEN
$ ASK "Enter the username(s) " SYS$COMMAND USERLIST
$ USERLIST= """" + USER + "," + F$EDIT(USERLIST,"COLLAPSE") + """"
$ ELSE
$ USERLIST = USER
$ ENDIF
$ RETURN
$!
$ SET NOVERIFY
$ SAY :== "WRITE SYS$OUTPUT"
$ ASK :== READ/END=END/PROMPT=
$ CL :== SET TERM/WIDTH=80
$ CL
$!
$ SAY "This process will set up SBA430 (PELL GRANT PROCESSED PAYMENTS). "
$ SAY " "
$!
$! Prompt for award year selection
$!
$ENTER_PARM_AWDYR:
$ READ SYS$COMMAND/TIME=60/END=EXIT/ERROR=EXIT/PROMPT= -
"Enter the award year >>> " AWDYR
$ LEN_AWDYR = F$LENGTH(AWDYR)
$ IF LEN_AWDYR .NE. 2 THEN GOTO ENTER_PARM_AWDYR
$ TYP_AWDYR = F$TYPE(AWDYR)
$ IF TYP_AWDYR .NES. "INTEGER" THEN GOTO ENTER_PARM_AWDYR
$!
$! Create parameter file.
$!
$ OPEN/WRITE output_file SI$DATA:SBA430PRM.DAT
$!
$ output_record = "PGM=SBA430,YR=" + AWDYR + ",UPDATE=Y,PRNTSEQ=A"
$ WRITE output_file output_record
$!
$ CLOSE output_file
$!
$! Submit program to run.
$!
$ SUBMIT_TIME = """TODAY + 23:46"""
$ USER = F$EDIT(F$GETJPI("","USERNAME"),"UPCASE,COLLAPSE")
$!
$ PRM = "SI$DATA:SBA430PRM.DAT;"
$ PGM = "SBA430"
$ OUT_FILE = F$SEARCH(PRM)
$ PARM_LIST = "(SI$COM:SJA430," + PGM + "," + OUT_FILE + "," + PRM + ",0,0,0," + USER + ")"
$!
$ SUBMIT COM:SISRUNJOB -
/LOG=LOG:'PGM'.LOG/NOPRINT/NOTIFY -
/QUE=SYS$BATCH -
/AFTER='SUBMIT_TIME' -
/NAME= 'PGM' -
/PARAMETER = 'PARM_LIST'
$!
$ SHOW QUE SYS$BATCH
$ SAY " "
$ SAY " "
$ ASK "<RETURN> TO CONTINUE ... " SYS$COMMAND DUMMY
$!
$EXIT:
$!
$ SAY " "
$ SAY "All done..."
$ SAY " "
$!
$ SET DEFAULT SYS$LOGIN
$ EXIT
$!
$ SET NOVERIFY
$ SET NOCONTROL_Y
$!
$ ON ERROR THEN GOTO EXIT
$ ON WARNING THEN GOTO EXIT
$!
$ SAY :== "WRITE SYS$OUTPUT"
$ ASK :== READ/END=END/PROMPT=
$ CL :== SET TERM/WIDTH=80
$ CL
$!
$ SAY "This process will set up SBA500 (FA missing information letters). "
$ SAY " "
$!
$! Prompt for award period selection
$!
$ENTER_PARM_AWPD:
$ READ SYS$COMMAND/TIME=60/END=EXIT/ERROR=EXIT/PROMPT= -
"Enter the award period >>> " AWPD
$ LEN_AWPD = F$LENGTH(AWPD)
$ IF LEN_AWPD .NE. 3 THEN GOTO ENTER_PARM_AWPD
$ YR_AWPD = F$EXTRACT(0,2,AWPD)
$ TYP_AWPD = F$TYPE(YR_AWPD)
$ PD_AWPD = F$EDIT(F$EXTRACT(2,1,AWPD),"UPCASE")
$ IF TYP_AWPD .NES. "INTEGER" THEN GOTO ENTER_PARM_AWPD
$ IF (PD_AWPD .NES. "A") .AND. (PD_AWPD .NES. "S") THEN GOTO ENTER_PARM_AWPD
$!
$ TODAY = F$TIME()
$ DATE = F$CVTIME(TODAY)
$ TODAY = F$EXTRACT(5,2,DATE) + F$EXTRACT(8,2,DATE) + F$EXTRACT(0,4,DATE)
$!
$! Create parameter file.
$!
$ OPEN/WRITE output_file SI$DATA:SBA500PRM.DAT
$!
$ WRITE output_file "PGM=SBA500,DATE=" + TODAY + ",AWPD=" + YR_AWPD +
$ WRITE output_file "OPTION1=N,AGEDAY1=21,UPDATE=Y"
$ WRITE output_file "TX01 ..."
$ WRITE output_file "TX02 ..."
$ WRITE output_file "TX03 ..."
$ WRITE output_file "TX04 ..."
$ WRITE output_file "TX05 ..."
$ WRITE output_file "TX06 ..."
$ WRITE output_file "TX07 ..."
$ WRITE output_file "TX08 ..."
$ WRITE output_file "RA01 ..."
$ WRITE output_file "RA02 ..."
$ WRITE output_file "RA03 ..."
$ WRITE output_file "RA04 ..."
$ WRITE output_file "RA05 ..."
$ WRITE output_file "SL..."
$!
$ CLOSE output_file
$!
$! Submit program to run.
$!
$ SUBMIT_TIME = """TODAY + 23:30"""
$ USER = F$EDIT(F$GETJPI("","USERNAME"),"UPCASE,COLLAPSE")
$!
$ PRM = "SI$DATA:SBA500PRM.DAT;"
$ PGM = "SBA500"
$ OUT_FILE = F$SEARCH(PRM)
$ PARM_LIST = "(SI$COM:SJA500," + PGM + "," + OUT_FILE + "," + PRM + ",0,0,0," + USER + ")"
$!
$ SUBMIT COM:SISRUNJOB -
/LOG=LOG:'PGM'.LOG/NOPRINT/NOTIFY -
/QUE=SYS$BATCH -
/AFTER='SUBMIT_TIME' -
/NAME= 'PGM' -
/PARAMETER = 'PARM_LIST'
$!
$ SHOW QUE SYS$BATCH
$ SAY " "
$ SAY " "
$ ASK "<RETURN> TO CONTINUE ... " SYS$COMMAND DUMMY
$!
$EXIT:
$!
$ SAY " "
$ SAY "All done..."
$ SAY " "
$!
$ SET DEFAULT SYS$LOGIN
$ EXIT
$!
$ SET NOVERIFY
$ SET NOCONTROL_Y
$!
$ ON ERROR THEN GOTO EXIT
$ ON WARNING THEN GOTO EXIT
$!
$ SAY :== "WRITE SYS$OUTPUT"
$ ASK :== READ/END=END/PROMPT=
$ CL :== SET TERM/WIDTH=80
$ CL
$!
$ SAY "This process will set up SBA520 (FA award letters). "
$ SAY " "
$!
$! Prompt for award period selection
$!
$ENTER_PARM_AWPD:
$ READ SYS$COMMAND/TIME=60/END=EXIT/ERROR=EXIT/PROMPT= -
"Enter the award period >>> " AWPD
$ LEN_AWPD = F$LENGTH(AWPD)
$ IF LEN_AWPD .NE. 3 THEN GOTO ENTER_PARM_AWPD
$ YR_AWPD = F$EXTRACT(0,2,AWPD)
$ TYP_AWPD = F$TYPE(YR_AWPD)
$ PD_AWPD = F$EDIT(F$EXTRACT(2,1,AWPD),"UPCASE")
$ IF TYP_AWPD .NES. "INTEGER" THEN GOTO ENTER_PARM_AWPD
$ IF (PD_AWPD .NES. "A") .AND. (PD_AWPD .NES. "S") THEN GOTO ENTER_PARM_AWPD
$!
$! Create parameter file.
$!
$ OPEN/WRITE output_file SI$DATA:SBA520PRM.DAT
$!
$ WRITE output_file "PGM=SBA520,RUNTYPE=G,AWPD=" + YR_AWPD + PD_AWPD + ",ADDRPREF=P,"
$ WRITE output_file "RPTYPE=ALL-DISB,UPDATE=Y,ADDRNAME=D,PRNTSEQ=A"
$ WRITE output_file "TX01 ..."
$ WRITE output_file "TX02 ..."
$ WRITE output_file "TX03 ..."
$ WRITE output_file "TX04 ..."
$ WRITE output_file "TX05"
$ WRITE output_file "RA01"
$ WRITE output_file "RA02"
$ WRITE output_file "RA03"
$ WRITE output_file "RA04"
$ WRITE output_file "DN01 ..."
$ WRITE output_file "DN02 ..."
$ WRITE output_file "DN03 ..."
$ WRITE output_file "DN04 ..."
$ WRITE output_file "DN05 ..."
$ WRITE output_file "DN06 ..."
$ WRITE output_file "DN07 ..."
$ WRITE output_file "DN08 ..."
$ WRITE output_file "SL..."
$!
$ CLOSE output_file
$!
$! Submit program to run.
$!
$ SUBMIT_TIME = """TODAY + 23:47"""
$ USER = F$EDIT(F$GETJPI("","USERNAME"),"UPCASE,COLLAPSE")
$!
$ PRM = "SI$DATA:SBA520PRM.DAT;"
$ PGM = "SBA520"
$ OUT_FILE = F$SEARCH(PRM)
$ PARM_LIST = "(SI$COM:SJA520," + PGM + "," + OUT_FILE + "," + PRM + ",0,0,0," + USER + ")"
$!
$ SUBMIT COM:SISRUNJOB -
/LOG=LOG:'PGM'.LOG/NOPRINT/NOTIFY -
/QUE=SYS$BATCH -
/AFTER='SUBMIT_TIME' -
/NAME= 'PGM' -
/PARAMETER = 'PARM_LIST'
$!
$ SHOW QUE SYS$BATCH
$ SAY " "
$ SAY " "
$ ASK "<RETURN> TO CONTINUE ... " SYS$COMMAND DUMMY
$!
$EXIT:
$!
$ SAY " "
$ SAY "All done..."
$ SAY " "
$!
$ SET DEFAULT SYS$LOGIN
$ EXIT
$!
$ SET NOVERIFY
$ SET NOCONTROL_Y
$!
$ ON ERROR THEN GOTO EXIT
$ ON WARNING THEN GOTO EXIT
$!
$ SAY :== "WRITE SYS$OUTPUT"
$ ASK :== READ/PROMPT=
$ CL :== SET TERM/WIDTH=80
$ CL
$!
$ SAY "This process will generate individual FA award letters. "
$ SAY " "
$!
$! Prompt for award period selection
$!
$ENTER_PARM_AWPD:
$ READ SYS$COMMAND/TIME=60/END=EXIT/ERROR=EXIT/PROMPT= -
"Enter the award period >>> " AWPD
$ LEN_AWPD = F$LENGTH(AWPD)
$ IF LEN_AWPD .NE. 3 THEN GOTO ENTER_PARM_AWPD
$ YR_AWPD = F$EXTRACT(0,2,AWPD)
$ TYP_AWPD = F$TYPE(YR_AWPD)
$ PD_AWPD = F$EDIT(F$EXTRACT(2,1,AWPD),"UPCASE")
$ IF TYP_AWPD .NES. "INTEGER" THEN GOTO ENTER_PARM_AWPD
$ IF (PD_AWPD .NES. "A") .AND. (PD_AWPD .NES. "S") THEN GOTO ENTER_PARM_AWPD
$!
$! Create parameter file.
$!
$ OPEN/WRITE output_file SYS$LOGIN:SBA520_INDPRM.DAT
$!
$ WRITE output_file "PGM=SBA520,RUNTYPE=I,AWPD=" + YR_AWPD + PD_AWPD + ",ADDRPREF=P,"
$ WRITE output_file "RPTYPE=ALL-DISB,UPDATE=N,ADDRNAME=D,PRNTSEQ=A"
$ WRITE output_file "TX01 ..."
$ WRITE output_file "TX02 ..."
$ WRITE output_file "TX03 ..."
$ WRITE output_file "TX04 ..."
$ WRITE output_file "TX05"
$ WRITE output_file "RA01"
$ WRITE output_file "RA02"
$ WRITE output_file "RA03"
$ WRITE output_file "RA04"
$ WRITE output_file "SL..."
$!
$ CLOSE output_file
$!
$! Prompt for social security numbers.
$!
$FIRST_ASK:
$ ASK "Social Security Number <RETURN> or CONTROL-Z to exit : " -
/END=EXIT SYS$COMMAND SSN
$ IF SSN .EQS. "" THEN GOTO EXIT
$ IF (F$LENGTH(SSN) .NE. 9) .OR. (F$TYPE(SSN) .NES. "INTEGER")
$ THEN
$ SAY " "
$ SAY " "
$ SAY "Social Security Number must be 9 digits"
$ SAY " "
$ GOTO FIRST_ASK
$ ENDIF
$ OPEN/WRITE ssn_file SYS$LOGIN:SBA520_SSN.DAT
$WRITE_LOOP:
$ ssn_line = "ID " + F$STRING(SSN)
$ WRITE ssn_file ssn_line
$ASK:
$ ASK "Social Security Number <RETURN> or CONTROL-Z if no more SSN : " -
/END=CLOSE_FILE SYS$COMMAND SSN
$ IF SSN .EQS. "" THEN GOTO CLOSE_FILE
$ IF (F$LENGTH(SSN) .NE. 9) .OR. (F$TYPE(SSN) .NES. "INTEGER")
$ THEN
$ SAY " "
$ SAY " "
$ SAY "Social Security Number must be 9 digits"
$ SAY " "
$ GOTO ASK
$ ENDIF
$ GOTO WRITE_LOOP
$CLOSE_FILE:
$ CLOSE ssn_file
$!
$! Submit job and wait for program to finish.
$!
$ SUBMIT/NOPRINT/NOTIFY SI$COM:SJA520_IND
$ SYNCHRONIZE SJA520_IND
$ COPY Z$PRT:SBA520RPT.PRT; SYS$LOGIN:*.*;
$!
$! Clean up.
$!
$ DELETE/LOG SYS$LOGIN:SBA520_INDPRM.DAT;*
$ DELETE/LOG SYS$LOGIN:SJA520*.*;*
$ DELETE/LOG SYS$LOGIN:SBA520_SSN.DAT;*
$EXIT:
$!
$ SAY " "
$ SAY "All done..."
$ SAY " "
$!
$ SET DEFAULT SYS$LOGIN
$ EXIT
$!
$ SET NOVERIFY
$ SAY :== "WRITE SYS$OUTPUT"
$ ASK :== READ/END=END/PROMPT=
$ CL :== SET TERM/WIDTH=80
$ CL
$!
$ SAY "This process will set up SBA590 (DISBURSEMENT AUTHORIZATION). "
$ SAY " "
$!
$! Prompt for term.
$!
$ENTER_TERM:
$ READ SYS$COMMAND/TIME=60/END=EXIT/ERROR=EXIT/PROMPT= -
"Run Three Digit Term (YYX) >>> " TERMIN
$ LEN_TERM = F$LENGTH(TERMIN)
$ IF LEN_TERM .NE. 3 THEN GOTO ENTER_TERM
$ TYP_TERM = F$TYPE(TERMIN)
$ IF TYP_TERM .NES. "INTEGER" THEN GOTO ENTER_TERM
$!
$! Prompt to run in update.
$!
$ENTER_UPD:
$ SAY " "
$ SAY "Run In Update Mode? "
$ READ SYS$COMMAND/TIME=60/END=EXIT/ERROR=EXIT/PROMPT= -
"(1 - Update / 2 - Non-update) >>> " UPDIN
$ LEN_UPD = F$LENGTH(UPDIN)
$ IF LEN_UPD .NE. 1 THEN GOTO ENTER_UPD
$ TYP_UPD = F$TYPE(UPDIN)
$ IF TYP_UPD .NES. "INTEGER" THEN GOTO ENTER_UPD
$ IF (UPDIN .NE. 1) .AND. (UPDIN .NE. 2) THEN GOTO ENTER_UPD
$!
$! Create parameter file.
$!
$ OPEN/WRITE output_file SI$DATA:SBA590PRM.DAT
$!
$ IF (UPDIN .EQS. "1")
$ THEN
$ output_record = "PGM=SBA590,TERM=" + TERMIN + ",UPDATE=Y," + (SBA590 parameter record)
$ ENDIF
$!
$ IF (UPDIN .EQS. "2")
$ THEN
$ output_record = "PGM=SBA590,TERM=" + TERMIN + ",UPDATE=N," + (SBA590 parameter record)
$ ENDIF
$!
$ WRITE output_file output_record
$ CLOSE output_file
$!
$! Prompt for any additional users to send report to.
$!
$ USER = F$EDIT(F$GETJPI("","USERNAME"),"UPCASE,COLLAPSE")
$ GOSUB MAIL_OUTPUT_LIST
$!
$! Submit program to run.
$!
$ SUBMIT_TIME = """TODAY + 23:46"""
$!
$ PRM = "SI$DATA:SBA590PRM.DAT;"
$ PGM = "SBA590"
$ OUT_FILE = F$SEARCH(PRM)
$ PARM_LIST = "(SI$COM:SJA590," + PGM + "," + OUT_FILE + "," + PRM + ",0,0,0," + USERLIST + ")"
$!
$ IF (UPDIN .EQS. "1")
$ THEN
$ SUBMIT COM:SISRUNJOB -
/LOG=LOG:'PGM'.LOG/NOPRINT/NOTIFY -
/QUE=SYS$BATCH -
/AFTER='SUBMIT_TIME' -
/NAME= 'PGM' -
/PARAMETER = 'PARM_LIST'
$ ENDIF
$!
$ IF (UPDIN .EQS. "2")
$ THEN
$ SUBMIT COM:SISRUNJOB -
/LOG=LOG:'PGM'.LOG/NOPRINT/NOTIFY -
/QUE=SYS$BATCH -
/NAME= 'PGM' -
/PARAMETER = 'PARM_LIST'
$ ENDIF
$!
$ SHOW QUE SYS$BATCH
$ SAY " "
$ SAY " "
$ ASK "<RETURN> TO CONTINUE ... " SYS$COMMAND DUMMY
$!
$EXIT:
$!
$ SAY " "
$ SAY "All done..."
$ SAY " "
$!
$ SET DEFAULT SYS$LOGIN
$ EXIT
$!
$MAIL_OUTPUT_LIST:
$!
$ SAY " "
$ SAY " "
$ SAY " To send other users a copy of the report, answer Y to the next"
$ SAY " question and enter the name(s) of the all users who will get a copy."
$ SAY " The usernames need to be seperated by a comma. "
$ SAY " "
$ SAY " To send only to yourself then answer N to the next question."
$ SAY " "
$!
$ ASK "Do you want others to get the results [N] " SYS$COMMAND ANSWER
$ IF ANSWER
$ THEN
$ ASK "Enter the username(s) " SYS$COMMAND USERLIST
$ USERLIST= """" + USER + "," + F$EDIT(USERLIST,"COLLAPSE") + """"
$ ELSE
$ USERLIST = USER
$ ENDIF
$ RETURN
$!
$ SET NOVERIFY
$ SET NOCONTROL_Y
$!
$ ON ERROR THEN GOTO EXIT
$ ON WARNING THEN GOTO EXIT
$!
$ SAY :== "WRITE SYS$OUTPUT"
$ ASK :== READ/END=END/PROMPT=
$ CL :== SET TERM/WIDTH=80
$ CL
$!
$ SAY "This process will set up SBA610 (FA fiscal year fund report). "
$ SAY " "
$!
$! Prompt for fiscal year selection
$!
$ENTER_PARM_FSYR:
$ READ SYS$COMMAND/TIME=60/END=EXIT/ERROR=EXIT/PROMPT= -
"Enter the fiscal year >>> " FSYR
$ LEN_FSYR = F$LENGTH(FSYR)
$ IF LEN_FSYR .NE. 2 THEN GOTO ENTER_PARM_FSYR
$ TYP_FSYR = F$TYPE(FSYR)
$ IF TYP_FSYR .NES. "INTEGER" THEN GOTO ENTER_PARM_FSYR
$!
$! Create parameter file.
$!
$ OPEN/WRITE output_file SI$DATA:SBA605PRM.DAT
$!
$ output_record = "PGM=SBA605,FY=" + FSYR + ",UPDATE=Y"
$ WRITE output_file output_record
$!
$ CLOSE output_file
$!
$ OPEN/WRITE output_file SI$DATA:SBA610PRM.DAT
$!
$ output_record = "PGM=SBA610,FY=" + FSYR + ",RPTYPE=STD-DTL,PRNTSEQ=A,PGBRK=Y"
$ WRITE output_file output_record
$!
$ CLOSE output_file
$!
$! Submit program to run (SBA605).
$!
$ SUBMIT_TIME = """TODAY + 23:50"""
$ USER = F$EDIT(F$GETJPI("","USERNAME"),"UPCASE,COLLAPSE")
$!
$ PRM = "SI$DATA:SBA605PRM.DAT;"
$ PGM = "SBA605"
$ OUT_FILE = F$SEARCH(PRM)
$ PARM_LIST = "(SI$COM:SJA605," + PGM + "," + OUT_FILE + "," + PRM + ",0,0,0," + USER + ")"
$!
$ SUBMIT COM:SISRUNJOB -
/LOG=LOG:'PGM'.LOG/NOPRINT/NOTIFY -
/QUE=SYS$BATCH -
/AFTER='SUBMIT_TIME' -
/NAME= 'PGM' -
/PARAMETER = 'PARM_LIST'
$!
$! Submit program to run (SBA610).
$!
$ SUBMIT_TIME = """TODAY + 23:51"""
$ USER = F$EDIT(F$GETJPI("","USERNAME"),"UPCASE,COLLAPSE")
$!
$ PRM = "SI$DATA:SBA610PRM.DAT;"
$ PGM = "SBA610"
$ OUT_FILE = F$SEARCH(PRM)
$ PARM_LIST = "(SI$COM:SJA610," + PGM + "," + OUT_FILE + "," + PRM + ",0,0,0," + USER + ")"
$!
$ SUBMIT COM:SISRUNJOB -
/LOG=LOG:'PGM'.LOG/NOPRINT/NOTIFY -
/QUE=SYS$BATCH -
/AFTER='SUBMIT_TIME' -
/NAME= 'PGM' -
/PARAMETER = 'PARM_LIST'
$!
$ SHOW QUE SYS$BATCH
$ SAY " "
$ SAY " "
$ ASK "<RETURN> TO CONTINUE ... " SYS$COMMAND DUMMY
$!
$EXIT:
$!
$ SAY " "
$ SAY "All done..."
$ SAY " "
$!
$ SET DEFAULT SYS$LOGIN
$ EXIT
$!
$ SET NOVERIFY
$ SAY :== "WRITE SYS$OUTPUT"
$ ASK :== READ/END=END/PROMPT=
$ CL :== SET TERM/WIDTH=80
$ CL
$!
$ SAY "This process will set up RBA140 (SECTION STATUS SUMMARY). "
$ SAY " "
$!
$! Prompt for term
$!
$ENTER_TERM:
$ READ SYS$COMMAND/TIME=60/END=EXIT/ERROR=EXIT/PROMPT= -
"Run Three Digit Term (YYX) >>> " TERMIN
$ LEN_TERM = F$LENGTH(TERMIN)
$ IF LEN_TERM .NE. 3 THEN GOTO ENTER_TERM
$ TYP_TERM = F$TYPE(TERMIN)
$ IF TYP_TERM .NES. "INTEGER" THEN GOTO ENTER_TERM
$!
$! Create parameter file.
$!
$ OPEN/WRITE output_file SI$DATA:RBA140PRM.DAT
$!
$ output_record = "PGM=RBA140,TERM=" + TERMIN + "," + (RBA140 parameter record)
$ WRITE output_file output_record
$ CLOSE output_file
$!
$! Submit program to run.
$!
$ USER = F$EDIT(F$GETJPI("","USERNAME"),"UPCASE,COLLAPSE")
$!
$ PRM = "SI$DATA:RBA140PRM.DAT;"
$ PGM = "RBA140"
$ OUT_FILE = F$SEARCH(PRM)
$ PARM_LIST = "(SI$COM:RJA140," + PGM + "," + OUT_FILE + "," + PRM + ",0,0,0," + USER + ")"
$!
$ SUBMIT COM:SISRUNJOB -
/LOG=LOG:'PGM'.LOG/NOPRINT/NOTIFY -
/QUE=SYS$BATCH -
/NAME= 'PGM' -
/PARAMETER = 'PARM_LIST'
$!
$ SHOW QUE SYS$BATCH
$ SAY " "
$ SAY " "
$ ASK "<RETURN> TO CONTINUE ... " SYS$COMMAND DUMMY
$!
$EXIT:
$!
$ SAY " "
$ SAY "All done..."
$ SAY " "
$!
$ SET DEFAULT SYS$LOGIN
$ EXIT
This page hosted by 
Get your own Free Homepage