*COMDECK  SDO 
          IDENT  SDO
*IF       -DEF,SC2
          LCC    OVERLAY(1,0) 
*ENDIF
          SST 
          USE    0
          LIST   F,X
*CALL     CCL 
 OSNOS    IFNE   HOST,NOS 
          LIST   -F,-R       NO NEED FOR LIST OF SDO ON NOS/BE, SCOPE 
 OSNOS    ENDIF 
 SDOVL    IFNE   IP.SDO,0 
  
 SDO      TITLE  SCREEN DIALOGUE OVERLAY
**        SDO  -  SCREEN DIALOGUE OVERLAY 
* 
*         THE SCREEN DIALOGUE OVERLAY PERFORMS ALL PROCESSING OF
*         SCREEN ORIENTED DIALOGUES.  SDO CONTAINS THE PANEL
*         DESCRIPTIONS AND ANY TABLES NEEDED BY THE SCREEN
*         FORMATTING OBJECT ROUTINES.  SDO GETS LOADED WHEN 
*         CCL DETERMINES (DURING BEGIN) THAT SCREEN ORIENTED
*         DIALOGUES ARE POSSIBLE.  CONTROL PASSES BACK TO BEGIN 
*         WHEN ALL PARAMETERS HAVE VALID VALUES (*IS PROCEDURES)
*         OR WHEN A VALID SELECTION IS CHOSEN (*MS PROCEDURES). 
  
  
  
  
  
  
  
**        THE FOLLOWING FIELD DEFINITIONS DESCRIBE A PANEL
*         FOR DIALOGUES IN SCREEN MODE ON NOS.
  
*         A PANEL DEFINITION HAS THE FOLLOWING FORMAT:  
  
*         PANEL HEADER         5 WORDS   POINTERS TO PANEL RECORD 
  
*         VARIABLE DATA        THE CONCATENATED INPUT VALUES OF ALL THE 
*                              VARIABLE DATA FIELDS CONTAINED IN THE
*                              PANEL TO BE USED BY THE SCREEN FORMATTING
*                              OBJECT ROUTINES AS STORAGE SPACE FOR 
*                              INPUT PENDING VALIDATION AND SUBSEQUENT
*                              UPDATES OF THE APPLICATION VARIABLES.
  
*         FIELD LIST               A LIST CONTAINING A ONE WORD ENTRY 
*                                  FOR EACH VARIABLE AND EACH CONSTANT
*                                  IN THE PANEL.  THE ENTRY CONTAINS X
*                                  AND Y COORDINATES, ATTRIBUTE AND 
*                                  VARIABLE ORDINALS, AND DATA OFFSETS. 
  
*         CONSTANT DATA            THE CONSTANT DATA CONTAINS 
*                                  DISPLAYABLE CHARACTERS FOR NON-BLANK 
*                                  FIELDS IN THE PANEL. 
  
*         VARIABLE FIELD LIST      A LIST CONTAINING 3 WORD ENTRIES FOR 
*                                  EACH VARIABLE IN THE PANEL.  EACH
*                                  ENTRY CONTAINS THE VARIABLE NAME AND 
*                                  TYPE.
  
*         FUNCTION LIST        TABLE OF FUNCTION KEYS AND ACTIONS TAKEN 
  
  
*         ATTRIBUTE TABLE      A LIST OF ATTRIBUTE CHARACTERS AND 
*                              ASSOCIATED ENCODED ATTRIBUTES. 
  
  
  
  
**        PANEL HEADER
* 
  
 PHNAME   FIELD  00,59,18    PANEL NAME 7 CHAR LEFT JUST BLANK FILL 
 PHCHAR   FIELD  00,17,00    PANEL CHARACTERISTICS
 PHWOVR   FIELD  00,03,03    1=WRITE OVER ANY PANEL ON SCREEN 
*                            0=WRITE PANEL BELOW PANEL ON SCREEN
 PHERAR   FIELD  00,02,02    1=DONT ERASE SCREEN AFTER READ 
*                            0=ERASE AFTER READ 
 PHERBW   FIELD  00,01,01    1=ERASE SCREEN BEFORE WRITE
*                            0=DONT ERASE BEFORE WRITE
 PHACHR   FIELD  00,00,00    0=REPLACE ATTRIBUTE CHAR WITH BLANKS 
*                            1=DONT ALLOCATE ATT CHAR POSITION
  
  
 PHNPL    FIELD  01,59,54    NUMBER OF PANEL LINES
 PHRECL   FIELD  01,53,36    NUMBER OF WORDS IN PANEL RECORD
 PHSFL    FIELD  01,35,18    START OF FUNCTION LIST (OFFSET)
 PHSVF    FIELD  01,17,00    START OF VAR LIST (OFFSET) 
  
  
 PHVER    FIELD  02,59,54    PDU VERSION 0=1ST,1=2ND,ETC. 
 PHSAT    FIELD  02,53,36    START OF ATTRIBUTE TABLE (OFFSET)
 PHSAL    FIELD  02,35,18    START OF ARRAY LIST (OFFSET) 
 PHSFD    FIELD  02,17,00    START OF FIELD LIST (OFFSET) 
  
  
 PHSBL    FIELD  03,53,36    START OF BOX LIST (OFFSET) 
 PHMFL    FIELD  03,23,15    MESSAGE FIELD LENGTH 
 PHMFY    FIELD  03,14,06    MESSAGE LINE NUMBER (Y)
 PHMFX    FIELD  03,05,00    MESSAGE COLUMN (X) 
  
 PHLVD    FIELD  04,59,47    LENGTH OF VAR DATA 12-BIT BYTES
 PHMXX    FIELD  04,46,38    MAX X LENGTH OF LINE 
  
**        FUNCTION LIST 
* 
*         THE FUNCTION LIST IS IN TWO PARTS.  THE 1ST PART
*         CONSISTS OF 2 WORD ENTRIES, ONE FOR EACH FUNCTION 
*         KEY DEFINED IN THE PANEL.  THE 2ND PART CONSISTS
*         OF VALUE ASSIGNMENT ENTRIES FOR FUNCTIONS THAT
*         HAVE DEFINED ASG VALUES.
  
  
 FLASG    FIELD  00,33,16    OFFSET OF 1ST VARIABLE ASSIGNMENT
*                            TO BE PERFORMED FOR THE FUNCTION 
*                            (POINT TO FLGVN) 0=NONE
 FLACT    FIELD  00,15,07    0=NO ACTION, IGNORE THE FUNCTION KEY,
*                              CONTINUE TO EXPECT TERMINAL INPUT. 
*                            1=TERMINATE INPUT NORMALLY AND RETURN
*                              CONTROL TO THE APPLICATION.
*                            2=TERMINATE INPUT NORMALLY, RETURN TO
*                              THE OPERATING SYSTEM USING FLTNCS. 
*                            3=ABNORMAL TERMINATION, RETURN TO
*                              APPLICATION. 
*                            4=ABNORMAL TERMINATION, RETURN TO
*                              OPERATING SYSTEM.
*                            5=PAGE FORWARD, FLTNCS HAS TABLE NAME
*                            6=PAGE BACK, FLTNCS HAS TABLE NAME 
*                            7=INSERT ROW, FLTNCS HAS TABLE NAME
*                            8=DELETE ROW, FLTNCS HAS TABLE NAME
  
 FLG      FIELD  00,06,06    1=GENERIC FUNCTION KEY 
 FLFN     FIELD  00,05,00    NUMBER OF THE APPLICATION FOR
*                            GENERIC FUNCTION KEY.  ONLY 32 APPLICATIONS
*                            OR GENERIC FUNCTION KEYS ARE DEFINED.  IF
*                            BIT 5 IS ONE, THE FUNCTION KEY NUMBER IS 
*                            NEGATIVE AND INDICATES THAT THE SHIFTED
*                            FUNCTION KEY IS DESIGNATED.  THE GENERIC 
*                            FUNCTION KEYS ARE AS FOLLOWS:  
*                                1 = NEXT 
*                                2 = BACK 
*                                3 = HELP 
*                                4 = STOP 
*                                5 = TERM 
*                                6 = COPY 
*                                7 = BOX
*                                8 = LAB
*                                8 = DATA 
*                               10 = DOWN 
*                               11 = UP 
*                               12 = FWD
*                               13 = BKW
*                               14 = ERASE
*                               15 = EDIT 
  
  
  
  
**        VARIABLE FIELD LIST 
  
 VFLAO    FIELD  00,41,37    ARRAY ORDINAL (WORD OFFSET)
 VFLME    FIELD  00,36,36    1 = MUST ENTER 
 VFLMF    FIELD  00,35,35    1 = MUST FILL
 VFLMK    FIELD  00,34,34    1 = MUST KNOW
 VFLTYP   FIELD  00,33,32    TYPE 
*                              0 = R
*                              1 = INTEGER
*                              2 = REAL 
*                              3 = CHARACTER
  
 VFLDT    FIELD  00,31,30    DATE TYPE
*                              0 = NONE 
*                              1 = YY/
*                              2 = MM/
*                              3 = DD/
  
 VFLPT    FIELD  00,29,24    PICTURE TYPE 
*                              0 = NONE 
*                              1 = $
*                              2 = 9
*                              3 = N
*                              4 = A
*                              5 = X
  
 VFLVT    FIELD  00,23,18    VALIDATION TYPE
*                              0 = NONE 
*                              1 = MATCH
*                              2 = RANGE
  
 VFLVO    FIELD  00,17,00    VALIDATION TABLE OFFSET
  
 VFLVN    FIELD  01,59,18    1-7 CHAR VARIABLE NAME, LEFT 
*                            JUSTIFIED, BLANK FILLED. 
  
  
  
**        FIELD LIST
* 
*         THE FIELD LIST CONTAINS A ONE WORD ENTRY FOR EACH 
*         CONSTANT AND VARIABLE IN THE PANEL. 
  
 FDVC     FIELD  00,59,59    0 = CONSTANT 
*                            1 = VARIABLE 
  
 FDATO    FIELD  00,58,52    ATTRIBUTE TABLE ORDINAL
 FDIN     FIELD  00,51,51    INDICATES INPUT FIELD
 FDOUT    FIELD  00,50,50    INDICATES FIELD IS OUTPUT
 FDVE     FIELD  00,49,49    1 = VALUE ENTERED (DYNAMIC) RANDOM 
 FDVV     FIELD  00,48,48    1 = VALUE VALID (DYNAMIC)
 FDREW    FIELD  00,47,47    1 = REWRITE    (DYNAMIC) 
 FDACTV   FIELD  00,46,46    1 = FIELD LIST ENTRY ACTIVE
  
 FDVFO    FIELD  00,44,37    VARIABLE ORDINAL 
 FDDO     FIELD  00,36,24    VARIABLE CHARACTER OFFSET INTO VAR DATA
 FDFCW    FIELD  00,41,24    1ST CONSTANT WORD (OFFSET FROM START OF PANEL) 
  
 FDLEN    FIELD  00,23,15    LENGTH OF DATA FIELD 
 FDY      FIELD  00,14,09    ROW POSITION ON SCREEN 
 FDX      FIELD  00,08,00    COLUMN POSITION ON SCREEN
  
  
  
  
  
  
************************************************************* 
  
*         FIELD MACROS FOR BOX LIST 
  
 BOXY     FIELD  00,43,38          LINE NUMBER OF BOX ENTRY 
 BOXX     FIELD  00,37,29          COLUMN OF BOX ENTRY
 BOXR     FIELD  00,28,20          BOX REPLICATION
  
  
  
************************************************************* 
  
 PGNM     FIELD  00,47,36          PAGE NUMBER
  
  
  
  
  
  
**        PANEL LOAD TABLE
* 
*         THE PANEL LOAD TABLE IS USED BY THE SCREEN FORMATING
*         OBJECT ROUTINES TO LOAD THE PANEL DESCRIPTION.  THE 
*         PANEL LOAD TABLE STORES THE NUMBER OF ENTRIES IN THE
*         1ST WORD.  EACH ENTRY IS 2 WORDS IN LENGTH. 
* 
  
 PLTNE    FIELD  00,11,00    NUMBER OF ENTRIES IN PLT 
  
 PLTPNM   FIELD  00,59,18    PANEL NAME - ZERO IF EMPTY 
 PLTSLB   FIELD  01,59,59    STATIC LOAD BIT 1=STATIC 
*                                            0=DYNAMIC
 PLTOPN   FIELD  01,58,58    1 = PANEL OPEN 
 PLTADD   FIELD  01,17,00    CENTRAL MEMORY ADDRESS 
*                            0 = PANEL RECORD NOT PRESENT 
  
 SDOVL    ENDIF 
          EJECT 
  
*CALL     COMBLNK 
*CALL     COMBGIN 
 SDOVL    IFNE   IP.SDO,0 
  
          EJECT 
  
          USE    /COMSDO/ 
 V.CCCDE  EQU    18          LENGTH OF CONSTANT DATA ENTRY
*                            (80-12 BIT CHARACTERS + ZERO WORD) 
*                            (PLUS 12 BITS OF CONTROL BYTES)
  
 V.CCCHP  EQU    18          LENGTH OF HELP LINE CONSTANT 
*                            (80 12 BIT CHARACTERS + ZERO WORD +
*                            12 BITS OF CONTROL BYTES)
  
 V.CCVDE  EQU    8           LENGTH OF VAR DATA ENTRY (40-12 BIT CHARACTERS)
 V.CCVIO  EQU    4           LENGTH OF VAR IN/OUT STRING (40-6 BIT CHARACTERS)
 LE.LVE   EQU    2           LENGTH OF A VARIABLE ENTRY 
  
  
  
  
********************************************************************
  
*         HELP PANEL FIELDS 
  
  
  
 HLPNL    BSS    0
  
          VFD    42/7HHLPNL        PANEL NAME 
          VFD    16/0              RESERVED 
          VFD    1/0               OVERLAY PANEL
          VFD    1/0               ATTRIBUTES ARE BLANK 
  
          VFD    6/15              MINIMUM NUMBER-1 OF SUPPORTED LINES
          VFD    18/L.HLP          LENGTH OF PANEL
          VFD    18/0              START OF FUNCTION LIST (NONE)
          VFD    18/0              START OF VAR LIST (NONE) 
  
          VFD    6/0               VERSION 0
          VFD    18/ATTR-HLPNL     START OF ATTRIBUTE TABLE 
          VFD    18/0              START OF ARRAY LIST
          VFD    18/HLPFD-HLPNL    START OF FIELD LIST
  
          VFD    6/0               RESERVED 
          VFD    18/BOX1-HLPNL     START OF BOX LIST
          VFD    12/0              RESERVED 
          VFD    9/79              MESSAGE LENGTH 
          VFD    6/0               MESSAGE Y
          VFD    9/0               MESSAGE X
  
          VFD    13/0              LENGTH OF VAR DATA (NONE)
          VFD    9/79              MAX X LENGTH OF LINE 
          VFD    38/0              RESERVED 
  
***************************************************************** 
  
  
*         THE HELP PANEL DOES NOT HAVE VARIABLE DATA FIELDS.
  
*************************************************************** 
  
*         HELP PANEL FIELD LIST 
  
 HLPFD    BSS    0
  
 HTTL     BSS    0                 HELP TITLE FIELD LIST ENTRY
          VFD    1/0               CONSTANT 
          VFD    7/ATTL-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/0               REWRITE
          VFD    1/1               ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPTTL-HLPNL   1ST CONSTANT WORD (OFFSET) 
          VFD    9/4               LENGTH 
          VFD    6/5               TITLE Y
          VFD    9/38              TITLE X
  
  
