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

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

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

    FIELD 30 "SC3-UIF-TRANSACTION-NAME"
        PROMPT [10,17] "1.  Transaction name:"
        STRING X(9)
            DISPLAY_MASK [10,41] "_________"
            LOGICAL_ATTRS ( REQUIRED )
            HELP_MESSAGE "Enter transaction name. (A-Z, 1-9)"
    END

    FIELD 40 "SC3-UIF-TRANSACTION-DESC"
        PROMPT [11,17] "2.  Transaction description:"
        STRING X(60)
            DISPLAY_MASK [12,11] "____________________________________________________________"
            LOGICAL_ATTRS ( REQUIRED, NOT UPPER_CASE )
            HELP_MESSAGE "Enter transaction description.  Up to 60 characters"
    END

    FIELD 50 "SC3-UIF-TRANSACTION-TYPE"
        PROMPT [14,17] "3.  Transaction Type"
        STRING X
            DISPLAY_MASK [14,41] "_"
            LOGICAL_ATTRS ( REQUIRED, BOUNDS_CHECK )
            BOUNDS
                VALUE "B"
              OR
                VALUE "I"
            HELP_MESSAGE "I = interactive or B = Batch"
    END

    FIELD 60 "SC3-UIF-TRANSACTION-FORM"
        PROMPT [15,17] "4.  Transaction Form"
        STRING X(31)
            DISPLAY_MASK [15,41] "_______________________________"
            HELP_MESSAGE "@ = EXE, * = use form of same name, UTLnnn = use UTL form, BLANK = SUB/NOPARMS"
    END

    FIELD 70 "SC3-UIF-TRANSACTION-SWITCH"
        PROMPT [16,17] "5.  Transaction Switch"
        STRING X(31)
            DISPLAY_MASK [16,41] "_______________________________"
            HELP_MESSAGE "Applicable submit switch (ie. /AFTER=20:00)"
    END

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

    FIELD 90 "SC3-UIF-RESPONSE"
        STRING XXX
            DISPLAY_MASK [23,78] "___"
            LOGICAL_ATTRS ( REQUIRED, BOUNDS_CHECK )
            BOUNDS
                VALUE "P"
              OR
                VALUE "2"
              OR
                VALUE "1"
              OR
                VALUE "F"
              OR
                VALUE "Y"
              OR
                VALUE "N"
              OR
                VALUE "3"
              OR
                VALUE "4"
              OR
                VALUE "5"
    END
END_FORM