0.011/01/01 TROY ADKINS 1.0 PROGRAM NARRATIVE: ----------------- THE PURPOSE OF THIS PROGRAM IS TO REPORT EMPLOYEE LEAVE DATA IN A FORM SUITABLE FOR USE IN PAY CHECK ENVELOPES. THE PROGRAM WILL SHOW LEAVE BALANCES AS OF A CERTAIN DATE. BY DEFAULT, THE DATE USED IS THE DATE LAST UPDATED FROM 'LVES01YY' OPTION SEGMENT WHICH IS UPDATED BY 'LVE300'. IF THE USER WANTS TO USE A DIFFERENT DATE, THEY MAY ENTER A DATE ON THE PARMCARD. THE DATE USED, HOWEVER, CANNOT BE AFTER THE DATE LAST UPDATED AND IT CANNOT BE PRIOR TO JANUARY 10 OF THE DATE LAST UPDATED. THE PROGRAM STARTS WITH THE CURRENT LEAVE BALANCES STORED IN THE 'PERSONLM' SEGMENT. LEAVE RECORDS WHICH HAVE AFFECTED THE CURRENT BALANCE BUT ARE AFTER THE 'AS OF' DATE SELECTED ON THE PARMCARD WILL BE ADDED OR SUBTRACTED, AS APPROPRIATE. THIS PROGRAM USES PROGRAM OPTION 'PERS0001' TO OBTAIN THE INFORMATIONAL TELEPHONE NUMBER AND EXT. NUMBER, IF USED, TO BE PRINTED ON LEAVE CARDS. ALSO, THERE IS A PRINT OPTION ON THE PARMCARD THAT IS USED TO PRINT POLICY CHANGES FOR CLASSIFIED MAXIMUM ANNUAL LEAVE AND FACULTY PERSONAL LEAVE FOR THE SUMMER TERM. THE POLICY CHANGES ARE STORED IN MESSAGE MASTER '000151' FOR CLASSIFIED, '000152' FOR ADMINISTRATIVE FACULTY, AND '000153' FOR NINE-MONTH TEACHING FACULTY. IF OPTIONS ARE SELECTED TO PRINT THE POLICY MESSAGES AND THE MESSAGE RECORDS ARE NOT FOUND, THE PROGRAM IS STOPPED AND A MESSAGE IS DISPLAYED INDICATING WHICH MESSAGE RECORDS ARE NOT FOUND. *** NOTE *** SEE SECTION 2.2 BELOW FOR THE POLICY MESSAGE OPTIONS. 2.0 SAMPLE JCL ---------- 2.1 RUN JCL ______ //LVE810 JOB (XXXX,YYYY),LVE810, // MSGCLASS=A,MSGLEVEL=(1,1),CLASS=Q /*ROUTE PRINT PPPPPPPP //LVE810 EXEC LVE810, // AGENCY=AAA, // COLLEGE=CC // FCB=DDDD // FORM=EEEE //LVE810.PARMCARD DD * *** INPUT PARAMETERS *** /* // WHERE (XXXX,YYYY) IS YOUR ACCOUNTING INFORMATION PPPPPPPP IS YOUR OUTPUT DESTINATION DDDD IS THE FCB CARRIAGE CONTROL EEEE IS LEAVE CARD FORMS SYMBOLIC DESCRIPTION -------------------- REQUIRED AGENCY DENOTES THE THREE CHARACTER AGENCY IDENTIFIER (EX. AGENCY=283) COLLEGE DENOTES THE TWO CHARACTER COLLEGE ABBREVIATION (EX. COLLEGE=SR) FCB DENOTES THE CARRIAGE CONTROL BUFFER NAME (EX. FCB=HLVE) FORM FORM NUMBER THE OUTPUT IS TO BE STORED UNDER (EX. FORM=HLVE) OPTIONAL QUEUE QUEUE UNDER WHICH THE REPORT IS TO BE SPOOLED DEFAULT: J (E.G., QUEUE=A) RUNTYPE INDICATES WHETHER TO USE THE TEST OR PRODUCTION LOAD MODULES. DEFAULT: PROD (E.G., RUNTYPE=TEST) DBTYPE INDICATES WHETHER TO USE THE TEST OR PRODUCTION DATA BASE FILES. DEFAULT: PROD (E.G., DBTYPE=TEST) SRTSIZE AMOUNT OF DASD STORAGE IN CYLINDERS ALLOCATED TO EACH SORT WORK FILE. DEFAULT: 2 (E.G., SRTSIZE=4) 2.2 INPUT PARAMETERS ---------------- CC CONTENTS -- -------- 1 REPORT OPTION: 1 - 9 & 12 MONTH 2 - 12 MONTH ONLY 3 - 9 MONTH ONLY 4 - CLASSIFIED ONLY 02 - 07 DATE BALANCES WILL BE SHOWN (FORMAT MMDDYY) 08 PRINT COMPENSATORY OPTION: Y - YES N - NO 09 'Y' PRINT MESSAGE 000151 FOR CLASSIFIED 10 'Y' PRINT MESSAGE 000152 FOR ADMINISTRATIVE FAC 11 'Y' PRINT MESSAGE 000153 FOR 9-MONTH FACULTY BLANK WILL NOT PRINT CHANGE MESSAGES. 3.0 JOB SETUP INSTRUCTIONS ---------------------- SPECIAL FORMS QUEUE: (EX. HLVE) FORMS BUFFER: (EX. HLVE) ALIGNMENT INSTRUCIONS: STANDARD PRINTED OUTPUT: FORMS TYPE: 7 1/4" X 3 1/4" CONTINUOUS TAB CARDS SPECIAL INSTRUCTIONS: A HEADER CARD MUST BE PREPARED PRIOR TO RUNNING THIS JOB 4.0 FILES: ----- 4.1 DATA BASES USED: CONTROL DATA BASE CTLFCAMP SEGMENT (READ ONLY) CTLFDEPT SEGMENT (READ ONLY) CTLPROPT SEGMENT (READ ONLY) CTLMESSG SEGMENT (READ ONLY) PERSONNEL DATA BASE PERSONLM SEGMENT (READ ONLY) PERLEAVE SEGMENT (READ ONLY) 4.2 ADDITIONAL FILES USED: NONE 4.3 INPUT/OUTPUT RECORD LAYOUTS: N/A 5.0 SPECIAL OUTPUT MESSAGES: ----------------------- 1. DL1 TERMINATION MESSAGES AS APPROPRIATE 2. 'NO PARM RECORD' MEANING: JOB SETUP DID NOT INCLUDE A PARM CARD ACTION: CORRECT JOB AND RE-RUN. 3. 'DATE LAST UPDATE NOT NUMERIC --- CHECK LVES01YY OPTION' 'SEGMENT' MEANING: THE DATE LAST UPDATED ON LVES01YY OPTION SEGMENT IS IS NOT NUMERIC. ACTION: CALL REGIONAL COORDINATOR. 4. 'INVALID MONTH ON DATE LAST UPDATE --- CHECK LVES01YY' 'OPTION SEGMENT' MEANING: THE MONTH IN THE DATE LAST UPDATED ON LVES01YY OPTION SEGMENT IS NOT VALID. ACTION: CALL REGIONAL COORDINATOR. 5. 'INVALID DAY ON DATE LAST UPDATE --- CHECK LVES01YY' 'OPTION SEGMENT' MEANING: THE DAY IN THE DATE LAST UPDATED ON LVES01YY OPTION SEGMENT IS NOT VALID. ACTION: CALL REGIONAL COORDINATOR. 6. 'DATE ON PARMCARD NOT NUMERIC -' MEANING: THE DATE ON THE PARMCARD IS NOT NUMERIC. ACTION: CORRECT THE DATE AND RE-RUN JOB. 7. 'INVALID MONTH IN DATE ON PARMCARD - ' MEANING: THE MONTH IN THE DATE ON THE PARMCARD SEGMENT IS NOT VALID. ACTION: CORRECT WITH A VALID MONTH AND RE-RUN JOB. 8. 'INVALID DAY IN DATE ON PARMCARD - ' MEANING: THE DAY IN THE DATE ON THE PARMCARD IS NOT VALID. ACTION: CORRECT WITH A VALID DAY AND RE-RUN JOB. 9. 'INVALID PRINT POLICY MESSGE OPTION - CHECK PARMCARD' MEANING: THE PRINT POLICY MESSAGE OPTION MUST BE BLANK, 'C', 'F', OR 'Y'. ACTION: CORRECT THE OPTION AND RE-RUN JOB. 10. 'INCORRECT OPTION FOR POLICY MESSAGE' 'CANNOT PRINT FACULYT MESSAGE FOR 12 - MONTH EMPLOYEE SELECTED '- CHECK PARMCARD' MEANING: THE USER SELECTED '2' (CLASSIFIED EMPLOYEE) IN THE REPORT OPTION AND AN 'F' TO PRINT THE FACULTY POLICY MESSAGE. ACTION: SELECT THE CORRECT OPTION AND RE-RUN JOB. 11. 'INCORRECT OPTION FOR POLICY MESSAGE' 'CANNOT PRINT CLASSIFIED MESSAGE FOR 9 - MONTH EMPLOYEE' 'SELECTED - CHECK PARMCARD' MEANING: THE USER SELECTED '3' (FACULTY EMPLOYEE) IN THE REPORT OPTION AND A 'C' TO PRINT THE CLASSIFIED POLICY MESSAGE. ACTION: SELECT THE CORRECT OPTION AND RE-RUN JOB. 12. 'DATE ON PARMCARD IS INVALID. CANNOT BE GREATER THAN LAST UPDATE DATE' MEANING: THE USER HAS SPECIFIED A DATE AFTER THE LAST UPDATE DATE AND THE PROGRAM DOES NOT WORK THAT WAY. ACTION: CHANGE THE PARMCARD DATE AND RE-RUN JOB. 13. 'DATE ON PARMCARD IS INVALID. CANNOT BE PRIOR TO THE BEGINNING BALANCE DATE' MEANING: THE USER HAS SPECIFIED A DATE PRIOR TO JANUARY 10 OF THE CURRENT YEAR. ACTION: CHANGE THE PARMCARD DATE AND RE-RUN JOB. 6.0 SPECIAL FEATURES: ---------------- 6.1 SUBPROGRAMS CALLED: UTL100S UTL060S 6.2 MESSAGE MASTERS USED: '000151' - CONTAINS NEW POLICY ON MAXIMUM CLASSIFIED ANNUAL LEAVE '000152' - CONTAINS NEW POLICY ON FACULTY PERSONAL LEAVE FOR THE SUMMER TERM *** NOTE *** THE FIRST 2 LINES OF THESE MESSAGE MASTERS SHOULD ONLY BE USED, (MAX. OF 140 CHARACTERS), BECAUSE OF LIMITED SPACE REMAINING ON THE LEAVE SUMMARY CARDS. 7.0 PROGRAM OPTIONS: --------------- PERS0001 ------------------------------------------------------------------ | POSITION | FIELD CONTENTS | |-----------------|----------------------------------------------| | 01 - 18 |PERSONNEL OFFICE PHONE NUMBER & EXT. | ------------------------------------------------------------------ ** NOTE ** IF AN EXT. NUMBER IS USED IT SHOULD BE ENTERED IN THIS FORMAT: 371-3249, EXT. 321 LVES01YY (YY - BEING YEAR DESIRED) - USES COPY MEMBER LVECNTRL ------------------------------------------------------------------ | POSITION | FIELD CONTENTS | |-----------------|----------------------------------------------| | 01 - 24 |LEAVE UPDATE FLAGS - ONE PER STATE PAY PERIOD | |-----------------|----------------------------------------------| | 25 - 30 |DATE LAST UPDATED | |-----------------|----------------------------------------------| | 31 - 31 |MILITARY FLAG | |-----------------|----------------------------------------------| | 32 - 79 |UP TO 12 HOLIDAYS IN MMDD FORMAT | |-----------------|----------------------------------------------| | 80 - 80 |DELETE EXCESS LEAVE FLAG | |-----------------|----------------------------------------------| | 81 - 90 |FILLER | ------------------------------------------------------------------ 8.0 PROGRAM CHANGE HISTORY: ---------------------- 8.1 VERSION NO: V3.6S CHANGE DATE: 2/88 PROGRAMMER NAME: TROY ADKINS PROGRAM CHANGE REQUEST NO: N/A DESCRIPTION OF CHANGE: RELEASE VERSION 8.2 VERSION: V3.15S 00583000 CHANGE DATE: 12/12/88 00584000 PROGRAMMER: TROY ADKINS 00585000 CHANGE REQUEST #: STC-TC-434 00586000 DESCRIPTION: 00587000 1) CORRECTED THE PROBLEM OF THE MESSAGE FOR 9-MONTH FACULTY BEING PRINTED FOR ALL EMPLOYEES. 2) CHANGED QUARTERLY REFERANCES TO TERM AND IN- DICATION OF 24 HRS. OF SICK LEAVE TO 36 HRS. 3) INCREASED SIZE OF PHONE NO. TO 18 POSITIONS TO HANDLE EXTENSION NUMBERS. CHANGE REQUEST #: STC-SR-614 00586000 DESCRIPTION: 00587000 1) MADE DATE LAST UPDATED ON THE PARMCARD AN OPTION. IF LEFT BLANK, THE DATE LAST UPDATED WILL BE GOTTEN FROM LVES01YY OPTION SEGMENT, WHICH WAS ADDED TO THE PROGRAM. IF THE DATE IS ENTERED ON THE PARMCARD, IT IS ENTERED AS A 6-CHARACTER FIELD FORMAT INSTEAD OF AN 8-CHARACTER FIELD. 2) ADDED A CALL TO USE SUBPROGRAM 'ULT540S' TO EDIT THE PARMCARD DATE OR THE DATE LAST UPDATED FROM LVES01YY OPTION SEGMENT, DEPENDING ON WHICH DATE IS USED. 3) PROGRAM NOW RECOGNIZES LEAVE TYPES OF 'C', 'E', 'F', AND 'T', WHEN CALCULATING CURRENT LEAVE BALANCES. 4) PROGRAM NOW PROCESSES AND PRINTS OVERTIME LEAVE FOR ELIGIBLE EMPLOYEES. 5) CREATED 2 MESSAGE MASTERS, 1 FOR CLASSIFIED AND THE OTHER FOR FACULTY, TO INDICATE THE POLICY CHANGES IN ANNUAL LEAVE AND PERSONAL LEAVE. THE MESSAGES ARE IN MESSAGE MASTER '000151' AND '000152' RESPECTIVELY. PRINTING IS CONTROLLED BY A PR-PRINT-POLICY-MSG OPTION FIELD ON THE PARMCARD. 8.3 VERSION: V4.01 00583000 CHANGE DATE: 03/22/89 00584000 PROGRAMMER: BARBARA TRUITT 00585000 CHANGE REQUEST #: 00002452 00586000 DESCRIPTION: 00587000 1) CHANGED LITERAL 'SEMESTER' TO 'TERM'. 8.4 VERSION: V4.05 00583000 CHANGE DATE: 08/22/89 00584000 PROGRAMMER: TROY ADKINS, JSRCC 00585000 CHANGE REQUEST #: 00003124 00586000 DESCRIPTION: 00587000 CORRECTED THE PROBLEM OF THE MESSAGES '000151' AND '000152' NOT BEING PRINTED ON THE FIRST CARD. 8.5 VERSION : V4.09 00583000 CHANGE DATE : 01/02/90 00584000 PROGRAMMER : TROY ADKINS, JSRCC 00585000 CHANGE REQUEST #: N/A 00586000 DESCRIPTION : 00587000 MODIFIED PROGRAM TO COMPILE AND LINK UNDER THE COBOL II SYNTAX. ADDED THE CALL TO ACCESS SUBPROGRAM UTL550S. 8.6 VERSION : V4.09 00583000 CHANGE DATE : 01/02/90 00584000 PROGRAMMER : TROY ADKINS, JSRCC 00585000 CHANGE REQUEST #: 00004241 00586000 DESCRIPTION : 00587000 MODIFIED LVE810 PROGRAM AND PARMCARD TO INCLUDE ADDI- TIONAL OPTIONS IN SELECTING WHAT POLICY MESSAGES TO PRINT FOR 9 & 12 - MONTH EMPLOYEES. THE PROGRAM WILL NOW USE THE PARMCARD OPTIONS AS FOLLOWS: 'Y' - PRINT BOTH MESSAGES AND TERMINATE IF EITHER OR BOTH ARE NOT FOUND. 'C' - PRINT THE MESSAGE (000151) FOR CLASSIFIED ONLY. 'F' - PRINT THE MESSAGE (000152) FOR FACULTY ONLY. ' ' - DO NOT PRINT EITHER MESSAGE. 8.7 VERSION : V4.23 00583000 CHANGE DATE : 05/15/91 00584000 PROGRAMMER : TROY ADKINS, JSRCC 00585000 CHANGE REQUEST #: 00007540 00586000 DESCRIPTION : 00587000 MODIFIED THE PROGRAM TO NOT PROCESS LEAVE ENTRIES THAT ARE GREATER THAN THE CURRENT DATE. 8.8 VERSION : V4.33 00583000 CHANGE DATE : 04/15/92 00584000 PROGRAMMER : TROY ADKINS, JSRCC 00585000 CHANGE REQUEST #: 00009558 00586000 DESCRIPTION : 00587000 MODIFIED THE PROGRAM TO PROCESS SCHOOL ASSIST LEAVE AND PRINT THE BALANCE ON THE LEAVE CARDS. CHANGE REQUEST #: 00009416 00586000 DESCRIPTION : 00587000 CORRECTED THE DESCRIPTION OF THE LVES01YY OPTION RECORD IN SEC. 7.0. 8.9 VERSION NO: V4.45 CHANGE DATE: 03/25/93 PROGRAMMER NAME: EUGENE WALLO PROGRAM CHANGE REQUEST NO: 00011487 DESCRIPTION OF CHANGE: - CHANGED THE PROGRAM TO USE '*** UNKNOWN ***' (INSTEAD OF INCORRECT DATA) FOR THE DEPARTMENT NAME ON THE LEAVE CARDS, WHEN A REQUIRED SEGMENT IS MISSING FROM THE CONTROL DATABASE. - CHANGED THE SOFTWARE TO UTILIZE THE FRS-CAMPUS AND FRS-DEPT-NO FIELDS, INSTEAD OF THE CAMPUS-DEPT-CAMP AND CAMPUS-DEPT-NO FIELDS, OF THE PERSONLM SEGMENT. - CHANGED THE SOFTWARE TO UTILIZE THE FRS-DEPARTMENT-NAME FIELD OF THE CTLFDEPT SEGMENT, INSTEAD OF THE DEPARTMENT-NAME FIELD OF THE CTLDEPT SEGMENT. - CHANGED THE SOFTWARE TO UTILIZE THE CTLFCAMP SEGMENT HAVING KEY '0', INSTEAD OF THE CTLBCAMP SEGMENT HAVING KEY '1', IN OBTAINING THE COLLEGE-NAME FIELD. 8.10 VERSION NO: V5.09 CHANGE DATE: 01/25/94 PROGRAMMER NAME: EUGENE WALLO PROGRAM CHANGE REQUEST NUMBER: 00013545 DESCRIPTION OF CHANGE: - RE-COMPILED THE PROGRAM TO ACCOMMODATE THE PERSONNEL DATABASE CHANGE AND THE ASSOCIATED COPYLIB CHANGES. 8.11 VERSION NO: V6.12 CHANGE DATE: 07/15/97 PROGRAMMER NAME: DIANE LIVELY PROGRAM CHANGE REQUEST NUMBER: 00017599 DESCRIPTION OF CHANGE: - CHANGED PROGRAM TO RECOGNIZE ANNUAL LEAVE CONVERSION RECORDS FOR ADMINISTRATIVE FACULTY. - CHANGED PARMCARD SO PROGRAM COULD PRINT A DIFFERENT MESSAGE FOR ADMINISTRATIVE FACULTY, CLASSIFIED, AND 9-MO TEACHING. PROGRAM USES ONE MORE MESSAGE: 000153. DATABASE CHANGE AND THE ASSOCIATED COPYLIB CHANGES. 8.12 VERSION NO: V7.01 CHANGE DATE: 06/25/98 PROGRAMMER NAME: SUE TATE, JSR PROGRAM CHANGE REQUEST NUMBER: N/A DESCRIPTION OF CHANGE: - CHANGED PROGRAM FOR YEAR 2000 PROCESSING. - COMPILED USING COBOLII COMPILER. 8.13 VERSION NO: V7.02S CHANGE DATE: 02/16/99 PROGRAMMER NAME: SUE TATE, JSR PROGRAM CHANGE REQUEST NUMBER: 18281 DESCRIPTION OF CHANGE: - CHANGED PROGRAM TO PROCESS VSDP IN ADDITION TO STANDARD SICK LEAVE. 8.14 VERSION NO: V7.07 CHANGE DATE: 03/06/00 PROGRAMMER NAME: MYRA MAIORANA, TCC PROGRAM CHANGE REQUEST NUMBER: 00005875 DESCRIPTION OF CHANGE: - MODIFIED TO MOVE OVERTIME DATA TO NEXT LINE WITH VSDP DATA. 8.15 VERSION NO: V7.07 CHANGE DATE: 05/24/00 PROGRAMMER NAME: DIANE LIVELY, JSR PROGRAM CHANGE REQUEST NUMBER: DESCRIPTION OF CHANGE: - CORRECTED PROBLEM OF FUTURE LEAVE COUNTED IN CALCULATING THE BALANCE TO PRINT ON THE LEAVE CARDS. 8.16 VERSION NO: V7.07S CHANGE DATE: 07/20/00 PROGRAMMER NAME: DIANE LIVELY, JSR PROGRAM CHANGE REQUEST NUMBER: A9870 DESCRIPTION OF CHANGE: - CHANGED PROGRAM TO REFLECT THE CHANGES IN LEAVE ACCRUAL AND CARRY-OVER, WHICH WENT INTO EFFECT 7/10/00. - CORRECTED PROBLEM OF LEAVE ON THE DATE OF THE CUTOFF NOT BEING INCLUDED IN THE TOTALS PRINTED. 8.17 VERSION NO: V7.09 CHANGE DATE: 07/30/01 PROGRAMMER NAME: SUE TATE PROGRAM CHANGE REQUEST NUMBER: A24768 DESCRIPTION OF CHANGE: - CHANGED PROGRAM TO PRINT COMMUNITY SERVICE INSTEAD OF SCHOOL ASSIST LEAVE. THE SA LEAVE CODE AND PROCESSING IS THE SAME.