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

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

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

    FIELD 30 "SC1-FIELD-30"
        PROMPT [4,25] "1.  Add a generic user."
    END

    FIELD 40 "SC1-FIELD-40"
        PROMPT [5,25] "2.  Change a generic user."
    END

    FIELD 50 "SC1-FIELD-50"
        PROMPT [6,25] "3.  Delete a generic user."
    END

    FIELD 60 "SC1-FIELD-60"
        PROMPT [7,25] "4.  Display a generic user."
    END

    FIELD 70 "SC1-FIELD-70"
        PROMPT [9,25] "5.  Add a menu."
    END

    FIELD 80 "SC1-FIELD-80"
        PROMPT [10,25] "6.  Change a menu."
    END

    FIELD 90 "SC1-FIELD-90"
        PROMPT [11,25] "7.  Delete a menu."
    END

    FIELD 100 "SC1-FIELD-100"
        PROMPT [12,25] "8.  Display a menu."
    END

    FIELD 110 "SC1-FIELD-110"
        PROMPT [14,25] "9.  Add a transaction."
    END

    FIELD 120 "SC1-FIELD-120"
        PROMPT [15,24] "10.  Change a transaction."
    END

    FIELD 130 "SC1-FIELD-130"
        PROMPT [16,24] "11.  Delete a transaction."
    END

    FIELD 140 "SC1-FIELD-140"
        PROMPT [17,24] "12.  Display a transaction."
    END

    FIELD 150 "SC1-UIF-PROMPT"
        PROMPT [19,24] "13.  Exit Program."
        STRING X(75)
            DISPLAY_MASK [23,1] "___________________________________________________________________________"
            VIDEO_ATTRS ( BOLD )
    END

    FIELD 160 "SC1-UIF-SELECTION"
        STRING XXX
            DISPLAY_MASK [23,78] "___"
            LOGICAL_ATTRS ( REQUIRED, BOUNDS_CHECK )
            BOUNDS
                LOWER "1"
                UPPER "9"
              OR
                LOWER "10"
                UPPER "13"
            HELP_MESSAGE "Enter a number between 1 and 13"
    END
END_FORM