FORM "UIF340SC4"
!++
!			SCOPE form definition file
!
!	Created 24-APR-1987 16:24:15 by SCOPE Editor - Version 7.0(7032)
!--
VERSION 100
LANGUAGE COBOL
NAME_PREFIX  "SC4"
FNO_PREFIX  "FNO-SC4"
HELP_VIDEO ( BOLD )
ERROR_VIDEO ( BOLD )
INPUT_VIDEO ( REVERSE )
LOGICAL_ATTRS ( USER_ESCAPE, FIELD_HOLD, UPPER_CASE )

    FIELD 10 "SC4-UIF-TITLE"
        PROMPT [1,1] "User Interface Maintenance"
        STRING X(20)
            DISPLAY_MASK [1,30] "____________________"
    END

    FIELD 20 "SC4-UIF-PROGRAM-ID"
        PROMPT [1,74] "/SC4-1B"
        STRING X(9)
            DISPLAY_MASK [1,65] "_________"
    END

    FIELD 30 "SC4-UIF-MENU-NAME"
        PROMPT [4,25] "1.   Menu name:"
        STRING X(9)
            DISPLAY_MASK [4,42] "_________"
            LOGICAL_ATTRS ( REQUIRED )
            HELP_MESSAGE "Enter the name of the menu. (9 characters, A-Z, 1-9)"
    END

    FIELD 40 "SC4-UIF-MENU-TITLE"
        PROMPT [5,25] "2.   Menu title:"
        STRING X(20)
            DISPLAY_MASK [6,30] "____________________"
            LOGICAL_ATTRS ( REQUIRED, NOT UPPER_CASE )
    END

    FIELD 50 "SC4-UIF-MENU-DESCRIPTION"
        PROMPT [7,25] "3.   Menu Description:"
        STRING X(60)
            DISPLAY_MASK [8,9] "____________________________________________________________"
            LOGICAL_ATTRS ( REQUIRED, NOT UPPER_CASE, MASTER_DUP )
            HELP_MESSAGE "Enter up to 60 characters describing the function of the menu."
    END

    FIELD 60 "SC4-FIELD-60"
        PROMPT [9,32] "Menu entries:"
    END

    FIELD 70 "SC4-FIELD-70"
        PROMPT [10,15] "OPTION"
    END

    FIELD 80 "SC4-FIELD-80"
        PROMPT [10,28] "TYPE"
    END

    FIELD 90 "SC4-FIELD-90"
        PROMPT [10,48] "OPTION       TYPE"
    END

    FIELD 100 "SC4-UIF-OPTION-1"
        PROMPT [11,12] "4."
        STRING X(9)
            DISPLAY_MASK [11,15] "_________"
    END

    FIELD 110 "SC4-UIF-TYPE-1"
        PROMPT [11,26] "5."
        STRING X
            DISPLAY_MASK [11,29] "_"
            LOGICAL_ATTRS ( BOUNDS_CHECK )
            BOUNDS
                VALUE "M"
              OR
                VALUE "T"
    END

    FIELD 120 "SC4-UIF-OPTION-2"
        PROMPT [12,12] "6."
        STRING X(9)
            DISPLAY_MASK [12,15] "_________"
    END

    FIELD 130 "SC4-UIF-TYPE-2"
        PROMPT [12,26] "7."
        STRING X
            DISPLAY_MASK [12,29] "_"
            LOGICAL_ATTRS ( BOUNDS_CHECK )
            BOUNDS
                VALUE "M"
              OR
                VALUE "T"
    END

    FIELD 140 "SC4-UIF-OPTION-3"
        PROMPT [13,12] "8."
        STRING X(9)
            DISPLAY_MASK [13,15] "_________"
    END

    FIELD 150 "SC4-UIF-TYPE-3"
        PROMPT [13,26] "9."
        STRING X
            DISPLAY_MASK [13,29] "_"
            LOGICAL_ATTRS ( BOUNDS_CHECK )
            BOUNDS
                VALUE "M"
              OR
                VALUE "T"
    END

    FIELD 160 "SC4-UIF-OPTION-4"
        PROMPT [14,11] "10."
        STRING X(9)
            DISPLAY_MASK [14,15] "_________"
    END

    FIELD 170 "SC4-UIF-TYPE-4"
        PROMPT [14,25] "11."
        STRING X
            DISPLAY_MASK [14,29] "_"
            LOGICAL_ATTRS ( BOUNDS_CHECK )
            BOUNDS
                VALUE "M"
              OR
                VALUE "T"
    END

    FIELD 180 "SC4-UIF-OPTION-5"
        PROMPT [15,11] "12."
        STRING X(9)
            DISPLAY_MASK [15,15] "_________"
    END

    FIELD 190 "SC4-UIF-TYPE-5"
        PROMPT [15,25] "13."
        STRING X
            DISPLAY_MASK [15,29] "_"
            LOGICAL_ATTRS ( BOUNDS_CHECK )
            BOUNDS
                VALUE "M"
              OR
                VALUE "T"
    END

    FIELD 200 "SC4-UIF-OPTION-6"
        PROMPT [16,11] "14."
        STRING X(9)
            DISPLAY_MASK [16,15] "_________"
    END

    FIELD 210 "SC4-UIF-TYPE-6"
        PROMPT [16,25] "15."
        STRING X
            DISPLAY_MASK [16,29] "_"
            LOGICAL_ATTRS ( BOUNDS_CHECK )
            BOUNDS
                VALUE "M"
              OR
                VALUE "T"
    END

    FIELD 220 "SC4-UIF-OPTION-7"
        PROMPT [17,11] "16."
        STRING X(9)
            DISPLAY_MASK [17,15] "_________"
    END

    FIELD 230 "SC4-UIF-TYPE-7"
        PROMPT [17,25] "17."
        STRING X
            DISPLAY_MASK [17,29] "_"
            LOGICAL_ATTRS ( BOUNDS_CHECK )
            BOUNDS
                VALUE "M"
              OR
                VALUE "T"
    END

    FIELD 240 "SC4-UIF-OPTION-8"
        PROMPT [18,11] "18."
        STRING X(9)
            DISPLAY_MASK [18,15] "_________"
    END

    FIELD 250 "SC4-UIF-TYPE-8"
        PROMPT [18,25] "18."
        STRING X
            DISPLAY_MASK [18,29] "_"
            LOGICAL_ATTRS ( BOUNDS_CHECK )
            BOUNDS
                VALUE "M"
              OR
                VALUE "T"
    END

    FIELD 260 "SC4-UIF-OPTION-9"
        PROMPT [19,11] "20."
        STRING X(9)
            DISPLAY_MASK [19,15] "_________"
    END

    FIELD 270 "SC4-UIF-TYPE-9"
        PROMPT [19,25] "21."
        STRING X
            DISPLAY_MASK [19,29] "_"
            LOGICAL_ATTRS ( BOUNDS_CHECK )
            BOUNDS
                VALUE "M"
              OR
                VALUE "T"
    END

    FIELD 280 "SC4-UIF-OPTION-10"
        PROMPT [20,11] "22."
        STRING X(9)
            DISPLAY_MASK [20,15] "_________"
    END

    FIELD 290 "SC4-UIF-TYPE-10"
        PROMPT [20,25] "23."
        STRING X
            DISPLAY_MASK [20,29] "_"
            LOGICAL_ATTRS ( BOUNDS_CHECK )
            BOUNDS
                VALUE "M"
              OR
                VALUE "T"
    END

    FIELD 300 "SC4-UIF-OPTION-11"
        PROMPT [11,44] "24."
        STRING X(9)
            DISPLAY_MASK [11,48] "_________"
    END

    FIELD 310 "SC4-UIF-TYPE-11"
        PROMPT [11,58] "25."
        STRING X
            DISPLAY_MASK [11,62] "_"
            LOGICAL_ATTRS ( BOUNDS_CHECK )
            BOUNDS
                VALUE "M"
              OR
                VALUE "T"
    END

    FIELD 320 "SC4-UIF-OPTION-12"
        PROMPT [12,44] "26."
        STRING X(9)
            DISPLAY_MASK [12,48] "_________"
    END

    FIELD 330 "SC4-UIF-TYPE-12"
        PROMPT [12,58] "27."
        STRING X
            DISPLAY_MASK [12,62] "_"
            LOGICAL_ATTRS ( BOUNDS_CHECK )
            BOUNDS
                VALUE "M"
              OR
                VALUE "T"
    END

    FIELD 340 "SC4-UIF-OPTION-13"
        PROMPT [13,44] "28."
        STRING X(9)
            DISPLAY_MASK [13,48] "_________"
    END

    FIELD 350 "SC4-UIF-TYPE-13"
        PROMPT [13,58] "29."
        STRING X
            DISPLAY_MASK [13,62] "_"
            LOGICAL_ATTRS ( BOUNDS_CHECK )
            BOUNDS
                VALUE "M"
              OR
                VALUE "T"
    END

    FIELD 360 "SC4-UIF-OPTION-14"
        PROMPT [14,44] "30."
        STRING X(9)
            DISPLAY_MASK [14,48] "_________"
    END

    FIELD 370 "SC4-UIF-TYPE-14"
        PROMPT [14,58] "31."
        STRING X
            DISPLAY_MASK [14,62] "_"
            LOGICAL_ATTRS ( BOUNDS_CHECK )
            BOUNDS
                VALUE "M"
              OR
                VALUE "T"
    END

    FIELD 380 "SC4-UIF-OPTION-15"
        PROMPT [15,44] "32."
        STRING X(9)
            DISPLAY_MASK [15,48] "_________"
    END

    FIELD 390 "SC4-UIF-TYPE-15"
        PROMPT [15,58] "33."
        STRING X
            DISPLAY_MASK [15,62] "_"
            LOGICAL_ATTRS ( BOUNDS_CHECK )
            BOUNDS
                VALUE "M"
              OR
                VALUE "T"
    END

    FIELD 400 "SC4-UIF-OPTION-16"
        PROMPT [16,44] "34."
        STRING X(9)
            DISPLAY_MASK [16,48] "_________"
    END

    FIELD 410 "SC4-UIF-TYPE-16"
        PROMPT [16,58] "35."
        STRING X
            DISPLAY_MASK [16,62] "_"
            LOGICAL_ATTRS ( BOUNDS_CHECK )
            BOUNDS
                VALUE "M"
              OR
                VALUE "T"
    END

    FIELD 420 "SC4-UIF-OPTION-17"
        PROMPT [17,44] "36."
        STRING X(9)
            DISPLAY_MASK [17,48] "_________"
    END

    FIELD 430 "SC4-UIF-TYPE-17"
        PROMPT [17,58] "37."
        STRING X
            DISPLAY_MASK [17,62] "_"
            LOGICAL_ATTRS ( BOUNDS_CHECK )
            BOUNDS
                VALUE "M"
              OR
                VALUE "T"
    END

    FIELD 440 "SC4-UIF-OPTION-18"
        PROMPT [18,44] "38."
        STRING X(9)
            DISPLAY_MASK [18,48] "_________"
    END

    FIELD 450 "SC4-UIF-TYPE-18"
        PROMPT [18,58] "39."
        STRING X
            DISPLAY_MASK [18,62] "_"
            LOGICAL_ATTRS ( BOUNDS_CHECK )
            BOUNDS
                VALUE "M"
              OR
                VALUE "T"
    END

    FIELD 460 "SC4-UIF-OPTION-19"
        PROMPT [19,44] "40."
        STRING X(9)
            DISPLAY_MASK [19,48] "_________"
    END

    FIELD 470 "SC4-UIF-TYPE-19"
        PROMPT [19,58] "41."
        STRING X
            DISPLAY_MASK [19,62] "_"
            LOGICAL_ATTRS ( BOUNDS_CHECK )
            BOUNDS
                VALUE "M"
              OR
                VALUE "T"
    END

    FIELD 480 "SC4-UIF-OPTION-20"
        PROMPT [20,44] "42."
        STRING X(9)
            DISPLAY_MASK [20,48] "_________"
    END

    FIELD 490 "SC4-UIF-TYPE-20"
        PROMPT [20,58] "43."
        STRING X
            DISPLAY_MASK [20,62] "_"
            LOGICAL_ATTRS ( BOUNDS_CHECK )
            BOUNDS
                VALUE "M"
              OR
                VALUE "T"
    END

    FIELD 500 "SC4-UIF-PROMPT"
        STRING X(76)
            DISPLAY_MASK [23,1] "____________________________________________________________________________"
            VIDEO_ATTRS ( BOLD )
    END

    FIELD 510 "SC4-UIF-RESPONSE"
        STRING XXX
            DISPLAY_MASK [23,78] "___"
            LOGICAL_ATTRS ( BOUNDS_CHECK )
            BOUNDS
                VALUE "P"
              OR
                VALUE "F"
              OR
                VALUE "Y"
              OR
                VALUE "N"
              OR
                VALUE "1"
              OR
                VALUE "2"
              OR
                VALUE "3"
              OR
                VALUE "4"
              OR
                VALUE "5"
              OR
                VALUE "6"
              OR
                VALUE "7"
              OR
                VALUE "8"
              OR
                VALUE "9"
              OR
                VALUE "10"
              OR
                VALUE "11"
              OR
                VALUE "12"
              OR
                VALUE "13"
              OR
                VALUE "14"
              OR
                VALUE "15"
              OR
                VALUE "16"
              OR
                VALUE "17"
              OR
                VALUE "18"
              OR
                VALUE "19"
              OR
                VALUE "20"
              OR
                VALUE "21"
              OR
                VALUE "22"
              OR
                VALUE "23"
              OR
                VALUE "24"
              OR
                VALUE "25"
              OR
                VALUE "26"
              OR
                VALUE "27"
              OR
                VALUE "28"
              OR
                VALUE "29"
              OR
                VALUE "30"
              OR
                VALUE "31"
              OR
                VALUE "32"
              OR
                VALUE "33"
              OR
                VALUE "34"
              OR
                VALUE "35"
              OR
                VALUE "36"
              OR
                VALUE "37"
              OR
                VALUE "38"
              OR
                VALUE "39"
              OR
                VALUE "40"
              OR
                VALUE "41"
              OR
                VALUE "42"
    END
END_FORM