Program Changes

 

4000-PROCESS-ROUTINE SECTION. 4000-PR-000. ** ** THIS IS THE MAIN PROCESSING ROUTINE ** IF THE USER OPTS TO PRINT LETTERS FOR ** SPECIFIED, QUALIFIED STUDENTS. THIS ** ROUTINE IS USED WHEN THE RUNTYPE PARAMETERS ** VALUE IS 'I' AND THE USER SUBMITS A FILE ** OF STUDENT ID RECORDS (SIIDFL). ** MOVE PR-MAX-LINES TO PR-LINE-COUNT. OPEN INPUT STUDENT-ID-FILE. IF FILE-STAT NOT = "00" AND "10" AND "13" MOVE "A0001" TO PR-MSG-AREA MOVE "OPEN" TO PR-MP2-1 MOVE "SIIDFL" TO PR-MP2-2 MOVE FILE-STAT TO PR-MP2-3 MOVE "Y" TO PR-MSG MOVE "P" TO PR-MSG-COMMAND-CODE MOVE "01" TO PR-CTL PERFORM 9970-PRINT-ROUTINE THRU 9970-PR-EXIT MOVE "4000-PR-000" TO ABORT-PARA GO TO 9999-ABORT-ROUTINE. MOVE "SIIDFL" TO CT-F1-ID. ADD 1 TO CT-F1-O. MOVE "N" TO SIID-SW. ** 4000-PR-010. PERFORM 11000-COMMIT. ** MOVE SPACES TO AA-NAME HOLD-ZIP . . . ** IF AA-RTN NOT = SUCCESSFUL MOVE "A0003" TO PR-MSG-AREA MOVE AA-NOMINAL-KEY TO PR-MSG-PARM-4 MOVE AA-FILE-CODE TO PR-MP4-3 MOVE SA-FILE-CODE TO PR-MP4-4 MOVE "Y" TO PR-MSG MOVE "P" TO PR-MSG-COMMAND-CODE MOVE "01" TO PR-CTL PERFORM 9970-PRINT-ROUTINE THRU 9970-PR-EXIT MOVE "4000-PR-010" TO ABORT-PARA GO TO 9999-ABORT-ROUTINE. ** ** PERFORM 5010-SELECT-ID THRU 5010-SI-EXIT. IF SELECT-SW = "N" GO TO 4000-PR-010. ** ***Print letter irregardless of hold status. ***MOD BEGINS ** **DD IF AA-SR-HOLDS-FAM > ZERO **DD PERFORM 8850-CHECK-HOLD-FLAGS **DD IF A-USER-ELIGIBLE = "N" **DD GO TO 4000-PR-010. ***MOD ENDS ** ** THIS STUDENT HAS A PACKAGING SEGMENT WITH ** VALUES CORRESPONDING TO THE REQUIREMENTS ** SUBMITTED BY THE USER. DETERMINE WHETHER ** THE STUDENT'S SWFILE DATA ARE VALID FOR THE ** USER'S CHOICE. ** MOVE SPACES TO AWARD-MESSAGES-TABLE. MOVE "N" TO AFF-SW. MOVE "N" TO ACP-SW. IF SA-PK-AWD-AMT (SA-PK) NOT = ZERO PERFORM 5030-TABLE-AWARDS THRU 5030-TA-EXIT. 4010-GENERIC-ROUTINE SECTION. 4010-GR-010. ** ** COME HERE IF THE USER REQUESTED THAT THE ** PROGRAM CHECK EVERY SAFILE STUDENT ID FOR ** AWARD LETTER QUALIFICATIONS (RUNTYPE = 'G'). ** ** ** FIRST, VERIFY THAT THE AWARD PERIOD INPUT ON THE ** CONTROL CARD IS VALID FOR THE INSTITUTION INPUT. ** MOVE PM-AWPD TO SRCH-AWPD-ID. MOVE PRT-RET TO SRCH-ACTION-CODE. PERFORM 8920-SEARCH-AWARD-PERIOD-TABLE. IF SRCH-RTN-CODE NOT = SUCCESSFUL GO TO 4010-GR-EXIT. ** MOVE TBL-AW-AY (TBLAWX) TO PM-YR. ** MOVE PR-MAX-LINES TO PR-LINE-COUNT. MOVE SPACE TO HOLD-ZIP. ** ** FILL IN THE NECESSARY FIELDS FOR A ** GENERIC READ OF THE SAFILE FOR THE SELECTED ** AWARD YEAR. ** MOVE GENERIC-READ TO SA-CMD. MOVE SPACES TO SA-NOMINAL-KEY. MOVE PM-YR TO SA-NK-AWD-YR. ** 4010-GR-015. ** ** ** GENERICALLY READ THE SAFILE. ** MOVE SA-VIEW TO A-DBMS-INFO. PERFORM 8100-SA-IO. . . . ** ** RANDOMLY READ THE AAFILE FOR THIS SID. ** MOVE AA-VIEW-SSN TO A-DBMS-INFO. MOVE SA-SID TO AA-NK-SID. MOVE RANDOM-READ TO AA-CMD. PERFORM 8100-AA-IO. IF AA-RTN NOT = SUCCESSFUL MOVE "A0003" TO PR-MSG-AREA MOVE AA-NOMINAL-KEY TO PR-MSG-PARM-4 MOVE AA-FILE-CODE TO PR-MP4-3 MOVE SA-FILE-CODE TO PR-MP4-4 MOVE "Y" TO PR-MSG MOVE "P" TO PR-MSG-COMMAND-CODE MOVE "01" TO PR-CTL PERFORM 9970-PRINT-ROUTINE THRU 9970-PR-EXIT MOVE "4010-PR-030" TO ABORT-PARA GO TO 9999-ABORT-ROUTINE. ** ***Print letter irregardless of hold status. ***MOD BEGINS ** **DD IF AA-SR-HOLDS-FAM > ZERO **DD PERFORM 8850-CHECK-HOLD-FLAGS **DD IF A-USER-ELIGIBLE = "N" **DD GO TO 4010-GR-020. ***MOD ENDS ** IF SELECT-SW = "Y" MOVE SPACES TO AWARD-MESSAGES-TABLE MOVE "N" TO AFF-SW MOVE "N" TO ACP-SW IF SA-PK-AWD-AMT (SA-PK) NOT = ZERO PERFORM 5030-TABLE-AWARDS THRU 5030-TA-EXIT. ** IF SELECT-SW = "N" GO TO 4010-GR-020. 5040-HP-030. IF AWA-MAIL-ZIP = LOW-VALUES MOVE ZEROES TO HOLD-ZIP . . . ** ** PERFORM THE SECTION WHICH MOVES THE SAFILE ** BUDGET/PACKAGING AMOUNT TITLES AND THEIR ** CORRESPONDING AMOUNTS INTO THE TABLE. ** ***Modification given by SCT to prevent budget ***information from printing on award letters. ***MOD BEGINS **DD PERFORM 5067-AMT-MOVE THRU 5067-AM-EXIT. **DD** **DD IF AP-INX > 1 **DD SET AL-INX TO 38. IF AP-INX > 1 SET AL-INX TO 28. ***MOD ENDS 5040-HP-EXIT. EXIT.

 

 

This page hosted by Get your own Free Homepage

1
Hosted by www.Geocities.ws