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

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

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

    FIELD 30 "SC2-UIF-GENERIC-NAME"
        PROMPT [10,25] "1.  Generic Username:"
        STRING X(12)
            DISPLAY_MASK [10,48] "____________"
            LOGICAL_ATTRS ( REQUIRED )
    END

    FIELD 40 "SC2-UIF-TOP-LEVEL-MENU"
        PROMPT [11,25] "2.  Top level menu:"
        STRING X(9)
            DISPLAY_MASK [11,48] "_________"
            LOGICAL_ATTRS ( REQUIRED )
    END

    FIELD 50 "SC2-UIF-PROMPT"
        STRING X(75)
            DISPLAY_MASK [23,1] "___________________________________________________________________________"
            VIDEO_ATTRS ( BOLD )
    END

    FIELD 60 "SC2-UIF-RESPONSE"
        STRING XXX
            DISPLAY_MASK [23,78] "___"
            LOGICAL_ATTRS ( REQUIRED, BOUNDS_CHECK )
            BOUNDS
                VALUE "P"
              OR
                LOWER "1"
                UPPER "2"
              OR
                VALUE "Y"
              OR
                VALUE "N"
              OR
                VALUE "F"
            HELP_MESSAGE "Enter ""P"" to process or number of the field to change"
    END
END_FORM