*         FIELD LIST ENTRIES FOR TEXT LINES 
  
 HFDL     BSS    0                 FIELD LIST ENTRIES FOR HELP LINES
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID   (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN1-HLPNL   1ST WORD OF CONSTANT DATA
          VFD    9/0               LENGTH 
          VFD    6/6               TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID   (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN2-HLPNL   1ST WORD OF CONSTANT DATA
          VFD    9/0               LENGTH 
          VFD    6/7               TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          LIST   -L 
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID   (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN3-HLPNL   1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/8               TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID   (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN4-HLPNL   1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/9               TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID   (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN5-HLPNL   1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/10              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID   (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN6-HLPNL   1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/11              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID   (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN7-HLPNL   1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/12              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID   (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN8-HLPNL   1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/13              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID   (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN9-HLPNL   1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/14              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID   (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN10-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/15              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID   (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN11-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/16              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID   (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN12-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/17              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID   (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN13-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/18              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID   (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN14-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/19              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN15-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/20              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN16-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/21              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID    (DYNAMIC) 
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN17-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/22              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID   (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN18-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/23              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN19-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/24              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID   (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN20-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/25              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN21-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/26              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN22-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/27              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN23-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/28              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN24-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/29              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN25-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/30              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN26-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/31              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN27-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/32              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN28-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/33              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN29-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/34              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN30-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/35              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN31-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/36              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN32-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/37              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN33-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/38              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN34-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/39              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN35-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/40              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN36-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/41              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN37-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/42              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN38-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/43              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN39-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/44              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN40-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/45              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN41-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/46              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN42-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/47              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN43-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/48              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN44-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/49              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN45-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/50              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN46-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/51              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN47-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/52              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN48-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/53              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN49-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/54              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN50-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/55              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN51-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/56              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN52-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/57              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN53-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/58              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN54-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/59              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN55-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/60              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN56-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/61              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN57-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/62              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
          LIST   *
*         NOTE - HELP PANEL TEXT LINE FIELD ENTRIES 3 - 57 NOT LISTED.
  
          VFD    1/0               CONSTANT 
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED (DYNAMIC) RANDOM 
          VFD    1/0               VALUE VALID (DYNAMIC)
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/HLPLN58-HLPNL  1ST CONSTANT WORD
          VFD    9/0               LENGTH 
          VFD    6/63              TEXT LINE Y
          VFD    9/0               TEXT LINE X
  
  
  
*         FIELD LIST ENTRIES FOR FUNCTION KEYS
  
 HLPFKC   BSS    0
  
          VFD    1/0               CONSTANT FOR F1 KEY
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/DF1-HLPNL      1ST CONSTANT WORD
          VFD    9/4               LENGTH 
          VFD    6/29              F1 LINE Y
          VFD    9/0               F1 LINE X
  
 HF1      VFD    1/0               CONSTANT F1 KEY LABEL
          VFD    7/AKEY-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/CF1-HLPNL      1ST CONSTANT WORD
          VFD    9/8               LENGTH 
          VFD    6/29              F1 LABEL LINE Y
          VFD    9/4               F1 LABEL LINE X
  
          VFD    1/0               CONSTANT F2 KEY
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/DF2-HLPNL      1ST CONSTANT WORD
          VFD    9/4               LENGTH 
          VFD    6/29              F2 KEY LINE Y
          VFD    9/13              F2 KEY COLUMN X
  
 HF2      VFD    1/0               CONSTANT F2 KEY LABEL
          VFD    7/AKEY-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/CF2-HLPNL      CONSTANT WORD
          VFD    9/8               LENGTH 
          VFD    6/29              F2 KEY LABEL LINE Y
          VFD    9/17              F2 KEY LABEL COLUMN X
  
          VFD    1/0               CONSTANT F3 KEY
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/DF3-HLPNL      CONSTANT WORD
          VFD    9/4               LENGTH 
          VFD    6/29              F3 KEY LINE Y
          VFD    9/26              F3 KEY COLUMN X
  
 HF3      VFD    1/0               CONSTANT F3 LABEL
          VFD    7/AKEY-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/CF3-HLPNL      CONSTANT WORD
          VFD    9/8               LENGTH 
          VFD    6/29              F3 KEY LABEL LINE Y
          VFD    9/30              F3 KEY LABEL COLUMN X
  
          VFD    1/0               CONSTANT F4 KEY
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/DF4-HLPNL      CONSTANT WORD
          VFD    9/4               LENGTH 
          VFD    6/29              F4 KEY LINE Y
          VFD    9/39              F4 KEY COLUMN X
  
 HF4      VFD    1/0               CONSTANT F4 KEY LABEL
          VFD    7/AKEY-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/CF4-HLPNL      CONSTANT WORD
          VFD    9/8               LENGTH 
          VFD    6/29              F4 KEY LABEL LINE Y
          VFD    9/43              F4 KEY LABEL COLUMN X
  
          VFD    1/0               CONSTANT F5 KEY
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/1               ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/DF5-HLPNL      CONSTANT WORD
          VFD    9/4               LENGTH 
          VFD    6/29              F5 KEY LINE Y
          VFD    9/52              F5 KEY COLUMN X
  
 HF5      VFD    1/0               CONSTANT F5 KEY LABEL
          VFD    7/AKEY-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/1               ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/CF5-HLPNL      CONSTANT WORD
          VFD    9/8               LENGTH 
          VFD    6/29              F5 KEY LABEL LINE Y
          VFD    9/56              F5 KEY LABEL COLUMN X
  
          VFD    1/0               CONSTANT F6 KEY
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/1               ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/DF6-HLPNL      CONSTANT WORD
          VFD    9/4               LENGTH 
          VFD    6/29              F6 KEY LINE Y
          VFD    9/65              F6 KEY COLUMN X
  
 HF6      VFD    1/0               CONSTANT F6 KEY LABEL
          VFD    7/AKEY-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/1               ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/CF6-HLPNL      CONSTANT WORD
          VFD    9/8               LENGTH 
          VFD    6/29              LINE Y 
          VFD    9/69              F6 KEY LABEL COLUMN X
  
 HFK7     VFD    1/0               CONSTANT F7 KEY
          VFD    7/AOUT-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/DF7-HLPNL      CONSTANT WORD
          VFD    9/4               LENGTH 
          VFD    6/29              F7 KEY LINE Y
          VFD    9/78              F7 KEY COLUMN X
  
          VFD    1/0               CONSTANT F7 KEY LABEL
          VFD    7/AKEY-ATTR       ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/CF7-HLPNL      CONSTANT WORD
          VFD    9/8               LENGTH 
          VFD    6/29              F7 KEY LABEL LINE Y
          VFD    9/82              F7 KEY LABEL COLUMN X
  
 HLPFKL   EQU    *-HLPFKC          LENGTH OF HELP FUNCTION KEY LIST 
  
          BSSZ   1
  
********************************************************************
  
*         HELP PANEL CONSTANT DATA FIELDS 
  
 HLPTTL   BSSZ   V.CCCDE
 HLPLN1   BSSZ   V.CCCHP
 HLPLN2   BSSZ   V.CCCHP
 HLPLN3   BSSZ   V.CCCHP
 HLPLN4   BSSZ   V.CCCHP
 HLPLN5   BSSZ   V.CCCHP
 HLPLN6   BSSZ   V.CCCHP
 HLPLN7   BSSZ   V.CCCHP
 HLPLN8   BSSZ   V.CCCHP
 HLPLN9   BSSZ   V.CCCHP
 HLPLN10  BSSZ   V.CCCHP
 HLPLN11  BSSZ   V.CCCHP
 HLPLN12  BSSZ   V.CCCHP
 HLPLN13  BSSZ   V.CCCHP
 HLPLN14  BSSZ   V.CCCHP
 HLPLN15  BSSZ   V.CCCHP
 HLPLN16  BSSZ   V.CCCHP
 HLPLN17  BSSZ   V.CCCHP
 HLPLN18  BSSZ   V.CCCHP
 HLPLN19  BSSZ   V.CCCHP
 HLPLN20  BSSZ   V.CCCHP
 HLPLN21  BSSZ   V.CCCHP
 HLPLN22  BSSZ   V.CCCHP
 HLPLN23  BSSZ   V.CCCHP
 HLPLN24  BSSZ   V.CCCHP
 HLPLN25  BSSZ   V.CCCHP
 HLPLN26  BSSZ   V.CCCHP
 HLPLN27  BSSZ   V.CCCHP
 HLPLN28  BSSZ   V.CCCHP
 HLPLN29  BSSZ   V.CCCHP
 HLPLN30  BSSZ   V.CCCHP
 HLPLN31  BSSZ   V.CCCHP
 HLPLN32  BSSZ   V.CCCHP
 HLPLN33  BSSZ   V.CCCHP
 HLPLN34  BSSZ   V.CCCHP
 HLPLN35  BSSZ   V.CCCHP
 HLPLN36  BSSZ   V.CCCHP
 HLPLN37  BSSZ   V.CCCHP
 HLPLN38  BSSZ   V.CCCHP
 HLPLN39  BSSZ   V.CCCHP
 HLPLN40  BSSZ   V.CCCHP
 HLPLN41  BSSZ   V.CCCHP
 HLPLN42  BSSZ   V.CCCHP
 HLPLN43  BSSZ   V.CCCHP
 HLPLN44  BSSZ   V.CCCHP
 HLPLN45  BSSZ   V.CCCHP
 HLPLN46  BSSZ   V.CCCHP
 HLPLN47  BSSZ   V.CCCHP
 HLPLN48  BSSZ   V.CCCHP
 HLPLN49  BSSZ   V.CCCHP
 HLPLN50  BSSZ   V.CCCHP
 HLPLN51  BSSZ   V.CCCHP
 HLPLN52  BSSZ   V.CCCHP
 HLPLN53  BSSZ   V.CCCHP
 HLPLN54  BSSZ   V.CCCHP
 HLPLN55  BSSZ   V.CCCHP
 HLPLN56  BSSZ   V.CCCHP
 HLPLN57  BSSZ   V.CCCHP
 HLPLN58  BSSZ   V.CCCHP
          BSSZ   1           END OF HELP CONSTANT LIST
  
**********************************************************************
  
*         HELP PANEL ATTRIBUTE LIST 
  
  
 ATTR     BSS    0
 AINP     BSS    0
          VFD    1/1               INPUT (LOGICAL ORDINAL)
          VFD    1/0               NOT PROTECTED
          VFD    1/0               NOT GUARDED
          VFD    6/0               RESERVED 
          VFD    3/0               INPUT TEXT 
          VFD    3/0               FOREGROUND COLOR WHITE 
          VFD    3/0               BACKGROUND COLOR (RESERVED)
          VFD    9/0               RESERVED 
          VFD    12/0              ATTRIBUTE CHARACTER START
          VFD    12/0              ATTRIBUTE CHARACTER END
          VFD    2/0               SPECIAL CHARACTER
          VFD    5/0               BRACKET IO 
          VFD    2/0               RESERVED 
  
 AOUT     BSS    0
          VFD    1/1               OUTPUT (LOGICAL ATTRIBUTE) 
          VFD    1/1               PROTECTED
          VFD    1/0               NOT GUARDED
          VFD    6/0               RESERVED 
          VFD    3/1               OUTPUT TEXT
          VFD    3/0               FOREGROUND COLOR WHITE 
          VFD    3/0               BACKGROUND COLOR (RESERVED)
          VFD    9/0               RESERVED 
          VFD    12/0              ATTRIBUTE CHARACTER START
          VFD    12/0              ATTRIBUTE CHARACTER END
          VFD    2/0               SPECIAL CHARACTER
          VFD    5/0               BRACKET IO 
          VFD    2/0               RESERVED 
  
  
 ATTL     BSS    0
          VFD    1/1               TITLE (LOGICAL ATTRIBUTE)
          VFD    1/1               PROTECTED
          VFD    1/0               NOT GUARDED
          VFD    6/0               RESERVED 
          VFD    3/3               OUTPUT TITLE 
          VFD    3/0               FOREGROUND COLOR WHITE 
          VFD    3/0               BACKGROUND COLOR (RESERVED)
          VFD    9/0               RESERVED 
          VFD    12/0              ATTRIBUTE CHARACTER START
          VFD    12/0              ATTRIBUTE CHARACTER END
          VFD    2/0               SPECIAL CHARACTER
          VFD    5/0               BRACKET IO 
          VFD    2/0               RESERVED 
  
 BOXA     BSS    0
          VFD    1/0               BOX (PHYSICAL ATTRIBUTE) 
          VFD    1/1               PROTECTED
          VFD    1/0               NOT GUARDED
          VFD    5/0               RESERVED 
          VFD    1/0               NO UNDERLINING 
          VFD    1/0               ALTERNATE INTENSITY (OFF)
          VFD    1/0               INVERSE VIDEO
          VFD    1/0               NO BLINKING
          VFD    3/0               FOREGROUND COLOR WHITE 
          VFD    3/0               BACKGROUND COLOR (RESERVED)
          VFD    9/0               RESERVED 
          VFD    12/0              ATTRIBUTE CHARACTER START
          VFD    12/0              ATTRIBUTE CHARACTER END
          VFD    2/0               SPECIAL CHARACTER
          VFD    5/0               BRACKET ID 
          VFD    2/2               LINE WEIGHT MEDIUM 
  
 AKEY     BSS    0
          VFD    1/0               FUNCTION KEY LABEL (PHYSICAL ATTRIBUTE)
          VFD    1/1               PROTECTED
          VFD    1/0               NOT GUARDED
          VFD    5/0               RESERVED 
          VFD    1/0               NO UNDERLINING 
          VFD    1/0               ALTERNATE INTENSITY (OFF)
          VFD    1/1               INVERSE VIDEO
          VFD    1/0               NO BLINKING
          VFD    3/0               FOREGROUND COLOR BLACK 
          VFD    3/0               BACKGROUND COLOR WHITE 
          VFD    9/0               RESERVED 
          VFD    12/0              ATTRIBUTE CHARACTER START
          VFD    12/0              ATTRIBUTE CHARACTER END
          VFD    2/0               SPECIAL CHARACTER
          VFD    5/0               BRACKET ID 
          VFD    2/0               RESERVED 
  
  
**********************************************************************
  
*         HELP PANEL BOX LIST 
  
 BOX1     BSS    0
          VFD    12/BOXA-ATTR      ATTRIBUTE ORDINAL
          VFD    4/0               LINE DRAWING CHARACTER 
          VFD    6/5               LINE NUMBER
          VFD    9/0               COLUMN 
          VFD    9/38              38 COLUMNS 
          VFD    20/0              RESERVED 
  
 BOX2     BSS    0
          VFD    12/BOXA-ATTR      ATTRIBUTE ORDINAL
          VFD    4/0               LINE DRAWING CHARACTER 
          VFD    6/5               LINE NUMBER
          VFD    9/42              COLUMN 
          VFD    9/38              38 COLUMNS 
          VFD    20/0              RESERVED 
  
          VFD    60/0 
************************************************************************
  
 L.HLP    EQU    *-HLPNL     LENGTH OF HELP PANEL 
  
  
  
  
  
**************************************************************************
**************************************************************************
  
  
  
*         PANEL FOR INTERACTIVE AND MENUS 
  
  
 PANEL    BSS    0                 PANEL HEADER 
  
          VFD    42/7HPANEL        PANEL NAME 
          VFD    16/0              RESERVED 
          VFD    1/1               PRIMARY PANEL
          VFD    1/0               ATTRIBUTE CHARACTERS ARE BLANK 
  
          VFD    6/15              MINIMUM NUMBER-1 OF SUPPORTED LINES
          VFD    18/L.PNL          LENGTH OF PANEL
          VFD    18/PFL-PANEL      START OF FUNCTION LIST 
          VFD    18/PVFL-PANEL     START OF VAR LIST
  
          VFD    6/0               VERSION 0
          VFD    18/ATTBL-PANEL    START OF ATTRIBUTE LIST
          VFD    18/0              START OF ARRAY LIST (NONE) 
          VFD    18/PFDL-PANEL     START OF FIELD LIST
  
          VFD    6/0               RESERVED 
          VFD    18/0              START OF BOX LIST (NONE) 
          VFD    12/0              RESERVED 
          VFD    9/79              MESSAGE LENGTH 
          VFD    6/0               MESSAGE Y
          VFD    9/0               MESSAGE X
  
          VFD    13/10*L.VIO       LENGTH OF VARIABLE DATA
          VFD    9/79              MAX X LENGTH OF LINE 
          VFD    38/0              RESERVED 
  
  
****************************************************************************
  
  
*         VARIABLE DATA FIELDS
  
 VARDATA  BSS    0
          BSSZ   53*V.CCVDE  53 FIELDS OF 40 12-BIT CHARACTERS
  
  
*************************************************************************** 
  
*         PANEL FIELD LIST
  
 PFDL     BSS    0
  
 PMSG     BSS    0
          VFD    1/0               MESSAGE CONSTANT 
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/1               ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/BLANK-PANEL    CONSTANT DATA OFFSET 
          VFD    9/1               LENGTH 
          VFD    6/0               MESSAGE LINE Y 
          VFD    9/0               MESSAGE COLUMN X 
  
 PTTL     BSS    0
          VFD    1/0               TITLE CONSTANT 
          VFD    7/TTLA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/1               ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/TITLE-PANEL    CONSTANT DATA OFFSET 
          VFD    9/40              LENGTH 
          VFD    6/1               TITLE LINE Y 
          VFD    9/20              TITLE COLUMN X 
  
 PHDR     BSS    0
          VFD    1/0               PAGE LABEL CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/PAGE-PANEL     CONSTANT DATA OFFSET 
          VFD    9/5               LENGTH 
          VFD    6/2               LINE Y 
          VFD    9/74              COLUMN X 
  
 PNUM     BSS    0
          VFD    1/0               PAGE NUMBER CONSTANT 
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/PGNUM-PANEL    CONSTANT DATA OFFSET 
          VFD    9/1               LENGTH 
          VFD    6/2               LINE Y 
          VFD    9/79              COLUMN X 
  
 PLIN     BSS    0
          VFD    1/0               CONSTANT PROMPT/SELECTION
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC1-PANEL     CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/3               PROMPT/SELECTION LINE
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/0               VARIABLE ORDINAL 
          VFD    13/0              CHARACTER OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/3               VAR LINE Y 
          VFD    9/39              VAR COLUMN X 
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC2-PANEL     CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/4               LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/1               VARIABLE ORDINAL 
          VFD    13/40             VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/4               LINE Y 
          VFD    9/39              COLUMN X 
  
          LIST   -L 
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC3-PANEL     CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/5               LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/2               VARIABLE ORDINAL 
          VFD    13/80             VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/5               LINE Y 
          VFD    9/39              COLUMN X 
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC4-PANEL     CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/6               LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/3               VARIABLE ORDINAL 
          VFD    13/120            VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/6               LINE Y 
          VFD    9/39              COLUMN X 
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC5-PANEL     CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/7               LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/4               VARIABLE ORDINAL 
          VFD    13/160            VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/7               LINE Y 
          VFD    9/39              COLUMN X 
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC6-PANEL     CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/8               LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/5               VARIABLE ORDINAL 
          VFD    13/200            VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/8               LINE Y 
          VFD    9/39              COLUMN X 
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC7-PANEL     CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/9               LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/6               VARIABLE ORDINAL 
          VFD    13/240            VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/9               LINE Y 
          VFD    9/39              COLUMN X 
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC8-PANEL     CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/10              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/7               VARIABLE ORDINAL 
          VFD    13/280            VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/10              LINE Y 
          VFD    9/39              COLUMN X 
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC9-PANEL     CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/11              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/8               VARIABLE ORDINAL 
          VFD    13/320            VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/11              LINE Y 
          VFD    9/39              COLUMN X 
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC10-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/12              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/9               VARIABLE ORDINAL 
          VFD    13/360            VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/12              LINE Y 
          VFD    9/39              COLUMN X 
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC11-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/13              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/10              VARIABLE ORDINAL 
          VFD    13/400            VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/13              LINE Y 
          VFD    9/39              COLUMN X 
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC12-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/14              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/11              VARIABLE ORDINAL 
          VFD    13/440            VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/14              LINE Y 
          VFD    9/39              COLUMN X 
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC13-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/15              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/12              VARIABLE ORDINAL 
          VFD    13/480            VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/15              LINE Y 
          VFD    9/39              COLUMN X 
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC14-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/16              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/13              VARIABLE ORDINAL 
          VFD    13/520            VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/16              LINE Y 
          VFD    9/39              COLUMN X 
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC15-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/17              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/14              VARIABLE ORDINAL 
          VFD    13/560            VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/17              LINE Y 
          VFD    9/39              COLUMN 
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC16-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/18              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/15              VARIABLE ORDINAL 
          VFD    13/600            VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/18              LINE Y 
          VFD    9/39              COLUMN 
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC17-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/19              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/16              VARIABLE ORDINAL 
          VFD    13/640            VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/19              LINE Y 
          VFD    9/39              COLUMN X 
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC18-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/20              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/17              VARIABLE ORDINAL 
          VFD    13/680            VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/20              LINE Y 
          VFD    9/39 COLUMN X
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC19-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/21              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/18              VARIABLE ORDINAL 
          VFD    13/720            VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/21              LINE Y 
          VFD    9/39 COLUMN X
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC20-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/22              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/19              VARIABLE ORDINAL 
          VFD    13/760            VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/22              LINE Y 
          VFD    9/39 COLUMN X
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC21-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/23              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/20              VARIABLE ORDINAL 
          VFD    13/800            VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/23              LINE Y 
          VFD    9/39 COLUMN X
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC22-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/24              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/21              VARIABLE ORDINAL 
          VFD    13/840            VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/24              LINE Y 
          VFD    9/39 COLUMN X
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC23-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/25              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/22              VARIABLE ORDINAL 
          VFD    13/880            VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/25              LINE Y 
          VFD    9/39 COLUMN X
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC24-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/26              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/23              VARIABLE ORDINAL 
          VFD    13/920            VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/26              LINE Y 
          VFD    9/39 COLUMN X
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC25-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/27              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/24              VARIABLE ORDINAL 
          VFD    13/960            VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/27              LINE Y 
          VFD    9/39 COLUMN X
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC26-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/28              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/25              VARIABLE ORDINAL 
          VFD    13/1000           VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/28              LINE Y 
          VFD    9/39 COLUMN X
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC27-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/29              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/26              VARIABLE ORDINAL 
          VFD    13/1040           VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/29              LINE Y 
          VFD    9/39 COLUMN X
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC28-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/30              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/27              VARIABLE ORDINAL 
          VFD    13/1080           VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/30              LINE Y 
          VFD    9/39 COLUMN X
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC29-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/31              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/28              VARIABLE ORDINAL 
          VFD    13/1120           VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/31              LINE Y 
          VFD    9/39 COLUMN X
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC30-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/32              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/29              VARIABLE ORDINAL 
          VFD    13/1160           VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/32              LINE Y 
          VFD    9/39 COLUMN X
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC31-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/33              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/30              VARIABLE ORDINAL 
          VFD    13/1200           VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/33              LINE Y 
          VFD    9/39 COLUMN X
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC32-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/34              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/31              VARIABLE ORDINAL 
          VFD    13/1240           VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/34              LINE Y 
          VFD    9/39 COLUMN X
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC33-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/35              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/32              VARIABLE ORDINAL 
          VFD    13/1280           VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/35              LINE Y 
          VFD    9/39 COLUMN X
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC34-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/36              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/33              VARIABLE ORDINAL 
          VFD    13/1320           VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/36              LINE Y 
          VFD    9/39 COLUMN X
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC35-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/37              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/34              VARIABLE ORDINAL 
          VFD    13/1360           VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/37              LINE Y 
          VFD    9/39 COLUMN X
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC36-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/38              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/35              VARIABLE ORDINAL 
          VFD    13/1400           VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/38              LINE Y 
          VFD    9/39 COLUMN X
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC37-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/39              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/36              VARIABLE ORDINAL 
          VFD    13/1440           VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/39              LINE Y 
          VFD    9/39 COLUMN X
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC38-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/40              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/37              VARIABLE ORDINAL 
          VFD    13/1480           VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/40              LINE Y 
          VFD    9/39 COLUMN X
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC39-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/41              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/38              VARIABLE ORDINAL 
          VFD    13/1520           VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/41              LINE Y 
          VFD    9/39 COLUMN X
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC40-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/42              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/39              VARIABLE ORDINAL 
          VFD    13/1560           VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/42              LINE Y 
          VFD    9/39 COLUMN X
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC41-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/43              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/40              VARIABLE ORDINAL 
          VFD    13/1600           VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/43              LINE Y 
          VFD    9/39 COLUMN X
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC42-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/44              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/41              VARIABLE ORDINAL 
          VFD    13/1640           VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/44              LINE Y 
          VFD    9/39 COLUMN X
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC43-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/45              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/42              VARIABLE ORDINAL 
          VFD    13/1680           VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/45              LINE Y 
          VFD    9/39 COLUMN X
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC44-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/46              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/43              VARIABLE ORDINAL 
          VFD    13/1720           VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/46              LINE Y 
          VFD    9/39 COLUMN X
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC45-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/47              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/44              VARIABLE ORDINAL 
          VFD    13/1760           VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/47              LINE Y 
          VFD    9/39 COLUMN X
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC46-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/48              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/45              VARIABLE ORDINAL 
          VFD    13/1800           VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/48              LINE Y 
          VFD    9/39 COLUMN X
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC47-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/49              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/46              VARIABLE ORDINAL 
          VFD    13/1840           VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/49              LINE Y 
          VFD    9/39 COLUMN X
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC48-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/50              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/47              VARIABLE ORDINAL 
          VFD    13/1880           VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/50              LINE Y 
          VFD    9/39 COLUMN X
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC49-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/51              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/48              VARIABLE ORDINAL 
          VFD    13/1920           VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/51              LINE Y 
          VFD    9/39 COLUMN X
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC50-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/52              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/49              VARIABLE ORDINAL 
          VFD    13/1960           VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/52              LINE Y 
          VFD    9/39 COLUMN X
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC51-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/53              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/50              VARIABLE ORDINAL 
          VFD    13/2000           VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/53              LINE Y 
          VFD    9/39 COLUMN X
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC52-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/54              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/51              VARIABLE ORDINAL 
          VFD    13/2040           VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/54              LINE Y 
          VFD    9/39 COLUMN X
  
          LIST   *
*         NOTE - PANEL FIELD LIST ENTRIES 3 - 52 NOT LISTED.
  
          VFD    1/0               PROMPT/SELECTION CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/SLC53-PANEL    CONSTANT DATA OFFSET 
          VFD    9/0               LENGTH 
          VFD    6/55              LINE Y 
          VFD    9/0               COLUMN X 
  
          VFD    1/1               PARAMETER VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/52              VARIABLE ORDINAL 
          VFD    13/2080           VAR DATA CHARACTER OFFSET
          VFD    9/0               LENGTH 
          VFD    6/55              LINE Y 
          VFD    9/39 COLUMN X
  
 BLKLIN   BSS    0
          VFD    1/0               BLANK LINE CONSTANT
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/1               ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/BLANK-PANEL    CONSTANT DATA OFFSET 
          VFD    9/1               LENGTH 
          VFD    6/22              LINE Y 
          VFD    9/0               COLUMN X 
  
 PPRT     BSS    0
          VFD    1/0               PROMPT LINE CONSTANT 
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/1               ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/PPRMT-PANEL    PROMPT CONSTANT
          VFD    9/40              LENGTH 
          VFD    6/23              LINE Y 
          VFD    9/20              COLUMN X 
  
 SLCTN    BSS    0
          VFD    1/1               SELECTION VARIABLE 
          VFD    7/INPA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/1               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    8/17              VARIABLE ORDINAL 
          VFD    13/0              VARIABLE DATA CHARACTER OFFSET 
          VFD    9/1               LENGTH 
          VFD    6/23              LINE Y 
          VFD    9/60              COLUMN X 
  
*         FIELD LIST ENTRIES FOR FUNCTION KEYS
  
 PFUNL    BSS    0
          VFD    1/0               CONSTANT FOR F1 KEY
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/DF1-PANEL      CONSTANT WORD
          VFD    9/4               LENGTH 
          VFD    6/29              LINE Y 
          VFD    9/0               COLUMN X 
  
 PF1      VFD    1/0               CONSTANT FOR F1 LABEL
          VFD    7/KEYA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/CF1-PANEL      CONSTANT WORD
          VFD    9/8               LENGTH 
          VFD    6/29              LINE Y 
          VFD    9/4               COLUMN X 
  
          VFD    1/0               CONSTANT FOR F2 KEY
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/DF2-PANEL      CONSTANT WORD
          VFD    9/4               LENGTH 
          VFD    6/29              LINE Y 
          VFD    9/13              COLUMN X 
  
 PF2      VFD    1/0               CONSTANT FOR F2 LABEL
          VFD    7/KEYA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/0               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/1               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONDSTANT
          VFD    18/CF2-PANEL      CONSTANT WORD
          VFD    9/8               LENGTH 
          VFD    6/29              LINE Y 
          VFD    9/17              COLUMN X 
  
          VFD    1/0               CONSTANT FOR F3 KEY
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/DF3-PANEL      CONSTANT WORD
          VFD    9/4               LENGTH 
          VFD    6/29              LINE Y 
          VFD    9/26              COLUMN X 
  
          VFD    1/0               CONSTANT F3 KEY LABEL
          VFD    7/KEYA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/CF3-PANEL      CONSTANT WORD
          VFD    9/8               LENGTH 
          VFD    6/29              LINE Y 
          VFD    9/30              COLUMN X 
  
          VFD    1/0               CONSTANT FOR F4 KEY
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/DF4-PANEL      CONSTANT WORD
          VFD    9/4               LENGTH 
          VFD    6/29              LINE Y 
          VFD    9/39              COLUMN X 
  
          VFD    1/0               CONSTANT F4 KEY LABEL
          VFD    7/KEYA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/CF4-PANEL      CONSTANT WORD
          VFD    9/8               LENGTH 
          VFD    6/29              LINE Y 
          VFD    9/43              COLUMN X 
  
          VFD    1/0               CONSTANT FOR F5 KEY
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/0               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/1               ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/DF5-PANEL      CONSTANT WORD
          VFD    9/4               LENGTH 
          VFD    6/29              LINE Y 
          VFD    9/52              COLUMN X 
  
 PF5      VFD    1/0               CONSTANT FOR F5 LABEL
          VFD    7/KEYA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/1               ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/CF5-PANEL      CONSTANT WORD
          VFD    9/8               LENGTH 
          VFD    6/29              LINE Y 
          VFD    9/56              COLUMN X 
  
          VFD    1/0               CONSTANT FOR F6 KEY
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/1               ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/DF6-PANEL      CONSTANT WORD
          VFD    9/4               LENGTH 
          VFD    6/29              LINE Y 
          VFD    9/65              KEY COLUMN X 
  
 PF6      VFD    1/0               CONSTANT FOR F6 LABEL
          VFD    7/KEYA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/1               ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/CF6-PANEL      CONSTANT 
          VFD    9/8               LENGTH 
          VFD    6/29              LINE Y 
          VFD    9/69              COLUMN X 
  
 PFK7     VFD    1/0               CONSTANT FOR F7 KEY
          VFD    7/OUTA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/DF7-PANEL      CONSTANT WORD
          VFD    9/4               LENGTH 
          VFD    6/29              LINE Y 
          VFD    9/78              COLUMN X 
  
          VFD    1/0               CONSTANT F7 KEY LABEL
          VFD    7/KEYA-ATTBL      ATTRIBUTE ORDINAL
          VFD    1/0               INPUT
          VFD    1/1               OUTPUT 
          VFD    1/0               VALUE ENTERED
          VFD    1/0               VALUE VALID
          VFD    1/0               REWRITE
          VFD    1/0               NOT ACTIVE 
          VFD    1/0               RESERVED 
          VFD    3/0               CONSTANT 
          VFD    18/CF7-PANEL      CONSTANT WORD
          VFD    9/8               LENGTH 
          VFD    6/29              LINE Y 
          VFD    9/82              COLUMN X 
  
 PFUNLL   EQU    *-PFUNL           LENGTH OF MAIN FUNCTION KEY LIST 
  
  
          BSSZ   1                 ZERO WORD
*************************************************************************** 
  
  
*         CONSTANT DATA FIELDS
  
 PAGE     VFD    12/7              PAGE CONSTANT
          VFD    12/2128
          VFD    12/2145
          VFD    12/2151
          VFD    12/2149
          VFD    12/2080
          VFD    48/0 
          BSSZ   V.CCCDE
  
 PGNUM    VFD    12/7              PAGE NUMBER CONSTANT 
          VFD    12/2097
          VFD    36/0 
  
 BLANK    VFD    12/7              BLANK LINE 
          VFD    12/2080
          VFD    36/0 
  
 TITLE    BSSZ   V.CCCDE     40 - 12 BIT CHARACTERS + CONTROL BYTES 
          BSSZ   V.CCCDE
 PPRMT    VFD    12/7 
          VFD    12/2131
          VFD    12/2160
          VFD    12/2149
          VFD    12/2147
          VFD    12/2153
          VFD    12/2150
          VFD    12/2169
          VFD    12/2080
          VFD    12/2166
          VFD    12/2145
          VFD    12/2156
          VFD    12/2165
          VFD    12/2149
          VFD    12/2163
          VFD    12/2080
          VFD    12/2145
          VFD    12/2158
          VFD    12/2148
          VFD    12/2080
          VFD    12/2160
          VFD    12/2162
          VFD    12/2149
          VFD    12/2163
          VFD    12/2163
 PPRF7    BSS    0                 WORD WHERE * F7 * REPLACES *NEXT*
          VFD    12/4040B 
          VFD    12/4116B          N
          VFD    12/4105B          E    F 
          VFD    12/4130B          X    7 
          VFD    12/4124B          T
          VFD    12/2080
          VFD    12/2167
          VFD    12/2152
          VFD    12/2149
          VFD    12/2158
          VFD    12/2080
          VFD    12/2162
          VFD    12/2149
          VFD    12/2145
          VFD    12/2148
          VFD    12/2169
          VFD    48/0 
  
 MPRMT    DATA   C$S^E^L^E^C^T ^F^R^O^M ^T^H^E ^L^I^S^T ^A^B^O^V^E ^A^N^
,D ^P^R^E^S^S NEXT$ 
          VFD    60/0 
  
  
 PRMT     BSSZ   18          SPACE FOR USER SUPPLIED PROMPT 
 MESG     BSSZ   V.CCCDE
 SLC1     BSSZ   V.CCCDE
 SLC2     BSSZ   V.CCCDE
 SLC3     BSSZ   V.CCCDE
 SLC4     BSSZ   V.CCCDE
 SLC5     BSSZ   V.CCCDE
 SLC6     BSSZ   V.CCCDE
 SLC7     BSSZ   V.CCCDE
 SLC8     BSSZ   V.CCCDE
 SLC9     BSSZ   V.CCCDE
 SLC10    BSSZ   V.CCCDE
 SLC11    BSSZ   V.CCCDE
 SLC12    BSSZ   V.CCCDE
 SLC13    BSSZ   V.CCCDE
 SLC14    BSSZ   V.CCCDE
 SLC15    BSSZ   V.CCCDE
 SLC16    BSSZ   V.CCCDE
 SLC17    BSSZ   V.CCCDE
 SLC18    BSSZ   V.CCCDE
 SLC19    BSSZ   V.CCCDE
 SLC20    BSSZ   V.CCCDE
 SLC21    BSSZ   V.CCCDE
 SLC22    BSSZ   V.CCCDE
 SLC23    BSSZ   V.CCCDE
 SLC24    BSSZ   V.CCCDE
 SLC25    BSSZ   V.CCCDE
 SLC26    BSSZ   V.CCCDE
 SLC27    BSSZ   V.CCCDE
 SLC28    BSSZ   V.CCCDE
 SLC29    BSSZ   V.CCCDE
 SLC30    BSSZ   V.CCCDE
 SLC31    BSSZ   V.CCCDE
 SLC32    BSSZ   V.CCCDE
 SLC33    BSSZ   V.CCCDE
 SLC34    BSSZ   V.CCCDE
 SLC35    BSSZ   V.CCCDE
 SLC36    BSSZ   V.CCCDE
 SLC37    BSSZ   V.CCCDE
 SLC38    BSSZ   V.CCCDE
 SLC39    BSSZ   V.CCCDE
 SLC40    BSSZ   V.CCCDE
 SLC41    BSSZ   V.CCCDE
 SLC42    BSSZ   V.CCCDE
 SLC43    BSSZ   V.CCCDE
 SLC44    BSSZ   V.CCCDE
 SLC45    BSSZ   V.CCCDE
 SLC46    BSSZ   V.CCCDE
 SLC47    BSSZ   V.CCCDE
 SLC48    BSSZ   V.CCCDE
 SLC49    BSSZ   V.CCCDE
 SLC50    BSSZ   V.CCCDE
 SLC51    BSSZ   V.CCCDE
 SLC52    BSSZ   V.CCCDE
 SLC53    BSSZ   V.CCCDE
  
  
  
  
  
  
*         CONSTANT DATA FOR FUNCTION KEYS 
  
 CF1      VFD    12/7 
          VFD    12/2080           F1 LABEL 
          VFD    12/2080
          VFD    12/2118
          VFD    12/2135
          VFD    12/2116
          VFD    12/2080
          VFD    12/2080
          VFD    12/2080
          VFD    12/0 
  
 CF2      VFD    12/7 
          VFD    12/2080           F2 LABEL 
          VFD    12/2080
          VFD    12/2114
          VFD    12/2123
          VFD    12/2135
          VFD    12/2080
          VFD    12/2080
          VFD    12/2080
          VFD    12/0 
  
  
  
 CF3      VFD    12/7 
          VFD    12/2120           F3 LABEL 
          VFD    12/2117
          VFD    12/2124
          VFD    12/2128
          VFD    12/2080
          VFD    12/2118
          VFD    12/2135
          VFD    12/2116
          VFD    12/0 
  
 CF4      VFD    12/7 
          VFD    12/2120           F4 LABEL 
          VFD    12/2117
          VFD    12/2124
          VFD    12/2128
          VFD    12/2080
          VFD    12/2114
          VFD    12/2123
          VFD    12/2135
          VFD    12/0 
  
 CF5      VFD    12/7 
          VFD    12/2080           F5 LABEL 
          VFD    12/2080
          VFD    12/2120
          VFD    12/2117
          VFD    12/2124
          VFD    12/2128
          VFD    12/2080
          VFD    12/2080
          VFD    12/0 
  
  
  
 CF6      VFD    12/7 
          VFD    12/2080           F6 LABEL 
          VFD    12/2080
          VFD    12/2129
          VFD    12/2133
          VFD    12/2121
          VFD    12/2132
          VFD    12/2080
          VFD    12/2080
          VFD    12/0 
  
  
 CF7      VFD    12/7              F7 LABEL 
          VFD    12/4040B 
          VFD    12/4105B          E
          VFD    12/4130B          X
          VFD    12/4105B          E
          VFD    12/4103B          C
          VFD    12/4125B          U
          VFD    12/4124B          T
          VFD    12/4105B          E
          VFD    12/0 
  
  
 DF1      VFD    12/7              F1 
          VFD    12/2080
          VFD    12/2118
          VFD    12/2097
          VFD    12/2080
          VFD    60/0 
  
 DF2      VFD    12/7              F2 
          VFD    12/2080
          VFD    12/2118
          VFD    12/2098
          VFD    12/2080
          VFD    60/0 
  
 DF3      VFD    12/7              F3 
          VFD    12/2080
          VFD    12/2118
          VFD    12/2099
          VFD    12/2080
          VFD    60/0 
  
 DF4      VFD    12/7              F4 
          VFD    12/2080
          VFD    12/2118
          VFD    12/2100
          VFD    12/2080
          VFD    60/0 
  
 DF5      VFD    12/7              F5 
          VFD    12/2080
          VFD    12/2118
          VFD    12/2101
          VFD    12/2080
          VFD    60/0 
  
 DF6      VFD    12/7              F6 
          VFD    12/2080
          VFD    12/2118
          VFD    12/2102
          VFD    12/2080
          VFD    60/0 
  
 DF7      VFD    12/7              F7 
          VFD    12/4040B 
          VFD    12/4106B          F
          VFD    12/4067B          7
          VFD    12/4040B 
          VFD    60/0 
  
*************************************************************************** 
  
  
*         VARIABLE FIELD LIST 
  
 PVFL     BSS    0
 RESP01   VFD    2/0               RESERVED 
          VFD    8/6               FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP001      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/8               FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP002      VARIABLE NAME
          VFD    18/0 
  
          LIST   -L 
          VFD    2/0               RESERVED 
          VFD    8/10              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP003      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/12              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP004      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/14              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP005      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/16              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP006      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/18              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP007      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/20              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP008      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/22              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP009      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/24              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP010      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/26              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP011      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/28              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP012      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/30              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP013      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/32              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP014      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/34              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP015      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/36              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP016      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/38              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP017      VARIABLE NAME
          VFD    18/0 
          VFD    2/0               RESERVED 
          VFD    8/40              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP018      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/42              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP019      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/44              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP020      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/46              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP021      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/48              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP022      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/50              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP023      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/52              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP024      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/54              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP025      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/56              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP026      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/58              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP027      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/60              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP028      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/62              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP029      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/64              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP030      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/66              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP031      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/68              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP032      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/70              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP033      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/72              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP034      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/74              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP035      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/76              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP036      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/78              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP037      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/80              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP038      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/82              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP039      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/84              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP040      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/86              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP041      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/88              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP042      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/90              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP043      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/92              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP044      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/94              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP045      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/96              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP046      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/98              FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP047      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/100             FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP048      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/102             FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP049      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/104             FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP050      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/106             FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP051      VARIABLE NAME
          VFD    18/0 
  
          VFD    2/0               RESERVED 
          VFD    8/108             FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP052      VARIABLE NAME
          VFD    18/0 
  
          LIST   *
*         NOTE - VARIABLE FIELD LIST ENTRIES 3 - 52 NOT LISTED. 
  
          VFD    2/0               RESERVED 
          VFD    8/110             FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HRESP053      VARIABLE NAME
          VFD    18/0 
  
  
 SLECTNS  VFD    2/0               RESERVED 
          VFD    8/113             FIELD LIST ENTRY ORDINAL 
          VFD    8/0               ROW NUMBER 
          VFD    5/0               TABLE ORDINAL
          VFD    1/0               MUST ENTER 
          VFD    1/0               MUST FILL
          VFD    1/1               MUST KNOW
          VFD    2/1               VARIABLE TYPE (INTEGER)
          VFD    8/1               PICTURE TYPE 
          VFD    6/0               VALIDATION TYPE
          VFD    18/0              VALIDATION OFFSET
  
          VFD    42/7HSLECTNS      VARIABLE NAME
          VFD    18/0 
  
          BSSZ   1           END OF VARIABLE FIELD LIST 
  
****************************************************************************
  
*         PANEL FUNCTION LIST 
  
 PFL      BSS    0
 FN1      VFD    26/0,18/0,9/3,1/0,6/1    FWD FUNCTION KEY
 FN2      VFD    26/0,18/0,9/3,1/0,6/2    BKW FUNCTION KEY
 FN3      VFD    26/0,18/0,9/3,1/0,6/3    HELP FWD FUNCTION KEY 
 FN4      VFD    26/0,18/0,9/3,1/0,6/4    HELP BKW FUNCTION KEY 
          VFD    26/0,18/0,9/3,1/0,6/5    HELP FUNCTION KEY 
          VFD    26/0,18/0,9/3,1/0,6/6    QUIT FUNCTION KEY 
 FN7      VFD    26/0,18/0,9/0,1/0,6/7    READY FUNCTION KEY
  
*         GENERIC KEYS
  
 FNXT     VFD    26/0,18/0,9/1,1/1,6/1    NEXT FUNCTION KEY 
 FBK      VFD    26/0,18/0,9/0,1/1,6/2    BACK FUNCTION KEY 
          VFD    26/0,18/0,9/3,1/1,6/3    HELP FUNCTION KEY 
          VFD    26/0,18/0,9/3,1/1,6/4    STOP FUNCTION KEY 
 FNG1     VFD    26/0,18/0,9/3,1/1,6/7    FWD FUNCTION KEY
 FNG2     VFD    26/0,18/0,9/3,1/1,6/8    BKW FUNCTION KEY
          VFD    60/0 
  
  
  
**************************************************************************
  
*         ATTRIBUTE TABLE FOR PANELS
  
 ATTBL    BSS    0
 MSGA     BSS    0
          VFD    1/1               MESSAGE (LOGICAL ATTRIBUTE)
          VFD    1/1               PROTECTED
          VFD    1/0               NOT GUARDED
          VFD    6/0               RESERVED 
          VFD    3/4               OUTPUT MESSAGE 
          VFD    3/0               FOREGROUND COLOR WHITE 
          VFD    3/0               BACKGROUND COLOR (RESERVED)
          VFD    9/0               RESERVED 
          VFD    12/0              ATTRIBUTE CHARACTER START
          VFD    12/0              ATTRIBUTE CHARACTER END
          VFD    2/0               SPECIAL CHARACTER
          VFD    5/0               BRACKET ID 
          VFD    2/0               RESERVED 
  
  
 INPA     BSS    0
          VFD    1/1               INPUT (LOGICAL ORDINAL)
          VFD    1/0               NOT PROTECTED
          VFD    1/0               NOT GUARDED
          VFD    6/0               RESERVED 
          VFD    3/0               INPUT TEXT 
          VFD    3/0               FOREGROUND COLOR WHITE 
          VFD    3/0               BACKGROUND COLOR (RESERVED)
          VFD    9/0               RESERVED 
          VFD    12/0              ATTRIBUTE CHARACTER START
          VFD    12/0              ATTRIBUTE CHARACTER END
          VFD    2/0               SPECIAL CHARACTER
          VFD    5/0               BRACKET IO 
          VFD    2/0               RESERVED 
  
 OUTA     BSS    0
          VFD    1/1               OUTPUT (LOGICAL ATTRIBUTE) 
          VFD    1/1               PROTECTED
          VFD    1/0               NOT GUARDED
          VFD    6/0               RESERVED 
          VFD    3/1               OUTPUT TEXT
          VFD    3/0               FOREGROUND COLOR WHITE 
          VFD    3/0               BACKGROUND COLOR (RESERVED)
          VFD    9/0               RESERVED 
          VFD    12/0              ATTRIBUTE CHARACTER START
          VFD    12/0              ATTRIBUTE CHARACTER END
          VFD    2/0               SPECIAL CHARACTER
          VFD    5/0               BRACKET IO 
          VFD    2/0               RESERVED 
  
 TTLA     BSS    0
          VFD    1/1               TITLE (LOGICAL ATTRIBUTE)
          VFD    1/1               PROTECTED
          VFD    1/0               NOT GUARDED
          VFD    6/0               RESERVED 
          VFD    3/3               OUTPUT TITLE 
          VFD    3/7               FOREGROUND COLOR WHITE 
          VFD    3/0               BACKGROUND COLOR (RESERVED)
          VFD    9/0               RESERVED 
          VFD    12/0              ATTRIBUTE CHARACTER START
          VFD    12/0              ATTRIBUTE CHARACTER END
          VFD    2/0               SPECIAL CHARACTER
          VFD    5/0               BRACKET IO 
          VFD    2/0               RESERVED 
  
 KEYA     BSS    0
          VFD    1/0               FUNCTION KEY LABEL (PHYSICAL ATTRIBUTE)
          VFD    1/1               PROTECTED
          VFD    1/0               NOT GUARDED
          VFD    5/0               RESERVED 
          VFD    1/0               NO UNDERLINING 
          VFD    1/0               ALTERNATE INTENSITY (OFF)
          VFD    1/1               INVERSE VIDEO
          VFD    1/0               NO BLINKING
          VFD    3/7               FOREGROUND COLOR BLACK 
          VFD    3/0               BACKGROUND COLOR WHITE 
          VFD    9/0               RESERVED 
          VFD    12/0              ATTRIBUTE CHARACTER START
          VFD    12/0              ATTRIBUTE CHARACTER END
          VFD    2/0               SPECIAL CHARACTER
          VFD    5/0               BRACKET ID 
          VFD    2/0               RESERVED 
  
  
  
 L.PNL    EQU    *-PANEL     LENGTH OF PANEL
  
  
  
***************************************************************************** 
  
 HTPP     BSSZ   1                 HELP TEXT PAGE POSITION
 DISCOL   CON    00B               COLON
 DISPER   CON    63B               PERCENT
 LWCFL    BSSZ   1                 LINE WITHIN CONSTANT FIELD LIST
 NHLR     BSSZ   1                 NUMBER OF HELP LINES READ
 OPTION   BSSZ   1                 MENU OPTION NAME 
 OPTIONL  BSSZ   1                 MENU OPTION LENGTH 
 PWPL     BSSZ   1                 POSITION WITHIN PARAMETER LIST 
 SDBACK   BSSZ   1                 BACK KEY WAS PRESSED 
 SDBTM    BSSZ   1                 SAVE PPT OFFSET BOTTOM OF PAGE 
 SDCMLE   BSSZ   1                 LENGTH OF (CORRECT) MESSAGE
 SDCMOF   BSSZ   1                 (CORRECT) MESSAGE PVT OFFSET 
 SDEMLE   BSSZ   1                 LENGTH OF (ENTER) MESSAGE
 SDEMOF   BSSZ   1                 (ENTER) MESSAGE PVT OFFSET 
 SDF7EX   BSSZ   1                 BIT 59 SET IF .F7 DIRECTIVE PRESENT
 SDHLP    BSSZ   1                 TOGGLES HELP PARAMETER/PROCEDURE 
 SDINIT   BSSZ   1                 ZERO ON INITIAL ENTRY OF SDO 
 SDHLPY   BSSZ   1                 NUMBER OF LINES HELP PANEL 
 SDLVL    BSSZ   1                 SCREEN DIALOGUE TERMINAL LEVEL 
 SDMAXX   BSSZ   1                 LENGTH OF SCREEN LINE
 SDMAXY   BSSZ   1                 NUMBER OF SCREEN LINES 
 SDNPSL   BSSZ   1                 NUMBER OF PROMPT/SELECTION LINES DISPLAYED 
 SDPAGE   BSSZ   1                 PAGE NUMBER FOR TOGGLING PANEL NAMES 
 SDPRLE   BSSZ   1                 PROMPT LENGTH
 SDPROF   BSSZ   1                 PROMPT (PVT) OFFSET
 SPACES   DATA   C$                                        $
          DATA   C$                                        $
 UNDRLN   DATA   65656565656565656565B
          DATA   65656565656565656565B
          DATA   65656565656565656565B
          DATA   65656565656565656565B
          BSSZ   1
  
  
****************************************************************************
  
*         ARGUMENT LIST FOR VDTGTD CALL 
  
 GTARG    BSS    0
          VFD    12/0,18/0,2/0,4/0,24/SDMAXX
          VFD    12/0,18/0,2/0,4/0,24/SDMAXY
          BSSZ   1
  
***************************************************************************** 
  
  
*         ARGUMENT LIST FOR VDTTFF CALL 
  
 TFFARG   BSS    0
          VFD    12/0,18/0,2/0,4/0,24/TFFORD
          VFD    12/0,18/0,2/0,4/0,24/ATTORD
          BSSZ   1
  
 TFFORD   VFD    60/61
 ATTORD   BSSZ   1
  
  
****************************************************************************
  
*         ARGUMENT LIST FOR SFSREA$ AND SFSWRI$ 
  
 SFSARG   BSS    0
          VFD    42/0,18/PNLNAM 
          VFD    42/0,18/NAMEL
          VFD    42/0,18/ZERO 
          VFD    42/0,18/VINOUT 
          VFD    42/0,18/ZERO 
          VFD    42/0,18/ZERO 
  
  
 PNLNAM   BSSZ   1                 NAME OF PANEL
 NAMEL    VFD    60/5              LENGTH OF PANEL NAME 
 ZERO     BSSZ   1                 OFFSETS ARE ZERO 
  
****************************************************************************
  
  
  
  
*         ARGUMENT LIST FOR SFSETP$ AND SFGETP$ 
  
 SFARGP   BSS    0
          VFD    42/0,18/VARNAM 
          VFD    42/0,18/VARNLE 
          VFD    42/0,18/ZERO 
          VFD    42/0,18/OFFSET 
          VFD    42/0,18/ROW
  
  
 VARNAM   BSSZ   1                 VARNAM FOR CURSOR POSITION 
 VARNLE   VFD    60/7              VARIABLE NAME LENGTH 
 OFFSET   BSSZ   1                 CURSOR OFFSET WITHIN VARIABLE
 ROW      BSSZ   1                 CURSOR ROW POSITION
  
  
**************************************************************************
  
  
*         ARGUMENT LIST FOR SFGETK CALL 
  
 SFARGK   BSS    0
          VFD    42/0,18/TYPE 
          VFD    42/0,18/ORDINAL
  
 TYPE     BSSZ   1                 FLAG FOR GENERIC FUNCTION
 ORDINAL  BSSZ   1                 FUNCTION KEY ORDINAL 
  
  
****************************************************************************
  
  
*         ARGUMENT LIST FOR SFCSET$ CALL
  
 SFCARG   BSS    0
          VFD    42/0,18/CODSET 
          VFD    42/0,18/CSETLE 
          VFD    42/0,18/ZERO 
  
 CODSET   VFD    60/7HDISPLAY      CODE SET (DISPLAY) 
 CSETLE   VFD    60/7              LENGTH OF CODSET NAME
  
  
**********************************************************************
  
  
*         ARGUMENT LIST FOR SFOPEN$ CALLS 
  
 OPENARG  BSS    0
          VFD    42/0,18/OPENAM 
          VFD    42/0,18/NAMEL
          VFD    42/0,18/ZERO 
          VFD    42/0,18/OPNSTAT
  
 OPENAM   BSSZ   1                 NAME OF PANEL TO OPEN
 OPNSTAT  BSSZ   1                 STATUS OF OPEN 
  
**********************************************************************
  
*         ARGUMENT LIST FOR HELP PANEL OPEN 
  
 OPENHLP  BSS    0
          VFD    42/0,18/HLPNAM 
          VFD    42/0,18/NAMEL
          VFD    42/0,18/ZERO 
          VFD    42/0,18/OPNSTAT
  
*********************************************************************** 
  
*         ARGUMENT LIST FOR HELP PANEL WRITES 
  
 HLPWRIT  BSS    0
          VFD    42/0,18/HLPNAM 
          VFD    42/0,18/NAMEL
          VFD    42/0,18/ZERO 
          VFD    42/0,18/VINOUT 
          VFD    42/0,18/ZERO 
          VFD    42/0,18/ZERO 
  
 HLPNAM   BSSZ   1                 NAME OF HELP PANEL 
  
**********************************************************************
  
*         ARGUMENT LIST FOR SFCLOS$ CALLS 
  
 CLOSARG  BSS    0
          VFD    42/0,18/PNLNAM 
          VFD    42/0,18/NAMEL
          VFD    42/0,18/ZERO 
          VFD    42/0,18/CLOSTAT
  
  
**************************************************************************
  
*         ARGUMENT FOR CLOSE OF HELP PANEL
  
 CLOSHLP  BSS    0
          VFD    42/0,18/HLPNAM 
          VFD    42/0,18/NAMEL
          VFD    42/0,18/ZERO 
          VFD    42/0,18/CLOSTAT
  
*************************************************************************** 
  
 SDOVL    ENDIF 
          USE    0
          EJECT 
          ENTRY  SDO
  
 SDOVL    IFNE   IP.SDO,0 
  
  
*         PANEL LOAD TABLE
  
  
 PLTI     BSS    0                 PANEL LOAD TABLE INFORMATION 
          VFD    48/0,12/3
          VFD    48/0,12/3
          VFD    42/7HPANL1  ,18/0
          VFD    1/1,41/0,18/PANEL
          VFD    42/7HPANL2  ,18/0
          VFD    1/1,41/0,18/PANEL
          VFD    42/7HHLPNL  ,18/0
          VFD    1/1,41/0,18/HLPNL
  
 SDOVL    ENDIF 
  
********************************************************************
  
  
 SDO      BSS    0                 ENTRY
  
  
          SB1    1                 B1 = 1 THROUGHOUT SDO
  
 SDOVL    IFNE   IP.SDO,0 
  
  
          RJ     IPF               INITIALIZE PANEL FIELDS
  
  
*         DETERMINE WHICH PAGE IS TO BE DISPLAYED.  IF ALL OF THE 
*         PARAMETERS/SELECTIONS WILL FIT ON ONE PAGE,  THEN DISPLAY 
*         THE 1ST PAGE.  IF HELP IS REQUESTED FOR THE FULL PROCEDURE, 
*         THEN USE THE CURRENT PAGE (PAGE 1 INITIALLY).  IF HELP
*         IS REQUESTED FOR A PARAMETER OR A PARAMETER NEEDS PROMPTING,
*         POSITION THE SCREEN ON THE PAGE THAT CONTAINS THE PARAMETER.
  
          SA1    SDTOP             PPT OFFSET TOP OF PAGE 
          SA2    PNUM              PAGE NUMBER FIELD LIST ENTRY 
          EX3    X2,FDACTV
          BX7    X1 
          ZR     X3,SD100          ALL PARAMETER/SELECTIONS ON 1 PAGE 
  
          SA3    BGERR
          SX0    X3-1R?            CHECK FOR PROCEDURE HELP 
          ZR     X0,SD100          PROC HELP - LEAVE CURRENT PAGE 
          ZR     X3,SD100          LEAVE CURRENT PAGE 
  
*         COMPUTE WHICH PAGE SHOULD BE DISPLAYED
  
          SA4    BGPWPL            CURRENT PPT POSITION 
          SA5    SDMAXY 
          SX6    LE.PPT 
          IX0    X6*X5
          MX5    0
          SA3    IACIMP 
          SX2    2096              TRANSPARENT MODE ZERO
          IX7    X5-X0
          NZ     X3,SD050          INITIAL MENU POSITION
  
          SX7    X7-LE.PPT         PPT POSITION FOR INTERACTIVE PROC
  
 SD050    BSS    0
          SX2    X2+1              PAGE NUMBER
          IX7    X7+X0             PPT OFFSET TOP OF PAGE 
          IX5    X5+X0
          IX3    X5-X4
          NG     X3,SD050          TRY NEXT PAGE
          ZR     X3,SD050          TRY NEXT PAGE
  
          SA1    PGNUM
          OX6    X1,X2,PGNM 
          SA6    A1 
  
 SD100    BSS    0
          SA7    PWPL              POSITION WITHIN PARAMETER LIST 
  
 SD250    BSS    0
  
  
          RJ     FIP               FORMAT INTERACTIVE PANEL 
  
  
          RJ     FMP               FORMAT MENU PANEL
  
 SD300    BSS    0                 CHECK FOR HELP CALLS 
          SA1    BGERR
          SX0    X1-1R? 
          SX5    X1-2RP?
          ZR     X1,SD500          READ RESPONSES 
  
          MX7    0
          SA7    BGERR
          SA1    BGPHRN            PROC HELP RECORD NUMBER
          SB2    X1 
          NZ     X0,SD325          CHECK FOR PARAMETER HELP CALL
  
          MX6    1
          SA6    SDHLP             INDICATE PROC HELP 
          NG     B2,SD400          NO PROCEDURE HELP
  
          SX2    =XFILEHP 
          RJ     =XIOREW           REWIND HELP FILE 
          SA1    BGPHRN 
          SB2    X1 
          JP     SD350             POSITION HELP FILE 
  
 SD325    BSS    0
          NZ     X5,SD500          READ RESPONSES 
  
          SA1    BGPWPL 
          BX7    X1 
          SA7    SDHLP             INDICATE PARAMETER HELP
          SA2    PPT+W.PPHLP+X1 
          LX2    59-S.PPHLP 
          PL     X2,SD400          NO HELP
  
          SX2    =XFILEHP 
          RJ     =XIOREW           REWIND HELP FILE 
          SA1    SDHLP
          SA3    PPT+W.PPHRC+X1 
          EX6    X3,PPHRC          HELP RECORD NUMBER 
          SB2    X6 
  
 SD350    BSS    0                 B2 = HELP RECORD NUMBER
          SX2    =XFILEHP 
          RJ     =XIOSKP           SKIP FORWARD TO HELP RECORD
          SX2    =XFILEHP 
          READ   X2,R              INITIALIZE CIO BUFFER
          SX7    1
          SA7    FHPTXT            LIST HELP TEXT 
          JP     SD425             WRITE HELP 
  
 SD400    BSS    0
          MX6    0
          SA6    FHPTXT            NO HELP TEXT 
  
 SD425    BSS    0
          MX7    0
          SA7    HTPP              HELP TEXT TOP OF PAGE
          RJ     FHP               FORMAT HELP TEXT PANEL 
  
  
  
  
  
*         READ PRIMARY PANEL
  
  
 SD500    BSS    0
          SA1    IACIMP 
          NZ     X1,SD550          SKIP CURSOR FOR MENUS
  
  
*         SET CURSOR POSITION 
  
          MX7    0
          SA7    ZERO 
          SA7    OFFSET 
          SA1    SFARGP            A1 = ADDRESS OF ARGUMENT LIST
          RJ     =XSFSETP$
          MX7    0
          SA7    ZERO 
          SA7    OFFSET 
  
  
 SD550    BSS    0
  
          SX6    5
          SA6    NAMEL
          SA1    SFSARG            A1 = ADDRESS OF THE ARGUMENT LIST
          RJ     =XSFSREA$         READ PANEL 
          MX7    0
          SA7    ZERO 
          SA7    OFFSET 
  
  
*         GET VALUES OF FUNCTION KEYS 
  
          SA1    SFARGK            ARGUMENT LIST
          RJ     =XSFGETK          GET FUNCTION KEY VALUES
  
*         GET CURSOR POSITION 
  
          MX7    0
          SA7    ZERO 
          SA7    OFFSET 
          SA1    SFARGP            ARGUMENT LIST
          RJ     =XSFGETP$         GET CURSOR 
          MX7    0
          SA7    ZERO 
          SA7    OFFSET 
          SB1    1
  
  
          RJ     VALUES            GET OUT-STRING PARAMETER VALUES
  
  
  
*         CHECK THE FUNCTION KEYS.
  
          SA2    ORDINAL           ORDINAL OF FUNCTION KEY
          SA1    TYPE 
          ZR     X1,SD610          CHECK NON-GENERIC KEYS 
  
          SX0    X2-1 
          SX3    X2-2 
          SX4    X2-3 
          ZR     X0,SD800          NEXT KEY 
          ZR     X3,SD775          BACK FUNCTION
          ZR     X4,SD620          HELP FUNCTION
  
          SX0    X2-4 
          SX3    X2-7 
          SX4    X2-8 
          ZR     X3,SD700          FWD FUNCTION 
          ZR     X4,SD720          BKW FUNCTION 
          NZ     X0,SD800          READ RESPONSES 
          JP     SD615             CLOSE PANEL - EXIT 
  
  
 SD610    BSS    0                 NON-GENERIC FUNCTIONS
          SX0    X2-1 
          SX3    X2-2 
          SX4    X2-3 
          SX5    X2-4 
          SX6    X2-5 
          SX7    X2-6 
          ZR     X0,SD700          FWD FUNCTION 
          ZR     X3,SD720          BKW FUNCTION 
          ZR     X4,SD650          HELP FWD FUNCTION
          ZR     X5,SD680          HELP BKW FUNCTION
          ZR     X6,SD620          HELP FUNCTION
          NZ     X7,SD800          READ RESPONSES 
  
  
  
  
 SD615    BSS    0                 QUIT OR STOP FUNCTION
          MX7    1
          SA7    SDNCLE            CANCEL .NOCLR
  
          RJ     CLOSE             CLOSE PANELS 
  
  
          JP     =XEXIT2           QUIT FUNCTION
  
  
  
  
  
  
*         CHECK SDHLP TO DETERMINE WHAT KIND OF HELP
*         SHOULD BE DISPLAYED.  SDHLP TOGGLES HELP. 
*         I.E. IF NO HELP IS CURRENTLY DISPLAYED - HELP 
*         FOR THE  PARAMETER IS THEN DISPLAYED.  IF 
*         HELP FOR THE PARAMETER IS DISPLAYED, PROCEDURE
*         HELP IS THEN DISPLAYED. 
  
  
 SD620    BSS    0                 HELP FUNCTION
  
*         CHECK FOR PREVIOUS TYPED IN HELP CALL 
  
          SA3    BGERR
          ZR     X3,SD625          NO PREVIOUS HELP CALL
  
          SX0    X3-2RP?
          SA1    BGPWPL 
          SX6    X3-1R? 
          MX7    0
          SA7    A3 
          ZR     X0,SD640          PARAMETER HELP 
          ZR     X6,SD645          PROC HELP
  
*         DETERMINE THE CURSOR POSITION.
*         COMPUTE WHICH PARAMETER NEEDS HELP. 
  
 SD625    BSS    0
          SA2    IACIMP 
          ZR     X2,SD630          INTERACTIVE PROC 
  
          SA3    OPTIONL           OPTION LENGTH
          ZR     X3,SD645          MENU PROC HELP 
  
          SA1    BGPWPL 
          JP     SD640             SELECTION HELP 
  
  
  
*         DETERMINE WHICH PARAMETER HAS THE CURSOR.  IF THERE ARE NO
*         PARAMETERS OR IF ALL PARAMETERS HAVE *N AS THE ONLY PATTERN 
*         IN THEIR CHECKLISTS, THEN DISPLAY PROCEDURE HELP ONLY.
*         PROCEDURES WITH *N ONLY AND PROCEDURES WITHOUT ANY PARAMETERS 
*         ARE HANDLED THE SAME. 
  
 SD630    BSS    0
          SA1    PPT+W.PPNO-LE.PPT CHECK FOR *N ONLY
          LX1    59-S.PPNO
          NG     X1,SD630A         FIND THE CURRENT CURSOR POSITION 
  
          SA2    =10HSLECTNS       *N ONLY AND NO PARAMETERS
          BX6    X2 
          SA6    VARNAM            PUT THE CURSOR AFTER THE PROMPT
          JP     SD645             SEND PROCEDURE HELP
  
 SD630A   BSS    0
          SA1    VARNAM            VARIABLE NAME AT CURSOR POSITION 
          ERRNZ  59-S.VFLVN 
          MX6    N.VFLVN
          BX1    X1*X6
          SB5    SLECTNS-PVFL 
          SB6    -LE.LVE
  
 SD635    BSS    0
          SB6    B6+LE.LVE
          GE     B6,B5,SD645       IF ALL PARAMETERS CHECKED
  
          SA2    PVFL+W.VFLVN+B6
          BX3    X6*X2
          BX0    X3-X1
          NZ     X0,SD635          NEXT VARIABLE
          NG     X0,SD635          NEXT VARIABLE
  
          SX5    B6 
          SX7    LE.LVE 
          IX6    X5/X7
          SX2    LE.PPT 
          IX7    X2*X6
          SA4    SDTOP
          IX3    X4+X7
          SX1    X3+LE.PPT         PPT OFFSET 
  
*         TOGGLE HELP 
  
          SA4    SDHLP
          NG     X4,SD640          PARAMETER HELP 
  
          IX0    X4-X1
          NZ     X0,SD640          DISPLAY PARAMETER HELP 
          NZ     X4,SD645          DISPLAY PROCEDURE HELP 
  
          SA2    FHPHPZ            CHECK HELP FOR PARAMETER ZERO
          ZR     X2,SD640          DISPLAY PARAMETER ZERO HELP
          JP     SD645             DISPLAY PROCEDURE HELP 
  
*         DISPLAY PARAMETER HELP
  
 SD640    BSS    0
          BX7    X1 
          SA7    SDHLP
          SA2    PPT+W.PPHLP+X1 
          LX2    59-S.PPHLP 
          PL     X2,SD400          NO HELP AVAILABLE
  
          SX2    =XFILEHP 
          RJ     =XIOREW           REWIND HELP FILE 
          SA1    SDHLP
          SA3    PPT+W.PPHRC+X1 
          EX6    X3,PPHRC 
          SB2    X6 
          JP     SD350             POSITION HELP FILE 
  
*         DISPLAY PROCEDURE HELP
  
 SD645    BSS    0
          MX7    1
          SA3    BGPHRN            PROC HELP RECORD NUMBER
          SA7    SDHLP             INDICATE PROC HELP 
          SB2    X3 
          NG     B2,SD400          NO PROC HELP 
  
          SX2    =XFILEHP 
          RJ     =XIOREW           REWIND HELP FILE 
          SA3    BGPHRN 
          SB2    X3 
          JP     SD350             POSITION HELP FILE 
  
  
  
  
 SD650    BSS    0                 HELP FWD FUNCTION
          SA5    HLPNL+W.PHNPL
          EX6    X5,PHNPL 
          SX2    X6-1 
          SA4    HTPP              UPDATE HELP TEXT PAGE POSITION 
          IX7    X4+X2
          JP     SD690             WRITE HELP TEXT
  
  
  
  
  
 SD680    BSS    0                 HELP BKW FUNCTION
          SA3    HLPNL+W.PHNPL
          EX4    X3,PHNPL 
          SX1    X4-1              NUMBER OF TEXT LINES 
          SA2    HTPP              HELP TEXT PAGE POSITION
          IX7    X2-X1
  
 SD690    BSS    0
          SA7    HTPP 
          SX2    =XFILEHP 
          RJ     =XIOREW           REWIND HELP FILE 
          SA1    SDHLP
          SA2    BGPHRN            PROC HELP RECORD NUMBER
          SB2    X2 
          NG     X1,SD695          READ PROC HELP RECORD
  
          SA3    PPT+W.PPHRC+X1 
          EX6    X3,PPHRC 
          SB2    X6 
  
 SD695    BSS    0
          SX2    =XFILEHP 
          RJ     =XIOSKP           SKIP TO RECORD 
          SX2    =XFILEHP 
          READ   X2,R 
          SX7    1
          SA7    FHPTXT            PLACE HELP TEXT IN PANEL 
          RJ     FHP               FORMAT HELP PANEL
          JP     SD500             READ FUNCTION KEYS 
  
  
  
  
*         UPDATE CURRENT PAGE ON SCREEN 
  
  
 SD700    BSS    0                 FWD FUNCTION 
          SA1    PGNUM             PAGE NUMBER CONSTANT 
          EX0    X1,PGNM
          SX2    X0+1 
          OX7    X1,X2,PGNM 
          SA7    A1 
          SA2    SDBTM             PPT POSITION BOTTOM OF PAGE
          BX7    X2 
          JP     SD750             VALIDATE PARAMETER LIST
  
  
  
 SD720    BSS    0                 BKW FUNCTION 
  
*         UPDATE CURRENT PAGE ON SCREEN 
  
          SA1    PGNUM             PAGE NUMBER CONSTANT 
          EX2    X1,PGNM           PAGE NUMBER
          SX3    X2-1 
          OX7    X1,X3,PGNM 
          SA7    A1 
          MX7    0
          SA1    IACIMP 
          SA2    SDMAXY            NUMBER OF SCREEN LINES 
          SX3    LE.PPT            LENGTH OF PPT ENTRY
          IX4    X2*X3
          SA5    SDTOP             PPT POSITION TOP OF PAGE 
          IX6    X5-X4
          NZ     X1,SD740          X7=MENU DEFAULT TOP OF PAGE
  
          SX7    -LE.PPT           PPT DEFAULT FOR INTERACTIVE PROC 
  
 SD740    BSS    0
          NG     X6,SD750          USE DEFAULT TOP OF PAGE
  
          BX7    X6                POSITION WITHIN PARAMETER LIST 
  
 SD750    BSS    0
          SA7    PWPL              POSITION WITHIN PARAMETER LIST 
          SA7    SDTOP             POSITION AT TOP OF PAGE
          RJ     FEP               FIND ERROR PARAMETER 
          JP     SD250             REWRITE PANEL
  
  
  
  
  
*         BACK GENERIC FUNCTION KEY.  ERASE HELP FROM SCREEN
  
 SD775    BSS    0
          SA1    SDTOP
          BX7    X1 
          SA7    PWPL 
          SX6    1
          SA6    SDBACK            LEAVE CURSOR AS IS 
          SA3    BGERR
          SX0    X3-1R? 
          SX4    X3-2RP?
          ZR     X0,SD300          SKIP CLEAR OF HELP TEXT
          ZR     X4,SD300          SKIP CLEAR OF HELP TEXT
  
          SX6    -1 
          SA6    FHPTXT 
          RJ     FHP               CLEAR HELP TEXT
  
*         DISABLE BACK KEY
  
          SA1    FBK
          MX2    0
          OX6    X1,X2,FLACT
          SA6    A1 
          JP     SD500             READ PRIMARY PANEL 
  
  
*         NOW PROCESS RESPONSE(S) 
  
 SD800    BSS    0
          SA3    BGERR             CHECK FOR HELP CALL
          SA1    BGPWPL 
          SX0    X3-1R? 
          SX4    X3-2RP?
          MX7    0
          SA7    A3 
          SA2    IACIMP 
          ZR     X0,SD645          PROC HELP
          ZR     X4,SD640          PARAMETER/SELECTION HELP 
          ZR     X2,SD900          VALIDATE INTERACTIVE PARAMETERS
  
          SA5    OPTIONL           OPTION LENGTH
          NZ     X5,SD950          CLOSE PANEL - RETURN TO ROOT OVERLAY 
  
          SA1    SDTOP
          BX7    X1 
          SA7    PWPL 
          JP     SD250             WRITE MENU PANEL 
  
  
 SD900    BSS    0
          SX7    -1 
          SA7    SDHLP
          JP     =XBIV100          VALIDATE PARAMETER LIST
  
  
 SD950    BSS    0
  
          RJ     CLOSE             CLOSE MENU PANELS
  
          SA4    OPTION 
          SA5    OPTIONL           OPTION LENGTH
          JP     =XBPM050          VALIDATE MENU SELECTION
  
  
  
 CLOSE    TITLE  CLOSE PANELS 
**        CLOSE  -  CLOSE PANELS
* 
*         CLOSES BOTH PRIMARY PANELS.  CLOSE FIRST CHECKS IF THERE
*         IS A .NOCLR DIRECTIVE.  IF NO CLEAR IS INDICATED, CLOSE 
*         POSTS THE .NOCLR MESSAGE IN THE MESSAGE FIELD OF THE
*         PANEL USING SFWRI.  OTHERWISE BOTH PANELS ARE CLOSED AND
*         CLEARED.
* 
*         ENTRY 
* 
*         SDNCLE  - NEGATIVE INDICATES CLEAR WHEN CLOSING 
* 
*         EXIT    - NONE
* 
* 
  
 CLOSE    BSSZ   1                 ENTRY/EXIT 
          SB1    1
          SX7    B1 
          SA7    CLOSTAT           CLEAR PANEL
          SA1    SDNCLE            CHECK FOR .NOCLR 
          NG     X1,CLOS300        CLOSE AND CLEAR PANEL
  
          SA2    SCATX
          SA4    SDNCOF            PVT OFFSET OF .NOCLR MESSAGE 
          SA3    SDNCLE            LENGTH OF .NOCLR MESSAGE 
          SA1    PVT+W.PVSTR+X4 
          SB2    X3 
          BX2    X2-X2
 CLOS100  SB3    79                SET TO TRUNCATE AT 79 CHARACTERS 
          RJ     =XSTRTASC
          SX3    B3-79
          SA1    =1H
          SB2    10 
          NZ     X3,CLOS100        IF LINE NEEDS BLANK FILL 
          SA1    PMSG 
          SX3    B3 
          BX4    X3 
          OX6    X1,X3,FDLEN
  
*         STORE CONSTANT DATA OFFSET IN MESSAGE FIELD LIST
  
          SX0    MESG-PANEL 
          OX7    X6,X0,FDFCW       MESSAGE CONSTANT OFFSET
          ERRNZ  N.FDREW-1
          SX5    1
          OX6    X7,X5,FDREW
          SA6    A1 
          SA1    MESG 
          RJ     =XSTRPK12
  
*         WRITE  PANEL MESSAGE
  
          SX6    5
          MX7    0
          SA6    NAMEL
          SA7    ZERO 
          SA7    OFFSET 
          SA1    SFSARG            A1 = ADDRESS OF ARGUMENT LIST
          RJ     =XSFSWRI$         WRITE INTERACTIVE PANEL
          SX7    2
          SA7    CLOSTAT           CLOSE NO CLEAR - FLUSH BUFFER
  
*         CLOSE THE PANEL LAST WRITTEN. 
  
 CLOS300  BSS    0
          MX7    0
          SX6    5
          SA7    ZERO 
          SA6    NAMEL
          SA1    CLOSARG           A1 = ARGUMENT LIST 
          RJ     =XSFCLOS$         CLOSE CURRENT PANEL
          MX7    0
          SA7    ZERO 
          SB1    1
  
*         DETERMINE WHICH PANEL WAS INACTIVE AND CLOSE IT.
  
          SA2    PNLNAM 
          SA3    =10HPANL2
          BX0    X2-X3
          BX6    X3 
          NZ     X0,CLOS400        SWITCH NAMES 
  
          SA4    =10HPANL1
          BX6    X4                SWITCH NAMES 
  
 CLOS400  BSS    0
          SA6    PNLNAM 
          MX7    0
          SX6    5
          SA7    ZERO 
          SA6    NAMEL
          SA7    CLOSTAT           DO NOT CLEAR THIS PANEL
          SA1    CLOSARG           A1 = ARGUMENT LIST 
          RJ     =XSFCLOS$         CLOSE PANL1
          MX7    0
          SA7    ZERO 
          SB1    1
          SA1    SDNCLE            CHECK THAT THE SCREEN IS CLEAR 
          NG     X1,CLOSE          SCREEN IS CLEAR
  
          SA2    =0LNOCLR          INDICATE SCREEN NOT CLEAR
          BX7    X2 
          SA7    CLOSTAT
          JP     CLOSE             RETURN 
  
  
  
  
  
  
 FEP      TITLE  FIND ERROR ON THIS PAGE
**        FEP  -  FIND ERROR ON THIS PAGE 
* 
*         FEP WILL VALIDATE EACH PARAMETER ON THE CURRENT PAGE FOR
*         INTERACTIVE (*I) PROCEDURES.  FEP RETURN JUMPS TO BVE 
*         TO PERFORM THE VALIDATION FOR EACH PARAMETER.  IF AN
*         ERROR IS FOUND OR A PARAMETER IS MISSING A REQUIRED VALUE 
*         BVE WILL BEGIN PROMPTING.  IF NO ERROR OCCURRS, THEN FEP
*         SIMPLY EXITS. 
* 
*         ENTRY 
* 
*         SDTOP  - PPT POSITION AT TOP OF PAGE
* 
*         EXIT
* 
*         BGERR  - BGERR IS CLEARED FOR MENUS AND *I
* 
* 
  
 FEP      BSSZ   1                 ENTRY/EXIT 
          MX7    0
          SA1    IACIMP 
          SA7    BGERR
          NZ     X1,FEP            RETURN FOR MENUS 
  
          SB1    1
          SA2    SDTOP
          MX6    0
          BX7    X2 
          SA6    FEPLWP            LINE WITHIN PAGE 
          SA7    FEPWPL            POSITION WITHIN PARAMETER LIST 
  
 FEP050   BSS    0
          SA1    FEPWPL 
          SA2    PPTCL             LENGTH OF PARAMETER LIST 
          SX7    X1+LE.PPT
          SX3    X2-LE.PPT
          IX6    X3-X7
          NG     X6,FEP            RETURN - NO ERRORS ON THIS PAGE
  
          SA7    A1 
          SA4    FEPLWP 
          SA1    SDMAXY 
          SX6    X4+B1
          IX0    X1-X6
          NG     X0,FEP            IF NO ERRORS ON THIS PAGE
  
          SA6    A4 
          SA7    BGPWPL            BEGIN POSITION WITHIN PARAMETER LIST 
          RJ     =XBVE             VALIDATE THIS PARAMETER
          JP     FEP050            NEXT PARAMETER 
  
 FEPLWP   BSSZ   1                 LINE WITHIN PAGE 
 FEPWPL   BSSZ   1                 POSITION WITHIN PARAMETER LIST 
  
 FHP      TITLE  FORMAT HELP PANEL
**        FHP  -  FORMAT HELP PANEL 
* 
*         FHP FORMATS A HELP PANEL BY READING HELP TEXT FROM
*         THE HELP TEXT FILE (FILEHP) AND PLACING THIS TEXT 
*         IN THE HELP PANEL CONSTANT DATA.  THEN THE PANEL
*         IS WRITTEN TO THE SCREEN USING SFSWRI$.  PAGING OF
*         HELP TEXT IS CONTROLLED BY COUNTING THE NUMBER OF 
*         HELP LINES READ (NHLR).  THE NUMBER OF THE LINE 
*         AT THE TOP OF PAGE IS STORED IN HTPP (HELP TEXT 
*         PAGE POSITION) BEFORE FHP IS ENTERED.  FHP
*         POSITIONS THE HELP TEXT RECORD TO THE PROPER LINE 
*         AND THEN TRANSFERS THE TEXT, LINE BY LINE TO THE
*         PANEL CONSTANT DATA.
* 
* 
*         ENTRY 
* 
*         THE HELP FILE IS POSITIONED AT THE BEGINNING OF THE 
*         HELP TEXT RECORD. 
* 
*         FHPTXT = 0 = NO HELP TEXT  1 = HELP TEXT
*                  NEGATIVE = CLEAR OVERLAY PANEL (BACK KEY)
* 
*         NHLR   = ZERO 
*         HTPP   = LINE WITHIN RECORD - TOP OF PAGE 
*         SDHLP  = PPT POSITION OF PARAMETER - NEG = PROC HELP
*         SDNPSL = NUMBER OF PROMPT/SELECTION LINES 
* 
* 
*         EXIT
* 
*         FHPHPZ = 1 - INDICATES HELP FOR PARAMETER ZERO
* 
* 
  
  
 FHP      BSSZ   1                 ENTRY/EXIT 
          SB1    1
  
          SA1    FHPTXT 
          PL     X1,FHP000         BACK KEY NOT PRESSED 
  
          MX7    0
          SA7    FHPTXT            CLEAR HELP TEXT
  
*         CLEAR THE HELP TITLE WHEN BACK KEY PRESSED
  
          SA1    HLPNL+W.PHSBL     CLEAR THE BOX LIST FROM PANEL
          MX2    0
          OX7    X1,X2,PHSBL
          SA7    A1 
  
*         SET HELP TITLE FIELD LIST ENTRY TO BLANK
  
          SX2    BLANK-HLPNL
          SA1    HTTL 
          OX7    X1,X2,FDFCW
          SX3    1                 SET LENGTH TO 1
          OX6    X7,X3,FDLEN
          SX4    0                 SET COLUMN TO 0
          OX7    X6,X4,FDX
          SA7    A1 
          JP     FHP019            SET STATUS OF FUNCTION KEYS
  
 FHP000   BSS    0
          SA1    HLPNL+W.PHSBL     SET UP BOX LIST
          SX2    BOX1-HLPNL 
          OX7    X1,X2,PHSBL
          SA7    A1 
  
          SX2    HLPTTL-HLPNL      HELP TITLE CONSTANT OFFSET 
          SA1    HTTL 
          OX6    X1,X2,FDFCW
          SA6    A1 
  
          SA2    FBK               ENABLE BACK KEY
          SX3    3
          OX6    X2,X3,FLACT
          SA6    A2 
  
          MX7    0
          SA7    NHLR              NUMBER OF HELP LINES READ
          SA1    SDHLP
          NG     X1,FHP005         PROCEDURE HELP 
          NZ     X1,FHP005         NOT PARAMETER ZERO 
  
          SX7    1                 TOGGLE HELP FOR PARAMETER ZERO 
  
*         IF HELP FOR A PARAMETER IS TO BE DISPLAYED (SDHLP NON-ZERO),
*         THEN THE PARAMETER NAME IS PLACED IN THE HELP TITLE.  IF
*         PROCEDURE HELP IS TO BE DISPLAYED, THEN THE PROCEDURE NAME
*         IS PLACED IN THE HELP TITLE.
  
 FHP005   BSS    0
          SA7    FHPHPZ            INDICATE HELP FOR PARAMETER ZERO 
          SA2    SCATX
          SA1    BGPNAM            PROCEDURE NAME 
          SA4    SDHLP
          SA3    BGPNML            LENGTH 
          MX2    0
          NG     X4,FHP015         PROCEDURE HELP 
  
          SA3    SDHLP
          SA1    PPT+W.PPFPN+X3    PARAMETER NAME 
          SA4    PPT+W.PPFPC+X3    NAME LENGTH
          EX0    X4,PPFPC 
          SB2    X0 
          SA4    IACIMP 
          NZ     X4,FHP016         SELECTION NUMBER IS MENU TITLE 
  
          SA5    PPT+W.PPDSO+X3 
          LX5    59-S.PPDSO        CHECK FOR USER SUPPLIED PROMPT 
          NG     X5,FHP010         USER SUPPLIED PROMPT ONLY
  
          SB3    B0 
          RJ     =XSTRTASC         PARAMETER NAME TO SCATX
          SA3    SDHLP
          SA4    PPT+W.PPDES+X3 
          LX4    59-S.PPDES        CHECK FOR DESCRIPTION STRING 
          PL     X4,FHP017         USE PARAMETER NAME ONLY
  
          SA1    =1H               SPACE
          SB2    1
          SB3    B0 
          RJ     =XSTRTASC
          SA3    SDHLP
  
 FHP010   BSS    0
          SA4    PPT+W.PPVAL+X3 
          EX0    X4,PPVAL          PVT OFFSET PROMPT/DESCRIPTION
          SA5    PVT+W.PVSIZ+X0 
          SA1    PVT+W.PVSTR+X0 
          EX0    X5,PVSIZ          LENGTH OF PROMPT/DESCRIPTION 
          SB2    X0 
          SB3    78 
          RJ     =XSTRTASC         PROMPT TO SCATX
          JP     FHP017            UPDATE HELP TITLE FIELD LIST 
  
 FHP015   BSS    0
          SB2    X3 
  
 FHP016   BSS    0
          SB3    B0 
          RJ     =XSTRTASC         NAME TO SCATX
  
 FHP017   BSS    0
          SA1    HLPTTL            HELP TITLE CONSTANT DATA 
          RJ     =XSTRPK12         NAME TO CONSTANT DATA
          SA3    SDTACN            LENGTH OF NAME 
          SA2    HTTL              HELP TITLE FIELD LIST ENTRY
          BX0    X3 
          OX7    X2,X3,FDLEN       STORE LENGTH 
          SA7    A2 
  
*         STORE SIZE OF HELP TITLE BOXES. 
  
          SX6    77 
          IX4    X6-X0
          SX5    2
          IX3    X4/X5             NUMBER OF LINE DRAWING CHARACTERS
          ERRNZ  W.BOXR 
          SA2    BOX1 
          BX4    X3 
          OX6    X2,X4,BOXR 
          SA5    BOX2 
          BX0    X3 
          SA6    A2 
          OX7    X5,X3,BOXR 
          SA4    SDTACN            LENGTH OF NAME 
  
*         STORE STARTING COLUMNS IN HELP TITLE
  
          ERRNZ  W.BOXX 
          IX1    X4+X0
          SX1    X1+2 
          OX6    X7,X1,BOXX 
          SX0    X0+1 
          SA6    A5 
          SA2    HTTL 
          OX7    X2,X0,FDX
          SA7    A2 
  
  
*         THE NUMBER OF HELP LINES THAT CAN BE DISPLAYED IS VARIABLE. 
*         THE HELP TITLE FOLLOWS THE PROMPT, WHEREVER THAT MAY BE ON
*         THE SCREEN.  SDNPSL CONTAINS THE NUMBER OF PROMPT/SELECTION 
*         LINES ALREADY WRITTEN TO THE SCREEN.  USING THIS NUMBER,
*         FHP DETERMINES THE LINE NUMBER OF THE HELP TITLE AND THE
*         NUMBER OF ALLOWABLE HELP TEXT LINES.
  
          SA1    SDNPSL 
          SX0    X1+5              HELP TITLE LINE NUMBER 
          SA2    HTTL              PLACE LINE NUMBER IN TITLE FIELD LIST ENTRY
          BX5    X0 
          OX7    X2,X0,FDY
          SA7    A2 
  
*         PLACE LINE NUMBER IN HELP TITLE BOX LIST. 
  
          ERRNZ  W.BOXY 
          SA3    BOX1 
          BX4    X5 
          OX6    X3,X4,BOXY 
          SA2    BOX2 
          SA6    A3 
          OX7    X2,X5,BOXY 
          SA7    A2 
  
*         SET THE STATUS OF F3 (HELP FWD) AND F4 (HELP BKW) FUNCTION KEYS.
  
 FHP019   BSS    0
          SA1    FHPTXT            CHECK IF TEXT AVAILABLE
          SX2    3                 F3 ACTION - RETURN TO APPLICATION
          SX3    1                 ACTIVE 
          SX4    3                 F4 ACTION - RETURN TO APPLICATION
          SX5    1                 ACTIVE 
          NZ     X1,FHP020         USE BOTH FUNCTION KEYS 
  
          MX2    0
          MX3    0
          MX4    0
          MX5    0
          JP     FHP025            DISABLE BOTH KEYS
  
 FHP020   BSS    0
          SA1    HTPP              TOP OF PAGE POSITION 
          NZ     X1,FHP025         LEAVE BOTH ON
  
          MX4    0
          MX5    0                 DISABLE F4 
  
*         PUT ACTION (FLACT) IN FUNCTION LIST FOR BOTH KEYS.
*         PUT ACTIVE (FDACTV) IN FIELD LIST FOR BOTH KEYS.
  
 FHP025   BSS    0
          SA1    FN3               F3 FUNCTION LIST ENTRY 
          OX7    X1,X2,FLACT
          SA7    A1 
          SA1    FN4               F4 FUNCTION LIST ENTRY 
          OX6    X1,X4,FLACT
          SA6    A1 
          SA2    HF3               F3 LABEL FIELD LIST ENTRY
          BX4    X3 
          OX7    X2,X3,FDACTV 
          SA7    A2 
          SA1    HF3-1             F3 FIELD LIST ENTRY
          OX6    X1,X4,FDACTV 
          SA6    A1 
          BX4    X5 
          SA2    HF4-1             F4 FIELD LIST ENTRY
          OX7    X2,X4,FDACTV 
          SA7    A2 
          SA1    HF4               F4 LABEL FIELD LIST ENTRY
          OX6    X1,X5,FDACTV 
          SA6    A1 
  
  
*         STORE THE TOTAL NUMBER OF HELP PANEL LINES IN HEADER. 
  
          SA1    SDNPSL              NUMBER OF PROMPT/SELECTIONS
          SA2    HF3
          EX3    X2,FDY 
          SX4    X1+5 
          IX0    X3-X4
          SA2    HLPNL+W.PHNPL
          OX6    X2,X0,PHNPL
          SA6    A2 
  
*         DETERMINE THE NUMBER OF HELP TEXT LINES THAT WILL 
*         FIT ON THE SCREEN 
  
          SA2    HF3
          EX4    X2,FDY 
          SX5    X1+6 
          IX6    X4-X5
          SA6    FHPMAX 
          MX7    0
          SX6    -1 
          SA6    LWCFL
  
 FHP050   BSS    0
          SA1    HFDL+X7
          EX4    X1,FDY 
          IX0    X5-X4
          ZR     X0,FHP075         WRITE TEXT 
  
          MX2    0
          OX6    X1,X2,FDACTV 
          SA6    A1 
          SA7    LWCFL
          SX7    X7+1 
          JP     FHP050            NEXT FIELD LIST ENTRY
  
 FHP075   BSS    0
          SA3    FHPTXT 
          ZR     X3,FHP300         NO TEXT - BLANK FILL SCREEN
  
 FHP100   BSS    0
          SA1    FHPMAX            NUMBER OF TEXT LINES 
          SA2    LWCFL             LINE WITHIN CONSTANT FIELDS
          SX6    X1-1 
          SX7    X2+1 
          SA6    A1 
          SA7    A2                NEW LINE POSITION
          NG     X6,FHP150         SCREEN FULL - CHECK FOR EOR
  
  
*         MAKE THIS FIELD LIST ENTRY ACTIVE AND SET THE 
*         REWRITE BIT.
  
          SA1    HFDL+X7
          ERRNZ  N.FDACTV-1 
          SX5    1
          OX3    X1,X5,FDACTV 
          ERRNZ  N.FDREW-1
          SX2    1
          OX6    X3,X2,FDREW
          SA6    A1 
  
*         POSITION HELP RECORD ON THE PROPER LINE WHEN PAGING.
  
 FHP150   BSS    0
          SX6    SCATX
          SX2    =XFILEHP          FET ADDRESS
          SX3    HPBUF             LINE BUFFER
          SX4    V.CCCPC           MAX LINE SIZE
          RJ     =XIORDL           READ TEXT LINE 
          ZR     X1,FHP175         NO EOR 
  
  
*         EOR - HELP TEXT CANNOT BE PAGED FORWARD 
  
          MX7    0
          SA2    FN3               CLEAR F3 ACTION IN FUNCTION LIST 
          OX6    X2,X7,FLACT
          SA6    A2 
  
*         MAKE F3 FIELD LIST ENTRY NON-ACTIVE 
  
          SA1    HF3               F3 LABEL FIELD LIST ENTRY
          MX0    0
          OX7    X1,X0,FDACTV 
          SA7    A1 
          MX3    0
          SA2    HF3-1             F3 FIELD LIST ENTRY
          OX6    X2,X3,FDACTV 
          SA6    A2 
          SA3    LWCFL
          SA2    FHPMAX 
          SX7    X3-1 
          SX6    X2+1 
          SA7    A3 
          SA6    A2 
          JP     FHP300            PAD SCREEN WITH BLANKS 
  
 FHP175   BSS    0
          SA1    NHLR 
          SA2    HTPP              HELP TEXT PAGING POSITION
          SX6    X1+1 
          SA6    A1                STORE NUMBER OF HELP LINES READ
          IX0    X2-X6
          PL     X0,FHP150         READ NEXT LINE 
  
          SA2    FHPMAX 
          NG     X2,FHP350         SCREEN FULL - WRITE PANEL
  
          SA1    HPBUF
          SA2    SCATX
          EX3    X2,SBTOT 
          SB2    X3 
          MX2    0
          SB3    80 
          RJ     =XSTRTASC
          SA3    LWCFL             LINE POSITION
          SA4    HFDL+X3
          SX6    V.CCCHP
          IX0    X6*X3
          SX5    HLPLN1-HLPNL 
          IX7    X5+X0
          BX5    X7 
          OX6    X4,X5,FDFCW       STORE CONSTANT DATA OFFSET 
          SA6    A4 
          SA1    HLPNL+X7 
          RJ     =XSTRPK12         PACK TEXT TO CONSTANT DATA 
  
*         UPDATE CONSTANT FIELD LIST WITH SIZE OF LINE AND LINE NUMBER
  
          SA3    SDTACN            TEXT LINE SIZE (SAVED BY STRTASC)
          SA1    LWCFL             LINE WITHIN CONSTANT FIELDS
          SA2    HFDL+X1
          OX7    X2,X3,FDLEN
  
*         START EACH LINE AT COLUMN ZERO. 
  
          MX4    0
          OX6    X7,X4,FDX
          SA6    A2 
          JP     FHP100            NEXT TEXT LINE 
  
*         PAD SCREEN WITH BLANK LINES.
  
  
 FHP300   BSS    0
          SA1    FHPMAX            NUMBER OF TEXT LINES 
          SA2    LWCFL             LINE POSITION
          SX6    X1-1 
          SX7    X2+1 
          NG     X6,FHP350         SCREEN PADDED- DISPLAY 
  
          SA6    A1 
          SA7    A2                NEW SCREEN POSITION
          SX2    BLANK-HLPNL       OFFSET OF BLANK LINE 
          SA1    HFDL+X7
          OX7    X1,X2,FDFCW       CONSTANT DATA OFFSET 
  
*         SET LENGTH OF LINE TO 1.  THIS WILL CAUSE THE 
*         BLANK CONSTANT TO CLEAR THE LINE
  
          SX4    1
          OX6    X7,X4,FDLEN
  
*         MAKE THIS FIELD LIST ENTRY ACTIVE AND SET REWRITE BIT.
  
  
          ERRNZ  N.FDACTV-1 
          ERRNZ  N.FDREW-1
          SX3    1
          SX5    1
          OX4    X6,X3,FDACTV 
          OX7    X4,X5,FDREW
  
*         START LINES AT 133 TO CLEAR THE LINE
  
          SX3    133
          OX6    X7,X3,FDX
          SA6    A1 
          JP     FHP300            NEXT LINE
  
  
 FHP350   BSS    0
  
*         SET UP ARGUMENTS FOR SFS CALLS
  
          SA1    =10HHLPNL
          BX7    X1 
          SA7    HLPNAM            SAVE PANEL NAME
  
  
*         OPEN PANEL
  
          SX6    5
          SA6    NAMEL
          MX7    0
          SA7    ZERO 
          SA1    OPENHLP           ARGUMENT LIST
          RJ     =XSFOPEN$         OPEN PANEL 
  
  
*         WRITE HELP PANEL
  
  
          MX7    0
          SX6    5
          SA7    ZERO 
          SA6    NAMEL
          SA1    HLPWRIT           A1=ADDRESS OF ARGUMENT LIST
          RJ     =XSFSWRI$         WRITE HELP PANEL 
          MX6    0
          SA6    ZERO 
  
  
          MX7    0
          SA7    CLOSTAT           DO NOT CLEAR SCREEN
          SX6    5
          SA6    NAMEL
          SA1    CLOSHLP           ARGUMENT LIST
          RJ     =XSFCLOS$         CLOSE HELP PANEL 
          SB1    1
          MX7    0
          SA7    ZERO 
          JP     FHP               RETURN 
  
  
 FHPHPZ   BSSZ   1                 1=HELP FOR PARAMETER ZERO
 FHPMAX   BSSZ   1                 MAX NUMBER OF AVAILABLE LINES FOR
*                                  DISPLAYING HELP TEXT 
 FHPTXT   BSSZ   1                 0=NO HELP TEXT 1=HELP TEXT 
 FIP      TITLE  FORMAT INTERACTIVE PANEL 
**        FIP  -  FORMAT INTERACTIVE PANEL
* 
*         FIP FORMATS A INTERACTIVE PANEL BY STORING THE
*         PARAMETER KEYWORDS AND DESCRIPTIONS IN THE CONSTANT 
*         DATA FIELDS OF THE PANEL.  THERE WILL BE A VARIABLE 
*         FIELD FOR EACH PARAMETER.  THE VALUE SPECIFIED ON THE 
*         CALL IS INITIALLY STORED IN THE VARIABLE OUT-STRING.
*         PAGING IS CONTROLLED BY STORING THE POSITION OF THE 
*         PROCEDURE PARAMETER TABLE(PPT OFFSET) AT THE TOP AND
*         BOTTOM OF PAGE.  IF A PARAMETER IS IN ERROR (BGERR) 
*         FIP WILL PLACE A PROMPT IN THE PANEL MESSAGE FIELD. 
* 
* 
*         ENTRY 
* 
*         PWPL    =  (PPT OFFSET) POSITION WITHIN PARAMETER LIST
*         SDTOP   = (PPT OFFSET) POSITION OF PPT AT TOP OF PAGE 
*         BGERR   = ERROR INDICATION
* 
* 
*         EXIT
* 
*         SDBTM  = (PPT OFFSET) POSITION OF PPT AT BOTTOM OF PAGE 
*         SDNPSL = NUMBER OF PARAMETERS DISPLAYED THIS PAGE 
* 
* 
 FIP      BSSZ   1                 ENTRY/EXIT 
          SA1    IACIMP 
          NZ     X1,FIP            NOT A INTERACTIVE PROC 
  
          SB1    1
          SA1    PWPL 
          BX7    X1 
          SA7    SDTOP             STORE PPT POSITION TOP OF PAGE 
          MX6    0
          SA6    SDNPSL            CLEAR NUMBER OF PROMPTS DISPLAYED
          SX7    -2 
          SA7    LWCFL             TOP OF FIELD LIST - INITIALLY
          SA3    PPTCL
          ZR     X3,FIP050         NO PARAMETERS ACTIVATE SELECTION 
  
  
*         CHECK WHETHER *N WAS THE ONLY PATTERN IN THE PARAMETER
*         CHECKLISTS.  IF IT WAS, THEN DO NOT DISPLAY THE PARAMETERS, 
*         ACTIVATE THE SELECTION VARIABLE ENTRY.  OTHERWISE, DISPLAY
*         THE PARAMETERS AND LEAVE THE SELECTION VARIABLE ENTRY 
*         INACTIVE. 
  
          SA4    PPT+W.PPNO-LE.PPT
          LX4    59-S.PPNO
          PL     X4,FIP050         *N  ONLY 
  
*         CENTER THE INTERACTIVE PARAMETER PROMPTS AND VALUES 
  
          RJ     FIPX              FORMAT INTERACTIVE PANEL X (COLUMN)
          JP     FIP100            DISPLAY PARAMETERS 
  
  
  
*         MAKE THE SELECTION VARIABLE ENTRY ACTIVE FOR A PROCEDURE
*         WITHOUT ANY PARAMETERS. 
  
 FIP050   BSS    0
          SA1    SLCTN
          ERRNZ  N.FDACTV-1 
          SX2    1
          OX7    X1,X2,FDACTV 
          SA7    A1 
          SA1    SPACES            CLEAR OUTSTRING
          BX6    X1 
          SA6    VINOUT 
          SA6    A6+B1
  
 FIP100   BSS    0
          SA1    LWCFL             LINE POSITION WITHIN PAGE
          SX6    X1+2 
          SA4    SDMAXY            NUMBER OF SCREEN LINES 
          SX3    2
          IX5    X4*X3
          IX0    X6-X5
          PL     X0,FIP500         PAGE FULL - WRITE PANEL
  
          SA1    PWPL              UPDATE POSITION WITHIN LIST
          SA2    PPTCL             LENGTH OF PPT
          SX2    X2-LE.PPT         SUBTRACT FOR COMMENT PARAMETER 
          SX7    X1+LE.PPT
          IX0    X2-X7
  
*         SKIP DISPLAYING OF PARAMETERS WHICH CONTAIN *N AS THE 
*         ONLY PATTERN IN THE CHECKLIST.
  
          SB7    X2 
          GT     B0,B7,FIP125      NO PARAMETERS
          NG     X0,FIP125         END OF PARAMETER LIST
  
          SA4    PPT+W.PPNO+X7
          LX4    59-S.PPNO
          NG     X4,FIP125         DISPLAY THIS PARAMETER 
  
          SA7    PWPL              POSITION WITHIN PARAMETER LIST 
          EQ     FIP100            NEXT PARAMETER 
  
 FIP125   BSS    0
          SA6    LWCFL
  
*         THE FIELD LIST AND VARIABLE LIST ENTRIES
*         (WITHOUT PARAMETERS) ARE NON-ACTIVE.
  
          MX5    0
          GT     B0,B7,FIP150      LEAVE ENTRY INACTIVE 
          NG     X0,FIP150         LEAVE ENTRY INACTIVE 
  
          ERRNZ  N.FDACTV-1 
          SX5    1
  
 FIP150   BSS    0
          SA3    PLIN+X6
          BX2    X5 
          OX6    X3,X5,FDACTV 
          SA4    A3+B1
          SA6    A3 
          OX6    X4,X2,FDACTV 
          SA6    A4 
          GT     B0,B7,FIP100      NEXT ENTRY 
          NG     X0,FIP100         NEXT ENTRY 
  
*         PLACE THE PARAMETER (OR DESCRIPTION) AND ITS
*         VALUE IN THE PANEL. 
  
          SA7    PWPL              UPDATED POSITION WITHIN LIST 
          SA2    SCATX
          SA3    PWPL              POSITION IN LIST 
          MX2    0
          SA1    PPT+W.PPFPN+X3    PARAMETER NAME 
          SA4    PPT+W.PPFPC+X3    NAME LENGTH
          EX0    X4,PPFPC 
          SB2    X0 
          SA5    PPT+W.PPDSO+X3 
          LX5    59-S.PPDSO        CHECK FOR USER SUPPLIED PROMPT 
          NG     X5,FIP200         USER SUPPLIED PROMPT ONLY
  
          SB3    B0 
          RJ     =XSTRTASC         PARAMETER NAME TO SCATX
          SA3    PWPL 
          SA4    PPT+W.PPDES+X3 
          LX4    59-S.PPDES        CHECK FOR DESCRIPTION STRING 
          PL     X4,FIP300         USE PARAMETER NAME ONLY
  
          SA1    =1H               SPACE
          SB2    1
          SB3    B0 
          RJ     =XSTRTASC
  
 FIP200   BSS    0
          SA3    PWPL 
          SA4    PPT+W.PPVAL+X3 
          EX0    X4,PPVAL          PVT OFFSET PROMPT/DESCRIPTION
          SA5    PVT+W.PVSIZ+X0 
          SA1    PVT+W.PVSTR+X0 
          EX0    X5,PVSIZ          LENGTH OF PROMPT/DESCRIPTION 
          SB2    X0 
          SA4    LWCFL
          SA5    PLIN+1+X4
          EX0    X5,FDX 
          SB3    X0-2 
          RJ     =XSTRTASC         PROMPT TO SCATX
  
 FIP300   BSS    0
          SA1    =2H:              PUNCTUATION
          SB2    2
          SB3    B0 
          RJ     =XSTRTASC
          SA5    LWCFL             LINE WITHIN CONSTANT FIELD 
          SA4    PLIN+X5           CONSTANT FIELD LIST ENTRY
          EX5    X4,FDFCW          DATA OFFSET
          SA1    PANEL+X5          1ST WORD OF CONSTANT DATA
          RJ     =XSTRPK12         STORE LINE IN PANEL
          SA1    SDNPSL            INCREMENT NUMBER OF LINES DISPLAYED
          SX7    X1+1 
          SA7    A1 
  
*         DETERMINE STARTING COLUMN OF LINE.  CONSTANTS ARE 
*         RIGHT JUSTIFIED.
  
          SA3    SDTACN            SIZE OF STRING (SAVED BY STRTASC)
          SA4    LWCFL
          SA5    PLIN+1+X4
          EX6    X5,FDX 
          IX0    X6-X3
          SA1    PLIN+X4           CONSTANT FIELD 
          OX7    X1,X0,FDX         PLACE COLUMN IN FIELD LIST ENTRY 
          OX6    X7,X3,FDLEN
          SA7    A1                STORE UPDATED CONSTANT 
  
*         STORE THE VARIABLE OUT-STRING IN THE PANEL.  IF THERE 
*         WAS A VALUE ENTERED ON THE CALL FOR THIS PARAMETER, 
*         PLACE IT IN OUT-STRING AND PAD THE OUT-STRING WITH BLANKS 
*         (UP TO 40 CHARACTERS.  IF THERE WAS NO VALUE, BLANK FILL
*         OUT-STRING. 
  
  
          SA2    SCATX
          SB3    B0 
          MX2    0
          SA1    PWPL              FORM VARIABLE OUT-STRING 
          SA3    PPT+W.PPBSP+X1    CHECK FOR ENTRY ON CALL
          ERRNZ  59-S.PPBSP 
          SA5    PPT+W.PPLCP+X1    GET LONGEST CHECKLIST PATTERN
          NG     X3,FIP310         IF CALL VALUES PRESENT 
  
          SA3    PPT+W.PPNDA+X1 
          EX0    X3,PPNDA          EXTRACT *N/*D OFFSET 
          ZR     X0,FIP400         IF NO *N/*D CHECKLIST PATTERN
  
          ERRNZ  W.PVDND-W.PVSIZ   CODE DEPENDS ON LOCATION 
          SA3    PVT+W.PVSIZ+X0    GET LENGTH OF *N/*D ENTRY
          EX4    X3,PVSIZ          EXTRACT LENGTH 
          LX3    59-S.PVDND        DISPLAY NULL DEFAULT FLAG
          PL     X3,FIP400         IF NOT DISPLAYING *N/*D VALUE
          ZR     X4,FIP400         IF NULL VALUE
          SA1    PVT+W.PVSTR+X0    FIRST WORD OF VALUE
          EQ     FIP320 
  
 FIP310   BSS    0
  
          ERRNZ  W.PPBSP-W.PPDO2
          EX0    X3,PPDO2          FPS OFFSET OF PARAMETER ENTRY
          ERRNZ  W.PPBSP-W.PPDC2
          EX4    X3,PPDC2          LENGTH OF ENTRY
          SA1    FPS+W.FPSCV+X0    FIRST WORD OF CALL VALUE 
 FIP320   BSS    0
          EX7    X5,PPLCP 
          SB2    X7                LONGEST CHECKLIST PATTERN
          SB5    X4 
          LE     B2,B5,FIP350      TRUNCATE VALUE 
  
          SB2    X4 
          SB3    B2-40
          LE     B3,B0,FIP350      VALUE WILL FIT VARIABLE
  
          SB2    40                TRUNCATE VALUE 
  
 FIP350   BSS    0
          RJ     =XSTRUPS 
  
 FIP400   BSS    0                 PAD OUT-STRING WITH SPACES 
          SB6    40 
          SB2    B6-B3
          SA1    SPACES 
          RJ     =XSTRUPS 
          SA1    ANSSTR 
          RJ     =XSTRPKS          ASSEMBLE OUT-STRING
          SA4    LWCFL
          SA5    PLIN+1+X4         VAR FIELD LIST ENTRY 
          EX0    X5,FDDO           VAR CHARACTER OFFSET 
          MX3    0
          ZR     X0,FIP420         SKIP DIVIDE OF ZERO
  
          SX6    10 
          IX3    X0/X6             OUT-STRING OFFSET
  
 FIP420   BSS    0
          SA1    ANSSTR 
          SA2    A1+B1
          BX7    X1 
          BX6    X2 
          SA7    VINOUT+X3
          SA6    A7+B1
          SA1    A2+B1
          SA2    A1+B1
          BX7    X1 
          BX6    X2 
          SA7    A6+B1
          SA6    A7+B1
  
  
*         UPDATE LENGTH OF VARIABLE FIELD LIST ENTRY. 
*         USE THE LENGTH OF THE LONGEST CHECKLIST PATTERN.
  
          SA1    LWCFL
          SA2    PLIN+X1+1
  
          SA5    PWPL 
          SA4    PPT+W.PPLCP+X5 
          EX6    X4,PPLCP          LONGEST CHECKLIST PATTERN
          NZ     X6,FIP450         STORE LENGTH OF CHECKLIST VALUE
  
          SX6    1                 NULL ONLY CHECKLIST VALUE
  
 FIP450   BSS    0
          OX7    X2,X6,FDLEN
          SA7    A2 
          JP     FIP100            NEXT LINE
  
  
  
*         PLACE LINE OF SPACES AND PROMPT LINE AFTER LAST PARAMETER.
  
 FIP500   BSS    0
          SA1    SDNPSL            NUMBER OF PARAMETERS 
          SX0    X1+3 
          SA2    BLKLIN            BLANK LINE FIELD LIST ENTRY
          OX7    X2,X0,FDY
          SA7    A2 
          SX0    X1+4 
          SA2    PPRT              PROMPT LINE FIELD LIST ENTRY 
          BX5    X0 
          OX7    X2,X0,FDY
          SA7    A2 
          SA1    PWPL 
          BX7    X1 
          SA7    SDBTM             SAVE PPT POSITION BOTTOM OF PAGE 
  
*         PLACE THE SELECTION (ACTIVE OR INACTIVE) ON THE SAME LINE 
*         AND IMMEDIATELY FOLLOWING THE PROMPT. 
  
*         X5 = PROMPT LINE NUMBER 
  
  
          SA1    PPRT              PROMPT FIELD LIST ENTRY
          SA3    SLCTN             SELECTION FIELD LIST ENTRY 
          EX0    X1,FDX 
          EX2    X1,FDLEN 
          IX4    X0+X2
          OX6    X3,X5,FDY
          SX0    X4+1 
          OX7    X6,X0,FDX
          SA7    A3 
  
*         SET THE F1 (FWD) AND F2 (BKW) FUNCTION KEYS.
  
          SX0    3                 F1 ACTION - RETURN TO APPLICATION
          SX1    1                 ACTIVE 
          SA2    PPTCL             LENGTH OF PPT
          SX2    X2-LE.PPT
          SA3    SDBTM             PPT POSITION BOTTOM OF PAGE
          SX4    X3+LE.PPT
          IX5    X2-X4
          PL     X5,FIP550         FORWARD PAGING 
  
          MX0    0
          MX1    0                 TURN OFF FWD 
  
 FIP550   BSS    0
          SA4    FNG1              FWD GENERIC KEY - FUNCTION LIST
          BX5    X0 
          OX7    X4,X5,FLACT
          SA7    A4 
          SA2    FN1               F1 FUNCTION LIST ENTRY 
          SA3    PF1               F1 LABEL FIELD LIST ENTRY
          OX6    X2,X0,FLACT
          BX5    X1 
          OX7    X3,X1,FDACTV 
          SA6    A2 
          SA7    A3 
          SA2    PF1-1             F1 FIELD LIST ENTRY
          BX3    X5 
          OX6    X2,X5,FDACTV 
          SA6    A2 
          SA1    HF1               F1 LABEL (HELP PANEL)
          BX5    X3 
          OX7    X1,X5,FDACTV 
          SA7    A1 
          SA2    HF1-1
          OX6    X2,X3,FDACTV 
          SA6    A2 
          MX0    0                 F2 ACTION - IGNORE F2
          MX1    0                 NON-ACTIVE F2 FIELD LIST LABEL 
          SA2    SDTOP             PPT POSITION TOP OF PAGE 
          NG     X2,FIP600         TURN OFF BKW 
  
          SX0    3                 TURN ON BKW (F2) 
          SX1    1
  
 FIP600   BSS    0
          SA2    FNG2              BKW GENERIC KEY - FUNCTION LIST
          BX3    X0 
          OX7    X2,X3,FLACT
          SA7    A2 
          SA4    FN2               F2 FUNCTION LIST ENTRY 
          SA5    PF2               F2 LABEL FIELD LIST ENTRY
          OX6    X4,X0,FLACT
          BX3    X1 
          OX7    X5,X1,FDACTV 
          SA6    A4 
          SA7    A5 
          SA4    PF2-1             F2 FIELD LIST ENTRY
          BX5    X3 
          OX6    X4,X3,FDACTV 
          SA6    A4 
          SA1    HF2               F2 LABEL (HELP PANEL)
          BX3    X5 
          OX7    X1,X5,FDACTV 
          SA7    A1 
          SA2    HF2-1
          OX6    X2,X3,FDACTV 
          SA6    A2 
  
  
*         POSITION CURSOR BY FINDING THE VARIABLE ENTRY NAME OF THE 1ST 
*         PARAMETER WHICH NEEDS PROMPTING.  STORE THE NAME  OF THE
*         VARIABLE IN-STRING IN THE ARGUMENT LIST FOR SFSETP.  IF NONE
*         OF THE PARAMETERS NEED PROMPTING, POSITION THE CURSOR 
*         AT THE 1ST PARAMETER.  IF THERE ARE NO PARAMETERS, POSITION 
*         THE CURSOR AFTER THE PROMPT.
  
          SA1    BGERR
          SA2    =10H ERROR 
          SA3    =10H ENTER 
          BX0    X1-X2
          BX6    X1-X3
          SX7    X1-2RP?
          ZR     X0,FIP605         ERROR FOR THIS PARAMETER 
          SX0    X1-2RUP
          ZR     X6,FIP605         MISSING A VALUE
          ZR     X7,FIP605         HELP FOR THIS PARAMETER
          NZ     X0,FIP605A        IF NOT UNRECOGNIZED PARAMETER
  
*         THE PARAMETER WHICH NEEDS THE CURSOR MAY HAVE A *N ONLY 
*         IN ITS CHECKLIST.  THEN THIS PARAMETER WILL NOT BE DISPLAYED
*         AND THE CURSOR WILL BE REPOSITIONED TO THE TOP OF PAGE OR 
*         AFTER THE PROMPT (NO DISPLAYABLE PARAMETERS ON THIS PAGE).
*         OTHERWISE POSITION CURSOR AT THE PARAMETER. 
  
 FIP605   BSS    0
          SA1    BGPWPL 
          SA3    PPT+W.PPNO+X1
          LX3    59-S.PPNO
          NG     X3,FIP650         POSITION CURSOR AT PARAMETER 
  
          SA1    PPT+W.PPNO-LE.PPT
          LX1    59-S.PPNO
          NG     X1,FIP625         CURSOR TO TOP OF PAGE
          EQ     FIP605B           CURSOR AFTER PROMPT LINE 
  
  
*         CLEAR MESSAGE 
  
 FIP605A  BSS    0
          SA1    PMSG 
          SX0    BLANK-PANEL
          OX3    X1,X0,FDFCW
          SX4    1                 LENGTH 
          OX6    X3,X4,FDLEN
          SA6    A1 
  
*         IF NONE OF THE PARAMETERS ARE DISPLAYABLE, POSITION CURSOR
*         AFTER THE PROMPT. 
  
          SA1    PPT+W.PPNO-LE.PPT
          LX1    59-S.PPNO
          PL     X1,FIP605B        CURSOR AFTER PROMPT
  
*         IF THERE ARE PARAMETERS FOR THIS PROCEDURE THEN CHECK SDBACK
*         IF THE BACK KEY WAS NOT DEPRESSED (SDBACK = 0), THEN POSITION 
*         CURSOR AT TOP OF PAGE OTHERWISE LEAVE CURSOR AS IS. 
  
          SA3    PPTCL             LENGTH OF PPT
          SB6    X3-LE.PPT
          GE     B6,B0,FIP610      TOP OF PAGE
  
*         OTHERWISE POSITION CURSOR AFTER PROMPT
  
 FIP605B  BSS    0
          SA1    =10HSLECTNS
          BX7    X1 
          SA7    VARNAM 
          MX6    0
          SA6    OFFSET 
          JP     FIP630            CHECK FOR UNRECOGNIZED PARAMETER 
  
 FIP610   BSS    0
          SA1    SDBACK 
          NZ     X1,FIP630         IF BACK KEY WAS PRESSED
  
*         PLACE CURSOR AT TOP OF PAGE.
  
 FIP625   BSS    0
          SA1    =10HRESP01 
          BX7    X1 
          SA7    VARNAM 
          MX6    0
          SA6    OFFSET 
 FIP630   BSS    0
          SA1    BGERR
          SX0    X1-2RUP
          NZ     X0,FIP640         IF NOT UNRECOGNIZED PARAMETER
  
          SA2    SCATX
          SX2    B0+
  
*         PLACE THE *UNRECOGNIZED PARAMETER V* MESSAGE IN THE PANEL.
*         V IS THE UNRECOGNIZED PARAMETER ENTERED ON THE CALL.
  
 FIP635   BSS    0
          SX7    B0                CLEAR THE ERROR INDICATOR
          SA7    A1 
          SA1    =43HU^N^R^E^C^O^G^N^I^Z^E^D ^P^A^R^A^M^E^T^E^R 
          SB2    43 
          SB3    B0+
          RJ     =XSTRTASC
          SA1    BGURPN 
          SA4    BGURPL 
          SB2    X4 
          JP     FIP770            COMPLETE MESSAGE PROCESSING
  
  
  
*         CHECK IF PROCEDURE CALL HAD NO TERMINATOR.
  
 FIP640   BSS    0
          SA3    BGUTPC 
          SA2    SCATX
          SX2    X3-2RUC
          NZ     X2,FIP800         IF NOT UNTERMINATED CALL 
  
  
*         NOTE THAT THE PROCEDURE CALL HAD NO TERMINATOR. 
  
 FIP645   BSS    0
          SX7    B0                CLEAR UNTERMINATED CALL FLAG 
          SA7    A3 
          SA1    =52HU^N^T^E^R^M^I^N^A^T^E^D ^P^R^O^C^E^D^U^R^E ^C^A^L^L
          SB2    52 
          JP     FIP770            COMPLETE MESSAGE PROCESSING
  
  
  
  
*         FIND THE PARAMETER AND CORRESPONDING FIELD LIST 
*         ENTRY THAT NEEDS THE CURSOR.
  
 FIP650   BSS    0
          SA4    BGPWPL 
          SA1    SDTOP
          SA3    SDNPSL 
          SB2    -2                FIELD LIST POSITION OF CURSOR
          SB3    X3                NUMBER OF PROMPTS WRITTEN
          SB4    -1                NUMBER OF LINES SEARCHED ON PAGE 
          SB6    X1                PPT POSITION TOP OF PAGE 
          SB7    X4                PPT POSITION PARAMETER IN ERROR
          SB5    -LE.LVE           POSITION IN VARIABLE LIST
  
 FIP675   BSS    0
          SB6    B6+LE.PPT
          SB5    B5+LE.LVE
          SB2    B2+2 
          SB4    B4+B1
          GT     B4,B3,FIP625      ERROR NOT ON THIS PAGE 
          GT     B7,B6,FIP675      NEXT ENTRY 
  
          SA4    RESP01+W.VFLVN+B5 VARIABLE ENTRY 
          SA2    SPACES 
          EX7    X4,VFLVN 
          OX6    X2,X7,VFLVN
          SA6    VARNAM 
          MX7    0
          SA7    OFFSET 
          SA3    BGERR
          SX0    X3-2RP?
          ZR     X0,FIP800         WRITE PANEL
  
  
*         IF THIS IS THE 1ST WRITING OF THE PANEL DO NOT PUT
*         OUT THE PLEASE ENTER MESSAGE.  THE NAME OF THE PANEL
*         SHOULD BE ZERO INITIALLY. 
  
  
          SA1    PNLNAM            NAME OF PANEL
          NZ     X1,FIP690         NOT INITIAL WRITE
  
          SA3    BGERR
          SA4    =10H ENTER 
          BX0    X3-X4
          NZ     X0,FIP690         NOT ENTER MESSAGE
  
          MX6    0
          SA6    BGERR             CLEAR ERROR
          JP     FIP800            WRITE PANEL
  
 FIP690   BSS    0
          SA2    SCATX
          MX2    0
          SA1    BGERR
          SX0    X1-2RUP
          ZR     X0,FIP635         IF UNRECOGNIZED PARAMETER
  
          SA3    BGUTPC 
          SX0    X3-2RUC
          ZR     X0,FIP645         IF CALL HAD NO TERMINATOR
  
  
*         PLACE THE *PLEASE CORRECT V* MESSAGE IN THE PANEL.
*         V IS THE INCORRECT VALUE ENTERED FOR THE PARAMETER. 
  
          SA3    =10H ERROR 
          BX0    X1-X3
          NZ     X0,FIP700         USE (ENTER) MESSAGE
  
          SA4    SDCMLE 
          NG     X4,FIP760         .CORRECT,. (NULL TEXT) 
          SA1    =26HP^L^E^A^S^E ^C^O^R^R^E^C^T 
          SB2    26 
          ZR     X4,FIP750         DEFAULT MESSAGE TO SCATX 
  
          SA3    SDCMOF            PVT OFFSET OF USER SUPPLIED MESSAGE
          SA5    PVT+W.PVSIZ+X3 
          SA1    PVT+W.PVSTR+X3 
          EX6    X5,PVSIZ          LENGTH IN 6 BIT CHARACTERS 
          SB2    X6 
          JP     FIP750            USER SUPPLIED MESSAGE TO SCATX 
  
*         PLACE THE (ENTER) MESSAGE IN THE PANEL. 
  
 FIP700   BSS    0
          SA4    SDEMLE 
          NG     X4,FIP750C        .ENTER,. (NULL TEXT) 
  
          SA1    =22HP^L^E^A^S^E ^E^N^T^E^R 
          SB2    22 
          ZR     X4,FIP750         DEFAULT MESSAGE TO SCATX 
  
          SA3    SDEMOF            PVT OFFSET OF USER SUPPLIED MESSAGE
          SA5    PVT+W.PVSIZ+X3 
          SA1    PVT+W.PVSTR+X3 
          EX6    X5,PVSIZ          LENGTH IN 6 BIT CHARACTERS 
          SB2    X6 
  
 FIP750   BSS    0
          SB3    78 
          RJ     =XSTRTASC         (PLEASE CORRECT) TO SCATX
          SA1    =1H
          SB2    1
          SB3    B0 
          RJ     =XSTRTASC
          SA1    BGERR
          SA3    =10H ERROR 
          BX0    X1-X3
          ZR     X0,FIP760         GET VALUE FOR ERROR MESSAGE
  
 FIP750C  BSS    0
          SA3    BGPWPL 
          SA1    PPT+W.PPFPN+X3    PARAMETER NAME 
          SA4    PPT+W.PPFPC+X3    NAME LENGTH
          EX0    X4,PPFPC 
          SB2    X0 
          SA5    PPT+W.PPDSO+X3 
          LX5    59-S.PPDSO        CHECK FOR USER SUPPLIED PROMPT 
          NG     X5,FIP755         USER SUPPLIED PROMPT ONLY
  
          SA3    BGPWPL 
          SA4    PPT+W.PPDES+X3 
          LX4    59-S.PPDES        CHECK FOR DESCRIPTION STRING 
          PL     X4,FIP770         USE PARAMETER NAME ONLY
  
          SB3    B0 
          RJ     =XSTRTASC         PARAMETER NAME TO SCATX
          SA1    =1H               SPACE
          SB2    1
          SB3    B0 
          RJ     =XSTRTASC
          SA3    BGPWPL 
  
 FIP755   BSS    0
          SA4    PPT+W.PPVAL+X3 
          EX0    X4,PPVAL          PVT OFFSET PROMPT/DESCRIPTION
          SA5    PVT+W.PVSIZ+X0 
          SA1    PVT+W.PVSTR+X0 
          EX0    X5,PVSIZ          LENGTH OF PROMPT/DESCRIPTION 
          SB2    X0 
          JP     FIP770            STRING MAY NEED (...) AFTER IT 
  
 FIP760   BSS    0
          SA3    BGPWPL 
          SA4    PPT+W.PPDO2+X3    GET VALUE IN ERROR 
          EX0    X4,PPDO2          FPS OFFSET OF VALUE
          ERRNZ  W.PPDO2-W.PPDC2
          SA1    FPS+W.FPSCV+X0    1ST WORD OF VALUE
          EX3    X4,PPDC2          LENGTH OF VALUE
          SB2    X3 
  
  
*         DETERMINE WHETHER VALUE WILL FIT IN MESSAGE.  OTHERWISE,
*         TRUNCATE VALUE AND PLACE (...) AFTER IT.
  
 FIP770   BSS    0
          SB3    B0 
          RJ     =XSTRTASC         PROMPT TO SCTAX
          SB6    79 
          GE     B6,B3,FIP780      STORE MESSAGE CONSTANT 
  
*         TRUNCATE MESSAGE BY FORMING NEW SCATTER BUFFER HEADER 
  
          SX3    76 
          SX7    75 
          BX0    X3 
          SA7    SDTACN            NUMBER OF 12 BIT CHARACTERS
          OX2    X3,X0,SBTOT
          SB3    B0 
          SA1    =4L ...
          SB2    4
          RJ     =XSTRTASC         PLACE (...) IN SCATX 
  
*         IF THE CURRENT MESSAGE IS SMALLER THAN THE PREVIOUS MESSAGE,
*         PAD THE CURRENT MESSAGE WITH AN APPROPRIATE NUMBER OF SPACES. 
*         THIS WILL CLEAR THE PREVIOUS MESSAGE. 
  
 FIP780   BSS    0
          SA1    PMSG 
          BX4    X1 
          EX0    X4,FDLEN          LENGTH OF PREVIOUS MESSAGE 
          SB4    X0 
          GE     B3,B4,FIP790      NO PADDING NECESSARY 
  
          SB3    B4                BLANK FILL MESSAGE TO PREVIOUS SIZE
          SA1    SPACES 
          SB2    79 
          RJ     =XSTRTASC
          SA1    PMSG 
  
 FIP790   BSS    0
          SX3    B3 
          BX4    X3 
          OX6    X1,X3,FDLEN
  
*         STORE CONSTANT DATA OFFSET IN MESSAGE FIELD LIST
  
          SX0    MESG-PANEL 
          OX7    X6,X0,FDFCW       MESSAGE CONSTANT OFFSET
          ERRNZ  N.FDREW-1
          SX5    1
          OX6    X7,X5,FDREW
          SA6    A1 
          SA1    MESG 
          RJ     =XSTRPK12
  
  
 FIP800   BSS    0
          MX7    0
          SA7    SDBACK            CLEAR BACK KEY 
  
*         SET UP ARGUMENT LIST FOR SFS CALLS
*         SWAP PRIMARY PANEL NAMES
  
  
          SA5    SDPAGE 
          SA3    PGNUM             LEAVE PANEL NAME IF SAME PAGE
          EX4    X3,PGNM
          SA1    PNLNAM 
          ZR     X1,FIP825         REPLACE PANEL NAMES
  
          BX7    X1 
          BX0    X5-X4
          ZR     X0,FIP850         LEAVE PANEL NAME 
  
 FIP825   BSS    0
          BX6    X4                NEW PAGE NUMBER
          SA6    SDPAGE            SAVE NEW PAGE
          SA2    =10HPANL1
          BX7    X2 
          BX0    X1-X2
          NZ     X0,FIP850         SWAP NAMES 
  
          SA3    =10HPANL2
          BX7    X3 
  
 FIP850   BSS    0
          SA7    PNLNAM            SAVE PANEL NAME
  
*         WRITE INTERACTIVE PANEL 
  
          SX6    5
          MX7    0
          SA6    NAMEL
          SA7    ZERO 
          SA7    OFFSET 
          SA1    SFSARG            A1 = ADDRESS OF ARGUMENT LIST
          RJ     =XSFSWRI$         WRITE INTERACTIVE PANEL
          MX7    0
          SA7    ZERO 
          SB1    1
          JP     FIP               RETURN 
  
  
 FIPX     TITLE  FORMAT INTERACTIVE PANEL X COORDINATES 
**        FIPX   -  FORMAT INTERACTIVE PANEL X COORDINATES
* 
*         FIPX CENTERS THE INTERACTIVE PANEL.  FIPX SEARCHES THRU 
*         ALL OF THE PPT ENTRIES WHICH BELONG TO THIS PAGE.  THE
*         FIELD PPLCP CONTAINS THE LENGTH OF THE LONGEST CHECKLIST
*         VALUE FOR EACH PARAMETER.  FIPX CALCULATES THE LENGTH OF
*         EACH PARAMETER PROMPT.  THERE ARE 2 CHARACTERS OF 
*         PUNCTUATION.  FIPX THEN COMPUTES WHICH COLUMN WILL CENTER 
*         THE PAGE AND PLACES AN APPROPRIATE X COORDINATE IN THE
*         VARIABLE FIELD LIST ENTRY FOR EACH PARAMETER IN THE PANEL.
* 
*         ENTRY 
* 
*         PPTCL  - THE LENGTH OF THE PPT PARAMETER LIST 
*         SDMAXY - MAXIMUN NUMBER OF PARAMETERS PER PAGE
*         SDTOP  - PPT POSITION AT THE TOP OF PAGE
* 
*         EXIT   - NONE 
* 
* 
  
 FIPX     BSSZ   1                 ENTRY/EXIT 
          SB1    1
          MX6    0
          SA6    FIPXLCP           LONGEST CHECKLIST PARAMETER VALUE
          SA6    FIPXLPP           LONGEST PARAMETER PROMPT 
          SA1    SDTOP
          SX7    -1 
          BX6    X1 
          SA7    FIPXLWP           LINE WITHIN PAGE 
          SA6    FIPXPWL           POSITION WITHIN LIST 
  
 FIPX50   BSS    0
          SA1    FIPXLWP
          SA2    SDMAXY 
          SX7    X1+B1
          IX0    X7-X2
          PL     X0,FIPX200        END OF PAGE
  
          SA1    FIPXPWL
          SA2    PPTCL
          SX6    X1+LE.PPT
          SX3    X2-LE.PPT
          IX0    X3-X6
          NG     X3,FIPX200        NO PARAMETERS
          NG     X0,FIPX200        END OF PARAMETERS
  
          SA7    FIPXLWP
          SA6    FIPXPWL
  
          SA1    PPT+W.PPLCP+X6 
          EX2    X1,PPLCP 
          SA3    FIPXLCP
          IX0    X3-X2
          PL     X0,FIPX75         CHECK FOR LONGEST PARAMETER PROMPT 
  
          BX7    X2 
          SA7    A3 
  
 FIPX75   BSS    0
          SA2    SCATX
          MX2    0
          SA3    FIPXPWL
          SA1    PPT+W.PPFPN+X3    PARAMETER NAME 
          SA4    PPT+W.PPFPC+X3 
          EX0    X4,PPFPC          LENGTH OF NAME 
          SB2    X0 
          SA5    PPT+W.PPDSO+X3 
          LX5    59-S.PPDSO 
          NG     X5,FIPX100        DESCRIPTION STRING ONLY
  
          SB3    B0 
          RJ     =XSTRTASC
          SA3    FIPXPWL
          SA4    PPT+W.PPDES+X3 
          LX4    59-S.PPDES        CHECK FOR DESCRIPTION STRING 
          PL     X4,FIPX150        USE PARAMETER NAME ONLY
  
          SA1    =1H               ADD SPACE
          SB2    1
          SB3    B0 
          RJ     =XSTRTASC
  
 FIPX100  BSS    0
          SA3    FIPXPWL
          SA4    PPT+W.PPVAL+X3 
          EX0    X4,PPVAL          PVT OFFSET OF DESCRIPTION
          SA5    PVT+W.PVSIZ+X0 
          SA1    PVT+W.PVSTR+X0 
          EX0    X5,PVSIZ          SIZE OF DESCRIPTION
          SB2    X0 
          SB3    B0 
          RJ     =XSTRTASC
  
 FIPX150  BSS    0
          SA1    FIPXLPP            LONGEST PARAMETER PROMPT
          SX7    B3 
          IX0    X1-X7
          PL     X0,FIPX50         LONGEST STORED - NEXT PARAMETER
  
          SA7    A1 
          JP     FIPX50            NEXT PARAMETER 
  
  
*         COMPUTE CENTERING COLUMN
  
  
 FIPX200  BSS    0
          SA1    FIPXLCP
          SA2    FIPXLPP
  
*         IF THE PROMPT IS .LT. 38, THEN USE COLUMN 40 AS 
*         THE NOMINAL COLUMN FOR CENTERING. 
  
          SX7    40 
          SX0    X2-39
          NG     X0,FIPX250        FURTHER ADJUSTMENT MAY BE NECESSARY
  
          SX5    80 
  
*         IF THE PROMPT IS LONGER THAN 38 CHARACTERS, THERE MAY 
*         STILL BE ROOM FOR THE WHOLE PROMPT TO BE DISPLAYED. 
*         IN THIS CASE, THE PROMPT WILL BE LEFT JUSTIFIED.
  
          IX3    X5-X1
          SX4    X3-2 
          SX7    X2+2 
          IX0    X4-X2
          PL     X0,FIPX275        PROMPT WILL FIT ON LINE
  
*         THE PROMPT WILL BE TRUNCATED
  
          BX7    X3 
          JP     FIPX275           NO FURTHER ADJUSTMENT OF CENTERING 
  
*         IF THE SCREEN WILL APPEAR SCEWED TO THE RIGHT 
*         ADJUST THE X COORDINATE TO BALANCE THE TEST ON
*         THE SCREEN.  X7 CONTAINS THE NOMINAL POSITION 
*         FOR CENTERING.
  
  
 FIPX250  BSS    0
          IX0    X7-X2             COLUMNS REMAINING ON LEFT
          SX3    X0-2 
          IX4    X7+X1
          SX5    80 
          IX6    X5-X4             COLUMNS REMAINING ON RIGHT 
          IX4    X6-X0
          PL     X4,FIPX275        NO FURTHER ADJUSTMENT
  
          IX3    X1+X2
          SX6    X3+2 
          IX0    X5-X6             COLUMNS REMAINING
          SX1    2
          IX4    X0/X1
          IX5    X4+X2
          SX7    X5+2 
  
*         PLACE THE X COORDINATE (X7) IN THE VARIABLE FIELD LIST
*         ENTRIES IN THE PANEL. 
  
 FIPX275  BSS    0
          SB6    -2 
          SA1    SDMAXY 
          SB5    X1 
          SB7    B5+B5
  
 FIPX300  BSS    0
          SB6    B6+2 
          GE     B6,B7,FIPX        END OF PAGE - RETURN 
  
          BX0    X7 
          SA1    PLIN+1+B6
          OX6    X1,X7,FDX
          SA6    A1 
          BX7    X0 
          JP     FIPX300           NEXT ENTRY 
  
 FIPXLCP  BSSZ   1                 LONGEST CHECKLIST PARAMETER VALUE
 FIPXLPP  BSSZ   1                 LONGEST PARAMETER PROMPT 
 FIPXLWP  BSSZ   1                 LINE WITHIN PAGE 
 FIPXPWL  BSSZ   1                 POSITION WITHIN LIST OF PARAMETERS 
 FMP      TITLE  FORMAT MENU PANEL
**        FMP  -  FORMAT MENU PANEL 
* 
*         FMP FORMATS A MENU BY STORING THE MENU SELECTIONS AND 
*         PROMPTS IN THE PANEL CONSTANT DATA AND WRITE THE PANEL
*         USING SFSWRI$.  PAGING IS CONTROLLED BY STORING THE 
*         POSITION OF THE PROCEDURE PARAMETER TABLE (PPT OFFSET). 
*         TOP OF PAGE POSITION IS STORED IN SDTOP. BOTTOM 
*         OF PAGE IS STORED IN SDBTM. 
* 
* 
*         ENTRY 
* 
*         PWPL  =  (PPT OFFSET) POSITION WITHIN PARAMETER LIST
*         SDTOP = (PPT OFFSET) POSITION AT TOP OF PAGE
* 
* 
*         EXIT
* 
*         SDBTM  = (PPT OFFSET) POSITION AT BOTTOM OF PAGE
*         SDNPSL = NUMBER OF SELECTIONS DISPLAYED THIS PAGE 
* 
* 
 FMP      BSSZ   1                 ENTRY/EXIT 
          SA1    IACIMP 
          ZR     X1,FMP            NOT A MENU PROCEDURE 
  
          SB1    1
          SA1    PWPL 
          BX7    X1 
          SA7    SDTOP             STORE PPT POSITION TOP OF PAGE 
          MX6    0
          SA6    SDNPSL            CLEAR NUMBER OF SELECTIONS DISPLAYED 
          SX7    -2 
          SA7    LWCFL             1ST SELECTION LINE 
  
*         FMPX CENTERS THE MENU BY PLACING ALL THE X COORDINATES
*         IN THE FIELD LIST ENTRIES IN THE PANEL. 
  
          RJ     FMPX              FORMAT MENU PANEL X COORDINATES
  
  
 FMP100   BSS    0
          SA1    LWCFL             LINE WITHIN CONSTANT FIELD LIST
          SX6    X1+2 
          SA4    SDMAXY            SIZE OF SCREEN 
          IX5    X4+X4
          IX0    X6-X5
          PL     X0,FMP450         PAGE FULL - DISPLAY MENU 
  
          SA1    PWPL              POSITION WITHIN PARAMETER LIST 
          SA2    PPTCL             LENGTH OF PARAMETER LIST 
          SX2    X2-LE.PPT         SUBTRACT FOR COMMENT PARAMETER 
          SX7    X1+LE.PPT
          IX0    X2-X7
          SA6    LWCFL
          ERRNZ  N.FDACTV-1 
          SX5    1
          PL     X0,FMP175         THIS FIELD LIST ENTRY IS ACTIVE
  
*         MAKE THE REMAINING FIELD LIST ENTRIES (WITHOUT PROMPTS) 
*         NON-ACTIVE. 
  
          MX5    0
  
 FMP175   BSS    0
          SA3    PLIN+X6
          OX6    X3,X5,FDACTV 
          SA6    A3 
          NG     X0,FMP100         NEXT ENTRY 
  
*         PLACE THE MENU SELECTIONS IN THE PANEL. 
  
          SA7    PWPL              UPDATED POSITION WITHIN SELECTIONS 
          SA2    SCATX
          MX2    0
          SA1    PPT+W.PPFPN+X7    SELECTION NAME 
          SA4    PPT+W.PPFPC+X7 
          EX0    X4,PPFPC          SELECTION NAME LENGTH
          SB2    X0 
          SB3    B0 
          RJ     =XSTRTASC
          SA1    =2H. 
          SB2    2
          SB3    B0 
          RJ     =XSTRTASC
          SA3    PWPL 
          SA4    PPT+W.PPMTP+X3 
          LX4    59-S.PPMTP        CHECK FOR PROMPT 
          PL     X4,FMP325         NO PROMPT - LINE TO PANEL
  
          SA5    PPT+W.PPVAL+X3 
          EX0    X5,PPVAL          PROMPT PVT OFFSET
          SA4    PVT+W.PVSIZ+X0 
          SA1    PVT+W.PVSTR+X0    1ST WORD OF PROMPT 
          EX0    X4,PVSIZ          LENGTH OF PROMPT 
          SB2    X0 
          SA3    LWCFL
          SA4    PLIN+X3
          EX5    X4,FDX 
          SB4    80 
          SB5    X5 
          SB3    B4-B5
          RJ     =XSTRTASC
  
 FMP325   BSS    0
          SA3    LWCFL             LINE POSITION ON SCREEN
          SA4    PLIN+X3
          EX6    X4,FDFCW 
          SA1    PANEL+X6          ADDRESS OF CONSTANT DATA 
          RJ     =XSTRPK12         PACK LINE TO CONSTANT DATA 
  
          SA1    SDNPSL            INCREMENT NUMBER OF LINES DISPLAYED
          SX7    X1+1 
          SA7    A1 
          SA4    SDTACN            SIZE OF STRING (SAVED BY STRTASC)
          SA3    LWCFL             LINE WITHIN FIELD LIST 
          SA1    PLIN+X3
          OX7    X1,X4,FDLEN
          SA7    A1                STORE UPDATE CONSTANT
          JP     FMP100            NEXT SELECTION 
  
  
*         PLACE LINE OF SPACES, PROMPT AND SELECTION VARIABLE AFTER 
*         LAST MENU SELECTION.
  
 FMP450   BSS    0
          SA1    SDNPSL            NUMBER OF SELECTIONS 
          SX0    X1+3 
          SA2    BLKLIN            BLANK LINE FIELD LIST ENTRY
          OX7    X2,X0,FDY
          SA7    A2 
          SX0    X1+4 
          SA2    PPRT              PROMPT FIELD LIST ENTRY
          BX5    X0 
          OX7    X2,X0,FDY
          SA7    A2 
          SA3    SLCTN             SELECTION VARIABLE FIELD LIST ENTRY
          OX7    X3,X5,FDY
  
  
*         SET ACTIVE AND REWRITE IN SELECTION FIELD LIST ENTRY. 
  
  
          ERRNZ  N.FDACTV-1 
          SX5    1
          OX6    X7,X5,FDACTV 
          ERRNZ  N.FDREW-1
          SX4    1
          OX7    X6,X4,FDREW
          SA7    A3 
          SA1    PWPL 
          BX7    X1 
          SA7    SDBTM             SAVE PPT POSITION BOTTOM OF PAGE 
  
  
  
*         CLEAR F3 (HELP FWD) AND F4 (HELP BKW) FUNCTION KEYS FROM THE
*         SCREEN BY PUTTING A ZERO ACTION (FLACT) IN THE FUNCTION LIST. 
  
          MX0    0
          SA1    FN3               F3 FUNCTION LIST ENTRY 
          SA2    FN4               F4 FUNCTION LIST ENTRY 
          OX6    X1,X0,FLACT
          MX0    0
          OX7    X2,X0,FLACT
          SA6    A1 
          SA7    A2 
  
*         SET THE F1 (FWD) AND F2 (BKW) FUNCTION KEYS.
  
          SX0    3                 F1 ACTION - RETURN TO APPLICATION
          SX1    1                 ACTIVE 
          SA2    PPTCL             LENGTH OF PPT
          SX2    X2-LE.PPT
          SA3    SDBTM             PPT POSITION BOTTOM OF PAGE
          SX4    X3+LE.PPT
          IX5    X2-X4
          PL     X5,FMP500         FORWARD PAGING 
  
          MX0    0
          MX1    0                 TURN OFF FORWARD PAGING
  
 FMP500   BSS    0
          SA4    FNG1              FWD GENERIC KEY - FUNCTION LIST
          BX5    X0 
          OX7    X4,X5,FLACT
          SA7    A4 
          SA2    FN1               F1 FUNCTION LIST ENTRY 
          SA3    PF1               F1 LABEL FIELD LIST ENTRY
          OX6    X2,X0,FLACT
          BX5    X1 
          OX7    X3,X1,FDACTV 
          SA6    A2 
          SA7    A3 
          SA2    PF1-1             F1 FIELD LIST ENTRY
          BX1    X5 
          OX6    X2,X5,FDACTV 
          SA6    A2 
          SA2    HF1               F1 LABEL (HELP PANEL)
          BX5    X1 
          OX7    X2,X1,FDACTV 
          SA7    A2 
          SA3    HF1-1
          OX6    X3,X5,FDACTV 
          SA6    A3 
          SX0    3                 F2 ACTION - RETURN TO APPLICATION
          SX1    1                 ACTIVE 
          SA2    SDTOP             PPT POSITION TOP OF PAGE 
          NZ     X2,FMP550         BACKWARD PAGING
  
          MX0    0                 TURN OFF BKW 
          MX1    0
  
 FMP550   BSS    0
          SA2    FNG2              BKW GENERIC KEY - FUNCTION LIST
          BX3    X0 
          OX7    X2,X3,FLACT
          SA7    A2 
          SA4    FN2               F2 FUNCTION LIST ENTRY 
          SA5    PF2               F2 LABEL FIELD LIST ENTRY
          OX6    X4,X0,FLACT
          BX3    X1 
          OX7    X5,X1,FDACTV 
          SA6    A4 
          SA7    A5 
          SA4    PF2-1             F2 FIELD LIST ENTRY
          BX1    X3 
          OX6    X4,X3,FDACTV 
          SA6    A4 
          SA2    HF2               F2 LABEL (HELP PANEL)
          BX3    X1 
          OX7    X2,X1,FDACTV 
          SA7    A2 
          SA4    HF2-1
          OX6    X4,X3,FDACTV 
          SA6    A4 
  
*         FILL THE VARIABLE OUT-STRING WITH SPACES. 
  
          SA1    SPACES 
          BX7    X1 
          SA7    VINOUT 
          SA7    A7+B1
          SA7    A7+B1
          SA7    A7+B1
  
*         SET VARIABLE CHARACTER OFFSET TO ZERO 
  
          MX7    0
          SA7    OFFSET 
  
  
*         SET UP ARGUMENT LIST FOR SFS CALLS
*         SWAP PRIMARY PANEL NAMES
  
  
          SA5    SDPAGE 
          SA3    PGNUM             LEAVE PANEL NAME IF SAME PAGE
          EX4    X3,PGNM
          SA1    PNLNAM 
          ZR     X1,FMP575         REPLACE PANEL NAMES
  
          BX7    X1 
          BX0    X5-X4
          ZR     X0,FMP600         LEAVE PANEL NAME 
  
 FMP575   BSS    0
          BX6    X4                NEW PAGE NUMBER
          SA6    SDPAGE            REPLACE PAGE NUMBER
          SA2    =10HPANL1
          BX7    X2 
          BX0    X1-X2
          NZ     X0,FMP600         SWAP NAMES 
  
          SA3    =10HPANL2
          BX7    X3 
  
 FMP600   BSS    0
          SA7    PNLNAM            SAVE PANEL NAME
  
*         WRITE MENU
  
          MX7    0
          SX6    5
          SA7    ZERO 
          SA6    NAMEL
          SA1    SFSARG            A1 = ARGUMENT LIST 
          RJ     =XSFSWRI$         WRITE MENU PANEL 
          MX7    0
          SA7    ZERO 
  
          SB1    1
          JP     FMP               RETURN 
  
  
  
 FMPX     TITLE  FORMAT MENU PANEL X COORDINATES
**        FMPX  -  FORMAT MENU PANEL X COORDINATES
* 
*         FMPX   CENTERS THE MENU ON THE PAGE.  FMPX SEARCHES THRU
*         ALL OF THE PPT ENTRIES WHICH BELONG TO THIS PAGE.  THE
*         FIELD PPFPC WILL TELL THE LENGTH OF THE SELECTION NUMBER
*         AND THE FIELD PPLCP WILL TELL THE LENGTH OF THE PROMPT
*         FOR EACH SELECTION.  THERE ARE 2 CHARACTERS OF PUNCTUATION. 
*         FMPX THEN COMPUTES WHICH COLUMN WILL CENTER THE PAGE AND
*         PLACES THE APPROPRIATE X COORDINATE IN THE FIELD LIST 
*         ENTRY FOR EACH SELECTION IN THE PANEL.
* 
*         ENTRY 
* 
*         PPTCL  - THE LENGTH OF THE PPT
*         SDMAXY - MAX NUMBER OF SELECTIONS ON A PAGE 
*         SDTOP  - THE PPT POSITION AT THE TOP OF PAGE
* 
*         EXIT   - NONE 
* 
* 
  
 FMPX     BSSZ   1                 ENTRY/EXIT 
          SB1    1
          SA1    SDMAXY 
          SA2    SDTOP
          SA3    PPTCL
          SB2    B0                LONGEST SELECTION NUMBER 
          SB3    B0                LONGEST SELECTION PROMPT 
          SB4    -1                CURRENT LINE WITHIN PAGE 
          SB5    X1                TOTAL NUMBER OF LINES IN PANEL 
          SB6    X2                CURRENT PPT POSITION 
          SB7    X3-LE.PPT         LAST PPT POSITION
  
 FMPX50   BSS    0
          SB4    B4+B1
          GE     B4,B5,FMPX100     END OF PAGE
  
          SB6    B6+LE.PPT
          LT     B7,B6,FMPX100     END OF SELECTIONS
  
          SA1    PPT+W.PPFPC+B6 
          SA2    PPT+W.PPLCP+B6 
          EX3    X1,PPFPC          LENGTH OF SELECTION NAME 
          EX4    X2,PPLCP          LENGTH OF SELECTION PROMPT 
          SX5    B2                LONGEST SELECTION
          SX6    B3                LONGEST PROMPT 
          IX0    X5-X3
          PL     X0,FMPX75         CHECK LONGEST PROMPT 
  
          SB2    X3 
  
 FMPX75   BSS    0
          IX7    X6-X4
          PL     X7,FMPX50         GET NEXT ENTRY 
          SB3    X4 
          JP     FMPX50            GET NEXT ENTRY 
  
*         FIND THE CENTER OF THE PAGE AND STARTING COLUMN OF
*         THE LONGEST SELECTION.
  
*         B2 = LONGEST SELECTION
*         B3 = LONGEST PROMPT 
  
 FMPX100  BSS    0
          SB4    80 
          SB5    B2+B3
          SB6    B5+2 
          SB3    B0                DEFAULT STARTING COLUMN
          GE     B6,B4,FMPX125     STORE STARTING COLUMN
  
          SX3    B4-B6
          SX2    2
          IX0    X3/X2
          SB4    X0 
          SX7    B4+B2
  
*         STORE THE X COORDINATE
*         X7 = LAST COLUMN OF LONGEST SELECTION 
  
 FMPX125  BSS    0
          SA1    SDMAXY 
          SA2    SDTOP
          SA3    PPTCL
          SB4    -2                CURRENT FIELD LIST ENTRY POSITION
          SB5    X1 
          SB5    B5+B5             TOTAL FIELD LIST ENTRIES IN PANEL
          SB6    X2                CURRENT PPT POSITION 
          SB7    X3-LE.PPT         LAST PPT POSITION
  
 FMPX150  BSS    0
          SB4    B4+2 
          GE     B4,B5,FMPX        END OF PAGE - RETURN 
  
          SB6    B6+LE.PPT
          LT     B7,B6,FMPX        NO MORE SELECTIONS - RETURN
  
*         X7 = COLUMN OF LAST CHARACTER OF LONGEST SELECTION
  
          SA1    PPT+W.PPFPC+B6 
          EX2    X1,PPFPC 
          IX0    X7-X2             X COORDINATE FOR THIS ENTRY
          SA3    PLIN+B4
          OX6    X3,X0,FDX
          SA6    A3 
          JP     FMPX150           NEXT LINE
  
  
  
  
  
 IPF      TITLE  INITIALIZE PANEL FIELDS
**        IPF  -  INITIALIZE PANEL FIELDS 
* 
*         PANEL FIELDS NEED INITIALIZATION BECAUSE THE NUMBER OF
*         ROWS VARIES WITH TERMINAL MODELS.  THEREFORE THE FIELD LIST 
*         NEEDS MODIFICATION UNLESS THE CHARACTERISTICS OF THE
*         TERMINAL ARE THE SAME AS THE DEFAULT CHARACTERISTICS IN THE 
*         PANEL.  IPF ALSO STORES THE PANEL LOAD TABLE ADDRESS AND
*         DETERMINES THE NUMBER OF PAGES FOR THIS PROCEDURE CALL.  ALSO 
*         IPF STORES THE PROPER PROMPT STRING AND THE PANEL TITLE.
* 
*         ENTRY 
* 
*         B1 = 1
  
*         SDINIT  - ZERO FOR INITIAL ENTRY
*         SDMAXY  - NUMBER OF PROMPT/SELECTION LINES FOR THIS TERMINAL
*         SDHLPY  - NUMBER OF HELP LINES FOR THIS TERMINAL
* 
*         EXIT    - NONE
* 
* 
 IPF      BSSZ   1                 ENTRY/EXIT 
          SB1    1
          SA1    SDINIT 
          ZR     X1,IPF000         INITIAL PROCESSING 
  
          SA3    IACIMP 
          SA2    CLOSTAT
          SX0    X2-1 
          NZ     X3,IPF            RETURN FOR MENUS 
          NZ     X0,IPF            PANELS REMAIN OPEN - RETURN
  
          RJ     CLOSE             CLOSE PANELS 
  
          JP     =XBIV150          INTERACTIVE PROCEDURES RETURN
  
  
 IPF000   BSS    0
          SX7    B1 
          SA7    SDINIT 
          SB1    1
  
*         PRESET PANEL
  
          SA1    PLTI              BEGINNING OF PLT INFORMATION 
          SB2    -7 
          BX6    X1 
          SA6    =XPLT
 IPF001   SB2    B2+B1
          SA1    A1+B1
          BX6    X1 
          SA6    A6+B1
          LT     B2,B0,IPF001      IF MOVE NOT FINISHED 
  
*         SET DISPLAY CODE DURING SCREEN MODE 
  
          SA1    SFCARG            A1 = ADDRESS OF ARGUMENT LIST
          RJ     =XSFCSET$         SET DISPLAY CODE 
  
*         OPEN BOTH PRIMARY PANELS
  
          MX7    0
          SA1    =10HPANL1
          SA7    ZERO 
          BX6    X1 
          SX7    5
          SA6    OPENAM            NAME OF PANEL
          SA7    NAMEL             LENGTH OF NAME 
          SA1    OPENARG           A1 = ARGUMENT LIST 
          RJ     =XSFOPEN$         OPEN PANL1 
          MX7    0
          SX6    5
          SA7    ZERO 
          SA6    NAMEL
  
*         OPEN PANL2 - SET PANEL OPEN BIT 
  
          MX7    0
          SA1    =10HPANL2
          SA7    ZERO 
          BX6    X1 
          SX7    5
          SA6    OPENAM            NAME OF PANEL
          SA7    NAMEL             LENGTH OF NAME 
          SA1    OPENARG           A1 = ARGUMENT LIST 
          RJ     =XSFOPEN$         OPEN PANL2 
          MX7    0
          SX6    5
          SA7    ZERO 
          SA6    NAMEL
          SB1    1
  
*         SET SCREEN SIZE BASED ON NUMBER OF PARAMETERS.
  
          SA2    IACIMP 
          SA1    PPTCL
          SX3    LE.PPT 
          ZR     X2,IPF002         IF NOT A MENU PROCEDURE
  
          IX1    X1-X3             REDUCE BY 1 FOR MENU PROCEDURES
 IPF002   BSS    0
          MX6    0
          NG     X1,IPF003         IF NO PPT ENTRIES
  
          IX6    X1/X3             COMPUTE NUMER OF ENTRIES 
 IPF003   BSS    0
          SX3    3
          IX1    X6+X3
          IX7    X1/X3             CALCULATE NUMBER OF HELP LINES 
          SX6    X6+7              ADD IN TITLE AND PROMPT LINES
          IX6    X6+X7
          SX7    80 
          SA6    SDMAXY            SET DESIRED SCREEN LENGTH
          SA7    SDMAXX            SET REQUIRED SCREEN WIDTH
          SA1    GTARG
          RJ     =XVDTSTD          SET TERMINAL DIMENSIONS
          SB1    1
          MX7    0
          SA7    SDMAXX 
          SA7    SDMAXY 
          SA1    GTARG             A1 = ARGUMENT LIST FOR VDTGTD CALL 
          RJ     =XVDTGTD          GET TERMINAL DIMENSIONS
          SB1    1
          SA1    TFFARG            A1 = ARGUMENT LIST FOR VDTTFF CALL 
          RJ     =XVDTTFF          TERMINAL FIND FUNCTION 
          SB1    1
  
  
          SA1    SDMAXX            SIZE OF SCREEN LINE
          SX0    X1-80             SMALLEST SUPPORTED LINE IS 80
          NG     X0,=XBSM100       LINE TOO SMALL - RETURN - LINE MODE
  
*         USE DEFAULT LINE SIZE OF 80 CHARACTERS
  
          SX6    80 
          SA6    SDMAXX 
          SA2    SDMAXY            TOTAL SCREEN LINES 
          SX6    X2-16             SMALLEST SCREEN 16 LINES 
          NG     X6,=XBSM100       SCREEN TOO SMALL - RETURN - LINE MODE
  
          MX7    0
          SA7    BGHMD             TURN OFF HELP MODE 
          BX6    X2 
          AX6    6
          ZR     X6,IPF010         IF NUMBER OF LINES LESS THAN 64
          SX2    64                SET MAXIMUM OF 64 LINES
 IPF010   BX7    X2 
          AX7    2                 HELP LINES = MAX/4-1 
          SX7    X7-1 
          SX6    X2-7              MAX LINES LESS TITLE+FCTN KEY
          IX6    X6-X7             PROMPT LINES = MAX-HELP-(TITLE+FKEY) 
          SA7    SDHLPY            NUMBER OF LINES HELP PANEL 
          SA6    SDMAXY            NUMBER OF PROMPT/SELECTION LINES 
  
*         SET 63/64 CHARACTER SET TRANSPARENT MODE CHARACTERS 
  
          SA1    CSMR              GET WORD CSMR FROM CMR 
          NG     X1,IPF020         SYSTEM IN 64 CHARACTER SET 
  
          SX6    63B               COLON IN 63 CHARACTER SET
          SA6    DISCOL 
          SX6    1R                PERCENT UNDEFINED - 63 CHARACTER SET 
          SA6    DISPER 
  
*         DETERMINE THE NUMBER OF PAGES OF PROMPT/SELECTION LINES.
*         IF ALL PROMPT/SELECTION LINES FOR A PROCEDURE WILL FIT
*         ON ONE PAGE, THE LINE DISPLAYING THE PAGE NUMBER WILL 
*         BE BLANK (DEFAULT). 
  
 IPF020   BSS    0
          SA4    SDMAXY 
          SA2    IACIMP 
          SA1    PPTCL             LENGTH OF PPT
          SX3    LE.PPT 
          ZR     X2,IPF025         INTERACTIVE PROCEDURE
  
          IX1    X1-X3             REDUCE MENU BY 1 ENTRY 
  
 IPF025   BSS    0
          NG     X1,IPF050         IF NO PAGE LINE REQUIRED 
  
          IX6    X1/X3             FIND NUMBER OF PPT ENTRIES 
          IX7    X4-X6
          PL     X7,IPF050         LEAVE PAGE LINE BLANK
  
*         ACTIVATE THE FIELD LIST ENTRY FOR THE PAGE NUMBER 
  
          SA2    PNUM              PAGE NUMBER FIELD LIST ENTRY 
          ERRNZ  N.FDACTV-1 
          SX0    1
          OX6    X2,X0,FDACTV 
          SA6    A2 
  
*         ACTIVATE FIELD LIST ENTRY FOR PAGE HEADER 
  
          SA3    PHDR 
          ERRNZ  N.FDACTV-1 
          SX5    1
          OX7    X3,X5,FDACTV 
          SA7    A3 
  
  
  
*         THE USER SUPPLIED TEXTS FOR DIRECTIVES SUCH AS .PAGE
*         .PROMPT AND .F1 THRU .F6 HAVE BEEN STORED IN THE PVT. 
  
  
 IPF050   BSS    0
  
          RJ     IPFGPT            GET USER SUPPLIED PANEL TEXTS
  
  
*         STORE PROMPT STRING IN PANEL.  USE DEFAULT PROMPT 
*         IF NO USER PROMPT IS SUPPLIED.  OTHERWISE, STORE
*         USER SUPPLIED PROMPT IN PANEL.
  
          SA4    SDPRLE 
          SA3    IACIMP 
          SA2    SCATX
          MX2    0
          NZ     X4,IPF090         PLACE USER SUPPLIED PROMPT IN PANEL
          ZR     X3,IPF140         USE DEFAULT INTERACTIVE PROMPT 
  
          SA3    SDF7EX 
          SA1    MPRMT
          SB2    70 
          ZR     X3,IPF100         IF F7 WAS NOT DEFINED
  
          SA3    =10HE^S^S <F7>    *<F7>* 
          BX7    X3                PUT <F7> FOR NEXT IN MENU PROMPT 
          SA7    MPRMT+6
          JP     IPF100            STORE DEFAULT MENU PROMPT
  
 IPF090   BSS    0
          SA3    SDPROF 
          SB2    X4 
          SA1    PVT+W.PVSTR+X3 
          SA5    IACIMP 
          NZ     X5,IPF100         STORE MENU PROMPT
  
  
*         STORE USER SUPPLIED INTERACTIVE PROMPT STRING.
  
          SB3    79 
          RJ     =XSTRTASC         PROMPT STRING TO SCATX 
          SA1    PRMT 
          RJ     =XSTRPK12         STRING TO PANEL CONSTANT DATA
          SA1    SDTACN            LENGTH OF STRING 
          JP     IPF110            UPDATE PROMPT FIELD LIST ENTRY 
  
  
  
*         STORE MENU PROMPT STRING.  THE MENU SELECTION VARIABLE
*         MUST FIT ON THE SAME LINE.  THE LENGTH OF THE LONGEST 
*         MENU SELECTION (SDLS) WAS STORED BY BCM.  THE LENGTH
*         OF THE PROMPT WILL BE 80-SDLS-2 (PUNCTUATION).
  
*         B2 = SIZE OF PROMPT (6 BIT CHARACTERS)
*         A1 = ADDRESS OF 1ST WORD
*         X1 = 1ST WORD 
*         A2 = ADDRESS OF SCATTER BUFFER HEADER 
*         X2 = SCATTER BUFFER HEADER
  
  
 IPF100   BSS    0
          SA3    SDLS 
          SB7    78 
          SB6    X3+1 
          SB3    B7-B6
          RJ     =XSTRTASC         PROMPT STRING TO SCATX 
          SA1    DISCOL            63/64 CHARACTER SET COLON
          SX4    1R 
          LX1    54 
          LX4    48 
          BX1    X4+X7
          SB2    2
          SB3    B0 
          RJ     =XSTRTASC         PUNCTUATION TO SCATX 
          SA1    PRMT 
          RJ     =XSTRPK12         STRING TO PANEL CONSTANT DATA
          SA3    SDTACN 
          SA4    SDLS 
          SX4    X4+1 
          IX1    X3+X4
  
  
*         PROMPTS ARE CENTERED ON THE LINE, SO DETERMINE STARTING COLUMN
  
 IPF110   BSS    0
          SX6    80 
          IX0    X6-X1
          SX4    2
          IX3    X0/X4
          SX2    PRMT-PANEL        CONSTANT OFFSET
          SA1    SDTACN            SIZE OF PROMPT 
  
*         UPDATE THE PROMPT FIELD LIST ENTRY
  
*         X1 = FDLEN SIZE OF PROMPT (12 BIT CHARACTERS) 
*         X2 = FDFCW CONSTANT DATA OFFSET 
*         X3 = FDX                 STARTING COLUMN
  
          SA4    PPRT 
          OX6    X4,X1,FDLEN
          OX0    X6,X2,FDFCW
          OX7    X0,X3,FDX
          SA7    A4 
  
*         UPDATE THE SELECTION FIELD LIST ENTRY.  DETERMINE 
*         THE STARTING COLUMN OF THE SELECTION. 
  
          EX0    X7,FDLEN 
          EX1    X7,FDX 
          SA3    SLCTN
          IX2    X0+X1
          OX6    X3,X2,FDX
          SA4    IACIMP 
          SA6    A3 
          MX5    0
          ZR     X4,IPF125         SELECTION ENTRY IS NON-ACTIVE
  
  
*         THE SIZE OF THE SELECTION IS THE LENGTH OF THE LONGEST
*         SELECTION ON THE MENU HEADER (SDLS).
  
          SA5    SDLS 
          BX1    X6 
          SX5    X5+1 
          OX6    X1,X5,FDLEN
          ERRNZ  N.FDACTV-1 
          SX5    1
  
 IPF125   BSS    0
          OX7    X6,X5,FDACTV 
          SA7    A3 
  
  
  
*         SINCE THE SIZE OF THE SCREEN MAY VARY FROM ONE
*         TERMINAL MODEL TO ANOTHER, THE LINE NUMBERS IN
*         THE FIELD LIST ENTRIES MUST BE ADJUSTED.  UPDATE
*         THE LINE NUMBERS WHERE NEEDED AND PLACE THE NUMBER
*         OF SCREEN LINES IN THE PANEL HEADER.
  
  
 IPF140   BSS    0
          SA1    SDMAXY            NUMBER OF PROMPT/SELECTION LINES 
          SA2    SDHLPY            NUMBER OF HELP LINES 
          IX3    X1+X2
          SX0    X3+6 
  
  
*         STORE SIZE OF SCREEN IN PANEL HEADER. 
  
 IPF145   BSS    0
          BX7    X0 
          SA4    PANEL+W.PHNPL
          OX6    X4,X7,PHNPL
          SA6    A4 
          SA1    SDF7EX 
          SB7    HLPFKL 
          ERRNZ  PFUNLL-HLPFKL     FUNCTION KEY LISTS MUST MATCH
          SB6    B0 
          ZR     X1,IPF150         IF F7 WAS NOT DEFINED
  
          SA4    FNXT 
          SA5    FN7
          SX3    B0 
          OX7    X4,X3,FLACT       DEACTIVATE NEXT KEY
          SA7    A4 
          SX3    B1 
          OX6    X5,X3,FLACT       SET F7 FOR NORMAL TERMINATION
          SA6    A5 
          SA4    PFK7              ACTIVATE F7 KEY FIELDS 
          SX3    B1 
          OX7    X4,X3,FDACTV 
          SA7    A4 
          SA4    A4+B1
          SX3    B1 
          OX7    X4,X3,FDACTV 
          SA7    A4 
          SA4    HFK7 
          SX3    B1 
          OX7    X4,X3,FDACTV 
          SA7    A4 
          SA4    A4+B1
          SX3    B1 
          OX7    X4,X3,FDACTV 
          SA7    A4 
          SA4    =40404074410640674076B  *<F7>* 
          BX7    X4                PUT <F7> INTO INTERACTIVE PROMPT 
          SA7    PPRF7
  
 IPF150   BSS    0                 LINE NUMBER TO FUNCTION FIELD LIST 
          SA4    PFUNL+B6 
          SA5    HLPFKC+B6
          BX2    X0 
          BX3    X0 
          OX7    X4,X3,FDY
          OX6    X5,X2,FDY
          ZR    X1,IPF200          IF .F7 NOT DEFINED 
  
          BX4    X7 
          BX5    X6 
          EX3    X4,FDX 
          SB5    -B6               ADJUST COLUMN NUMBERS
          SX3    X3+B5
          BX2    X3 
          OX7    X4,X3,FDX
          OX6    X5,X2,FDX
          LX1    30 
          NG     X1,IPF200         IF PROCESSING LABEL
  
          BX4    X7 
          BX5    X6 
          SX3    3                 SHORTEN FUNCTION KEY ID
          BX2    X3 
          OX7    X4,X3,FDLEN
          OX6    X5,X2,FDLEN
 IPF200   BSS    0
          SA6    A5 
          SA7    A4 
          EX0    X7,FDY 
          SB6    B6+B1
          LT     B6,B7,IPF150      IF NOT THROUGH FUNCTION KEY LIST 
  
  
*         DEACTIVATE THE F3 (HELP FWD) AND F4 (HELP BWD) KEYS.
  
          MX0    0
          SA1    FN3
          SA2    FN4
          OX6    X1,X0,FLACT       SET F3 INACTIVE
          OX7    X2,X0,FLACT       SET F4 INACTIVE
          SA6    A1 
          SA7    A2 
  
  
*         STORE TITLE IN PRIMARY PANEL. THE DEFAULT TITLE IS
*         THE PROCEDURE NAME. 
  
          SA2    SCATX
          MX2    0
          SA1    BGPNAM            DEFAULT TITLE (PROC NAME)
          SA3    BGPNML            DEFAULT TITLE LENGTH 
          SB2    X3 
          SA4    IACIMP 
          SX7    -LE.PPT
          ZR     X4,IPF400         INTERACTIVE PROCEDURE
  
          MX7    0
  
 IPF400   BSS    0                 CHECK FOR HEADER TITLE 
          SA3    PPT+W.PPMTP+X7 
          LX3    59-S.PPMTP 
          PL     X3,IPF450         NO HEADER TITLE B2=DEFAULT LENGTH
  
          SA3    PPT+W.PPVAL+X7 
          EX5    X3,PPVAL          PVT OFFSET OF TITLE
          SA4    PVT+W.PVSIZ+X5 
          EX0    X4,PVSIZ          LENGTH OF TITLE
          SA1    PVT+W.PVSTR+X5    1ST WORD OF TITLE
          SB2    X0 
  
 IPF450   BSS    0
          SB3    80 
          RJ     =XSTRTASC         TITLE TO SCATX 
  
*         TITLE MUST BE CENTERED ON SCREEN. 
  
          SB7    79 
          SX3    2
          SX1    B7-B3
          IX0    X1/X3
          SA1    PTTL              TITLE FIELD LIST ENTRY 
          SX5    B3 
          OX3    X1,X0,FDX
          OX7    X3,X5,FDLEN
          SA7    A1                STORE PACKED LENGTH
          SA1    TITLE
          RJ     =XSTRPK12         STORE TITLE IN PANEL 
          SA3    IACIMP 
          ZR     X3,IPF            RETURN - INTERACIVE PROC 
  
*         CHANGE LENGTH OF VAR DATA (NUMBER OF BYTES) IN PANEL HEADER 
  
          SA1    PANEL+W.PHLVD
          SX2    15 
          OX7    X1,X2,PHLVD
          SA7    A1 
          JP     IPF               RETURN 
  
  
  
 IPFGPT   TITLE  GET USER SUPPLIED PROMPT TEXTS 
**        IPFGPT  -  GET USER SUPPLIED PROMPT TEXTS 
* 
*         IPFGPT RETRIEVES THE TEXTS THAT BRH SAVED FROM .DIRECTIVES SUCH AS: 
*         PROMPT, ENTER, CORRECT, PAGE, F1-F6.  THESE TEXTS WILL BE STORED IN 
*         THE PANEL CONSTANT DATA EVENTUALLY. 
  
* 
*         ENTRY 
* 
*         B1 = 1
*         BGODT - OFFSET OF DIRECTIVE TEXT - OFFSET OF 1ST PVT ENTRY
*                 OF A .DIRECTIVE TEXT.  THE OTHERS FOLLOW. 
* 
*         EXIT
* 
*         TEXTS WILL BE STORED IN THE PANEL.
* 
* 
* 
 IPFGPT   BSSZ   1                 ENTRY/EXIT 
          SB1    1
          SA1    BGODT             PVT OFFSET 
          SA2    PVTCL             PVT LENGTH 
          BX7    X1 
          BX6    X2 
          SA7    IACNPV            NEXT OFFSET
          SA6    IACLPE            LAST ENTRY 
          SA7    IACPRE            PREVIOUS PVT OFFSET
  
 GPT100   BSS    0
          RJ     =XCCLNPV          GET NEXT PVT ENTRY 
          ZR     X2,IPFGPT         ALL ENTRIES PROCESSED - RETURN 
  
*         B2 CONTAINS CHARACTER COUNT FOR USER SUPPLIED PROMPT STRING.
  
          SX7    B2 
          SA1    IACPRE 
          BX6    X1 
          SA3    PVT+W.PVID+X1
          ERRNZ  59-S.PVID
          MX5    N.PVID 
          BX0    X3*X5
          SA4    =6LPROMPT
          BX5    X0-X4
          NZ     X5,GPT125         NOT .PROMPT
  
          SA6    SDPROF            PVT OFFSET OF PROMPT 
          SA7    SDPRLE            LENGTH 
          JP     GPT100            GET NEXT ENTRY 
  
 GPT125   BSS    0
          SA3    =0LCORECT
          BX5    X3-X0
          NZ     X5,GPT150         NOT .CORRECT 
          NZ     X7,GPT140         STORE NON-NULL TEXT
  
          MX7    1                 NULL TEXT, SDCMLE IS NEG 
  
 GPT140   BSS    0
          SA7    SDCMLE            LENGTH OF (CORRECT) MESSAGE
          SA6    SDCMOF            PVT OFFSET OF MESSAGE
          JP     GPT100            NEXT ENTRY 
  
 GPT150   BSS    0
          SA1    =5LENTER 
          BX5    X0-X1
          NZ     X5,GPT175         NOT .ENTER 
          NZ     X7,GPT160         STORE NON-NULL TEXT
  
          MX7    1                 NULL TEXT, SDEMLE IS NEGATIVE
  
 GPT160   BSS    0
          SA7    SDEMLE            LENGTH OF (ENTER) MESSAGE
          SA6    SDEMOF            SAVE PVT OFFSET OF MESSAGE 
          JP     GPT100            GET NEXT ENTRY 
  
 GPT175   BSS    0
          SA1    =5LNOCLR 
          BX5    X0-X1
          NZ     X5,GPT185         NOT .NOCLR 
  
          SA7    SDNCLE            LENGTH OF .NOCLR MESSAGE 
          SA6    SDNCOF            PVT OFFSET OF .NOCLR MESSAGE 
          JP     GPT100            GET NEXT ENTRY 
  
 GPT185   BSS    0
          SA3    =4LPAGE
          BX5    X0-X3
          NZ     X5,GPT200         NOT .PAGE
  
          SA3    PNUM 
          EX1    X3,FDACTV
          ZR     X1,GPT100         ONLY 1 PAGE - IGNORE .PAGE 
  
*         X6 = IACPRE 
*         B2 = NUMBER OF CHARACTERS IN STRING 
  
          SA1    PVT+W.PVSTR+X6 
          SA2    SCATX
          SB3    40 
          MX2    0
          RJ     =XSTRTASC         TEXT TO SCATX
  
*         STORE LENGTH OF PAGE LABEL AND BEGINNING COLUMN IN THE PAGE 
*         FIELD LIST ENTRY
  
          SA5    SDTACN 
          BX7    X5 
          SA3    PHDR 
          SB4    78 
          SX6    B4-B3
          OX1    X3,X6,FDX
          OX6    X1,X7,FDLEN
          SA6    A3 
          SA1    PAGE 
          RJ     =XSTRPK12         PAGE LABEL TO PANEL
          JP     GPT100            GET NEXT ENTRY 
  
*         X6 = IACPRE 
*         B2 = NUMBER OF CHARACTERS IN STRING 
  
 GPT200   BSS    0
          SA1    PVT+W.PVSTR+X6    1ST WORD OF TEXT 
          SA2    SCATX
          SB3    8
          MX2    0
          RJ     =XSTRTASC         TEXT TO SCATX
          SA3    IACPRE            PVT OFFSET OF THIS ENTRY 
          SA4    PVT+W.PVID+X3
          SX7    B3 
          MX6    N.PVID 
          ERRNZ  59-S.PVID
          BX0    X4*X6
          SA4    =2LF1
          SA1    CF1
          BX6    X0-X4
          ZR     X6,GPT300         STORE F1 LABEL 
  
          SA1    CF2
          SA4    =2LF2
          BX6    X4-X0
          ZR     X6,GPT300         STORE F2 LABEL 
  
          SA1    CF3
          SA4    =2LF3
          BX5    X0-X4
          ZR     X5,GPT300         STORE F3 LABEL 
  
          SA1    CF4
          SA4    =2LF4
          BX6    X0-X4
          ZR     X6,GPT300         STORE F4 LABEL 
  
          SA1    CF5
          SA4    =2LF5
          BX6    X0-X4
          ZR     X6,GPT300         STORE F5 LABEL 
  
          SA1    CF6
          SA4    =2LF6
          BX6    X4-X0
          ZR     X6,GPT300         IF .F6 STORE F6 LABEL
  
          SA4    =2LF7
          BX6    X0-X4
          NZ     X6,GPT100         IF NOT .F7 GET NEXT DIRECTIVE
  
          MX6    1                 MARK .F7 PROCESSED 
          SA6    SDF7EX 
          ZR     X7,GPT100         IF NULL STRING 
  
          SA1    CF7
  
  
*         STORE THE FUNCTION KEY LABELS.  CENTER THEM WITHIN THE
*         LABEL FIELDS.  THE LABEL FIELDS ARE 8 CHARACTERS LONG 
*         SO OVERSIZE LABELS WILL BE TRUNCATED.  SHORT LABELS 
*         WILL HAVE SPACES (INVERSE) ON EITHER SIDE.
  
*         X7 = LENGTH OF LABEL
*         A1 = ADDRESS OF CONSTANT DATA FOR FUNCTION KEY LABELS 
  
 GPT300   BSS    0
          SB7    X7 
          EQ     B7,B0,GPT350      STORE BLANK LABEL
  
          MX0    -12               MASK 
          SB4    B0                SHIFT COUNT
          EQ     B7,B1,GPT350      STORE 1 CHARACTER LABEL
  
          MX1    12 
          SB6    2
          SB5    B0 
          EQ     B7,B6,GPT350      STORE 2 CHARACTER LABEL
  
          MX0    -24
          SB4    12 
          SB6    3
          EQ     B7,B6,GPT350      STORE 3 CHARACTER LABEL
  
          MX1    24 
          SB6    4
          SB5    12 
          EQ     B7,B6,GPT350      STORE 4 CHARACTER LABEL
  
          MX0    -36
          SB4    24 
          SB6    5
          EQ     B7,B6,GPT350      STORE 5 CHARACTER LABEL
  
          MX1    36 
          SB6    6
          SB5    24 
          EQ     B7,B6,GPT350      STORE 6 CHARACTER LABEL
  
          MX0    -48
          SB4    36 
          SB6    7
          EQ     B7,B6,GPT350      STORE 7 CHARACTER LABEL
  
          MX1    48 
          SB5    36 
          SB7    8                 TRUNCATE TO 8 CHARACTER LABEL
  
  
*         A1 = ADDRESS OF CONSTANT DATA FOR FUNCTION KEY LABELS 
*         B7 = LENGTH OF LABEL
*         X0 = MASK FOR 1ST WORD OF LABEL 
*         X1 = MASK FOR 2ND WORD OF LABEL 
*         B4 = SHIFT COUNT FOR 1ST WORD 
*         B5 = SHIFT COUNT FOR 2ND WORD 
  
  
 GPT350   BSS    0
          SA3    SCATX+2           1ST CHARACTER
          SA2    BLKLBL            BLANK LABEL
          BX6    X2 
          LE     B7,B0,GPT450      STORE 1ST WORD 
  
          BX6    X0*X2
  
 GPT400   BSS    0
          SB7    B7-B1
          LX3    B4 
          BX6    X6+X3
          SB4    B4-12
          SA3    A3+B1
          GE     B4,B0,GPT400      NEXT CHARACTER 
  
 GPT450   BSS    0
          SA6    A1 
          SA2    A2+B1
          BX6    X2 
          SA6    A6+B1
          LE     B7,B0,GPT100      NEXT LABEL 
  
          BX6    -X1*X2 
          SB6    48 
  
 GPT500   BSS    0
          LX3    B6 
          SB6    B6-12
          BX6    X6+X3
          SB5    B5-12
          SA3    A3+B1
          GE     B5,B0,GPT500      NEXT CHARACTER 
  
          SA6    A6 
          JP     GPT100            NEXT LABEL 
  
 BLKLBL   BSS    0
          VFD    12/7 
          VFD    12/2080
          VFD    12/2080
          VFD    12/2080
          VFD    12/2080
  
          VFD    12/2080
          VFD    12/2080
          VFD    12/2080
          VFD    12/2080
          VFD    12/0 
  
 STRDATC  TITLE  DELETE APPENDED TERMINAL CHARACTERS
**        STRDATC  -  DELETE APPENDED TERMINAL CHARCTERS
* 
* 
*         VALUES IN THE VARIABLE OUT-STRING ARE PADDED WITH BLANKS
*         OR THE UNDERLINE CHARACTER (CDC 722, Z19, ADM3A, ADM5). 
*         REMOVE THESE TRAILING CHARACTERS. 
* 
*         ENTRY  -  A2 = SCATTER BUFFER HEADER ADDRESS
*                   X2 = SCATTER BUFFER HEADER
*                   B1 = 1
* 
*         EXIT   -  B2 = NUMBER OF CHARACTERS REMAINING IN BUFFER 
*                   B1 = 1
*                   X2 = UPDATED BUFFER HEADER
* 
*         SAVES     A1, X1 AND A2 
* 
* 
  
 STRDATC  BSSZ   1                 ENTRY/EXIT 
          RJ     =XSTRDTC          FIND END OF LINE 
          SA3    ATTORD            CHECK TERMINAL FOR UNDERLINE FILL
          NZ     X3,STRDATC        RETURN - NO TRAILING UNDERLINES
  
 DATC100  BSS    0                 DELETE TRAILING UNDERLINE CHARACTERS 
          SX5    65B               UNDERLINE CHARACTER
          BX7    X2 
          EX6    X7,SBTOT 
          SB7    X6                NUMBER OF CHARACTERS IN BUFFER 
          SB5    A2+B1             START OF SCATTER BUFFER
  
 DATC200  BSS    0
          SB7    B7-B1
          GT     B0,B7,DATC300     NO MORE CHARACTERS 
  
          SA4    B5+B7             FETCH LAST CHARACTER 
          BX7    X5-X4
          ZR     X7,DATC200        KEEP DELETING
  
 DATC300  BSS    0
          SX7    B7+B1
          SB2    B7+B1
          LX7    S.SBTOT-N.SBTOT+1
          BX2    X7 
          SA7    A2 
          RJ     =XSTRDTC          REMOVE SPACES TRAILING VALUE 
          EQ     STRDATC           RETURN 
  
 VALUES   TITLE  STORE INTERACTIVE VALUES 
**        VALUES  -  STORE INTERACTIVE VALUES 
* 
*         VALUES READS THE VALUES ENTERED BY THE USER DURING
*         SCREEN MODE DIALOGUES.  THE VALUES ARE READ FROM
*         THE VARIABLE IN-STRING (VINOUT) AND MATCHED WITH
*         THE CORRESPONDING PARAMETER.  THE VALUES ARE SCATTERED
*         INTO SCATBF1, THEN SYMBOLIC NAMES, LITERALS, AND NUMBERS
*         WITH POST RADIXES ARE INTERPRETED.  THE VALUES ARE THEN 
*         STORED IN THE CORESPONDING FPS ENTRY FOR THAT PARAMETER.
*         IF AN ERROR IS ENCOUNTERED DURING INTERPRETATION THE
*         WHOLE IN-STRING FOR THAT PARAMETER IS STORED IN THE FPS.
*         BVE WILL CATCH THESE ERRORS DURING VALIDATION AND SDO 
*         WILL BE REENTERED FOR PROMPTING.
* 
*         FOR MENUS THE SELECTION IS READ AND STORED (IN OPTION 
*         AND OPTIONL).  IF A HELP CALL WAS MADE BGERR IS SET.
*         IF A SELECTION DOES NOT MATCH THE LIST OR CONTAINS
*         SEPARATORS OTHER THAN A QUESTION MARK OPTION (AND OPTIONL)
*         WILL BE LEFT BLANK INDICATING THAT THE MENU IS TO BE
*         REWRITTEN.
* 
*         ENTRY 
* 
*         VINOUT = FIRST IN-STRING
*         SDTOP  = POSITION WITHIN PARAMETER LIST (1ST -LE.PPT) 
*         PPTCL  = LENGTH OF PPT
*         SDNPSL = NUMBER OF PARAMETERS LISTED ON LAST DISPLAYED PAGE 
* 
*         EXIT
* 
*         VALUES STORED 
* 
* 
 VALUES   BSSZ   1                 ENTRY/EXIT 
          SB1    1
          SA1    IACIMP 
          NZ     X1,VAL600         READ MENU RESPONSE 
  
*         IF ALL PARAMETERS HAVE *N ONLY IN THE CHECKLIST CHECK 
*         FOR A HELP CALL.  A PROCEDURE WITH *N ONLY AND A
*         PROCEDURE WITHOUT ANY PARAMETERS ARE HANDLED THE SAME.
  
          SA1    PPT+W.PPNO-LE.PPT
          LX1    59-S.PPNO
          NG     X1,VAL050         FIND PARAMETER VALUES
  
  
*         CHECK FOR HELP CALL - PROC WITH NO PARAMETERS 
  
          SA1    VINOUT 
          MX7    6
          BX2    X1*X7
          LX2    6
          SX0    X2-1R? 
          NZ     X0,VAL850         NO HELP CALL - CLEAR VARDATA 
  
          SX7    1R?
          SA7    BGERR             INDICATE HELP CALL 
          JP     VAL850            CLEAR VARDATA
  
 VAL050   BSS    0
          SA2    SDTOP
          BX6    X2 
          SX7    -1 
          SA6    PWPL              PARAMETER LIST POSITION
          SA7    LWCFL             LINE POSITION ON PAGE
          SX6    -V.CCVIO 
          SA6    VSTRNG            OFFSET OF IN-STRING
  
 VAL100   BSS    0
          SA1    PWPL 
          SX7    X1+LE.PPT
          SA2    PPTCL
          SX2    X2-LE.PPT
          IX0    X2-X7
          NG     X0,VALUES         VALUES ENTERED - RETURN
  
          SA7    PWPL 
          SA1    LWCFL
          SX7    X1+1 
          SA4    SDNPSL            NUMBER OF PROMPT LINES IN PANEL
          IX0    X7-X4
          PL     X0,VALUES         END OF PAGE - RETURN 
  
          SA7    LWCFL
          SA1    VSTRNG 
          SX6    X1+V.CCVIO        OFFSET OF IN-STRING
          SA6    A1 
          SA2    SCATBF1
          SB2    40 
          MX2    0
          SA1    VINOUT+X6
          RJ     =XSTRUPS          VALUE TO SCATBF1 
          RJ     STRDATC           DELETE APPENDED TERMINAL CHARACTERS
          MX7    -1                ASTERISK IS NOT A SEPARATOR
          SA7    ANSMDE            BLANKS AND $ ARE SEPARATORS
 VAL110   BSS    0
          RJ     =XSTRANS          READ VALUE 
          MX7    -0                ASTERISK IS NOT A SEPARATOR
          SA7    ANSMDE            SKIP BLANKS - EVALUATE LITERALS
          SA4    ANSSTR 
          SA3    ANSSEP            SEPARATOR
          SA5    ANSCHR            LENGTH OF STRING 
          PL     X3,VAL150         SEPARATOR FOUND
          NZ     X5,VAL225         STORE VALUE
  
*         FORCE NULL DEFAULT FOR THIS PARAMETER 
  
          ERRNZ  W.PPBSP-W.PPDC2
          ERRNZ  W.PPBSP-W.PPCPV
          ERRNZ  N.PPCPV-1
          ERRNZ  N.PPBSP-1
          SA1    PWPL 
          SA2    PPT+W.PPBSP+X1 
          MX0    0                 *N DEFAULT 
          OX3    X2,X0,PPCPV
          MX5    0
          OX4    X3,X5,PPDC2
          SX6    1
          OX7    X4,X6,PPBSP
          SA7    A2 
          JP     VAL100            READ NEXT VALUE
  
  
 VAL150   BSS    0
          NZ     X5,VAL175         CHECK SYMBOL VALUES
  
*         CHECK FOR HELP CALL 
  
          SX6    X3-1R? 
          NZ     X6,VAL500         STORE VALUE
  
*         CHECK FOR CHARACTERS FOLLOWING THE HELP CALL
  
          SA2    SCATBF1
          RJ     =XSTRANS 
          SA3    ANSSEP 
          SA5    ANSCHR 
          PL     X3,VAL500         SEPARATOR FOUND - STORE VALUE
          NZ     X5,VAL500         CHARACTERS FOLLOW - STORE VALUE
  
*         CHECK FOR PREVIOUS HELP CALL
  
          SA3    BGERR
          SX0    X3-2RP?
          ZR     X0,VAL100         PREVIOUS CALL - NEXT PARAMETER 
  
*         CLEAR QUESTION MARK FROM PANEL VARIABLE 
  
          SA1    SPACES 
          SA2    VALCLR 
          BX7    X1                PUT SPACES IN OUT-STRING 
          SA3    VSTRNG            OFFSET OF OUT STRING 
          SA7    VINOUT+X3
          IX0    X3+X3
          BX6    X2                CLEAR VARDATA
          SA6    VARDATA+X0 
  
          SA4    PWPL 
          SX7    2RP?              INDICATE HELP
          BX6    X4 
          SA7    BGERR
          SA6    BGPWPL 
  
*         POSITION CURSOR ON PARAMETER WITH HELP CALL 
  
          SA1    SDTOP
          SA3    SDNPSL 
          SB2    -2                FIELD LIST POSITION OF CURSOR
          SB3    X3                NUMBER OF PARAMETERS ON PAGE 
          SB4    -B1               NUMBER OF LINES SEARCHED ON PAGE 
          SB6    X1                PPT POSITION TOP OF PAGE 
          SB7    X4                PPT POSITION OF HELP CALL PARAMETER
          SB5    -LE.LVE           POSITION IN VARIABLE LIST
  
 VAL160   BSS    0
          SB6    B6+LE.PPT
          SB5    B5+LE.LVE
          SB2    B2+2 
          SB4    B4+B1
          GT     B4,B3,VAL100      LEAVE CURSOR AS IS 
          GT     B7,B6,VAL160      NEXT ENTRY 
  
          SA4    RESP01+W.VFLVN+B5 VARIABLE NAME
          SA2    SPACES 
          EX7    X4,VFLVN 
          OX6    X2,X7,VFLVN
          SA6    VARNAM 
          MX7    0
          SA7    OFFSET 
          JP     VAL100            NEXT PARAMETER VALUE 
  
  
 VAL175   BSS    0
          SX6    X3-1R             SPACE
          ZR     X6,VAL500         STORE VALUE
  
          SX0    X3-1R+ 
          SX7    X3-1R/ 
          ZR     X7,VAL200         CONVERT SYMBOL 
          NZ     X0,VAL500         NOT A SYMBOLIC NAME
  
 VAL200   BSS    0
          RJ     =XBSC             CONVERT SYMBOL 
          SA1    IACERR 
          ZR     X1,VAL225         NO ERRORS
  
          MX7    0
          SA7    IACERR            CLEAR ERROR
          SA3    BGERR
          NZ     X3,VAL500         PREVIOUS ERROR - STORE VALUE 
  
          SX6    =10H ERROR 
          SA1    PWPL 
          SA6    A3 
          BX7    X1 
          SA7    BGPWPL 
          JP     VAL500            STORE BAD VALUE FOR BVE
  
 VAL225   BSS    0
          SA3    ANSLIT 
          SA4    ANSSTR 
          SA5    ANSCHR 
  
*         STORE VALUE IN FPS
*         A4 = ADDRESS OF STRING
*         X4 = 1ST WORD OF STRING 
*         X5 = LENGTH OF STRING 
  
 VAL300   BSS    0
          SB7    X5 
          SA1    PWPL 
          SA3    PPT+W.PPDO2+X1 
          EX0    X3,PPDO2          FPS OFFSET 
          OX6    X3,X5,PPDC2
          SA6    A3                STORE LENGTH 
          BX7    X4 
          SA7    FPS+W.FPSCV+X0 
  
 VAL350   BSS    0
          SB7    B7-10
          LE     B7,B0,VAL400      MOVE FINISHED
  
          SA4    A4+B1
          BX7    X4 
          SA7    A7+B1
          JP     VAL350            NEXT WORD
  
 VAL400   BSS    0
          SA1    PWPL 
          SA2    PPT+W.PPBSP+X1 
          ERRNZ  N.PPBSP-1
          SX6    1                 CALL SPECIFICATION PROCESSED 
          OX7    X2,X6,PPBSP
          ERRNZ  W.PPBSP-W.PPCPV
          ERRNZ  W.PPCPV-1
          MX5    0                 CLEAR CALL VALUE INDICATOR 
          OX6    X7,X5,PPCPV
          SA6    A2 
          JP     VAL100            NEXT VALUE 
  
  
 VAL500   BSS    0
          SA2    SCATBF1           RESET TO EXTRACT ENTIRE STRING 
          MX7    -N.SBCUR 
          BX2    X7*X2
          SX7    -2                SET TO IGNORE ALL DELIMITERS 
          SA7    ANSMDE 
          JP     VAL110            REDO STRING EXTRACTION 
  
  
*         READ MENU RESPONSES 
  
 VAL600   BSS    0
          MX7    0
          SA7    OPTION 
          SA7    OPTIONL
          SA2    SCATBF1
          SA1    SLCTN             SELECTION FIELD LIST ENTRY 
          EX0    X1,FDLEN          SELECTION LENGTH 
          SB2    X0 
          MX2    0
          SA1    VINOUT 
          RJ     =XSTRUPS          VALUE TO SCATBF1 
          RJ     STRDATC           DELETE APPENDED TERMINAL CHARACTERS
          MX7    -0                ASTERISK IS NOT A SEPARATOR
          SA7    ANSMDE            SKIP BLANKS - INTERPRET LITERALS 
          RJ     =XSTRANS          READ STRING
          SA4    ANSSTR 
          SA3    ANSSEP 
          SA5    ANSCHR 
          PL     X3,VAL650         CHECK FOR HELP 
          ZR     X5,VALUES         NO SELECTION - RETURN
          JP     VAL700            STORE OPTION 
  
 VAL650   BSS    0
          SX0    X3-1R? 
          NZ     X0,VAL850         BAD SELECTION - CLEAR OUT-STRING 
          NZ     X5,VAL700         SELECTION NEEDS HELP 
  
          SX7    1R?
          SA7    BGERR
          JP     VAL850            CLEAR OUT-STRING - RETURN
  
 VAL700   BSS    0
          SA1    PPTCL
          SB7    X1-LE.PPT
          SB6    B0 
  
 VAL750   BSS    0
          SB6    B6+LE.PPT
          LT     B7,B6,VAL850      BAD SELECTION - CLEAR OUT-STRING 
  
          SA2    PPT+W.PPFPN+B6 
          BX0    X2-X4
          NZ     X0,VAL750         NEXT PPT ENTRY 
  
          SX7    B6 
          SA3    ANSSEP 
          SA7    BGPWPL 
          SX0    X3-1R? 
          NZ     X0,VAL800         STORE SELECTION
  
          SX6    2RP? 
          SA6    BGERR
          JP     VAL850            CLEAR OUT-STRING - RETURN
  
 VAL800   BSS    0
          BX7    X4 
          BX6    X5 
          SA7    OPTION            STORE SELECTION NAME 
          SA6    OPTIONL           STORE SELECTION LENGTH 
  
  
*         CLEAR VARIABLE OUT-STRING.
  
 VAL850   BSS    0
          SA1    SPACES 
          SA2    VALCLR            12-BIT SPACE CHARACTER 
          BX7    X1 
          SA7    VINOUT 
          SA7    A7+B1
  
*         CLEAR VARDATA 
  
          BX6    X2 
          SA6    VARDATA
          SA6    A6+B1
          SA6    A6+B1
          SA1    SLCTN
          SX6    1                 SET THE PANEL SELECTION REWRITE BIT
          OX7    X1,X6,FDREW
          SA7    A1 
          JP     VALUES            RETURN 
  
 VALCLR   BSS    0
          VFD    12/0040B 
          VFD    12/0040B 
          VFD    12/0040B 
          VFD    12/0040B 
          VFD    12/0040B 
  
 VSTRNG   BSSZ   1                 OFFSET OF IN-STRING
  
  
  
 SDOVL    ENDIF 
          END    SDO
