0.003/15/91 F.E.FRANKLIN, JR. 1.0 INTRODUCTION ------------ THIS RUN IS PART OF THE CENSUS SUBSYSTEM AND HAS ONLY ONE PURPOSE. IF CEN500 IS SUCESSFULLY COMPLETED THIS JOB WILL BE AUTOMATICALLY LOADED AND WILL SET THE AKT FLAG OF THE CONTROL TERM SEGMENT TO A 'Y'. CONTROL DATA BASE ----------------- A CALL IS MADE TO RETRIEVE THE CONTROL TERM SEGMENT FOR THE REQUESTED YEAR AND TERM, THE AKT FLAG IS SET TO 'Y' THEN THE CONTROL TERM SEGMENT IS REPLACED. 2.0 SAMPLE JCL: ----------- 2.1 RUN JCL ------- //TCCEN300 JOB (XXXX,YYYY,9,30),CEN300, // MSGCLASS=A,CLASS=O,REGION=2048K /*ROUTE PRINT ZZZZZZ /*SETUP ** * * * * * * * * * * * * * * * /*SETUP ** THIS UPDATE JOB WILL REQUIRE TAPE(S) WITH RING /*SETUP ** FROM THE BATCH SCRATCH POOL. /*SETUP ** NEVER REPLY 'U' /*SETUP ** * * * * * * * * * * * * * * * //* //CEN300 EXEC CEN300,COLLEGE=DD,AGENCY=DDD /* SYMBOLIC DESCRIPTION ******************** REQUIRED - AGENCY = COLLEGE AGENCY CODE NUMBER DEFAULT: NONE (E.G. AGENCY=295) COLLEGE = TWO CHARACTER COLLEGE NAME ABBREVIATION DEFAULT: NONE (E.G. COLLEGE=TC) OPTIONAL - CENSUS = THREE CHARACTER CENSUS DATA BASE IDENTIFIER DEFAULT: NONE (E.G. CENSUS=CEN) 2.2 INPUT PARAMETERS: ---------------- INPUT CARD FROM PARMLIB(CENPARMS) ---------- CC CONTENTS -- -------- 01-06 SELECT TERM NAME (E.G. 'SPRING') 07-08 LAST 2 DIGITS OF SELECTION YEAR (E.G. '83') 09-80 NOT USED 3.0 JOB SETUP INSTRUCTIONS: ---------------------- SPECIAL FORMS QUEUE: STANDARD FORMS BUFFER: STANDARD ALIGNMENT INSTRUCTIONS: STANDARD PRINTED OUTPUT: SYSTEM MESSAGES FORMS TYPE: 14 X 11 SPECIAL INSTRUCTIONS: IF A FATAL ERROR OCCURS WHICH TERMINATES PROGRAM EXECUTION, GIVE THE ERROR LIST TO THE REGIONAL COORDINATOR AT THE COMPUTER CENTER. 4.0 FILES: ----- 4.1 DATA BASES/SEGMENTS USED ------------------------- CONTROL DATA BASE (REPLACE) 1. CONTROL QUARTER SEGMENT 4.2 ADDITIONAL FILES USED: --------------------- 1. PARMCARD - INPUT PARAMETERS 4.3 INPUT/OUTPUT RECORD LAYOUTS: --------------------------- 5.0 SPECIAL OUTPUT MESSAGES: ----------------------- 1. **************************************************************** ** ERROR - NO PARAMETER RECORD WAS FOUND FOLLOWING THE PARMCARD DD STATEMENT. RUN ABORTED ** **************************************************************** THE PARMCARD FILE WAS OPENED AND READ. A PARMCARD RECORD WAS NOT FOUND. THE PROGRAM WILL BE ABORTED. ADD INPUT PARAMETER CARD TO JOB DECK AND RESUBMIT. 2. TERM NAME SELECTED ERROR - RUN ABORTED TERM NAME SELECTED = XXXXXX THE PARMCARD WAS READ FOR THE TERM SELECTED AND THE FIELD DID NOT CONTAIN VALID DATA. THE PROGRAM WILL BE ABORTED. CORRECT THE INPUT PARAMETER CARD WITH VALID TERM AND RESUBMIT. 3. YEAR OF TERM SELECTED ERROR - RUN ABORTED YEAR OF TERM SELECTED = XX THE PARMCARD WAS READ FOR THE TERM YEAR SELECTED AND THE FIELD WAS FOUND TO BE NON-NUMERIC. THE PROGRAM WILL BE ABORTED. CORRECT THE INPUT PARAMETER CARD WITH VALID NUMERIC YEAR AND RESUBMIT. 4. **************************************************************** TERM/YEAR NOT FOUND ON CONTROL TERM SEGMENT UNSUCESSFUL COMPLETION ON GHU. ** **************************************************************** A CALL WAS ISSUED TO THE CONTROL DATA BASE TO OBTAIN THE CONTROL TERM SEGMENT AND IT WAS NOT FOUND. THE PROGRAM WILL BE ABORTED. CHECK TERM AND YEAR ON INPUT PARAMETER CARD. 5. **************************************************************** IMS ERROR ON TERM SEGMENT UNSUCESSFUL COMPLETION ON GHU. ** **************************************************************** A CALL WAS ISSUED TO THE CONTROL DATA BASE TO OBTAIN THE CONTROL TERM SEGMENT AND AN UNEXPECTED CONDITION OCCURRED. THE RUN WILL BE ABORTED; CONTACT REGIONAL COORDINATOR. 6. **************************************************************** IMS ERROR ON TERM SEGMENT UNSUCESSFUL COMPLETION ON REPLACE. ** **************************************************************** A CALL WAS ISSUED TO THE CONTROL DATA BASE TO REPLACE THE CONTROL TERM SEGMENT AND AN UNEXPECTED CONDITION OCCURRED. THE RUN WILL BE ABORTED; CONTACT REGIONAL COORDINATOR. 6.0 SPECIAL FEATURES: ---------------- 6.1 CALLING PROGRAMS: N/A 6.2 SUBPROGRAMS CALLED: N/A 6.3 MESSAGE CODES: N/A 7.0 PROGRAM OPTIONS: --------------- N/A 8.0 PROGRAM CHANGE HISTORY: ---------------------- 8.1 VERSION NO: V2.11 (NEW PROGRAM) CHANGE DATE N/A PROGRAMMER NAME: F. E. FRANKLIN PROGRAM CHANGE REQUEST NO: N/A DESCRIPTION OF CHANGE: RELEASE VERSION 8.2 VERSION NO: V2.12 CHANGE DATE 12/01/86 PROGRAMMER NAME: RICHARD GILLETTE PROGRAM CHANGE REQUEST NO: STC-SO-228 DESCRIPTION OF CHANGE: ADDED BATCH LOCKOUT PROCEDURE. 8.3 VERSION NO: V2.15 CHANGE DATE 03/18/87 PROGRAMMER NAME: G. TAYLOR PROGRAM CHANGE REQUEST NO: STC-TC-143 DESCRIPTION OF CHANGE: REVISE DOCUMENTATION FOR LOG TAPES. 8.4 VERSION NO: V3.1 CHANGE DATE 07/28/87 PROGRAMMER NAME: K. HARCUM PROGRAM CHANGE REQUEST NO: SCP-TC-002 DESCRIPTION OF CHANGE: -MODIFIED ALL QUARTER LITERALS TO TERM. MODIFIED ERROR MESSAGE IF INPUT TERM NOT FOUND ON CONTROL DB. 8.5 VERSION NO: V3.11 CHANGE DATE: 06/10/88 PROGRAMMER NAME: ASC PROGRAM CHANGE REQUEST NO: STC-SO-395 DESCRIPTION OF CHANGE: MODIFIED JCL PROC TO; REMOVE LOGTAPE AND RECTAPE PARAMETERS, ADDED RETENTION DATE PROTECTION TO THE TAPES USED FOR IMS LOGGING, ADDED SETUP CARDS TO THE SAMPLE JCL TO INDICATED THAT THE TAPES WILL BE MOUNTED FROM A BATCH SCRATCH POOL. 8.6 VERSION: V4.21 CHANGE DATE: 12/26/90 PROGRAMMER: K CAMPER CHANGE REQUEST #: 00006760 DESCRIPTION: MODIFIED LENGTH FIELD OF CTLQUART SEGMENT FROM +83 TO +95 BYTES. ALSO MODIFIED TO USE THE STANDARD IOAREA AS DESCRIBED IN STANDARDS MANUAL.