01 RMP--PARAMETERS.
03 RMP--INTERNAL-VALUES.
05 RMP--VERSION PIC 9(4) VALUE 200.
03 RMP--CONFIGURATION-PARAMETERS.
05 RMP--RUNTIME PIC X(80) VALUE "runpan2".
05 RMP--TEMP-FILE-NAME PIC X(12) VALUE SPACE.
05 RMP--TEMP-FILE-DIRECTORY PIC X(80) VALUE SPACE.
05 RMP--DEBUG-SW PIC X VALUE "N".
88 RMP--DEBUG VALUE "Y" WHEN FALSE "N".
05 RMP--PROT-CHAR-SW PIC X VALUE "N".
88 RMP--PROT-ALLOW-CHAR VALUE "Y".
88 RMP--PROT-PREVENT-CHAR VALUE "N".
05 RMP--FORCE-MONO-KEY PIC 9(3).
05 RMP--USER-EDIT-KEY PIC 9(3).
05 RMP--BACKSPACE-KEY PIC 9(3).
05 RMP--GEN-HELP-SUP-SW PIC X VALUE "N".
88 RMP--GEN-HELP-SUP VALUE "Y" WHEN FALSE "N".
05 RMP--KEY-CONFIGURATION.
07 RMP--HELP-KEY-VALUES PIC X(15)
VALUE "001000000000000".
07 RMP--RETURN-KEY-VALUES PIC X(15)
VALUE "013000000000000".
07 RMP--NEXT-FIELD-KEY-VALUES PIC X(15)
VALUE "053000000000000".
07 RMP--PREV-FIELD-KEY-VALUES PIC X(15)
VALUE "052000000000000".
07 RMP--NEXT-GROUP-KEY-VALUES PIC X(15)
VALUE "058000000000000".
07 RMP--PREV-GROUP-KEY-VALUES PIC X(15)
VALUE "056000000000000".
07 RMP--PULLDOWN-KEY-VALUES PIC X(15)
VALUE "027000000000000".
03 RMP--GENERAL-FUNCTION-PARAMS.
05 RMP--LIBRARY PIC X(80).
05 RMP--FIELD-NAME PIC X(30).
05 RMP--FIELD-OCCUR PIC 9(4).
05 RMP--FIELD-SEQ PIC 9(3).
05 RMP--ATTRIBUTE PIC X.
05 RMP--PALETTE PIC 99.
05 RMP--SUPPRESS-EVENT-RESET-SW PIC X VALUE "N".
88 RMP--SUPPRESS-EVENT-RESET VALUE "Y" WHEN FALSE "N".
05 RMP--FORCE-MONO-SW PIC X VALUE "N".
88 RMP--FORCE-MONO VALUE "Y" WHEN FALSE "N".
05 RMP--POLLING-INTERVAL PIC 9(6).
03 RMP--PANEL-DISPLAY-PARAMS.
05 RMP--SHOW-FIELDS-SW PIC X VALUE "N".
88 RMP--SHOW-FIELDS VALUE "Y" WHEN FALSE "N".
05 RMP--CLEAR-SW PIC X VALUE "N".
88 RMP--CLEAR VALUE "Y" WHEN FALSE "N".
05 RMP--WINDOW-SW PIC X VALUE SPACE.
88 RMP--WINDOW VALUE "Y" WHEN FALSE "N".
05 RMP--PANEL-LINE PIC 9(3).
05 RMP--PANEL-POS PIC 9(3).
05 RMP--BEEP-SW PIC X VALUE "N".
88 RMP--BEEP VALUE "Y" WHEN FALSE "N".
03 RMP--EXECUTE-EVENT-PARAMS.
05 RMP--EE-CONTROL-PARAMS.
07 RMP--REPEAT-EVENT-SW PIC X VALUE "N".
88 RMP--REPEAT-EVENT VALUE "Y" WHEN FALSE "N".
07 RMP--FIRST-FIELD-SW PIC X VALUE "N".
88 RMP--FIRST-FIELD VALUE "Y" WHEN FALSE "N".
07 RMP--NEXT-FIELD PIC X(30).
07 RMP--NEXT-OCCUR PIC 9(3).
07 RMP--NEXT-CURSOR-POS PIC 9(4).
07 RMP--NEXT-FIELD-SEQ PIC 9(3).
07 RMP--SUPPRESS-SELECTION-SW PIC X VALUE "N".
88 RMP--SUPPRESS-SELECTION VALUE "Y" WHEN FALSE "N".
05 RMP--EE-RETURNED-PARAMS.
07 RMP--LAST-FIELD PIC X(30).
07 RMP--LAST-OCCUR PIC 9(3).
07 RMP--LAST-CURSOR-POS PIC 9(4).
07 RMP--LAST-FIELD-SEQ PIC 9(3).
07 RMP--EVENT-TYPE PIC X VALUE SPACE.
88 RMP--BUTTON-PRESS VALUE "B".
88 RMP--BOX-CHANGED VALUE "C".
88 RMP--MENU-COMMAND VALUE "M".
88 RMP--RADIO-BTN-PRESSED VALUE "R".
88 RMP--LB-CHOICE-SELECTED VALUE "L".
88 RMP--SB-MOVED VALUES ARE "S" "D" "d" "U" "u".
88 RMP--SB-PAGE-UP VALUE "U".
88 RMP--SB-PAGE-DOWN VALUE "D".
88 RMP--SB-STEP-UP VALUE "u".
88 RMP--SB-STEP-DOWN VALUE "d".
88 RMP--SB-DRAG VALUE "S".
88 RMP--TIME-OUT-OCCURRED VALUE "T".
88 RMP--POLLING-OCCURRED VALUE "P".
88 RMP--PANEL-MOVED VALUE "F".
07 RMP--DATA-CHANGED-SW PIC X VALUE "N".
88 RMP--DATA-CHANGED VALUE "Y" WHEN FALSE "N".
07 RMP--PULLDOWN-PARAMETERS.
09 RMP--COMMAND-NAME PIC X(30).
09 RMP--COMMAND-TEXT PIC X(30).
07 RMP--MOUSE-CLICK-TYPE PIC X VALUE SPACE.
88 RMP--DOUBLE-CLICK VALUE "D".
88 RMP--SINGLE-CLICK VALUE "S".
07 RMP--LAST-PANEL PIC X(20).
07 RMP--REQUESTED-PANEL PIC X(20).
07 RMP--PROT-CHAR PIC X.
07 FILLER PIC X(96).
03 RMP--RETURNED-VALUES.
05 RMP--EXCEPTION-NUMBER PIC 9(3).
88 F10-KEY VALUE 10.
88 ESCAPE-KEY VALUE 27.
05 RMP--MOUSE-PRESENT-SW PIC X VALUE SPACE.
88 RMP--MOUSE-PRESENT VALUE "Y" WHEN FALSE "N".
05 RMP--VALID-INPUT-SW PIC X VALUE SPACE.
88 RMP--VALID-INPUT VALUE "Y".
88 RMP--INVALID-INPUT VALUE "N".
05 RMP--STATUS PIC 9(4) VALUE 0.
88 RMP--VALID-FUNCTION VALUE 0.
88 RMP--FIELD-INVALID VALUE 1.
88 RMP--OCCUR-INVALID VALUE 2.
88 RMP--FUNCTION-INVALID VALUE 3.
88 RMP--ATTRIBUTE-INVALID VALUE 4.
88 RMP--PANEL-INVALID VALUE 5.
88 RMP--LIBRARY-INVALID VALUE 6.
88 RMP--CONFIG-INVALID VALUE 7.
88 RMP--NO-FIELDS VALUE 8.
88 RMP--NO-ENABLED-FIELDS VALUE 9.
88 RMP--PANEL-NOT-DISPLAYED VALUE 10.
88 RMP--PALETTE-INVALID VALUE 11.
88 RMP--NO-HELP-DEFINED VALUE 12.
88 RMP--NO-ERROR-DEFINED VALUE 13.
88 RMP--IO-ERROR VALUE 14.
88 RMP--FIELD-DISABLED VALUE 15.
88 RMP--WINDOW-ERROR VALUE 16.
88 RMP--MENU-COMMAND-INVALID VALUE 20.
88 RMP--MODELESS-DATA-OVERLOAD VALUE 21.
88 RMP--NO-PULLDOWN VALUE 22.
88 RMP--WRONG-FIELD-TYPE VALUE 23.
88 RMP--TOO-MANY-PANELS VALUE 40.
88 RMP--CANNOT-CREATE-TEMP VALUE 41.
88 RMP--CANNOT-OPEN-TEMP VALUE 42.
88 RMP--API-PARAM-MISSING VALUE 1001.
88 RMP--API-MSG-NOT-DEFINED VALUE 1002.
88 RMP--API-PD-OPTION-INVALID VALUE 1003.
88 RMP--API-UNCHECKABLE VALUE 1004.
03 RMP--FUNCTION-CODES.
05 RMP--CAF PIC X VALUE X"01".
05 RMP--CPP PIC X VALUE X"02".
05 RMP--DAF PIC X VALUE X"03".
05 RMP--DF PIC X VALUE X"04".
05 RMP--DFI PIC X VALUE X"05".
05 RMP--DP PIC X VALUE X"06".
05 RMP--EE PIC X VALUE X"07".
05 RMP--EFI PIC X VALUE X"08".
05 RMP--IAF PIC X VALUE X"09".
05 RMP--IF PIC X VALUE X"0A".
05 RMP--RP PIC X VALUE X"0B".
05 RMP--SFA PIC X VALUE X"0C".
05 RMP--SFE PIC X VALUE X"0D".
05 RMP--SFH PIC X VALUE X"0E".
05 RMP--SPE PIC X VALUE X"0F".
05 RMP--SPH PIC X VALUE X"10".
05 RMP--VAF PIC X VALUE X"11".
05 RMP--VF PIC X VALUE X"12".
05 RMP--SSR PIC X VALUE X"13".
05 RMP--EMO PIC X VALUE X"14".
05 RMP--DMO PIC X VALUE X"15".
05 RMP--CMO PIC X VALUE X"16".
05 RMP--UMO PIC X VALUE X"17".
05 RMP--EA PIC X VALUE X"18".
05 RMP--DA PIC X VALUE X"19".
05 RMP--AF PIC X VALUE X"1A".
05 RMP--PUM PIC X VALUE X"1B".
05 FILLER PIC X(2).
05 RMP--U-SMC PIC X VALUE X"F1".
05 RMP--U-HMC PIC X VALUE X"F2".
05 RMP--U-SMD PIC X VALUE X"F3".
05 RMP--U-EMD PIC X VALUE X"F4".
05 RMP--U-DTF PIC X VALUE X"F5".
05 RMP--U-SMO PIC X VALUE X"F6".
05 RMP--U-SCO PIC X VALUE X"F7".
05 RMP--U-SP PIC X VALUE X"F8".
05 RMP--U-EP PIC X VALUE X"F9".
05 RMP--E-CL PIC X VALUE X"80".
05 RMP--E-AL PIC X VALUE X"81".
05 RMP--E-CP PIC X VALUE X"82".
05 RMP--E-AP PIC X VALUE X"83".
05 RMP--E-SPL PIC X VALUE X"84".
05 RMP--E-GPL PIC X VALUE X"85".
05 RMP--E-GPC PIC X VALUE X"86".
05 RMP--E-SPC PIC X VALUE X"87".
05 RMP--E-GFD PIC X VALUE X"88".
05 RMP--E-AFD PIC X VALUE X"89".
05 RMP--E-CFD PIC X VALUE X"8A".
05 RMP--E-GFV PIC X VALUE X"8B".
05 RMP--E-SFV PIC X VALUE X"8C".
05 RMP--E-GPT PIC X VALUE X"8D".
05 RMP--E-SPT PIC X VALUE X"8E".
05 RMP--E-GPD PIC X VALUE X"8F".
05 RMP--E-SPD PIC X VALUE X"90".
05 RMP--E-GMS PIC X VALUE X"91".
05 RMP--E-SMS PIC X VALUE X"92".
05 RMP--E-SHM PIC X VALUE X"93".
05 RMP--E-SPLT PIC X VALUE X"94".
05 RMP--E-GPLT PIC X VALUE X"95".
05 RMP--E-SLC PIC X VALUE X"96".
05 RMP--E-GLC PIC X VALUE X"97".
05 FILLER PIC X(6).
05 RMP--E-GFN PIC X VALUE X"A0".
05 FILLER PIC X(3).
05 RMP--E-SP PIC X VALUE X"B0".
05 RMP--E-DC PIC X VALUE X"B1".
05 RMP--E-DFD PIC X VALUE X"B3".
05 RMP--E-HDP PIC X VALUE X"B4".
05 RMP--E-RMO PIC X VALUE X"B7".
05 FILLER PIC X(2).
05 RMP--E-UDP PIC X VALUE X"BA".
03 RMP--SCROLL-BAR-WS.
05 RMP--SB-MIN PIC 9(4).
05 RMP--SB-MAX PIC 9(4).
05 RMP--SB-STEP PIC 9(4).
05 RMP--SB-PAGE PIC 9(4).
05 RMP--SB-OPERATED PIC X(30).
03 FILLER PIC X(50).
