Form DECUS

    Form Data 
        CTRL_FIELD1 Character(5)
        CTRL_FIELD2 Character(5)
        BEGIN_OF_FILE Unsigned Word
        END_OF_FILE Unsigned Word
        SUBSCRIPT_GROUP_NUM Longword Integer
        Copy
            CDD$DEFAULT.QUEUE_STRUCTURE_TBL Field is TOP_QUEUE from Dictionary
        End Copy

        Copy
            CDD$DEFAULT.QUEUE_STRUCTURE_TBL Field is DEPENDENT_QUEUE from 
                Dictionary
        End Copy

        Copy
            CDD$DEFAULT.MOVE_TBL Field is QUEUE_NAME from Dictionary
        End Copy

        Group GROUP_LIST_STRUCT 
            Occurs 15
            Current SUBSCRIPT_GROUP_NUM
            Copy
                CDD$DEFAULT.QUEUE_STRUCTURE_TBL from Dictionary
            End Copy

        End Group
    End Data

    Form Record CONTROL_REC
        Copy
            CDD$DEFAULT.CONTROL_TBL from Dictionary
        End Copy

    End Record

    Form Record MOVE_REC
        Copy
            CDD$DEFAULT.MOVE_TBL from Dictionary
        End Copy

    End Record

    Form Record GROUP_REC
        Copy
            CDD$DEFAULT.QUEUE_STRUCTURE_TBL from Dictionary
        End Copy

    End Record

    Form Record GROUP_REC_LIST
        Group GROUP_LIST_STRUCT
            Occurs 15
            Copy
                CDD$DEFAULT.QUEUE_STRUCTURE_TBL from Dictionary
            End Copy

        End Group
    End Record


    Layout VT_LAYOUT
        Device
            Terminal
                Type %VT200
            Terminal
                Type %VT300
            Terminal
                Type %VT400
        End Device
        Language "GERMAN"
        Size 24 Lines by 80 Columns
        Display Viewport
            %Terminal_Width_80

        Viewport QUEUE_LIST_VP
            Lines 5 Through 22
            Columns 9 Through 71
        End Viewport

        Function EXIT_KEY
            Is (%PF4 %SMALL_E)
               (%PF4 %CAPITAL_E)
        End Function

        Function NEXT ITEM
            Is %HORIZONTAL_TAB
        End Function

        Function DOWN ITEM
            Is %DOWN
        End Function

        Function QUIT
            Is %F8
               %REMOVE
               (%PF1 %CAPITAL_Q)
               (%PF1 %SMALL_Q)
        End Function

        Function SELECT
            Is %SELECT
               %KP_PERIOD
        End Function

        Function UP ITEM
            Is %UP
        End Function

        Function PAGE_UP
            Is %PREV_SCREEN
        End Function

        Function PAGE_DOWN
            Is %NEXT_SCREEN
        End Function

        Function EXIT_FORM
            Is %F10
               %KP_ENTER
               %CARRIAGE_RETURN
        End Function

        Function NEXT_WINDOW
            Is %NEXT_SCREEN
        End Function

        Function LAST_WINDOW
            Is %PREV_SCREEN
        End Function

        Internal Response INIT_MESSAGE_RESP
            Message
                " "
        End Response

        Transceive Response GROUP_REC_LIST MOVE_REC
            Activate
                Field GROUP_LIST_STRUCT(1:15).TOP_QUEUE on 
                    GROUP_QUEUE_LIST_PANEL
            Position Immediate To Field GROUP_LIST_STRUCT(1).TOP_QUEUE On 
                GROUP_QUEUE_LIST_PANEL
        End Response

        Control Text Response " FBOF"
            Let BEGIN_OF_FILE = 1
            Let END_OF_FILE = 0
        End Response

        Control Text Response " FEOF"
            Let BEGIN_OF_FILE = 0
            Let END_OF_FILE = 1
        End Response

        Control Text Response " FMOF"
            Let BEGIN_OF_FILE = 0
            Let END_OF_FILE = 0
        End Response

        Function Response QUIT
            Include INIT_MESSAGE_RESP
            Deactivate
                All
            Remove All
            Return
                " FQUT"
        End Response

        Function Response EXIT_FORM
            Include INIT_MESSAGE_RESP
            Deactivate
                All
            Return
                " FEXI"
        End Response

        Apply Field Default Of
            Function Response QUIT
                Remove All
                Return
                    " FQUT"
            End Response

            Active Highlight
                Reverse
            Uppercase
        End Default


        Panel GROUP_QUEUE_LIST_PANEL
            Viewport QUEUE_LIST_VP
            Display
                %Keypad_Application

            Remove
            /* queuelist */
            /* scrolled region fuer queue liste */
            Entry Response
                Include INIT_MESSAGE_RESP
            End Response

            Function Response QUIT
                Deactivate
                    Panel GROUP_QUEUE_LIST_PANEL
                Remove 
                    QUEUE_LIST_VP
                Position Immediate To Current Item
                Return
                    " FQUT"
            End Response

            Function Response SELECT
                If (GROUP_LIST_STRUCT(SUBSCRIPT_GROUP_NUM).TOP_QUEUE = " ") Then
                    Message
                        "Nichts zu selektieren hier ... benutzen Sie eine "-
                            "gültige Queue"
                Else
                    Let QUEUE_NAME = 
                        GROUP_LIST_STRUCT(SUBSCRIPT_GROUP_NUM).TOP_QUEUE
                    Deactivate
                        Panel GROUP_QUEUE_LIST_PANEL
                    Position Immediate To Current Item
                    Remove 
                        QUEUE_LIST_VP
                    Let BEGIN_OF_FILE = 0
                    Let END_OF_FILE = 0
                    Return
                        " FSEL"
                End If
            End Response

            Use Help Message
                "Bitte selektieren Sie eine Queue"

            Group GROUP_LIST_STRUCT
                Vertical
                    Displays 15
                    Scroll By Page
                Function Response DOWN ITEM
                    If ((SUBSCRIPT_GROUP_NUM = 15) AND (END_OF_FILE = 1)) Then
                        Position To Current Item
                        Message
                            "Keine weiteren Gruppen..."
                    Else
                        If ((SUBSCRIPT_GROUP_NUM = 15) AND (END_OF_FILE = 0)) 
                            Then
                            Reset
                                GROUP_LIST_STRUCT(1:15)
                            Message
                                "...ich arbeite... "
                            Return
                                " FNXT"
                        Else
                            Message
                                " "
                            Position To Next Item
                        End If
                    End If
                End Response

                Function Response UP ITEM
                    If ((BEGIN_OF_FILE = 1) AND (SUBSCRIPT_GROUP_NUM = 1)) Then
                        Message
                            "Keine weiteren Gruppen..."
                    Else
                        If ((BEGIN_OF_FILE = 0) AND (SUBSCRIPT_GROUP_NUM = 1)) 
                            Then
                            Reset
                                GROUP_LIST_STRUCT(1:15)
                            Message
                                "...ich arbeite... "
                            Return
                                " FPVS"
                        Else
                            Message
                                " "
                            Position To Up Occurrence
                        End If
                    End If
                End Response

                Function Response PAGE_DOWN
                    If (END_OF_FILE = 1) Then
                        Message
                            "Keine weiteren Gruppen..."
                    Else
                        Reset
                            GROUP_LIST_STRUCT(1:15)
                        Message
                            "...ich arbeite... "
                        Return
                            " FNXT"
                    End If
                End Response

                Function Response PAGE_UP
                    If (BEGIN_OF_FILE = 1) Then
                        Message
                            "Keine weiteren Gruppen..."
                    Else
                        Reset
                            GROUP_LIST_STRUCT(1:15)
                        Message
                            "...ich arbeite... "
                        Return
                            " FPVS"
                    End If
                End Response

                Field TOP_QUEUE
                    Line 3
                    Column 2
                    Active Highlight
                        Reverse
                    No Data Input
                End Field

            End Group

            Literal Rectangle
                Line 1	Column 1
                Line 18	Column 63
            End Literal

            Literal Text
                Line 2
                Column 2
                Value "Header_line"
            End Literal

            Literal Text
                Line 3
                Column 13
                Value "\"
            End Literal

            Literal Text
                Line 17
                Column 13
                Value "/"
            End Literal

            Literal Polyline
                Line 16	Column 14
                Line 4	Column 14
            End Literal

            Literal Text
                Line 10
                Column 15
                Value "hier tauchen bei page_up immer 15 records auf"
            End Literal

            Literal Text
                Line 11
                Column 15
                Value "(vorausgesetzt der table hat mindestens 15 recs)"
            End Literal

            Literal Text
                Line 12
                Column 15
                Value "bei page_down kann weniger angezeigt werden,ab-"
            End Literal

            Literal Text
                Line 2
                Column 23
                Value "folgende keys 'tun was'"
            End Literal

            Literal Text
                Line 3
                Column 23
                Value "select,prev screen,next screen"
            End Literal

            Literal Text
                Line 4
                Column 23
                Value "remove,cursor up,cursor down"
            End Literal

            Literal Text
                Line 5
                Column 23
                Value "(wahrscheinlich noch ein paar andere,"
            End Literal

            Literal Text
                Line 6
                Column 24
                Value "siehe .ifdl)"
            End Literal

            Literal Text
                Line 13
                Column 15
                Value "hängig von den records in der db."
            End Literal

        End Panel

    End Layout
End Form