0.009/21/98 MYRA MAIORANA 1.0 PROGRAM NARRATIVE ----------------- THIS PROGRAM IS USED FOR MAKING CHANGES TO THE AKT FILES AFTER THE INITIAL RECORDS HAVE BEEN SENT TO RICHMOND AND THE CORRECTIONS HAVE BEEN MADE TO REAL AND CENSUS DATA BASES. BEFORE ADDING A CORRECTED AKT RECORD, A DELETE RECORD MUST BE PROCESSED TO REMOVE THE EXISTING ERROR RECORD. THE DELETE RECORD IS FORMATTED AS FOLLOWS: IN THE 1ST COLUMN A 'D'. IN THE 2ND COLUMN THE TYPE OF RECORD TO BE DELETED, AN 'A', 'K' OR 'T'. IN THE 3RD THRU 7TH COLUMN THE RECORD IDENTIFICATION NUMBER DISPLAYED ON THE EDIT LISTING RETURNED FROM VCCS. THE REMAINDER OF THE DELETE RECORD IS BLANK. TO ADD AN 'A' RECORD, ONLY THE STUDENT'S SOCIAL-SECURITY NUMBER IS INPUT ALONG WITH THE RECORD TYPE (A). DATA FOR THE 'A' RECORD IS RETRIEVED FROM THE STUDENTM SEGMENT. TO ADD A 'K' RECORD, THE CLASS-ID IS INPUT ALONG WITH THE RECORD TYPE (K). DATA FOR THE 'K' RECORD IS RETRIEVED FROM THE CLSMASTR SEGMENT, CLSDETAL SEGMENT, INSTRUCR SEGMENT AND CRSDEPT SEGMENT. A 'T' RECORD CAN BE ADDED FOR A STUDENT'S INDIVIDUAL CLASS OR FOR ALL THE STUDENT'S CLASSES PERTAINING TO THAT TERM. WHEN CREATING A 'T' RECORD FOR AN INDIVIDUAL CLASS, THE STUDENT'S SOCIAL-SECURITY NUMBER, CLASS-ID AND RECORD TYPE (T) ARE INPUT. WHEN CREATING 'T' RECORDS FOR ALL THE STUDENT'S CLASSES FOR THE TERM, ONLY THE SOCIAL-SECURITY NUMBER AND THE RECORD TYPE (T) IS INPUT. DATA FOR THE 'T' RECORD IS RETRIEVED FROM THE STUDENTM SEGMENT, STUREGIS SEGMENT AND THE CRSDEPT SEGMENT. INPUT DATA IS PASSED TO THE PROGRAM ON THE PARM-CARD FOLLOW- ING THE TERM-YEAR INPUT. A TEMPORARY DISC FILE IS BUILT CONTAINING THE DELETE RECORDS AND THOSE CORRECTED AKT RECORDS. THE FILE IS SENT TO VCCS USING BULK DATA TRANSFER. VCCSRA3 IS PROCESSED USING THE TEMPORARY FILE AGAINST THE ALREADY CREATED AGENCY'S AKT FILE. A SPECIAL OPTION CHECK IS AVAILABLE FOR THE NURSING CURRICULUM CODE OF '156' WITH A CURR-LEVEL OF '5'. THESE STUDENT TYPES WILL HAVE A '029' (RESTRICTED ENROLLMENT) CODED IN THEIR ADM101 CARD. THE CHECK IS ALSO AGAINST STUDENT TYPES WITH A CURRICULUM > '099' AND A CURR-LEVEL OF '5'. THESE STUDENTS WILL HAVE A '028' (PENDING CURR APPROVAL) CODED IN THEIR ADM101 CARD. TO USE THE CURRICULUM OPTION CHECK, CODE A 'YES' IN THE SELECT-SPEC-CURR FIELD OF PARM-REC. AN OPTION CHECK IS AVAILABLE FOR SPECIAL SESSION CODES. THOSE SESSIONS CODED AS A '&', '%', '$', '#', '!', OR '"' WILL BE CODED WITH A '1' IN THE K CARD PAS SESSION FIELD AND A '1' IN THE K CARD SESSION FIELD. TO USE THE SESSION OPTION CHECK, CODE A 'YES' IN THE SELECT-SPEC-SESS FIELD OF PARM-REC. THIS PROGRAM USES THE BULK DATA TRANSFER UTILITY TO TRANSFER THE CORRECTION FILE TO THE HOST. 2.0 SAMPLE JCL ---------- 2.1 RUN JCL ------- //TCCEN580 (XXXX,YYYYY)CEN580,MSGLEVEL=(1,1), // MSGCLASS=A,PRTY=3,CLASS=F,REGION=2048K /*ROUTE PRINT RRRR /*ROUTE XEQ ZZZZ // EXEC CEN580T,COLLEGE=CC,AGENCY=AAA,CENSUS=CEN,RUNTYPE=TEST //CEN580.PARMCARD DD * QQQQQQYYCCCSSS DORRRRR....................... .O.....SSSSSSSSSCCCCCCCCCCCCCC .... ENTER ADDITIONAL INPUT .... /* //BDTXMIT.JCL1 DD DATA,DLM=AA //CEN580R JOB (XXXX,YYYY),1,2),CEN580R,MSGCLASS=A,NOTIFY=JJJJJ, // CLASS=F,PRTY=3 /*ROUTE PRINT RRRR /*ROUTE XEQ ZZZZ //CEN580R EXEC CEN580R //INPAKTFL DD * AA /* //BDTXMIT.JCL2 DD DATA,DLM=BB //VCCSRA3 JOB (XXXX,YYYY),1,2),CEN580.VCCSRA3,MSGCLASS=A, // CLASS=F,PRTY=3 /*ROUTE XEQ ZZZZ /*ROUTE PRINT RRRR //STEP01 EXEC VCCSRA3,CAMPUS=CCAAA //RECB46.CARDS DD DSN=CCAD.SIS.PSEQPROD.TEMPAKT,DISP=(OLD,DELETE), // UNIT=SYSDA,SPACE=(TRK,1), // DCB=(RECFM=F,LRECL=80,BLKSIZE=80) BB // SYMBOLIC DESCRIPTION ******************** REQUIRED - AGENCY COLLEGE AGENCY CODE NUMBER (E.G. AGENCY=295) COLLEGE TWO CHARACTER COLLEGE NAME ABBREVIATION (E.G. COLLEGE=TC) OPTIONAL - CENSUS THREE CHARACTER CENSUS DATA BASE IDENTIFIER DEFAULT: NONE (E.G. CENSUS=CEN) FORM FORM NUMBER THE OUTPUT IS TO BE STORED UNDER DEFAULT: A000 (E.G. FORM=0002) QUEUE QUEUE CLASS THE OUTPUT IS TO BE SPOOLED UNDER DEFAULT: * (E.G. QUEUE='A') SRTSIZE AMOUNT OF DASD STORAGE IN CYLINDERS ALLOCATED TO EACH SORT WORK FILE DEFAULT: 3 (E.G. SRTSIZE=5) 2.2 INPUT PARAMETERS ---------------- XXXX - ACCOUNT PROGRAM NUMBER YYYY - ACCOUNT ROOM NUMBER NNNNNN - USER TO BE NOTIFIED RRRR - REMOTE ID FOR PRINT ZZZZ - REMOTE ID FOR XEQ CC - COLLEGE CODE (I.E. TC) AAA - AGENCY CODE (I.E. 295) 2.3 INPUT CARD PARAMETERS --------------------- SEE 4.3 INPUT/OUTPUT RECORD LAYOUT FOR DESCRIPTION OF INPUT CARDS. 3.0 JOB SETUP INSTRUCTIONS ---------------------- SPECIAL FORMS QUEUE: A000 FORMS BUFFER: STANDARD ALIGNMENT INSTRUCTIONS: STANDARD PRINTED OUTPUT: NONE FORMS TYPE: 14 X 11 SPECIAL INSTRUCTIONS: NONE 4.0 FILES ----- 4.1 DATA BASE/SEGMENTS USED: ----------------------- 1. CTLCAMPM SEGMENT (READ ONLY) 2. STUDENTM SEGMENT (READ ONLY) 3. STUREGIS SEGMENT (READ ONLY) 4. CLSMASTR SEGMENT (READ ONLY) 5. CLSDETAL SEGMENT (READ ONLY) 6. INSTRUCR SEGMENT (READ ONLY) 7. CRSDEPT SEGMENT (READ ONLY) 8. CRSSEGM SEGMENT (READ ONLY) 9. CTLQUART SEGMENT (READ ONLY) 4.2 ADDITIONAL FILES USED: --------------------- 1. RECFILE (TEMPORARY FILE CREATED TO STORE DELETE RECORDS AND CORRECT AKT RECORDS). 2. PARMCARD (FILE USED TO PASS INPUT TERM TO PROGRAM, DELETE INFORMATION FOR DELETE RECORDS AND INFORMATION FOR CREATING NEW AKT RECORDS). * 4.3 INPUT/OUTPUT RECORD LAYOUT: -------------------------- INPUT RECORD LAYOUT: 1. INPUT RECORD 1: QUARTER/YR EX:WINTER84YESYES -------------------------------------------------------- ] POSITION ] ] ] DATA ] ] ] FROM] TO ] FIELD NAME ] SIZE ] TYPE ] COMMENTS ] ]-----]----1-------------]-------]--------]--------------] ] 1 ] 6 ] QUARTER ] 6 ] AN ] ] ] 7 ] 8 ] YEAR ] 2 ] AN ] ] ] 9 ] 11 ]SPEC-CURR-OPT] 3 ] AN ]YES - TO USE ] ] 12 ] 14 ]SPEC-SESS-OPT] 3 ] AN ]YES - TO USE ] ---------------------------------------------------------- 2. INPUT RECORD 2: DELETE CARD EX:DK00324 -------------------------------------------------------- ] POSITION ] ] ] DATA ] ] ] FROM] TO ] FIELD NAME ] SIZE ] TYPE ] COMMENTS ] ]-----]----]-------------]-------]--------]--------------] ] 1 ] 1 ] DELETE CODE ] 1 ] AN ] VALUE 'D' ] ] 2 ] 2 ] SEL OPTION ] 1 ] AN ] A,K OR T ] ] 3 ] 7 ] DELETE RECNO] 5 ] AN ] ] ---------------------------------------------------------- 3. INPUT RECORD 3: A.K.T CARD EX: .T.....224997777841ABIOL10201L -------------------------------------------------------- ] POSITION ] ] ] DATA ] ] ] FROM] TO ] FIELD NAME ] SIZE ] TYPE ] COMMENTS ] ]-----]----]-------------]-------]--------]--------------] ] 1 ] 1 ] ] ] ] SPACE ] ] 2 ] 2 ] SEL OPTION ] 1 ] AN ] A,K, OR T ] ] 3 ] 7 ] ] 5 ] ] SPACE ] ] 8 ]16 ] SOC-SEC-NO ] 9 ] NU ] ] ] 17 ]30 ] CLASS-ID ] 14 ] AN ] ] ---------------------------------------------------------- * OUTPUT RECORD LAYOUTS: 1. A RECORD ---------------------------------------------------------------- ] POSITION ] ] ] DATA ] ] ] FROM ] TO ] FIELD NAME ] SIZE ] TYPE ] COMMENTS ] ]------]-----]------------------]-------]--------]------------- ] ] 1 ] 6 ] ACARD CODE ] 6 ] AN ] ADM101 ] ] 7 ] 15 ] ACARD SOC SEC ] 9 ] AN ] ] ] 16 ] 30 ] ACARD-LNAME ] 15 ] AN ] ] ] 31 ] 39 ] ACARD-FNAME ] 9 ] AN ] ] ] 40 ] 40 ] ACARD-INIT ] 1 ] AN ] ] ] 41 ] 42 ] ACARD-SUFF ] 2 ] AN ] ] ] 43 ] 43 ] ACARD-SEX ] 1 ] AN ] 1 = MALE ] ] ] ] ] ] ] 2 = FEMALE ] ] 44 ] 44 ] ACARD-RACE ] 1 ] AN ] 1 = WHITE ] ] ] ] ] ] ] 2 = BLACK ] ] ] ] ] ] ] 3 = AM INDIAN] ] ] ] ] ] ] 4 = ORIENTAL ] ] ] ] ] ] ] 5 = SPANISH ] ] ] ] ] ] ] 6 = OTHER ] ] 45 ] 45 ] FILLER ] 1 ] AN ] ] ] 46 ] 46 ] ACARD-STTYPE ] 1 ] AN ] 1 = NEW ] ] ] ] ] ] ] 2 = OLD ] ] ] ] ] ] ] 3 = TRANSFER ] ] ] ] ] ] ] 4 = RETURNING] ] 47 ] 48 ] ACARD-HS-GRADYR ] 2 ] AN ] ] ] 49 ] 54 ] ACARD-DATE-BIRTH ] 6 ] AN ] (MMDDYY) ] ] 55 ] 55 ] ACARD-VISA-CDE ] 1 ] AN ] ] ] 56 ] 56 ] ACARD-FINAID-CDE ] 1 ] AN ] ] ] 57 ] 58 ] FILLER ] 2 ] AN ] ] ] 59 ] 64 ] ACARD-CEEB-CDE ] 6 ] AN ] ] ] 65 ] 68 ] FILLER ] 4 ] AN ] ] ] 69 ] 69 ] ACARD-CURR-LEVL ] 1 ] AN ] ] ] 70 ] 72 ] ACARD-CURR ] 3 ] AN ] ] ] 73 ] 75 ] ACARD-JURS ] 3 ] AN ] ] ] 76 ] 79 ] FILLER ] 4 ] AN ] ] ] 80 ] 80 ] ACARD-CAMP ] 1 ] AN ] ] ]____]_______]__________________]_______]________]______________] * 2. K RECORD ---------------------------------------------------------------- ] POSITION ] ] ] DATA ] ] ] FROM ] TO ] FIELD NAME ] SIZE ] TYPE ] COMMENTS ] ]------]-----]------------------]-------]--------]--------------1 ] 1 ] 9 ]KCARD-SOC-SEC ] 9 ] AN ] ] ] 10 ] 10 ]KCARD-INIT1 ] 1 ] AN ] ] ] 11 ] 11 ]KCARD-INIT2 ] 1 ] AN ] ] ] 12 ] 24 ]KCARD-NAME ] 13 ] AN ] ] ] 25 ] 28 ]KCARD-DEPT ] 4 ] AN ] ] ] 29 ] 31 ]KCARD-COURSE ] 3 ] AN ] ] ] 32 ] 33 ]KCARD-SECT ] 2 ] AN ] ] ] 34 ] 42 ]KCARD-TITLE ] 9 ] AN ] ] ] 43 ] 43 ]KCARD-PASS-SESS ] 1 ] AN ] ] ] 44 ] 44 ]KCARD-INSTR-WKS ] 1 ] AN ] ] ] 45 ] 46 ]KCARD-CREDITS ] 2 ] AN ] ] ] 47 ] 47 ]KCARD-DIV-CODE ] 1 ] AN ] ] ] 48 ] 48 ]KCARD-LEC-LAB ] 1 ] AN ]BLANK= NOT LAB] ] ] ] ] ] ] L = LAB ] ] 49 ] 49 ]KCARD-TEACH-LOAD ] 1 ] AN ] 1 = FULLTIME ] ] ] ] ] ] ] 2 = PARTTIME ] ] ] ] ] ] ] (PERMANENT) ] ] ] ] ] ] ] 3 = PARTTIME ] ] ] ] ] ] ] (LECTURER) ] ] 50 ] 55 ] KCARD-DAYS-TGHT ] 1 ] AN ] 1 = MONDAY ] ] ] ] ] ] ] 2 = TUESDAY ] ] ] ] ] ] ] 3 = WEDNESDAY] ] ] ] ] ] ] 4 = THURSDAY ] ] ] ] ] ] ] 5 = FRIDAY ] ] ] ] ] ] ] 6 = SATURDAY ] ] ] ] ] ] ] 7 = SUNDAY ] ] 56 ] 59 ] KCARD-BEGHRS ] 4 ] AN ] ] ] 60 ] 63 ] KCARD-ENDHRS ] 4 ] AN ] ] ] 64 ] 66 ] KCARD-BUILDING ] 3 ] AN ] ] ] 67 ] 70 ] KCARD-ROOM-NO ] 4 ] AN ] ] ] 71 ] 73 ] FILLER ] 3 ] AN ] ] ] 74 ] 74 ] KCARD-SESSION ] 1 ] AN ] ] ] 75 ] 75 ] FILLER ] 1 ] AN ] ] ] 76 ] 76 ] KCARD-CAMP ] 1 ] AN ] ] ] 77 ] 79 ] KCARD-COLL-CDE ] 3 ] AN ] ] ] 80 ] 80 ] KCARD-CODE ] 1 ] AN ] ] ]____]_______]__________________]_______]________]______________] * 3. T RECORD ---------------------------------------------------------------- ] POSITION ] ] ] DATA ] ] ] FROM ] TO ] FIELD NAME ] SIZE ] TYPE ] COMMENTS ] ]------]-----]------------------]-------]--------]--------------] ] 1 ] 9 ] TCARD-SOC-SEC ] 9 ] AN ] ] ] 10 ] 24 ] TCARD-LNAME ] 15 ] AN ] ] ] 25 ] 33 ] TCARD-FNAME ] 9 ] AN ] ] ] 34 ] 34 ] TCARD-INIT ] 1 ] AN ] ] ] 35 ] 36 ] TCARD-SUFF ] 2 ] AN ] ] ] 37 ] 37 ] FILLER ] 1 ] AN ] ] ] 38 ] 41 ] TCARD-DEPT ] 4 ] AN ] ] ] 42 ] 42 ] TCARD-SESSION ] 1 ] AN ] ] ] 43 ] 45 ] TCARD-COURSE ] 3 ] AN ] ] ] 46 ] 46 ] TCARD-LEC-LAB ] 1 ] AN ] ] ] 47 ] 48 ] TCARD-SECT-NO ] 2 ] AN ] ] ] 49 ] 49 ] TCARD-CLASS-CAMP ] 1 ] AN ] ] ] 50 ] 50 ] FILLER ] 1 ] AN ] ] ] 51 ] 64 ] TCARD-TITLE ] 14 ] AN ] ] ] 65 ] 65 ] FILLER ] 1 ] AN ] ] ] 66 ] 67 ] TCARD-CREDITS ] 2 ] AN ] ] ] 68 ] 74 ] TCARD-FILLER ] 7 ] AN ] ] ] 75 ] 75 ] TCARD-GRADE ] 1 ] AN ] ] ] 76 ] 76 ] TCARD-STUD-CAMP ] 1 ] AN ] ] ] 77 ] 79 ] TCARD-COLLEGE-CDE] 3 ] AN ] ] ] 80 ] 80 ] TCARD-CODE ] 1 ] AN ] ] ---------------------------------------------------------------- 4. DELETE RECORD -------------------------------------------------------------- ] POSITION ] ] ] DATA ] ] ] FROM ] TO] FIELD NAME ] SIZE ] TYPE ] COMMENTS ] ]------]---]--------------- -]-------]--------]--------------] ] 1 ] 1 ] DCARD CODE ] 1 ] AN ] VALUE 'D' ] ] 2 ] 2 ] DCARD TYPE ] 1 ] AN ] VALUE A,K,T ] ] 3 ] 7 ] DCARD RECNO ] 5 ] AN ] ] ] 8 ] 80 ] FILLER ] 73 ] ] ] -------------------------------------------------------------- 5.0 SPECIAL OUTPUT MESSAGES: 1. DLI ERRORS GENERATED BY DLI CALLS (MEANING: AN ERROR HAS OCCURRED DURING A DLI CALL - CHECK DLI ERROR DISPLAY INFORMATION) 2. 'INVALID TERM ON PARMCARD' (MEANING: THE TERM WAS NOT WINTER, SPRING, SUMMER OR FALL. CHECK INPUT TERM ON PARMCARD) 3. 'INVALID YEAR ON PARMCARD' (MEANING: THE YEAR WAS NOT NUMERIC. CHECK INPUT YEAR ON PARMCARD) 4. 'PARMCARD YEAR/TERM NOT FOUND ON CONTROL DB' (MEANING: A CONTROL TERM SEGMENT COULD NOT BE FOUND FOR THE INPUT YEAR/TERM. CHECK INPUT TERM AND/OR YEAR ON PARMCARD) 5. 'INVALID OPTION SELECTED' (MEANING: AN INVALID OPTION WAS SELECTED - NOT A, K, OR T. CHECK INPUTED OPTION ON PARMCARD) 6. 'AKT RECORD FILE FULL' (MEANING: RECFILE IS FULL - INCREASE SIZE OF FILE IN PROC-FILE) 6.0 SPECIAL FEATURES: N/A ---------------- 7.0 PROGRAM OPTIONS: N/A --------------- 8.0 CHANGE HISTORY -------------- 8.1 VERSION NO: V2.6 (NEW PROGRAM) CHANGE DATE: 02/17/86 PROGRAMMER NAME: PAT BUCHANAN (TCC) PROGRAM CHANGE REQUEST NO: N/A DESCRIPTION OF CHANGE: N/A 8.2 VERSION NO: V3.1 CHANGE DATE: 07/29/87 PROGRAMMER NAME: KATHY HARCUM REQUEST NO: SCP-TC-007 DESCRIPTION OF CHANGE: -MODIFIED ALL QUARTER LITERALS TO TERM. ADDED CALL TO CONTROL TERM TO VALIDATE INPUT PARM. ADDED EDIT TO ENSURE SELECTED YEAR IS NUMERIC. 8.3 VERSION NO: V4.19 CHANGE DATE: 12/11/90 00633004 PROGRAMMER NAME: MARIE GORDON 00634004 PROGRAM CHANGE REQUEST NO: 00006581 00635004 DESCRIPTION OF CHANGE: - CHANGED ALL DATA BASE CALLS TO USE STANDARD IOAREA. SEE PAGE 29 OF THE 02/90 PROGRAMMING STANDARD, PROCECEDURES AND GUIDELINES MANUAL. - MADE CHANGES FOR COBOL II. 8.4 VERSION NO: V6.00 CHANGE DATE: 11/15/95 00633004 PROGRAMMER NAME: PAT BUCHANAN 00634004 PROGRAM CHANGE REQUEST NO: 00016150 00635004 DESCRIPTION OF CHANGE: - RECOMPILED AND TESTED AFTER STUREGIS COPYLIB WAS MODIFIED AND EXPANDED. 8.5 VERSION NO: V6.05 00632004 CHANGE DATE: 07/15/96 00633004 PROGRAMMER NAME: SUE TATE 00634004 PROGRAM CHANGE REQUEST NO: 00016907 00635004 DESCRIPTION OF CHANGE: - CHANGED RANGE FOR CONVERSION TO 221. RANGE IS '004'-'020' '035' - '040' '044' - '099'. 8.6 VERSION NO: V7.01 00632004 CHANGE DATE: 06/09/98 00633004 PROGRAMMER NAME: MYRA MAIORANA, TCC 00634004 PROGRAM CHANGE REQUEST NO: 00018008 00635004 DESCRIPTION OF CHANGE: - THIS PROGRAM HAS BEEN RECOMPILED AND TESTED USING THE NEW COBOL COMPILER. - Y2K MODS WERE NOT NEEDED.