FORM "UIF310SCR"
!++
!			SCOPE form definition file
!
!	Created 24-APR-1987 16:23:48 by SCOPE Editor - Version 7.0(7032)
!--
VERSION 100
LANGUAGE COBOL
NAME_PREFIX  "SCR"
FNO_PREFIX  "FNO-SCR"
HELP_VIDEO ( BOLD )
ERROR_VIDEO ( BOLD )
INPUT_VIDEO ( REVERSE )
LOGICAL_ATTRS ( USER_ESCAPE, FIELD_HOLD, UPPER_CASE, NOT HELP_RETURN, NOT SHOW_DUP )

    FIELD 100 "SCR-MENU-TITLE"
        PROMPT [1,1] "USER INTERFACE MENU SCREEN"
        STRING X(20)
            DISPLAY_MASK [1,30] "____________________"
            DUP_VALUE "all"
    END

    FIELD 200 "SCR-MENU-PROG-ID"
        PROMPT [1,72] "UIF150-1D"
        STRING X(9)F
            DISPLAY_MASK [1,62] "_________/"
    END

    FIELD 400 "SCR-MENU-ITEM-1"
        NUMERIC 99F
            DISPLAY_MASK [3,5] "__)"
    END

    FIELD 500 "SCR-MENU-DESC-1"
        STRING X(60)
            DISPLAY_MASK [3,9] "____________________________________________________________"
    END

    FIELD 600 "SCR-MENU-TRANS-1"
        STRING FX(9)F
            DISPLAY_MASK [3,70] "(_________)"
    END

    FIELD 700 "SCR-MENU-ITEM-2"
        NUMERIC 99F
            DISPLAY_MASK [4,5] "__)"
    END

    FIELD 800 "SCR-MENU-DESC-2"
        STRING X(60)
            DISPLAY_MASK [4,9] "____________________________________________________________"
    END

    FIELD 900 "SCR-MENU-TRANS-2"
        STRING FX(9)F
            DISPLAY_MASK [4,70] "(_________)"
    END

    FIELD 1000 "SCR-MENU-ITEM-3"
        NUMERIC 99F
            DISPLAY_MASK [5,5] "__)"
    END

    FIELD 1100 "SCR-MENU-DESC-3"
        STRING X(60)
            DISPLAY_MASK [5,9] "____________________________________________________________"
    END

    FIELD 1200 "SCR-MENU-TRANS-3"
        STRING FX(9)F
            DISPLAY_MASK [5,70] "(_________)"
    END

    FIELD 1300 "SCR-MENU-ITEM-4"
        NUMERIC 99F
            DISPLAY_MASK [6,5] "__)"
    END

    FIELD 1400 "SCR-MENU-DESC-4"
        STRING X(60)
            DISPLAY_MASK [6,9] "____________________________________________________________"
    END

    FIELD 1500 "SCR-MENU-TRANS-4"
        STRING FX(9)F
            DISPLAY_MASK [6,70] "(_________)"
    END

    FIELD 1600 "SCR-MENU-ITEM-5"
        NUMERIC 99F
            DISPLAY_MASK [7,5] "__)"
    END

    FIELD 1700 "SCR-MENU-DESC-5"
        STRING X(60)
            DISPLAY_MASK [7,9] "____________________________________________________________"
    END

    FIELD 1800 "SCR-MENU-TRANS-5"
        STRING FX(9)F
            DISPLAY_MASK [7,70] "(_________)"
    END

    FIELD 1900 "SCR-MENU-ITEM-6"
        NUMERIC 99F
            DISPLAY_MASK [8,5] "__)"
    END

    FIELD 2000 "SCR-MENU-DESC-6"
        STRING X(60)
            DISPLAY_MASK [8,9] "____________________________________________________________"
    END

    FIELD 2100 "SCR-MENU-TRANS-6"
        STRING FX(9)F
            DISPLAY_MASK [8,70] "(_________)"
    END

    FIELD 2200 "SCR-MENU-ITEM-7"
        NUMERIC 99F
            DISPLAY_MASK [9,5] "__)"
    END

    FIELD 2300 "SCR-MENU-DESC-7"
        STRING X(60)
            DISPLAY_MASK [9,9] "____________________________________________________________"
    END

    FIELD 2400 "SCR-MENU-TRANS-7"
        STRING FX(9)F
            DISPLAY_MASK [9,70] "(_________)"
    END

    FIELD 2500 "SCR-MENU-ITEM-8"
        NUMERIC 99F
            DISPLAY_MASK [10,5] "__)"
    END

    FIELD 2600 "SCR-MENU-DESC-8"
        STRING X(60)
            DISPLAY_MASK [10,9] "____________________________________________________________"
    END

    FIELD 2700 "SCR-MENU-TRANS-8"
        STRING FX(9)F
            DISPLAY_MASK [10,70] "(_________)"
    END

    FIELD 2800 "SCR-MENU-ITEM-9"
        NUMERIC 99F
            DISPLAY_MASK [11,5] "__)"
    END

    FIELD 2900 "SCR-MENU-DESC-9"
        STRING X(60)
            DISPLAY_MASK [11,9] "____________________________________________________________"
    END

    FIELD 3000 "SCR-MENU-TRANS-9"
        STRING FX(9)F
            DISPLAY_MASK [11,70] "(_________)"
    END

    FIELD 3100 "SCR-MENU-ITEM-10"
        NUMERIC 99F
            DISPLAY_MASK [12,5] "__)"
    END

    FIELD 3200 "SCR-MENU-DESC-10"
        STRING X(60)
            DISPLAY_MASK [12,9] "____________________________________________________________"
    END

    FIELD 3300 "SCR-MENU-TRANS-10"
        STRING FX(9)F
            DISPLAY_MASK [12,70] "(_________)"
    END

    FIELD 3400 "SCR-MENU-ITEM-11"
        NUMERIC 99F
            DISPLAY_MASK [13,5] "__)"
    END

    FIELD 3500 "SCR-MENU-DESC-11"
        STRING X(60)
            DISPLAY_MASK [13,9] "____________________________________________________________"
    END

    FIELD 3600 "SCR-MENU-TRANS-11"
        STRING FX(9)F
            DISPLAY_MASK [13,70] "(_________)"
    END

    FIELD 3700 "SCR-MENU-ITEM-12"
        NUMERIC 99F
            DISPLAY_MASK [14,5] "__)"
    END

    FIELD 3800 "SCR-MENU-DESC-12"
        STRING X(60)
            DISPLAY_MASK [14,9] "____________________________________________________________"
    END

    FIELD 3900 "SCR-MENU-TRANS-12"
        STRING FX(9)F
            DISPLAY_MASK [14,70] "(_________)"
    END

    FIELD 4000 "SCR-MENU-ITEM-13"
        NUMERIC 99F
            DISPLAY_MASK [15,5] "__)"
    END

    FIELD 4100 "SCR-MENU-DESC-13"
        STRING X(60)
            DISPLAY_MASK [15,9] "____________________________________________________________"
    END

    FIELD 4200 "SCR-MENU-TRANS-13"
        STRING FX(9)F
            DISPLAY_MASK [15,70] "(_________)"
    END

    FIELD 4300 "SCR-MENU-ITEM-14"
        NUMERIC 99F
            DISPLAY_MASK [16,5] "__)"
    END

    FIELD 4400 "SCR-MENU-DESC-14"
        STRING X(60)
            DISPLAY_MASK [16,9] "____________________________________________________________"
    END

    FIELD 4500 "SCR-MENU-TRANS-14"
        STRING FX(9)F
            DISPLAY_MASK [16,70] "(_________)"
    END

    FIELD 4600 "SCR-MENU-ITEM-15"
        NUMERIC 99F
            DISPLAY_MASK [17,5] "__)"
    END

    FIELD 4700 "SCR-MENU-DESC-15"
        STRING X(60)
            DISPLAY_MASK [17,9] "____________________________________________________________"
    END

    FIELD 4800 "SCR-MENU-TRANS-15"
        STRING FX(9)F
            DISPLAY_MASK [17,70] "(_________)"
    END

    FIELD 4900 "SCR-MENU-ITEM-16"
        NUMERIC 99F
            DISPLAY_MASK [18,5] "__)"
    END

    FIELD 5000 "SCR-MENU-DESC-16"
        STRING X(60)
            DISPLAY_MASK [18,9] "____________________________________________________________"
    END

    FIELD 5100 "SCR-MENU-TRANS-16"
        STRING FX(9)F
            DISPLAY_MASK [18,70] "(_________)"
    END

    FIELD 5200 "SCR-MENU-ITEM-17"
        NUMERIC 99F
            DISPLAY_MASK [19,5] "__)"
    END

    FIELD 5300 "SCR-MENU-DESC-17"
        STRING X(60)
            DISPLAY_MASK [19,9] "____________________________________________________________"
    END

    FIELD 5400 "SCR-MENU-TRANS-17"
        STRING FX(9)F
            DISPLAY_MASK [19,70] "(_________)"
    END

    FIELD 5500 "SCR-MENU-ITEM-18"
        NUMERIC 99F
            DISPLAY_MASK [20,5] "__)"
    END

    FIELD 5600 "SCR-MENU-DESC-18"
        STRING X(60)
            DISPLAY_MASK [20,9] "____________________________________________________________"
    END

    FIELD 5700 "SCR-MENU-TRANS-18"
        STRING FX(9)F
            DISPLAY_MASK [20,70] "(_________)"
    END

    FIELD 5800 "SCR-MENU-ITEM-19"
        NUMERIC 99F
            DISPLAY_MASK [21,5] "__)"
    END

    FIELD 5900 "SCR-MENU-DESC-19"
        STRING X(60)
            DISPLAY_MASK [21,9] "____________________________________________________________"
    END

    FIELD 6000 "SCR-MENU-TRANS-19"
        STRING FX(9)F
            DISPLAY_MASK [21,70] "(_________)"
    END

    FIELD 6100 "SCR-MENU-ITEM-20"
        NUMERIC 99F
            DISPLAY_MASK [22,5] "__)"
    END

    FIELD 6200 "SCR-MENU-DESC-20"
        STRING X(60)
            DISPLAY_MASK [22,9] "____________________________________________________________"
    END

    FIELD 6300 "SCR-MENU-TRANS-20"
        STRING FX(9)F
            DISPLAY_MASK [22,70] "(_________)"
    END

    FIELD 6400 "SCR-MENU-CHOICE"
        PROMPT [23,1] "Enter:  E=Exit, G=Go Back, M=Main Menu, #=Select                 -->"
            VIDEO_ATTRS ( BOLD )
        STRING X(9)
            DISPLAY_MASK [23,71] "         "
            VIDEO_ATTRS ( REVERSE, UNDERLINE )
            LOGICAL_ATTRS ( REQUIRED, NOT USER_ESCAPE, UPPER_CASE, MASTER_DUP, SHOW_DUP )
            HELP_MESSAGE "Enter a number, G for previous menu, M for main menu, E to exit, or transaction"
    END
END_FORM