0.005/15/91 TROY ADKINS 1.0 PROGRAM NARRATIVE ----------------- THIS ONLINE INQUIRY PROGRAM IS USED TO DISPLAY THE AMOUNT BUDGETED, ENCUMBERED, EXPENDED AND THE CALCULATED BALANCE, FOR EACH OBJECT BY CAMPUS/DEPARTMENT. THE BEGINING AND ENDING BUDGET YEAR, APPROPRIATION, AND CAMPUS/DEPARTMENT ARE ENTERED. IF THE APPROPRIATE RECORD IS FOUND, THE FOLLOWING INFORMATION WILL BE DISPLAYED: COST CENTER NAME, DEPARTMENT NAME, OBJECT, BUDGET, ENCUMBRANCE, EXPENDITURE, AND BALANCE. IF THE BALANCE IS NEGA- TIVE, THE BALANCE WILL BE DISPLAYED AS THAT. IF ALL OF THE AMOUNTS ARE ZERO, THE OBJECT RECORD WILL NOT BE DISPLAYED. IF ALL OF THE OBJECT AMOUNTS FOR A PARTICULAR BUDGET ACCOUNT ARE ZERO, A MESSAGE WILL BE DISPLAYED INDICATING THAT. IN ADDITION TO THE ABOVE PROCESSING, THE USER CAN VIEW OBJECT DATA. THE USER MUST ENTER THE OBJECT CODE ALONG WITH ITEM KEY AND PRESS ENTER. IF THE OBJECT IS FOUND, OBJECT DATA WILL BE DIS- PLAYED SHOWING OBJECT CODE, VENDOR, DATE, REQUEST NUMBER, PURCHASE ORDER NUMBER, VOUCHER NUMBER, STATUS CODE, ENCUMBRANCE, AND EX- PENDITURE AMOUNT, ALONG WITH THE BUDGETED AND BALANCE AMOUNT OF THAT OBJECT DISPLAYED. IF THE ENCUMBRANCE OR EXPENDITURE AMOUNT IS NEGATIVE, IT WILL BE DISPLAYED AS SO. A TOTAL LINE IS DISPLAYED SHOWING ENCUMBRANCE AND EXPENDITURE TOTALS FOR EACH OBJECT. MES- SAGES ARE DISPLAYED IF THE OBJECT CODE ENTERED IS NOT NUMERIC, NOT FOUND, OR IS NOT WITHIN THE BUDGET ENTERED. ALSO, THE TABLE THAT HOLDS THE OBJECT DATA HAS A 504 ELEMENT ENTRY. IF THE NUMBER OF ENTRIES REACH THE MAXIMUM 504 ENTRIES, A MESSAGE WILL BE DISPLAYED INDICATING THE LIMIT HAS BEEN REACHED AND THE USER SHOULD CALL THE REGIONAL COORDINATOR. THIS PROGRAM CHECKS THE SECURITY SEGMENT IN THE CONTROL DATA BASE FOR THE USERS' PASSWORD. IF THE COST CENTER IN THE SECURITY SEGMENT IS EQUAL TO SPACES, THE USER IS NOT PERMITTED TO SEE BUDGET INFORMATION. IF THE COST CENTER IN THE SECURITY SEGMENT IS '***', BUDGET INFORMATION WILL BE DISPLAYED FOR ALL BUDGET ITEMS. IF THE COST CENTER IS CODED FOR A PARTICULAR COST CENTER, ONLY BUDGET ITEMS FOR CAMPUS-DEPARTMENTS ASSIGNED TO THAT COST CENTER WILL BE DISPLAYED. IF THE COST CENTER CODE IS '**' AND THE COST CENTER CAMPUS IS SPECIFIED, THE USER MAY INQUIRE ON BUDGET ITEMS FOR CAMPUS-DEPARTMENTS ASSIGNED TO THAT COST CENTER CAMPUS. * 2.0 USER OPERATING INSTRUCTIONS --------------------------- 1. KEY IN THE BUDGET YEAR, APPROPRIATION, CAMPUS/DEPARTMENT AND PRESS ENTER. 2. IF A RECORD WITH THAT KEY IS FOUND AND THE USER HAS AUTHORITY TO VIEW DATA FOR THAT COST CENTER, THE DATA WILL APPEAR SHOWING THE BUDGET AMOUNTS. IF THERE ARE MORE RECORDS, A MESSAGE WILL APPEAR STATING MORE RECORDS EXIST AND TO PRESS THE APPROPRIATE PF-KEY TO VIEW ADDITIONAL RECORDS. * 3.0 SCREEN LAYOUT ------------- BUDGET DATA SCREEN: *-------------------------------------------------------------------------* ] TRANS. NO. ______ LT: :::::::: ::::::::::::::::::::::::: ] ] BUDGET INQUIRY BALANCE AS OF __/__/__ PF1 - NEXT ] ] PF2 - PREV ] ] APP CAMPUS/DEPT BUDGET YEAR KEY ITEM AND PRESS ENTER PF3 - FIRST ] ] __ _ - ___ __ - __ PF4 - LAST ] ] ] ] COST CTR- ::::::::::::::::::::::::::: DEPT- ::::::::::::::::::::::::::: ] ] OBJECT - ____ :::::::::::::::::::::::::::::::::::::::::::::::::: ] ] ] ] OBJECT BUDGET ENCUMBRANCE EXPENDITURE(-) BALANCE(-) ] ] ::::: :::::::::: :::::::::: :::::::::: : :::::::::: : ] ] ::::: :::::::::: :::::::::: :::::::::: : :::::::::: : ] ] ::::: :::::::::: :::::::::: :::::::::: : :::::::::: : ] ] ::::: :::::::::: :::::::::: :::::::::: : :::::::::: : ] ] ::::: :::::::::: :::::::::: :::::::::: : :::::::::: : ] ] ::::: :::::::::: :::::::::: :::::::::: : :::::::::: : ] ] ::::: :::::::::: :::::::::: :::::::::: : :::::::::: : ] ] ::::: :::::::::: :::::::::: :::::::::: : :::::::::: : ] ] ::::: :::::::::: :::::::::: :::::::::: : :::::::::: : ] ] ::::: :::::::::: :::::::::: :::::::::: : :::::::::: : ] ] ::::: :::::::::: :::::::::: :::::::::: : :::::::::: : ] ] ::::: :::::::::: :::::::::: :::::::::: : :::::::::: : ] ] ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::] *-------------------------------------------------------------------------* * OBJECT DATA SCREEN: *-------------------------------------------------------------------------* ] TRANS. NO. ______ LT: :::::::: ::::::::::::::::::::::::: ] ] BUDGET INQUIRY BALANCE AS OF __/__/__ PF1 - NEXT ] ] PF2 - PREV ] ] APP CAMPUS/DEPT BUDGET YEAR KEY ITEM AND PRESS ENTER PF3 - FIRST ] ] __ _ - ___ __ - __ OR KEY ITEM, OBJECT CODE PF4 - LAST ] ] AND PRESS ENTER. ] ] COST CTR- ::::::::::::::::::::::::::: DEPT- ::::::::::::::::::::::::::: ] ] OBJECT - ____ :::::::::::::::::::::::::::::::::::::::::::::::::: ] ] BUDGET 9,999,999.99- BALANCE 9,999,999.99- ] ] OBJCT REQ PO VOUCH ST ] ] CODE VENDOR DATE NUMBER NUMBR NUMBR CD ENCUMBRANCE EXPENDITURE ] ] :::: :::::::::: ::/::/:: ::::::: ::::: ::::: : ::::::::.:: ::::::::.:: ] ] :::: :::::::::: ::/::/:: ::::::: ::::: ::::: : ::::::::.:: ::::::::.:: ] ] :::: :::::::::: ::/::/:: ::::::: ::::: ::::: : ::::::::.:: ::::::::.:: ] ] :::: :::::::::: ::/::/:: ::::::: ::::: ::::: : ::::::::.:: ::::::::.:: ] ] :::: :::::::::: ::/::/:: ::::::: ::::: ::::: : ::::::::.:: ::::::::.:: ] ] :::: :::::::::: ::/::/:: ::::::: ::::: ::::: : ::::::::.:: ::::::::.:: ] ] :::: :::::::::: ::/::/:: ::::::: ::::: ::::: : ::::::::.:: ::::::::.:: ] ] :::: :::::::::: ::/::/:: ::::::: ::::: ::::: : ::::::::.:: ::::::::.:: ] ] :::: :::::::::: ::/::/:: ::::::: ::::: ::::: : ::::::::.:: ::::::::.:: ] ] :::: :::::::::: ::/::/:: ::::::: ::::: ::::: : ::::::::.:: ::::::::.:: ] ] :::: :::::::::: ::/::/:: ::::::: ::::: ::::: : ::::::::.:: ::::::::.:: ] ] :::: :::::::::: ::/::/:: ::::::: ::::: ::::: : ::::::::.:: ::::::::.:: ] ] ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::] *-------------------------------------------------------------------------* * 4.0 FILES ----- 4.1 DATA BASE SEGMENTS USED: 1. CTLDBD A. CTLBCAMP (READ) B. CTLDEPT (READ) C. CTLCSTCR (READ) D. CTLOBJCT (READ) E. CTLPROPT (READ) F. CTLSECUR (READ) 2. ACCDBD A. ACBBUDGT (READ) B. ACBTRANS (READ) 4.2 ADDITIONAL FILES USED: NONE 4.3 INPUT/OUTPUT RECORD LAYOUTS: N/A * 5.0 SPECIAL OUTPUT MESSAGES ----------------------- 1. APPROPRIATE DL1 TERMINATION MESSAGES WILL BE ISSUED WHEN THE THE PROGRAM ENCOUNTERS A CRITICAL DATA BASE ERROR. WHEN THIS OCCURS, THE REGIONAL COORDINATOR SHOULD BE CONTACTED. 2. MESSAGE: 'INVALID BUDGET YEAR....CORRECT AND RE-ENTER' MEANING: THE BEGINING AND ENDING BUDGET YEAR ARE NOT CONSECUTIVE. (I.E. SHOULD BE 87-88 INSTEAD OF 87-89) 3. MESSAGE: 'BEGINING BUDGET YEAR NOT NUMERIC....CORRECT AND RE-ENTER' MEANING: THE BEGINING BUDGET YEAR IS NOT NUMERIC. 4. MESSAGE: 'ENDING BUDGET YEAR NOT NUMERIC....CORRECT AND RE-ENTER' MEANING: THE ENDING BUDGET YEAR IS NOT NUMERIC. 5. MESSAGE: 'APPROPRIATION CODE NOT NUMERIC....CORRECT AND RE-ENTER' MEANING: THE APPROPRIATION CODE IS NOT NUMERIC. 6. MESSAGE: 'CAMPUS DEPT NOT ON MASTER FILE....CHECK REFERENCE REPORT REF625' MEANING: THE CAMPUS DEPT ENTERED WAS NOT FOUND. 7. MESSAGE: 'NO COST CENTER ASSIGNED FOR THIS CAMPUS/DEPT' MEANING: THE CAMPUS/DEPT ENTERED DOES NOT HAVE A COST CENTER ASSIGNED. 8. MESSAGE: 'NO COST CENTER ASSIGNED FOR THIS CAMPUS/DEPT' MEANING: THE CAMPUS/DEPT ENTERED DOES NOT HAVE A COST CENTER ASSIGNED. 9. MESSAGE: 'ALL DATA NOT SHOWN....PRESS PF KEY FOR ADDITIONAL RECORDS' MEANING: THE APPROPRIATE PF KEY HAS TO PRESSED TO VIEW ADDITIONAL RECORDS. 10. MESSAGE: 'ALL DATA SHOWN....ENTER NEW KEY OR TRANS. NUMBER' MEANING: A NEW KEY HAS TO BE ENTERED TO CONTINUE OR A TRANS. NUMBER TO EXIT THE SCREEN. 11. MESSAGE: 'AMOUNTS FOR THE ABOVE BUDGET ACCOUNT EQUAL ZERO' MEANING: ALL OF THE OBJECT AMOUNTS FOR THE BUDGET ACCOUNT EQUAL ZERO. 12. MESSAGE: 'PASSWORD DOES NOT HAVE BUDGET INQUIRY CAPABILITY' MEANING: THE SECURITY SEGMENT FOR YOUR PASSWORD IS NOT CODED TO PERMIT INQUIRY TO THE ACCOUNTING-BUDGET DATABASE. 13. MESSAGE: 'PASSWORD DOES NOT ALLOW INQUIRY FOR THIS BUDGET' MEANING: THE CAMPUS-DEPARTMENT IS ASSIGNED TO A COST CENTER THAT YOUR PASSWORD DOES NOT HAVE INQUIRY CAPABILITY. 14. MESSAGE: 'OBJECT CODE NOT NUMERIC....CORRECT AND RE-ENTER' MEANING: THE OBJECT CODE ENTERED MUST BE A NUMERIC VALUE. 15. MESSAGE: 'OBJECT DOES NOT EXIST...CORRECT OBJECT CODE AND RE-ENTER'. MEANING: THE OBJECT CODE ENTERED WAS NOT FOUND FOR THAT ITEM KEY. 15. MESSAGE: 'THE OBJECT TABLE HAS REACHED ITS 504 ENTRY LIMIT ...CALL REGIONAL CO-ORDINATOR'. MEANING: THE TABLE THAT HOLDS THE OBJECT DATA HAS A 504 ELEMENT ENTRY LIMIT. THE PROGRAM HAS REACHED THAT LIMIT. THE REGIONAL COORDINATOR SHOULD BE CON- TACTED TO CORRECT THE PROBLEM. 6.0 SPECIAL FEATURES ---------------- 6.1 CALLING PROGRAMS: MST000 6.2 SUBPROGRAMS CALLED: N/A 6.3 MESSAGE CODES: N/A 7.0 PROGRAM OPTIONS --------------- NONE * 8.0 PROGRAM CHANGE HISTORY: ---------------------- 8.1 VERSION NO: V3.13 CHANGE DATE: 08/29/88 PROGRAMMER NAME: TROY ADKINS PROGRAM CHANGE REQUEST NO: N/A DESCRIPTION OF CHANGE: NEW RELEASE 8.2 VERSION NO: V3.16 CHANGE DATE: 12/14/88 PROGRAMMER NAME: DIANE LIVELY PROGRAM CHANGE REQUEST NO: I:00001494 DESCRIPTION OF CHANGE: ADDED CODE TO CHECK THE SECURITY SEGMENT IN THE CONTROL DATABASE FOR THE USER'S PASSWORD TO SEE IF USER IS AUTHORIZED TO VIEW THE DATA. 8.3 VERSION NO: V4.05 CHANGE DATE: 08/17/89 PROGRAMMER NAME: TROY ADKINS, JSRCC PROGRAM CHANGE REQUEST NO: 00002884 DESCRIPTION OF CHANGE: MODIFIED THE PROGRAM TO DISPLAY OBJECT DATA WHEN THE USER SELECTS AND ENTERS THE OBJECT CODE FROM THE DISPLAYED BUDGET DATA. 8.4 VERSION NO: V4.09 CHANGE DATE: 01/03/90 PROGRAMMER NAME: TROY ADKINS, JSRCC PROGRAM CHANGE REQUEST NO: N/A DESCRIPTION OF CHANGE: MODIFIED PROGRAM TO COMPILE AND LINK UNDER THE COBOL II STANDARDS. 8.5 VERSION NO: V4.09 CHANGE DATE: 01/03/90 PROGRAMMER NAME: TROY ADKINS, JSRCC PROGRAM CHANGE REQUEST NO: 00003953 DESCRIPTION OF CHANGE: CORRECTED THE PROBLEM OF ACC210 NOT DISPLAYING THE TOTAL LINE WHEN THERE ARE ONLY 12 LINES OF DATA. 8.6 VERSION NO: V4.11 CHANGE DATE: 02/02/90 PROGRAMMER NAME: TROY ADKINS, JSRCC PROGRAM CHANGE REQUEST NO: 00004892 DESCRIPTION OF CHANGE: 1) INCREASED THE OBJECT-DATA-TABLE FROM 50 TO 504 ENTRIES. ALSO, ADDED A CONDITIONAL CHECK THAT IF THE TABLE REACHES ITS MAXIMUM 504 ITEM ENTRY, A MESSAGE WILL BE DISPLAYED INDICATING TO CONTACT THE REGIONAL COORDINATOR. 2) IN PARAGRAPH 330 MOVED THE IOAREA TO THE CORRECT SEGMENT AREA - ACBBUDGT SEGMENT. 8.7 VERSION NO: V4.13 CHANGE DATE: 04/18/90 PROGRAMMER NAME: TROY ADKINS, JSRCC PROGRAM CHANGE REQUEST NO: 00005247 DESCRIPTION OF CHANGE: MODIFIED ACC210 TO DISPLAY THE BUDGET AND BALANCE AMOUNT WHEN AN OBJECT CODE IS SELECTED. 8.8 VERSION NO: V4.23 CHANGE DATE: 05/15/91 PROGRAMMER NAME: TROY ADKINS, JSRCC PROGRAM CHANGE REQUEST NO: 00007836 DESCRIPTION OF CHANGE: CORRECTED THE PROGRAM TO DISPLAY A MESSAGE WHEN AN OBJECT IS SELECTED THAT IS NOT WITHIN THE BUDGET SPECIFIED.