%ģ VAX-11 Librarian V04-00¬ī2mĖ@–_3mĖ6\7(PFORM-UIF310SCR~FORM-UIF340SC1xFORM-UIF340SC2.FORM-UIF340SC3VFORM-UIF340SC4( MASTER-RECORD*Ņ MENU-RECORD+źSECURITY-RECORD,v SWITCH-RECORD.¢SYMBOL-TABLE-RECORD1 UIF-INPUT-RECORD3’ UIF-MASTER-FD3üUIF-SECURITY-FD4bUIF-USERNAME-FD4ģUSERNAME-RECORD5 WS-RECORD ­`é #ÜĄŽ*?* VAX/VMS SCOPE COBOL data record definition for form UIF310SCR*01 FIELD-NUMBER-TABLE-SCR.B 05 FNO-SCR-MENU-TITLE Pic S9(5) Comp Value 100.B 05 FNO-SCR-MENU-PROG-ID Pic S9(5) Comp Value 200.B 05 FNO-SCR-MENU-ITEM-1 Pic S9(5) Comp Value 400.B 05 FNO-SCR-MENU-DESC-1 Pic S9(5) Comp Value 500.B 05 FNO-SCR-MENU-TRANS-1 Pic S9(5) Comp Value 600.B 05 FNO-SCR-MENU-ITEM-2 Pic S9(5) Comp Value 700.B 05 FNO-SCR-MENU-DESC-2 Pic S9(5) Comp Value 800.B 05 FNO-SCR-MENU-TRANS-2 Pic S9(5) Comp Value 900.C 05 FNO-SCR-MENU-ITEM-3 Pic S9(5) Comp Value 1000.C 05 FNO-SCR-MENU-DESC-3 Pic S9(5) Comp Value 1100.C 05 FNO-SCR-MENU-TRANS-3 Pic S9(5) Comp Value 1200.C 05 FNO-SCR-MENU-ITEM-4 Pic S9(5) Comp Value 1300.C 05 FNO-SCR-MENU-DESC-4 Pic S9(5) Comp Value 14 00.C 05 FNO-SCR-MENU-TRANS-4 Pic S9(5) Comp Value 1500.C 05 FNO-SCR-MENU-ITEM-5 Pic S9(5) Comp Value 1600.C 05 FNO-SCR-MENU-DESC-5 Pic S9(5) Comp Value 1700.C 05 FNO-SCR-MENU-TRANS-5 Pic S9(5) Comp Value 1800.C 05 FNO-SCR-MENU-ITEM-6 Pic S9(5) Comp Value 1900.C 05 FNO-SCR-MENU-DESC-6 Pic S9(5) Comp Value 2000.C 05 FNO-SCR-MENU-TRANS-6 Pic S9(5) Comp Value 2100.C 05 FNO-SCR-MENU-ITEM-7 Pic S9(5) Comp Value 2200.C 05 FNO-SCR-MENU-DESC-7 Pic S9(5) Comp Value 2300.C 05 FNO-SCR-MENU-TRANS-7 Pic S9(5) Comp Value 2400.C 05 FNO-SCR-MENU-ITEM-8 Pic S9(5) Comp Value 2500.C 05 FNO-SCR-MENU-DESC-8 Pic S9(5) Comp Value 2600.C 05 FNO-SCR-MENU-TRANS-8 Pic S9(5) Comp Value 2700.C 05 FNO-SCR-MENU-ITEM-9 Pic S9(5) Comp Value 2800.C 05 FNO-SCR-MENU-DESC-9 Pic S9(5) Comp Value 2900.C 05 FNO-SCR-MENU-TRANS-9 Pic S9(5) Comp Value 3000.C 05 FNO-SCR-MENU-ITEM-10 Pic S9(5) Comp Value 3100.C 05 FNO-SCR-MENU-DESC-10 Pic S9(5) Comp Value 3200.C 05 FNO-SCR-MENU-TRANS-10 Pic S9(5) Comp Value 3300.C 05 FNO-SCR-MENU-ITEM-11 Pic S9(5) Comp Value 3400.C 05 FNO-SCR-MENU-DESC-11 Pic S9(5) Comp Value 3500.C 05 FNO-SCR-MENU-TRANS-11 P ic S9(5) Comp Value 3600.C 05 FNO-SCR-MENU-ITEM-12 Pic S9(5) Comp Value 3700.C 05 FNO-SCR-MENU-DESC-12 Pic S9(5) Comp Value 3800.C 05 FNO-SCR-MENU-TRANS-12 Pic S9(5) Comp Value 3900.C 05 FNO-SCR-MENU-ITEM-13 Pic S9(5) Comp Value 4000.C 05 FNO-SCR-MENU-DESC-13 Pic S9(5) Comp Value 4100.C 05 FNO-SCR-MENU-TRANS-13 Pic S9(5) Comp Value 4200.C 05 FNO-SCR-MENU-ITEM-14 Pic S9(5) Comp Va lue 4300.C 05 FNO-SCR-MENU-DESC-14 Pic S9(5) Comp Value 4400.C 05 FNO-SCR-MENU-TRANS-14 Pic S9(5) Comp Value 4500.C 05 FNO-SCR-MENU-ITEM-15 Pic S9(5) Comp Value 4600.C 05 FNO-SCR-MENU-DESC-15 Pic S9(5) Comp Value 4700.C 05 FNO-SCR-MENU-TRANS-15 Pic S9(5) Comp Value 4800.C 05 FNO-SCR-MENU-ITEM-16 Pic S9(5) Comp Value 4900.C 05 FNO-SCR-MENU-DESC-16 Pic S9(5) Comp Value 5000.C  05 FNO-SCR-MENU-TRANS-16 Pic S9(5) Comp Value 5100.C 05 FNO-SCR-MENU-ITEM-17 Pic S9(5) Comp Value 5200.C 05 FNO-SCR-MENU-DESC-17 Pic S9(5) Comp Value 5300.C 05 FNO-SCR-MENU-TRANS-17 Pic S9(5) Comp Value 5400.C 05 FNO-SCR-MENU-ITEM-18 Pic S9(5) Comp Value 5500.C 05 FNO-SCR-MENU-DESC-18 Pic S9(5) Comp Value 5600.C 05 FNO-SCR-MENU-TRANS-18 Pic S9(5) Comp Value 5700.C 05 FNO-SCR-MEN U-ITEM-19 Pic S9(5) Comp Value 5800.C 05 FNO-SCR-MENU-DESC-19 Pic S9(5) Comp Value 5900.C 05 FNO-SCR-MENU-TRANS-19 Pic S9(5) Comp Value 6000.C 05 FNO-SCR-MENU-ITEM-20 Pic S9(5) Comp Value 6100.C 05 FNO-SCR-MENU-DESC-20 Pic S9(5) Comp Value 6200.C 05 FNO-SCR-MENU-TRANS-20 Pic S9(5) Comp Value 6300.C 05 FNO-SCR-MENU-CHOICE Pic S9(5) Comp Value 6400.C 05 FNO-SCR-MAX-FIELD-NUMBER Pic S9(5) Comp Value 6400. 01 FORM-SCR.3 05 SCR-MENU-TITLE Pic X(20).2 05 SCR-MENU-PROG-ID Pic X(9).3 05 SCR-MENU-ITEM-1 Pic 9(2).3 05 SCR-MENU-DESC-1 Pic X(60).2 05 SCR-MENU-TRANS-1 Pic X(9).3 05 SCR-MENU-ITEM-2 Pic 9(2).3 05 SCR-MENU-DESC-2 Pic X(60).2 05 SCR-MENU-TRANS-2 Pic X(9).3 05 SCR-MENU-ITEM-3  Pic 9(2).3 05 SCR-MENU-DESC-3 Pic X(60).2 05 SCR-MENU-TRANS-3 Pic X(9).3 05 SCR-MENU-ITEM-4 Pic 9(2).3 05 SCR-MENU-DESC-4 Pic X(60).2 05 SCR-MENU-TRANS-4 Pic X(9).3 05 SCR-MENU-ITEM-5 Pic 9(2).3 05 SCR-MENU-DESC-5 Pic X(60).2 05 SCR-MENU-TRANS-5 Pic X(9).3 05 SCR-MENU-ITEM-6 Pic 9(2).3  05 SCR-MENU-DESC-6 Pic X(60).2 05 SCR-MENU-TRANS-6 Pic X(9).3 05 SCR-MENU-ITEM-7 Pic 9(2).3 05 SCR-MENU-DESC-7 Pic X(60).2 05 SCR-MENU-TRANS-7 Pic X(9).3 05 SCR-MENU-ITEM-8 Pic 9(2).3 05 SCR-MENU-DESC-8 Pic X(60).2 05 SCR-MENU-TRANS-8 Pic X(9).3 05 SCR-MENU-ITEM-9 Pic 9(2).3 05 SCR-MENU-DESC-9  Pic X(60).2 05 SCR-MENU-TRANS-9 Pic X(9).3 05 SCR-MENU-ITEM-10 Pic 9(2).3 05 SCR-MENU-DESC-10 Pic X(60).2 05 SCR-MENU-TRANS-10 Pic X(9).3 05 SCR-MENU-ITEM-11 Pic 9(2).3 05 SCR-MENU-DESC-11 Pic X(60).2 05 SCR-MENU-TRANS-11 Pic X(9).3 05 SCR-MENU-ITEM-12 Pic 9(2).3 05 SCR-MENU-DESC-12 Pic X(60).2  05 SCR-MENU-TRANS-12 Pic X(9).3 05 SCR-MENU-ITEM-13 Pic 9(2).3 05 SCR-MENU-DESC-13 Pic X(60).2 05 SCR-MENU-TRANS-13 Pic X(9).3 05 SCR-MENU-ITEM-14 Pic 9(2).3 05 SCR-MENU-DESC-14 Pic X(60).2 05 SCR-MENU-TRANS-14 Pic X(9).3 05 SCR-MENU-ITEM-15 Pic 9(2).3 05 SCR-MENU-DESC-15 Pic X(60).2 05 SCR-MENU-TRANS-15  Pic X(9).3 05 SCR-MENU-ITEM-16 Pic 9(2).3 05 SCR-MENU-DESC-16 Pic X(60).2 05 SCR-MENU-TRANS-16 Pic X(9).3 05 SCR-MENU-ITEM-17 Pic 9(2).3 05 SCR-MENU-DESC-17 Pic X(60).2 05 SCR-MENU-TRANS-17 Pic X(9).3 05 SCR-MENU-ITEM-18 Pic 9(2).3 05 SCR-MENU-DESC-18 Pic X(60).2 05 SCR-MENU-TRANS-18 Pic X(9).3 05 SCR-MENU-ITEM-19 Pic 9(2).3 05 SCR-MENU-DESC-19 Pic X(60).2 05 SCR-MENU-TRANS-19 Pic X(9).3 05 SCR-MENU-ITEM-20 Pic 9(2).3 05 SCR-MENU-DESC-20 Pic X(60).2 05 SCR-MENU-TRANS-20 Pic X(9).2 05 SCR-MENU-CHOICE Pic X(9).ww­@½øŒ)*?* VAX/VMS SCOPE COBOL data record definition for form UIF340SC1*01 FIELD-NUMBER-TABLE-SC1.A 05 FNO-SC1-UIF-TITLE Pic S9(5) Comp Value 10.A 05 FNO-SC1-UIF-PROGRAM-ID Pic S9(5) Comp Value 20.A 05 FNO-SC1-FIELD-30 Pic S9(5) Comp Value 30.A 05 FNO-SC1-FIELD-40 Pic S9(5) Comp Value 40.A 05 FNO-SC1-FIELD-50 Pic S9(5) Comp Value 50.A 05 FNO-SC1-FIELD-60 Pic S9(5) Comp Value 60.A 05 FNO-SC1-FIELD-70 Pic S9(5) Comp Value 70.A 05 FNO-SC1-FIELD-80  Pic S9(5) Comp Value 80.A 05 FNO-SC1-FIELD-90 Pic S9(5) Comp Value 90.B 05 FNO-SC1-FIELD-100 Pic S9(5) Comp Value 100.B 05 FNO-SC1-FIELD-110 Pic S9(5) Comp Value 110.B 05 FNO-SC1-FIELD-120 Pic S9(5) Comp Value 120.B 05 FNO-SC1-FIELD-130 Pic S9(5) Comp Value 130.B 05 FNO-SC1-FIELD-140 Pic S9(5) Comp Value 140.B 05 FNO-SC1-UIF-PROMPT Pic S9(5) Comp Value 150.B 05 FNO-SC1-UIF-SELECTION Pic S9(5) Comp Value 160.B 05 FNO-SC1-MAX-FIELD-NUMBER Pic S9(5) Comp Value 160. 01 FORM-SC1.3 05 SC1-UIF-TITLE Pic X(20).2 05 SC1-UIF-PROGRAM-ID Pic X(9).3 05 SC1-UIF-PROMPT Pic X(75).2 05 SC1-UIF-SELECTION Pic X(3).ww­€ĒŹ Œ)*?* VAX/VMS SCOPE COBOL data record definition for form UIF340SC2*01 FIELD-NUMBER-TABLE-SC2.A 05 FNO -SC2-UIF-TITLE Pic S9(5) Comp Value 10.A 05 FNO-SC2-UIF-PROGRAM-ID Pic S9(5) Comp Value 20.A 05 FNO-SC2-UIF-GENERIC-NAME Pic S9(5) Comp Value 30.A 05 FNO-SC2-UIF-TOP-LEVEL-MENU Pic S9(5) Comp Value 40.A 05 FNO-SC2-UIF-PROMPT Pic S9(5) Comp Value 50.A 05 FNO-SC2-UIF-RESPONSE Pic S9(5) Comp Value 60.A 05 FNO-SC2-MAX-FIELD-NUMBER Pic S9(5) Comp Value 60. 01 FORM-SC2.3 05 SC2-UIF-TITLE  Pic X(20).2 05 SC2-UIF-PROGRAM-ID Pic X(9).3 05 SC2-UIF-GENERIC-NAME Pic X(12).2 05 SC2-UIF-TOP-LEVEL-MENU Pic X(9).3 05 SC2-UIF-PROMPT Pic X(75).2 05 SC2-UIF-RESPONSE Pic X(3).ww­`ŲųŒ)*?* VAX/VMS SCOPE COBOL data record definition for form UIF340SC3*01 FIELD-NUMBER-TABLE-SC3.A 05 FNO-SC3-UIF-TITLE Pic S9(5) Comp Value 10.A 05 FNO-SC3-UIF-PROGRAM-ID Pic S9(5) Comp Value 20.A 05 FNO-SC3-UIF-TRANSACTION-NAME Pic S9(5) Comp Value 30.A 05 FNO-SC3-UIF-TRANSACTION-DESC Pic S9(5) Comp Value 40.A 05 FNO-SC3-UIF-TRANSACTION-TYPE Pic S9(5) Comp Value 50.A 05 FNO-SC3-UIF-TRANSACTION-FORM Pic S9(5) Comp Value 60.A 05 FNO-SC3-UIF-TRANSACTION-SWITCH Pic S9(5) Comp Value 70.A 05 FNO-SC3-UIF-PROMPT Pic S9(5) Comp Value 80.A 05 FNO-SC3-UIF-RESPONSE Pic S9( 5) Comp Value 90.A 05 FNO-SC3-MAX-FIELD-NUMBER Pic S9(5) Comp Value 90. 01 FORM-SC3.3 05 SC3-UIF-TITLE Pic X(20).2 05 SC3-UIF-PROGRAM-ID Pic X(9).2 05 SC3-UIF-TRANSACTION-NAME Pic X(9).3 05 SC3-UIF-TRANSACTION-DESC Pic X(60).2 05 SC3-UIF-TRANSACTION-TYPE Pic X(1).3 05 SC3-UIF-TRANSACTION-FORM Pic X(31).3 05 SC3-UIF-TRANSACTION-SWITCH Pic X(31).3 05 SC3-UIF-PROMPT  Pic X(76).2 05 SC3-UIF-RESPONSE Pic X(3).ww­J"Œ)*?* VAX/VMS SCOPE COBOL data record definition for form UIF340SC4*01 FIELD-NUMBER-TABLE-SC4.A 05 FNO-SC4-UIF-TITLE Pic S9(5) Comp Value 10.A 05 FNO-SC4-UIF-PROGRAM-ID Pic S9(5) Comp Value 20.A 05 FNO-SC4-UIF-MENU-NAME Pic S9(5) Comp Value 30.A 05 FNO-SC4-UIF-MENU-TITLE Pic S9(5) Comp Value 40.A 05 FNO-SC4-UIF-MENU-DESCRIPTION Pic S9(5) Comp Value 50.A 05 FNO-SC4-FIELD-60 Pic S9(5) Comp Value 60.A 05 FNO-SC4-FIELD-70 Pic S9(5) Comp Value 70.A 05 FNO-SC4-FIELD-80 Pic S9(5) Comp Value 80.A 05 FNO-SC4-FIELD-90 Pic S9(5) Comp Value 90.B 05 FNO-SC4-UIF-OPTION-1 Pic S9(5) Comp Value 100.B 05 FNO-SC4-UIF-TYPE-1 Pic S9(5) Comp Value 110.B 05 FNO-SC4-UIF-OPTION-2 Pic S9(5) Comp Valu e 120.B 05 FNO-SC4-UIF-TYPE-2 Pic S9(5) Comp Value 130.B 05 FNO-SC4-UIF-OPTION-3 Pic S9(5) Comp Value 140.B 05 FNO-SC4-UIF-TYPE-3 Pic S9(5) Comp Value 150.B 05 FNO-SC4-UIF-OPTION-4 Pic S9(5) Comp Value 160.B 05 FNO-SC4-UIF-TYPE-4 Pic S9(5) Comp Value 170.B 05 FNO-SC4-UIF-OPTION-5 Pic S9(5) Comp Value 180.B 05 FNO-SC4-UIF-TYPE-5 Pic S9(5) Comp Value 190.B 05 FNO-SC4-UIF-OPTION-6 Pic S9(5) Comp Value 200.B 05 FNO-SC4-UIF-TYPE-6 Pic S9(5) Comp Value 210.B 05 FNO-SC4-UIF-OPTION-7 Pic S9(5) Comp Value 220.B 05 FNO-SC4-UIF-TYPE-7 Pic S9(5) Comp Value 230.B 05 FNO-SC4-UIF-OPTION-8 Pic S9(5) Comp Value 240.B 05 FNO-SC4-UIF-TYPE-8 Pic S9(5) Comp Value 250.B 05 FNO-SC4-UIF-OPTION-9 Pic S9(5) Comp Value 260.B 05 FNO-SC4-UIF-TYPE-9 Pic S9(5) C omp Value 270.B 05 FNO-SC4-UIF-OPTION-10 Pic S9(5) Comp Value 280.B 05 FNO-SC4-UIF-TYPE-10 Pic S9(5) Comp Value 290.B 05 FNO-SC4-UIF-OPTION-11 Pic S9(5) Comp Value 300.B 05 FNO-SC4-UIF-TYPE-11 Pic S9(5) Comp Value 310.B 05 FNO-SC4-UIF-OPTION-12 Pic S9(5) Comp Value 320.B 05 FNO-SC4-UIF-TYPE-12 Pic S9(5) Comp Value 330.B 05 FNO-SC4-UIF-OPTION-13 Pic S9(5) Comp Value 340.B 05 FNO-S C4-UIF-TYPE-13 Pic S9(5) Comp Value 350.B 05 FNO-SC4-UIF-OPTION-14 Pic S9(5) Comp Value 360.B 05 FNO-SC4-UIF-TYPE-14 Pic S9(5) Comp Value 370.B 05 FNO-SC4-UIF-OPTION-15 Pic S9(5) Comp Value 380.B 05 FNO-SC4-UIF-TYPE-15 Pic S9(5) Comp Value 390.B 05 FNO-SC4-UIF-OPTION-16 Pic S9(5) Comp Value 400.B 05 FNO-SC4-UIF-TYPE-16 Pic S9(5) Comp Value 410.B 05 FNO-SC4-UIF-OPTION-17 Pic ! S9(5) Comp Value 420.B 05 FNO-SC4-UIF-TYPE-17 Pic S9(5) Comp Value 430.B 05 FNO-SC4-UIF-OPTION-18 Pic S9(5) Comp Value 440.B 05 FNO-SC4-UIF-TYPE-18 Pic S9(5) Comp Value 450.B 05 FNO-SC4-UIF-OPTION-19 Pic S9(5) Comp Value 460.B 05 FNO-SC4-UIF-TYPE-19 Pic S9(5) Comp Value 470.B 05 FNO-SC4-UIF-OPTION-20 Pic S9(5) Comp Value 480.B 05 FNO-SC4-UIF-TYPE-20 Pic S9(5) Comp Value 490.B "05 FNO-SC4-UIF-PROMPT Pic S9(5) Comp Value 500.B 05 FNO-SC4-UIF-RESPONSE Pic S9(5) Comp Value 510.B 05 FNO-SC4-MAX-FIELD-NUMBER Pic S9(5) Comp Value 510.*A* The following rename must remain in this library module. If a B* programmer creates a new module for UIF340SC4 with Scope, ensure+* you replace FN0-SC4-RENAME in the module.*701 FNO-SC4-RENAME REDEFINES FIELD-NUMBER-TABLE-SC4., 05 FILLER PIC S9(5) COMP OCCURS 9 TIMES.* 05 FNO-SC4 #-OPTION-TYPE OCCURS 20 TIMES.- 10 FNO-SC4-OPTION-ARRAY PIC S9(5) COMP.+ 10 FNO-SC4-TYPE-ARRAY PIC S9(5) COMP., 05 FILLER PIC S9(5) COMP OCCURS 3 TIMES. 01 FORM-SC4.3 05 SC4-UIF-TITLE Pic X(20).2 05 SC4-UIF-PROGRAM-ID Pic X(9).2 05 SC4-UIF-MENU-NAME Pic X(9).3 05 SC4-UIF-MENU-TITLE Pic X(20).3 05 SC4-UIF-MENU-DESCRIPTION Pic X(60).2 05 SC4-UIF-OPTION-1 Pic X(9).2 $ 05 SC4-UIF-TYPE-1 Pic X(1).2 05 SC4-UIF-OPTION-2 Pic X(9).2 05 SC4-UIF-TYPE-2 Pic X(1).2 05 SC4-UIF-OPTION-3 Pic X(9).2 05 SC4-UIF-TYPE-3 Pic X(1).2 05 SC4-UIF-OPTION-4 Pic X(9).2 05 SC4-UIF-TYPE-4 Pic X(1).2 05 SC4-UIF-OPTION-5 Pic X(9).2 05 SC4-UIF-TYPE-5 Pic X(1).2 05 SC4-UIF-OPTION-6 % Pic X(9).2 05 SC4-UIF-TYPE-6 Pic X(1).2 05 SC4-UIF-OPTION-7 Pic X(9).2 05 SC4-UIF-TYPE-7 Pic X(1).2 05 SC4-UIF-OPTION-8 Pic X(9).2 05 SC4-UIF-TYPE-8 Pic X(1).2 05 SC4-UIF-OPTION-9 Pic X(9).2 05 SC4-UIF-TYPE-9 Pic X(1).2 05 SC4-UIF-OPTION-10 Pic X(9).2 05 SC4-UIF-TYPE-10 Pic X(1).2 05 SC4-UIF-OPTION- &11 Pic X(9).2 05 SC4-UIF-TYPE-11 Pic X(1).2 05 SC4-UIF-OPTION-12 Pic X(9).2 05 SC4-UIF-TYPE-12 Pic X(1).2 05 SC4-UIF-OPTION-13 Pic X(9).2 05 SC4-UIF-TYPE-13 Pic X(1).2 05 SC4-UIF-OPTION-14 Pic X(9).2 05 SC4-UIF-TYPE-14 Pic X(1).2 05 SC4-UIF-OPTION-15 Pic X(9).2 05 SC4-UIF-TYPE-15 Pic X(1).2 05 S 'C4-UIF-OPTION-16 Pic X(9).2 05 SC4-UIF-TYPE-16 Pic X(1).2 05 SC4-UIF-OPTION-17 Pic X(9).2 05 SC4-UIF-TYPE-17 Pic X(1).2 05 SC4-UIF-OPTION-18 Pic X(9).2 05 SC4-UIF-TYPE-18 Pic X(1).2 05 SC4-UIF-OPTION-19 Pic X(9).2 05 SC4-UIF-TYPE-19 Pic X(1).2 05 SC4-UIF-OPTION-20 Pic X(9).2 05 SC4-UIF-TYPE-20 Pic X(1().3 05 SC4-UIF-PROMPT Pic X(76).2 05 SC4-UIF-RESPONSE Pic X(3).*A* The following rename must remain in this library module. If a B* programmer creates a new module for UIF340SC4 with Scope, ensure)* you replace SC4-UIF-MENU in the module.*&01 SC4-UIF-MENU REDEFINES FORM-SC4. 05 FILLER PIC X(118).' 05 SC4-UIF-TYP-OPT OCCURS 20 TIMES.! 10 SC4-UIF-OPTION PIC X(9).# 10 SC4-UIF-TYPE PIC X(1).  05 FILLER PIC X(79).)ww­Ąę Ž*E* This record descibes the master menu and transaction records in the* User Interface. *6* Primary Key = MASTER-RECORD-NAME, MASTER-RECORD-TYPE*!* Placed in library 21-Aug-85 * Last Change Made 99-XXX-99*01 MASTER-RECORD. 05 MASTER-PRIMARY-KEY.& 10 MASTER-RECORD-NAME PIC X(9).& 10 MASTER-RECORD-TYPE PIC X(1)./ 05 MASTER-RECORD-ACCESS-COUNT COMP PIC S9(4). 05 MASTER-TRANSACTION.2 10 MASTER-TRANSACTION-DESCRIPTION PIC *X(60).+ 10 MASTER-TRANSACTION-TYPE PIC X(1).# 88 INTERACTIVE-JOB VALUE "I". 88 BATCH-JOB VALUE "B"., 10 MASTER-TRANSACTION-FORM PIC X(31).2 10 FILLER REDEFINES MASTER-TRANSACTION-FORM. 15 FILLER PIC X(1).& 88 SPECIAL-SCREEN VALUE "@".% 88 NORMAL-SCREEN VALUE "*"." 88 GENERIC-SCREEN VALUES "A" THRU "Z".- 10 MASTER-TRANSACTION-SWITCH PIC X(31). 10 FILLER PIC X(139).. 05 MASTER-MENU REDEFINES MASTER-TRANSACTIO+N.' 10 MASTER-MENU-TITLE PIC X(20). , 10 MASTER-MENU-DESCRIPTION PIC X(60).- 10 MASTER-MENU-NODE-CNT COMP PIC S9(4).# 10 MASTER-MENU-NODE PIC X(9) OCCURS 20 TIMES.ww­€½ Ž*E* This record will contain the options displayed to the user and will.* return his selection to the User Interface. ** Placed in library 21-Aug-85* Last change made 99-XXX-99*01 MENU-RECORD. 05 MENU-TITLE PIC X(20). 05 MENU-PROG-ID PIC X(9). 0,5 MENU-REQUEST PIC X(9)." 05 MENU-DISPLAY OCCURS 20 TIMES. 10 MENU-ITEM PIC 9(2). 10 MENU-FILL PIC X(1). 10 MENU-DESC PIC X(60). 10 MENU-FILL1 PIC X(1). 10 MENU-TRANS PIC X(9). 10 MENU-FILL2 PIC X(1). 05 MENU-CHOICE PIC X(9).' 05 MENU-NUMBER REDEFINES MENU-CHOICE. 10 MENU-FILLER PIC X(7).! 10 MENU-NUMERIC PIC 9(2). 05 MENU-ALTERNATE.+ 10 MENU-CHAR OCCURS 9 TIMES PIC X(1).ww­ąķ Ž*-F* This record descibes the security record which is used to define theG* transactions that a particular generic user is allowed to do while in* the user interface. *"* Placed in library 23-Aug-85!* Last Change Made 99-XXX-99*01 SECURITY-RECORD.* 05 SECURITY-GENERIC-USERNAME PIC X(12).) 05 SECURITY-TRANSACTION-NAME PIC X(9).ww­`† Ž*I* This record contains switches used in the User Interface programs which* are passed between routines. *.* Placed in library 23-Aug-85* Last change made 99-XXX-99*01 SWITCH-RECORD.) 05 INVALID-KEY-SW PIC X(1) VALUE "N".& 88 NO-INVALID-KEY VALUE "N".# 88 INVALID-KEY VALUE "Y".# 05 EXIT-SW PIC X(1) VALUE "N". 88 DONE VALUE "Y".& 88 TOP-LEVEL-MENU VALUE "T"." 88 FIRST-TIME VALUE "F". 88 NOT-DONE VALUE "N".) 05 TRANSACTION-SW PIC X(1) VALUE "N".# 88 TRANSACTION VALUE "T". 88 USER VALUE "U".'/ 88 NOT-TRANSACTION VALUE "M".+ 05 PREVIOUS-MENU-SW PIC X(1) VALUE "N".% 88 PREVIOUS-MENU VALUE "Y".( 88 NOT-PREVIOUS-MENU VALUE "N".* 05 CHOICE-VALID-SW PIC X(1) VALUE "N".$ 88 CHOICE-VALID VALUE "Y".' 88 CHOICE-NOT-VALID VALUE "N".& 05 CAPTIVE-SW PIC X(1) VALUE "N".# 88 NOT-CAPTIVE VALUE "N". 88 CAPTIVE VALUE "Y".ww­¦įŽ*E* This record is used for the passing of information within the User 0!* Interface Tranaction Processor.** Placed in library: 12-Aug-85* Last change made: 12-Aug-85*01 SYMBOL-TABLE-RECORD.) 05 SYMBOL-TABLE-CNT COMP PIC S9(4).F 05 SYMBOL-TABLE OCCURS 1 TO 100 TIMES DEPENDING ON SYMBOL-TABLE-CNT.% 10 SYMBOL-NAME PIC X(31). 88 TRANSACTION-MODE VALUE "TRANSACTION-MODE".! 88 TRANSACTION-ABORT VALUE  "TRANSACTION-ABORT".! 88 TRANSACTION-MENU VALUE  "TRANSACTION-MENU".! 10 SYMBOL-TYPE 1 PIC X. 88 ALPHA-TYPE VALUE "X". 88 NUMERIC-TYPE VALUE "9".% 88 VALID-TYPE VALUES "X", "9".( 10 SYMBOL-ALPHA-VALUE PIC X(31). 88 INTERACTIVE-MODE VALUE  "INTERACTIVE".: 10 SYMBOL-NUMERIC-VALUE REDEFINES SYMBOL-ALPHA-VALUE PIC S9(9)V9(9).& 10 REDEFINES SYMBOL-ALPHA-VALUE. 15 SYMBOL-INTEGER PIC 9(9). 15 SYMBOL-DECIMAL PIC S9(9)., 10 SYMBOL-INTEGER-SIZE COMP PIC S9(4)., 10 SYMBOL-DECIMAL-SIZE COMP PIC S9(4).2ww­€.ĘEŒ)** UIF: UIF-INPUT-RECORD*3* This record is used by UIF340 to map data to andC* from the screen for both the main maintenance menu and<* the maintenance screens for the User Interface.* 0* Placed in UIFLIB.TLB 26-JUN-86)* Last Modified 99-XXX-99 * 01 UIF-INPUT-RECORD.' 02 UIF-TITLE PIC X(20).& 02 UIF-PROGRAM-ID PIC X(9).& 02 UIF-REQUEST PIC X(9).' 02 UIF-P3ROMPT PIC X(60).& 02 UIF-RESPONSE PIC X(2).' 02 UIF-MESSAGE PIC X(60). 02 UIF-VARIABLE. 03 UIF-TRANSACTION.) 04 UIF-TRANSACTION-NAME PIC X(9).0 04 UIF-TRANSACTION-DESCRIPTION PIC X(60).! 04 FILLER PIC X(222).) 03 UIF-MENU REDEFINES UIF-TRANSACTION.! 04 UIF-MENU-NAME PIC X(9).# 04 UIF-MENU-TITLE PIC X(20).) 04 UIF-MENU-DESCRIPTION PIC X(60). 04 UIF-FIELD PIC X(2)./ 04 UIF-OPTION 4PIC X(9) OCCURS 20 TIMES., 04 UIF-TYPE PIC X OCCURS 20 TIMES.) 03 UIF-USER REDEFINES UIF-TRANSACTION.! 04 UIF-USERNAME PIC X(12).% 04 UIF-GENERIC-NAME PIC X(12).& 04 UIF-TOP-LEVEL-MENU PIC X(9).! 04 FILLER PIC X(258).. 03 UIF-MAIN-MENU REDEFINES UIF-TRANSACTION.! 04 UIF-SELECTION PIC X(2).! 04 FILLER PIC X(289).ww­ĄĻ–§Ž' VALUE OF ID IS "UIFDIR:UIF340.MAS"& RECORD KEY IS MASTER-PRIMARY-KEY.ww­5`E6£§Ž# VALUE OF ID IS "UIFDIR:UIF340.SEC" RECORD KEY IS SECURITY-RECORD.ww­ ‚³§Ž# VALUE OF ID IS "UIFDIR:UIF330.USR" RECORD KEY IS USER-USERNAME+ ALTERNATE RECORD KEY IS USER-GENERIC-NAME.ww­@ĖZ# Ž*C* This record descibes the username/generic name record in the User * Interface. *$* Primary Key = USER-USERNAME(* Alternate Key = USER-GENERIC-NAME*"* Placed in library 23-Aug-85!* Last Change Made 99-XXX-99*016 USERNAME-RECORD. 05 USER-USERNAME PIC X(12).# 05 USER-GENERIC-NAME PIC X(12).( 05 USER-TOP-LEVEL-MENU-NAME PIC X(9).ww­ „§/Œ)** UIF: WS-RECORD*2* This record contains fields referenced in TDMSB* requests, etc. for the User Interface, and goes into * working storage. * .* Placed in UIFLIB.TLB 26-JUN-86/* Last change made XX-XXX-XX .*  01 WS-RECORD.'  02 ERROR-MSG PIC X(80).' 02 UIF-CONTROL-FIELD PIC X(20).ww