Created
August 20, 2012 09:15
-
-
Save kunday/3402567 to your computer and use it in GitHub Desktop.
Admit a Student
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| IDENTIFICATION DIVISION. | |
| PROGRAM-ID. ADMISSION. | |
| ENVIRONMENT DIVISION. | |
| CONFIGURATION SECTION. | |
| SOURCE-COMPUTER. SELAB. | |
| INPUT-OUTPUT SECTION. | |
| FILE-CONTROL. | |
| SELECT RANK-FILE ASSIGN TO DISK. | |
| SELECT COLLEGE-FILE ASSIGN TO DISK. | |
| DATA DIVISION. | |
| FILE SECTION. | |
| FD COLLEGE-FILE | |
| LABEL RECORD IS STANDARD | |
| VALUE OF FILE-ID "C:\TNEA\DATABASE\COLLEGE.DAT". | |
| 01 COLLEGE-RECORD. | |
| 02 COLLEGECODE PIC 9(3). | |
| 02 NC PIC X(30). | |
| 02 AC PIC X(50). | |
| 02 TN PIC 9(12). | |
| 02 EMAIL PIC X(30). | |
| 02 NP PIC X(20). | |
| 02 NMAN PIC X(20). | |
| 02 YEARSTART PIC 9(4). | |
| 02 CE PIC 9. | |
| 02 CH PIC 9. | |
| 02 CS PIC 9. | |
| 02 EC PIC 9. | |
| 02 EE PIC 9. | |
| 02 IT PIC 9. | |
| 02 ME PIC 9. | |
| 02 SCE PIC 99. | |
| 02 SCEFC PIC 99. | |
| 02 SCEBC PIC 99. | |
| 02 SCEMBC PIC 99. | |
| 02 SCESCST PIC 99. | |
| 02 SCH PIC 99. | |
| 02 SCHFC PIC 99. | |
| 02 SCHBC PIC 99. | |
| 02 SCHMBC PIC 99. | |
| 02 SCHSCST PIC 99. | |
| 02 SCS PIC 99. | |
| 02 SCSFC PIC 99. | |
| 02 SCSBC PIC 99. | |
| 02 SCSMBC PIC 99. | |
| 02 SCSSCST PIC 99. | |
| 02 SEC PIC 99. | |
| 02 SECFC PIC 99. | |
| 02 SECBC PIC 99. | |
| 02 SECMBC PIC 99. | |
| 02 SECSCST PIC 99. | |
| 02 SEE PIC 99. | |
| 02 SEEFC PIC 99. | |
| 02 SEEBC PIC 99. | |
| 02 SEEMBC PIC 99. | |
| 02 SEESCST PIC 99. | |
| 02 SIT PIC 99. | |
| 02 SITFC PIC 99. | |
| 02 SITBC PIC 99. | |
| 02 SITMBC PIC 99. | |
| 02 SITSCST PIC 99. | |
| 02 SME PIC 99. | |
| 02 SMEFC PIC 99. | |
| 02 SMEBC PIC 99. | |
| 02 SMEMBC PIC 99. | |
| 02 SMESCST PIC 99. | |
| 02 ADMISSIONFEE PIC 9(4). | |
| 02 YEARLYFEE PIC 9(5). | |
| FD RANK-FILE | |
| LABEL RECORDS ARE STANDARD | |
| VALUE OF FILE-ID IS "C:\TNEA\DATABASE\RANKFILE.DAT". | |
| 01 RANK-RECORD. | |
| 02 TNPCEENO PIC 9(7). | |
| 02 RANKNAME PIC X(20). | |
| 02 OVERALLRANK PIC 9(6). | |
| 02 COMMUNITYX PIC X(3). | |
| 02 COMRANK PIC 9(6). | |
| 02 CUTOFFRANK PIC 999V99. | |
| 02 COLLEGENAME PIC 999. | |
| 02 COURSENAME PIC X(20). | |
| 02 ADMIT PIC 9 . | |
| WORKING-STORAGE SECTION. | |
| 01 COLLEGECHOICE PIC 999. | |
| 01 CHOICE PIC 9. | |
| 77 tim pic 9(8). | |
| 77 thh pic zz. | |
| 77 tmp pic 9(8). | |
| 77 tmin pic zz. | |
| SCREEN SECTION. | |
| 01 CLEAR. | |
| 05 BLANK SCREEN BACKGROUND-COLOR 0 | |
| FOREGROUND-COLOR 7. | |
| 01 BORDER1. | |
| 02 LINE 2 COLUMN 2 PIC X(78) FROM ALL "Í" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 24 COLUMN 2 PIC X(78) FROM ALL "Í" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 2 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 3 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 4 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 5 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 6 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 7 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 8 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 9 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 10 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 11 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 12 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 13 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 14 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 15 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 16 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 17 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 18 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 19 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 20 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 21 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 22 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 23 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 2 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 3 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 4 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 5 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 6 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 7 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 8 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 9 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 10 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 11 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 12 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 13 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 14 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 15 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 16 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 17 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 18 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 19 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 20 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 21 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 22 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 23 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 2 COLUMN 1 VALUE "É" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 2 COLUMN 80 VALUE "»" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 24 COLUMN 1 VALUE "È" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 24 COLUMN 80 VALUE "¼" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 22 COLUMN 5 VALUE "<<-Back(1)" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 22 COLUMN 65 VALUE "Next(2)->>" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 12 COLUMN 38 VALUE "Choice( )" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 01 BORDER2. | |
| 02 LINE 2 COLUMN 2 PIC X(78) FROM ALL "Í" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 24 COLUMN 2 PIC X(78) FROM ALL "Í" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 2 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 3 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 4 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 5 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 6 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 7 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 8 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 9 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 10 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 11 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 12 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 13 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 14 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 15 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 16 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 17 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 18 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 19 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 20 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 21 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 22 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 23 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 2 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 3 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 4 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 5 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 6 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 7 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 8 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 9 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 10 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 11 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 12 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 13 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 14 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 15 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 16 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 17 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 18 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 19 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 20 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 21 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 22 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 23 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 2 COLUMN 1 VALUE "É" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 2 COLUMN 80 VALUE "»" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 24 COLUMN 1 VALUE "È" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 24 COLUMN 80 VALUE "¼" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 22 COLUMN 30 VALUE "ENTER TO CONTINUE" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7 | |
| HIGHLIGHT. | |
| 01 BORDER3. | |
| 02 LINE 2 COLUMN 2 PIC X(78) FROM ALL "Í" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 24 COLUMN 2 PIC X(78) FROM ALL "Í" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 5 COLUMN 2 PIC X(78) FROM ALL "Í" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 2 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 3 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 4 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 5 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 6 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 7 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 8 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 9 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 10 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 11 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 12 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 13 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 14 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 15 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 16 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 17 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 18 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 19 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 20 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 21 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 22 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 23 COLUMN 1 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 2 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 3 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 4 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 5 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 6 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 7 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 8 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 9 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 10 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 11 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 12 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 13 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 14 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 15 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 16 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 17 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 18 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 19 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 20 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 21 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 22 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 23 COLUMN 80 VALUE "º" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 2 COLUMN 1 VALUE "É" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 2 COLUMN 80 VALUE "»" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 24 COLUMN 1 VALUE "È" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| 02 LINE 24 COLUMN 80 VALUE "¼" | |
| FOREGROUND-COLOR 0 BACKGROUND-COLOR 7. | |
| PROCEDURE DIVISION. | |
| SHREKIN. | |
| DISPLAY (1, 1) ERASE. | |
| DISPLAY CLEAR. | |
| DISPLAY BORDER1. | |
| DISPLAY (5, 4) "TNEA ADMISSIONS 2005". | |
| DISPLAY (6, 4) "ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ". | |
| accept tim from time. | |
| divide 1000000 into tim giving thh remainder tmp. | |
| divide 10000 into tmp giving tmin. | |
| DISPLAY (3, 70) THH " : " TMIN. | |
| ACCEPT (12, 45) CHOICE. | |
| IF CHOICE = 1 | |
| CHAIN "MAIN.EXE" | |
| ELSE | |
| OPEN I-O RANK-FILE. | |
| DISPLAY (1, 1) ERASE. | |
| DISPLAY CLEAR. | |
| DISPLAY BORDER2. | |
| DISPLAY (5, 4) "TNEA ADMISSIONS 2005". | |
| DISPLAY (6, 4) "ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ". | |
| accept tim from time. | |
| divide 1000000 into tim giving thh remainder tmp. | |
| divide 10000 into tmp giving tmin. | |
| DISPLAY (3, 70) THH " : " TMIN. | |
| AD-PARA-1. | |
| READ RANK-FILE AT END | |
| DISPLAY (12, 30) "NO MORE APPLICANTS" | |
| DISPLAY (16, 30) "END OF ADMISSIONS " | |
| CLOSE RANK-FILE | |
| ACCEPT CHOICE | |
| GO TO SHREKIN. | |
| GO TO AD-PARA-2. | |
| AD-PARA-2. | |
| IF ADMIT = 0 | |
| GO TO AD-PARA-1. | |
| DISPLAY CLEAR. | |
| DISPLAY BORDER2. | |
| accept tim from time. | |
| divide 1000000 into tim giving thh remainder tmp. | |
| divide 10000 into tmp giving tmin. | |
| DISPLAY (3, 70) THH " : " TMIN. | |
| DISPLAY (4, 30) "CALLED APPLICANT". | |
| DISPLAY (7, 30) "TNPCEE NO :" TNPCEENO. | |
| DISPLAY (9, 30) "RANK NO :" RANKNAME. | |
| DISPLAY (11, 30) "CUTOFF :" CUTOFFRANK. | |
| DISPLAY (13, 30) "OVERALL RANK :" OVERALLRANK. | |
| DISPLAY (15, 30) "COMMUNITY :" COMMUNITYX. | |
| DISPLAY (17, 30) "COMMUNITY RANK:" COMRANK. | |
| ACCEPT CHOICE. | |
| OPEN INPUT COLLEGE-FILE. | |
| DISPLAY (1, 1)ERASE. | |
| HEADER-PARA. | |
| DISPLAY (1, 1) ERASE. | |
| DISPLAY CLEAR. | |
| DISPLAY BORDER3. | |
| accept tim from time. | |
| divide 1000000 into tim giving thh remainder tmp. | |
| divide 10000 into tmp giving tmin. | |
| DISPLAY (3, 70) THH " : " TMIN. | |
| DISPLAY (4, 2) "NAME". | |
| DISPLAY (4, 35) "CODE". | |
| DISPLAY (4, 44) "PHONE-NO". | |
| DISPLAY (4, 60) "PRINCIPAL". | |
| COMPUTE LIN = 7. | |
| GO TO DISPLAY1-PARA. | |
| DISPLAY1-PARA. | |
| READ COLLEGE-FILE AT END | |
| CLOSE COLLEGE-FILE | |
| GO TO XX. | |
| GO TO DISPLAY2-PARA. | |
| DISPLAY2-PARA. | |
| DISPLAY (LIN, 3) NC. | |
| DISPLAY (LIN, 35) COLLEGECODE. | |
| DISPLAY (LIN, 45) TN. | |
| DISPLAY (LIN, 61) NP. | |
| COMPUTE LIN = LIN + 1. | |
| IF LIN = 22 | |
| ACCEPT CHOICE | |
| GO TO HEADER-PARA | |
| ELSE | |
| GO TO DISPLAY1-PARA. | |
| ACCEPT COLLEGECHOICE. | |
| GO TO AD-PARA-1. | |
| XX. | |
| DISPLAY (20, 30) "COLLEGE CODE ::" | |
| ACCEPT (20, 50) COLLEGECHOICE. | |
| OPEN I-O COLLEGE-FILE. | |
| AD-PARA-3. | |
| READ COLLEGE-FILE AT END | |
| CLOSE COLLEGE-FILE | |
| CLOSE RANK-FILE | |
| GO TO SHREKIN. | |
| IF COLLEGECHOICE = COLLEGECODE | |
| GO TO ADMITTING | |
| ELSE | |
| ACCEPT CHOICE | |
| GO TO AD-PARA-3. | |
| ADMITTING. | |
| DISPLAY NC. | |
| DISPLAY (1, 1) ERASE. | |
| DISPLAY CLEAR. | |
| DISPLAY BORDER3. | |
| DISPLAY (3, 10) "NAME OF COLLEGE ::" NC. | |
| accept tim from time. | |
| divide 1000000 into tim giving thh remainder tmp. | |
| divide 10000 into tmp giving tmin. | |
| DISPLAY (3, 70) THH " : " TMIN. | |
| DISPLAY (6, 7) "CIVIL ENGINEERING". | |
| DISPLAY (6, 4) "1->". | |
| DISPLAY (6, 32) SCE. | |
| DISPLAY (6, 35) SCEFC. | |
| DISPLAY (6, 38) SCEBC. | |
| DISPLAY (6, 41) SCEMBC. | |
| DISPLAY (6, 45) SCESCST. | |
| DISPLAY (7, 7) "CHEMICAL ". | |
| DISPLAY (7, 4) "2->". | |
| DISPLAY (7, 32) SCH. | |
| DISPLAY (7, 35) SCHFC. | |
| DISPLAY (7, 38) SCHBC. | |
| DISPLAY (7, 41) SCHMBC. | |
| DISPLAY (7, 45) SCHSCST. | |
| DISPLAY (8, 7) "COMPUTER SCIENCE". | |
| DISPLAY (8, 4) "3->". | |
| DISPLAY (8, 32) SCS. | |
| DISPLAY (8, 35) SCSFC. | |
| DISPLAY (8, 38) SCSBC. | |
| DISPLAY (8, 41) SCSMBC. | |
| DISPLAY (8, 45) SCSSCST. | |
| DISPLAY (9, 7) "ELECTRONICAL COMMUNICATION". | |
| DISPLAY (9, 4) "4->". | |
| DISPLAY (9, 32) SEC. | |
| DISPLAY (9, 35) SECFC. | |
| DISPLAY (9, 38) SECBC. | |
| DISPLAY (9, 41) SECMBC. | |
| DISPLAY (9, 45) SECSCST. | |
| DISPLAY (10, 7) "ELECTRICAL AND ELECTRONICS". | |
| DISPLAY (10, 4) "5->". | |
| DISPLAY (10, 32) SEE. | |
| DISPLAY (10, 35) SEEFC. | |
| DISPLAY (10, 38) SEEBC. | |
| DISPLAY (10, 41) SEEMBC. | |
| DISPLAY (10, 45) SEESCST. | |
| DISPLAY (11, 7) "INFORMATION TECHNOLOGY". | |
| DISPLAY (11, 4) "6->". | |
| DISPLAY (11, 32) SIT. | |
| DISPLAY (11, 35) SITFC. | |
| DISPLAY (11, 38) SITBC. | |
| DISPLAY (11, 41) SITMBC. | |
| DISPLAY (11, 45) SITSCST. | |
| DISPLAY (12, 7) "MECHANICAL". | |
| DISPLAY (12, 4) "7->". | |
| DISPLAY (12, 32) SME. | |
| DISPLAY (12, 35) SMEFC. | |
| DISPLAY (12, 38) SMEBC. | |
| DISPLAY (12, 41) SMEMBC. | |
| DISPLAY (12, 45) SMESCST. | |
| ACCEPT CHOICE. | |
| DISPLAY CHOICE. | |
| IF CHOICE = 1 | |
| GO TO ADMIT-CE | |
| ELSE IF CHOICE = 2 | |
| GO TO ADMIT-CH | |
| ELSE IF CHOICE = 3 | |
| GO TO ADMIT-CS | |
| ELSE IF CHOICE = 4 | |
| GO TO ADMIT-EC | |
| ELSE IF CHOICE = 5 | |
| GO TO ADMIT-EE | |
| ELSE IF CHOICE = 6 | |
| GO TO ADMIT-IT | |
| ELSE IF CHOICE = 7 | |
| GO TO ADMIT-ME | |
| ELSE | |
| GO TO XXX. | |
| ADMIT-CE. | |
| IF COMMUNITYX = "FC" AND SCEFC > 0 | |
| COMPUTE SCEFC = SCEFC - 1 | |
| COMPUTE SCE = SCE - 1 | |
| MOVE 0 TO ADMIT | |
| MOVE COLLEGECHOICE TO COLLEGENAME | |
| MOVE "CIVIL ENGINEERING" TO COURSENAME | |
| ELSE IF COMMUNITYX = "BC" AND SCEBC > 0 | |
| COMPUTE SCEBC = SCEBC - 1 | |
| COMPUTE SCE = SCE - 1 | |
| MOVE 0 TO ADMIT | |
| MOVE COLLEGECHOICE TO COLLEGENAME | |
| MOVE "CIVIL ENGINEERING" TO COURSENAME | |
| ELSE IF COMMUNITYX = "MBC" AND SCEMBC > 0 | |
| COMPUTE SCEMBC = SCEMBC - 1 | |
| COMPUTE SCE = SCE - 1 | |
| MOVE 0 TO ADMIT | |
| MOVE COLLEGECHOICE TO COLLEGENAME | |
| MOVE "CIVIL ENGINEERING" TO COURSENAME | |
| ELSE IF COMMUNITYX = "SC" AND SCESCST > 0 | |
| COMPUTE SCESCST = SCESCST - 1 | |
| COMPUTE SCE = SCE - 1 | |
| MOVE 0 TO ADMIT | |
| MOVE COLLEGECHOICE TO COLLEGENAME | |
| MOVE "CIVIL ENGINEERING" TO COURSENAME | |
| ELSE | |
| DISPLAY "SEATS WAS NOT AVAILABLE IN THE SPECIFIED CATEGORY" | |
| GO TO ADMITTING. | |
| GO TO XXX. | |
| ADMIT-CH. | |
| IF COMMUNITYX = "FC" AND SCHFC > 0 | |
| COMPUTE SCHFC = SCHFC - 1 | |
| COMPUTE SCH = SCH - 1 | |
| MOVE 0 TO ADMIT | |
| MOVE COLLEGECHOICE TO COLLEGENAME | |
| MOVE "CHEMICAL ENGINEERING" TO COURSENAME | |
| ELSE IF COMMUNITYX = "BC" AND SCHBC > 0 | |
| COMPUTE SCHBC = SCHBC - 1 | |
| COMPUTE SCH = SCH - 1 | |
| MOVE 0 TO ADMIT | |
| MOVE COLLEGECHOICE TO COLLEGENAME | |
| MOVE "CHEMICAL ENGINEERING" TO COURSENAME | |
| ELSE IF COMMUNITYX = "MBC" AND SCHMBC > 0 | |
| COMPUTE SCHMBC = SCHMBC - 1 | |
| COMPUTE SCH = SCH - 1 | |
| MOVE 0 TO ADMIT | |
| MOVE COLLEGECHOICE TO COLLEGENAME | |
| MOVE "CIVIL ENGINEERING" TO COURSENAME | |
| ELSE IF COMMUNITYX = "SC" AND SCHSCST > 0 | |
| COMPUTE SCHSCST = SCHSCST - 1 | |
| COMPUTE SCH = SCH - 1 | |
| MOVE 0 TO ADMIT | |
| MOVE COLLEGECHOICE TO COLLEGENAME | |
| MOVE "CIVIL ENGINEERING" TO COURSENAME | |
| ELSE | |
| DISPLAY "SEATS WAS NOT AVAILABLE IN THE SPECIFIED CATEGORY" | |
| GO TO ADMITTING. | |
| GO TO XXX. | |
| ADMIT-CS. | |
| IF COMMUNITYX = "FC" AND SCSFC > 0 | |
| COMPUTE SCSFC = SCSFC - 1 | |
| COMPUTE SCS = SCS - 1 | |
| MOVE 0 TO ADMIT | |
| MOVE COLLEGECHOICE TO COLLEGENAME | |
| MOVE "CIVIL ENGINEERING" TO COURSENAME | |
| ELSE IF COMMUNITYX = "BC" AND SCSBC > 0 | |
| COMPUTE SCSBC = SCSBC - 1 | |
| COMPUTE SCS = SCS - 1 | |
| MOVE 0 TO ADMIT | |
| MOVE COLLEGECHOICE TO COLLEGENAME | |
| MOVE "CIVIL ENGINEERING" TO COURSENAME | |
| ELSE IF COMMUNITYX = "MBC" AND SCSMBC > 0 | |
| COMPUTE SCSMBC = SCSMBC - 1 | |
| COMPUTE SCS = SCS - 1 | |
| MOVE 0 TO ADMIT | |
| MOVE COLLEGECHOICE TO COLLEGENAME | |
| MOVE "CIVIL ENGINEERING" TO COURSENAME | |
| ELSE IF COMMUNITYX = "SC" AND SCSSCST > 0 | |
| COMPUTE SCSSCST = SCSSCST - 1 | |
| COMPUTE SCS = SCS - 1 | |
| MOVE 0 TO ADMIT | |
| MOVE COLLEGECHOICE TO COLLEGENAME | |
| MOVE "CIVIL ENGINEERING" TO COURSENAME | |
| ELSE | |
| DISPLAY "SEATS WAS NOT AVAILABLE IN THE SPECIFIED CATEGORY" | |
| GO TO ADMITTING. | |
| GO TO XXX. | |
| ADMIT-EC. | |
| IF COMMUNITYX = "FC" AND SECFC > 0 | |
| COMPUTE SECFC = SECFC - 1 | |
| COMPUTE SEC = SEC - 1 | |
| MOVE 0 TO ADMIT | |
| MOVE COLLEGECHOICE TO COLLEGENAME | |
| MOVE "CIVIL ENGINEERING" TO COURSENAME | |
| ELSE IF COMMUNITYX = "BC" AND SECBC > 0 | |
| COMPUTE SECBC = SECBC - 1 | |
| COMPUTE SEC = SEC - 1 | |
| MOVE 0 TO ADMIT | |
| MOVE COLLEGECHOICE TO COLLEGENAME | |
| MOVE "CIVIL ENGINEERING" TO COURSENAME | |
| ELSE IF COMMUNITYX = "MBC" AND SECMBC > 0 | |
| COMPUTE SECMBC = SECMBC - 1 | |
| COMPUTE SEC = SEC - 1 | |
| MOVE 0 TO ADMIT | |
| MOVE COLLEGECHOICE TO COLLEGENAME | |
| MOVE "CIVIL ENGINEERING" TO COURSENAME | |
| ELSE IF COMMUNITYX = "SC" AND SECSCST > 0 | |
| COMPUTE SECSCST = SECSCST - 1 | |
| COMPUTE SEC = SEC - 1 | |
| MOVE 0 TO ADMIT | |
| MOVE COLLEGECHOICE TO COLLEGENAME | |
| MOVE "CIVIL ENGINEERING" TO COURSENAME | |
| ELSE | |
| DISPLAY "SEATS WAS NOT AVAILABLE IN THE SPECIFIED CATEGORY" | |
| GO TO ADMITTING. | |
| GO TO XXX. | |
| ADMIT-EE. | |
| IF COMMUNITYX = "FC" AND SEEFC > 0 | |
| COMPUTE SEEFC = SEEFC - 1 | |
| COMPUTE SEE = SEE - 1 | |
| MOVE 0 TO ADMIT | |
| MOVE COLLEGECHOICE TO COLLEGENAME | |
| MOVE "CIVIL ENGINEERING" TO COURSENAME | |
| ELSE IF COMMUNITYX = "BC" AND SEEBC > 0 | |
| COMPUTE SEEBC = SEEBC - 1 | |
| COMPUTE SEE = SEE - 1 | |
| MOVE 0 TO ADMIT | |
| MOVE COLLEGECHOICE TO COLLEGENAME | |
| MOVE "CIVIL ENGINEERING" TO COURSENAME | |
| ELSE IF COMMUNITYX = "MBC" AND SEEMBC > 0 | |
| COMPUTE SEEMBC = SEEMBC - 1 | |
| COMPUTE SEE = SEE - 1 | |
| MOVE 0 TO ADMIT | |
| MOVE COLLEGECHOICE TO COLLEGENAME | |
| MOVE "CIVIL ENGINEERING" TO COURSENAME | |
| ELSE IF COMMUNITYX = "SC" AND SEESCST > 0 | |
| COMPUTE SEESCST = SEESCST - 1 | |
| COMPUTE SEE = SEE - 1 | |
| MOVE 0 TO ADMIT | |
| MOVE COLLEGECHOICE TO COLLEGENAME | |
| MOVE "CIVIL ENGINEERING" TO COURSENAME | |
| ELSE | |
| DISPLAY "SEATS WAS NOT AVAILABLE IN THE SPECIFIED CATEGORY" | |
| GO TO ADMITTING. | |
| GO TO XXX. | |
| ADMIT-IT. | |
| IF COMMUNITYX = "FC" AND SITFC > 0 | |
| COMPUTE SITFC = SITFC - 1 | |
| COMPUTE SIT = SIT - 1 | |
| MOVE 0 TO ADMIT | |
| MOVE COLLEGECHOICE TO COLLEGENAME | |
| MOVE "CIVIL ENGINEERING" TO COURSENAME | |
| ELSE IF COMMUNITYX = "BC" AND SITBC > 0 | |
| COMPUTE SITBC = SITBC - 1 | |
| COMPUTE SIT = SIT - 1 | |
| MOVE 0 TO ADMIT | |
| MOVE COLLEGECHOICE TO COLLEGENAME | |
| MOVE "CIVIL ENGINEERING" TO COURSENAME | |
| ELSE IF COMMUNITYX = "MBC" AND SITMBC > 0 | |
| COMPUTE SITMBC = SITMBC - 1 | |
| COMPUTE SIT = SIT - 1 | |
| MOVE 0 TO ADMIT | |
| MOVE COLLEGECHOICE TO COLLEGENAME | |
| MOVE "CIVIL ENGINEERING" TO COURSENAME | |
| ELSE IF COMMUNITYX = "SC" AND SITSCST > 0 | |
| COMPUTE SITSCST = SITSCST - 1 | |
| COMPUTE SIT = SIT - 1 | |
| MOVE 0 TO ADMIT | |
| MOVE COLLEGECHOICE TO COLLEGENAME | |
| MOVE "CIVIL ENGINEERING" TO COURSENAME | |
| ELSE | |
| DISPLAY "SEATS WAS NOT AVAILABLE IN THE SPECIFIED CATEGORY" | |
| GO TO ADMITTING. | |
| GO TO XXX. | |
| ADMIT-ME. | |
| IF COMMUNITYX = "FC" AND SMEFC > 0 | |
| COMPUTE SMEFC = SMEFC - 1 | |
| COMPUTE SME = SME - 1 | |
| MOVE 0 TO ADMIT | |
| MOVE COLLEGECHOICE TO COLLEGENAME | |
| MOVE "CIVIL ENGINEERING" TO COURSENAME | |
| ELSE IF COMMUNITYX = "BC" AND SMEBC > 0 | |
| COMPUTE SMEBC = SMEBC - 1 | |
| COMPUTE SME = SME - 1 | |
| MOVE 0 TO ADMIT | |
| MOVE COLLEGECHOICE TO COLLEGENAME | |
| MOVE "CIVIL ENGINEERING" TO COURSENAME | |
| ELSE IF COMMUNITYX = "MBC" AND SMEMBC > 0 | |
| COMPUTE SMEMBC = SMEMBC - 1 | |
| COMPUTE SME = SME - 1 | |
| MOVE 0 TO ADMIT | |
| MOVE COLLEGECHOICE TO COLLEGENAME | |
| MOVE "CIVIL ENGINEERING" TO COURSENAME | |
| ELSE IF COMMUNITYX = "SC" AND SMESCST > 0 | |
| COMPUTE SMESCST = SMESCST - 1 | |
| COMPUTE SME = SME - 1 | |
| MOVE 0 TO ADMIT | |
| MOVE COLLEGECHOICE TO COLLEGENAME | |
| MOVE "CIVIL ENGINEERING" TO COURSENAME | |
| ELSE | |
| DISPLAY "SEATS WAS NOT AVAILABLE IN THE SPECIFIED CATEGORY" | |
| GO TO ADMITTING. | |
| GO TO XXX. | |
| XXX. | |
| accept choice. | |
| REWRITE COLLEGE-RECORD. | |
| REWRITE RANK-RECORD. | |
| CLOSE RANK-FILE. | |
| CLOSE COLLEGE-FILE. | |
| GO TO SHREKIN. |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment