     A*******************************************************************
     A*                   SAMPLE DDS DISPLAY FILE                       *
     A*                                                                 *
     A*              Copyright (C) 2010-2023 Heirloom Computing Inc.    *
     A*                       ALL RIGHTS RESERVED                       *
     A*                                                                 *
     A*******************************************************************
     A*
     A*
     A* 
     A*******************************************************************
     A*                                                                 *
     A*              DDS COLUMN DESCRIPTION REFERENCE                   *
     A*                                                                 *
     A*******************************************************************
     A*   POSITION : DESCRIPTION
     A*      7     : ASTERISK = COMMENT
     A*     7-16   : CONDITIONING
     A*      17    : TYPE OF NAME OR SPECIFICATION
     A*                R - RECORD, H - HELP, OR BLANK FOR FIELD NAME
     A*      18    : RESERVED
     A*    19-28   : NAME
     A*      29    : REFERENCE FUNCTION ( R ), MUST BE FIELD LEVEL
     A*    30-34   : LENGTH (RIGHT JUSTIFY, CAN USE +/- FOR REF FIELD)    
     A*      35    : DATATYPE/KEYBOARD SHIFT
     A*
     A*               KEYBOARD 
     A*                SHIFT     MEANING 
     A*               --------   --------------------------------
     A*                BLANK  -  DEFAULT (POS 36-37 DETERMINE DATATYPE)
     A*                  X    -  ALPHABETIC ONLY [A-Z,.- ]    (CHAR)
     A*                  A    -  ALPHANUMERIC SHIFT           (CHAR)
     A*                  N    -  NUMERIC SHIFT                (BOTH)
     A*                  S    -  SIGNED NUMERIC               (NUMERIC)
     A*                  Y    -  NUMERIC ONLY [0-9+-., ]      (NUMERIC)
     A*                  W    -  KATAKANA (JAPAN ONLY)        (CHAR)
     A*                  I    -  INHIBIT KEYBOARD ENTRY       (BOTH)
     A*                  D    -  DIGITS ONLY [0-9]            (BOTH)
     A*                  M    -  NUMERIC ONLY CHAR [0-9+-., ] (CHAR) 
     A*
     A*               DATATYPE   MEANING
     A*               --------   ---------------------------------
     A*                  F       FLOATING POINT               (NUMERIC)
     A*                  L       DATE
     A*                  T       TIME
     A*                  Z       TIMESTAMP
     A*
     A*
     A*     36-37  : DECIMAL POSITIONS (# OF DIGITS RIGHT OF DECIMAL)
     A*                BLANK   - CHARACTER DATATYPE
     A*               <NUMBER> - ZONED DECIMAL DATATYPE (CAN USE 
     A*                          +/- FOR REF FIELD)
     A*
     A*      38    : USAGE
     A*               BLANK OR O - OUTPUT ONLY
     A*                        I - INPUT ONLY 
     A*                        B - BOTH OUTPUT AND INPUT
     A*                        H - HIDDEN (SPECIAL OUTPUT AND INPUT)
     A*                        M - MESSAGE (SPECIAL OUTPUT)
     A*                        P - PROGRAM-TO-SYSTEM (SPECIAL OUTPUT)
     A*
     A*     39-44  : LOCATION
     A*               LINE   = POSITIONS 39-41                
     A*               COLUMN = POSITIONS 42-44
     A* 
     A*     45-80  : KEYWORD ENTRIES
     A*
     A*******************************************************************
     A*******************************************************************
     A*
     A*
     A*
     A*
     A                                      ALTPAGEUP(CF05)
     A                                      ALTPAGEDWN(CF06)
     A                                      ALTHELP(CA07)
     A**************************************************
     A* MAIN MENU RECORD                               *
     A**************************************************
     A          R MAIN 
     A                                  2 36'OUTPUT TESTS'
     A                                  4 22'1.'
     A                                    +1'RECORD POSITIONING-
     A                                                           ' 
     A                                      DSPATR(UL)
     A                                  5 22'2.'
     A                                    +1'DISPLAY ATTRIBUTES-
     A                                                           ' 
     A                                      DSPATR(UL)
     A                                  6 22'3.'
     A                                    +1'OPTION INDICATORS - 
     A                                                           ' 
     A                                      DSPATR(UL)
     A                                  7 22'4.'
     A                                    +1'MESSAGES          -
     A                                                           ' 
     A                                      DSPATR(UL)
     A                                  9 36'INPUT TESTS'
     A                                 11 22'5.'
     A                                    +1'CURSOR POSITIONING-
     A                                       AND INPUT ATTRIBUTES' 
     A                                      DSPATR(UL)
     A                                 12 22'6.'
     A                                    +1'KEYBOARD CONTROL  -
     A                                                           ' 
     A                                      DSPATR(UL)
     A                                 13 22'7.'
     A                                    +1'CHECK, COMP, RANGE-
     A                                      , AND VALUES         ' 
     A                                      DSPATR(UL)
     A                                 14 22'8.'
     A                                    +1'EDTCDE AND EDTWRD -
     A                                                           '
     A                                      DSPATR(UL)
     A                                 15 22'9.'
     A                                    +1'RESPONSE INDICATORS-
     A                                                          ' 
     A                                      DSPATR(UL)
     A                                 16 22'A.'
     A                                    +1'MISC OVERLAY      -
     A                                                           ' 
     A                                      DSPATR(UL)
     A                                 17 22'B.'
     A                                    +1'DATE, TIME, AND TI-
     A                                      MESTAMP              ' 
     A                                      DSPATR(UL)
     A                                 18 22'C.'
     A                                    +1'ERRMSG AND ERRMSGID-
     A                                                          ' 
     A                                      DSPATR(UL)
     A                                 19 22'D.'
     A                                    +1'HELP KEYWORDS     -
     A                                                           ' 
     A                                      DSPATR(UL)
     A                                 20 22'E.'
     A                                    +1'SUBFILE KEYWORDS  -
     A                                                           ' 
     A                                      DSPATR(UL)
     A                                 23 28'CHOOSE A TEST (Q=QUIT):'
     A            SELECTION      1A  I    +1 
     A**************************************************
     A* CLEARREC  - DESIGNED TO CLEAR THE SCREEN ONLY  *
     A**************************************************
     A          R CLEARREC
     A                                  1  2' '
     A**************************************************
     A* PAUSEREC  - DESIGNED TO PROVIDE A PAUSE OR     *
     A*             WAIT FOR KEYPRESS WHEN USED WITH   *
     A*             OTHER RECORDS                      *
     A**************************************************
     A          R PAUSEREC
     A                                      OVERLAY
     A                                      SLNO(*VAR)
     A                                      CLRL(*NO)
     A                                  1  2'PRESS ENTER TO CONTINUE'
     A            SELECTION      1A  I    +1 
     A**************************************************
     A* POSREC1   - DESIGNED TO TEST PROGRAMMATIC      *
     A*             RECORD POSITIONING                 *
     A**************************************************
     A          R POSREC1
     A                                      OVERLAY
     A                                      SLNO(*VAR)
     A                                      CLRL(*NO)
     A                                  1  2'THIS 4 LINE RECORD- 
     A                                       REPEATS 5 TIMES,-  
     A                                        LINE=1' 
     A                                  2  2'THIS 4 LINE RECORD- 
     A                                       REPEATS 5 TIMES,-  
     A                                        LINE=2' 
     A                                  3  2'THIS 4 LINE RECORD- 
     A                                       REPEATS 5 TIMES,-  
     A                                        LINE=3' 
     A                                  4  2'THIS 4 LINE RECORD- 
     A                                       REPEATS 5 TIMES,-  
     A                                        LINE=4' 
     A**************************************************
     A* POSREC2   - DESIGNED TO TEST PROGRAMMATIC      *
     A*             RECORD POSITIONING                 *
     A**************************************************
     A          R POSREC2
     A                                      OVERLAY
     A                                 10  2'THIS 2 LINE RECORD-
     A                                       SHOULD BE IN THE-
     A                                       CENTER OF THE OTHER-
     A                                       RECORDS ON THE SCREEN'
     A                                 11  2'IT SHOULD WIPE OUT 2-
     A                                       LINES OF A PREVIOUS-
     A                                       RECORD'
     A**************************************************
     A* POSREC3   - DESIGNED TO TEST PROGRAMMATIC      *
     A*             RECORD POSITIONING                 *
     A**************************************************
     A          R POSREC3
     A                                      CLRL(*NO)
     A                                 10  2'  THIS 1 LINE RECORD-
     A                                       SHOULD OVERWRITE PART-
     A                                       OF THE RECORD AT LINE-
     A                                       10  '
     A**************************************************
     A* POSREC4   - DESIGNED TO TEST PROGRAMMATIC      *
     A*             RECORD POSITIONING                 *
     A**************************************************
     A          R POSREC4
     A                                      OVERLAY
     A                                      CLRL(*END)
     A                                      SLNO(*VAR) 
     A                                  1  2'THIS RECORD SHOULD-
     A                                       HAVE DELETED EVERY-
     A                                      THING UNDERNEATH IT -
     A                                      FROM THE SCREEN'
     A**************************************************
     A* POSREC5   - DESIGNED TO TEST PROGRAMMATIC      *
     A*             RECORD POSITIONING                 *
     A**************************************************
     A          R POSREC5
     A                                      OVERLAY
     A                                      CLRL(5)
     A                                      SLNO(*VAR) 
     A                                  1  2'THIS RECORD SHOULD-
     A                                       HAVE DELETED THE 4-
     A                                       LINES BELOW IT FROM-
     A                                       THE SCREEN'
     A**************************************************
     A* POSREC6   - DESIGNED TO TEST PROGRAMMATIC      *
     A*             RECORD POSITIONING                 *
     A**************************************************
     A          R POSREC6
     A                                      OVERLAY
     A                                      CLRL(*ALL)
     A                                      SLNO(*VAR) 
     A                                      ALARM
     A                                  1  2'THIS RECORD SHOULD-
     A                                       HAVE ERASED ALL THE-
     A                                       RECORDS AND SHOULD BEEP'
     A**************************************************
     A* POSREC7   - DESIGNED TO TEST PROGRAMMATIC      *
     A*             RECORD POSITIONING                 *
     A**************************************************
     A          R POSREC7
     A                                      SLNO(*VAR) 
     A                                  1  2'RECORD A (WILL BE-
     A                                       USED TO TEST ERASE-
     A                                       KEYWORD)'
     A**************************************************
     A* POSREC8   - DESIGNED TO TEST PROGRAMMATIC      *
     A*             RECORD POSITIONING                 *
     A**************************************************
     A          R POSREC8
     A                                      OVERLAY
     A                                      SLNO(*VAR) 
     A                                  1  2'RECORD B (WILL BE-
     A                                       USED TO TEST ERASE-
     A                                       KEYWORD)'
     A**************************************************
     A* POSREC9   - DESIGNED TO TEST PROGRAMMATIC      *
     A*             RECORD POSITIONING                 *
     A**************************************************
     A          R POSREC9
     A                                      OVERLAY
     A                                      SLNO(*VAR) 
     A                                      ERASE(POSREC7 POSREC8)
     A                                  1  2'RECORD A'
     A                                    +1'AND B' 
     A                                  1 17'SHOULD BE'
     A                                    +1'ERASED'
     A**************************************************
     A* DISPREC1   - DESIGNED TO TEST DISPLAY          *
     A*              ATTRBIBUTES                       *
     A**************************************************
     A          R DISPREC1
     A                                  1 30'SIMPLE DSPATR TEST 1'
     A                                      DSPATR(UL)
     A                                  4  2'BLINKING'
     A                                      DSPATR(BL)
     A                                  5  2'COLUMN SEPARATOR'
     A                                      DSPATR(CS)
     A                                  6  2'HIGH INTENSITY'
     A                                      DSPATR(HI)
     A                                  7  2'NONDISPLAY'
     A                                      DSPATR(ND)
     A                                    +1'(NONDISPLAY)'
     A                                  8  2'REVERSE IMAGE'
     A                                      DSPATR(RI)
     A                                  9  2'UNDERLINE'
     A                                      DSPATR(UL)
     A                                 12  2'BLINKING AND HIGH-
     A                                       INTENSITY'
     A                                      DSPATR(BL HI)
     A                                 13  2'BLINKING AND REVERSE'
     A                                      DSPATR(BL RI)
     A                                 14  2'BLINKING AND UNDERLINE'
     A                                      DSPATR(BL UL)
     A                                 15  2'REVERSE AND UNDERLINE'
     A                                      DSPATR(RI UL)
     A                                 16  2'REVERSE AND HIGH-
     A                                       INTENSITY'
     A                                      DSPATR(RI HI)
     A                                 17  2'UNDERLINE AND HIGH-
     A                                       INTENSITY'
     A                                      DSPATR(UL HI)
     A          R DISPREC2
     A                                  1 30'SIMPLE DSPATR TEST 2'
     A                                      DSPATR(UL)
     A                                  5 11'GREEN  '
     A                                      DSPATR(UL) COLOR(WHT)
     A                                    +1'WHITE  '
     A                                      DSPATR(UL) COLOR(WHT)
     A                                    +1'RED    '
     A                                      DSPATR(UL) COLOR(WHT)
     A                                    +1'TURQ   '
     A                                      DSPATR(UL) COLOR(WHT)
     A                                    +1'BLUE   '
     A                                      DSPATR(UL) COLOR(WHT)
     A                                    +1'PINK   '
     A                                      DSPATR(UL) COLOR(WHT)
     A                                    +1'YELLOW '
     A                                      DSPATR(UL) COLOR(WHT)
     A                                  6  2'NORMAL  '
     A                                    +1'TEXT   '
     A                                      COLOR(GRN)
     A                                    +1'TEXT   '
     A                                      COLOR(WHT)
     A                                    +1'TEXT   '
     A                                      COLOR(RED)
     A                                    +1'TEXT   '
     A                                      COLOR(TRQ)
     A                                    +1'TEXT   '
     A                                      COLOR(BLU)
     A                                    +1'TEXT   '
     A                                      COLOR(PNK)
     A                                    +1'TEXT   '
     A                                      COLOR(YLW)
     A                                  7  2'BL      '
     A                                      DSPATR(BL)
     A                                    +1'TEXT   '
     A                                      DSPATR(BL)
     A                                      COLOR(GRN)
     A                                    +1'TEXT   '
     A                                      DSPATR(BL)
     A                                      COLOR(WHT)
     A                                    +1'TEXT   '
     A                                      DSPATR(BL)
     A                                      COLOR(RED)
     A                                    +1'TEXT   '
     A                                      DSPATR(BL)
     A                                      COLOR(TRQ)
     A                                    +1'TEXT   '
     A                                      DSPATR(BL)
     A                                      COLOR(BLU)
     A                                    +1'TEXT   '
     A                                      DSPATR(BL)
     A                                      COLOR(PNK)
     A                                    +1'TEXT   '
     A                                      DSPATR(BL)
     A                                      COLOR(YLW)
     A                                  8  2'HI      '
     A                                      DSPATR(HI)
     A                                    +1'TEXT   '
     A                                      COLOR(GRN)
     A                                      DSPATR(HI)
     A                                    +1'TEXT   '
     A                                      COLOR(WHT)
     A                                      DSPATR(HI)
     A                                    +1'TEXT   '
     A                                      COLOR(RED)
     A                                      DSPATR(HI)
     A                                    +1'TEXT   '
     A                                      COLOR(TRQ)
     A                                      DSPATR(HI)
     A                                    +1'TEXT   '
     A                                      COLOR(BLU)
     A                                      DSPATR(HI)
     A                                    +1'TEXT   '
     A                                      COLOR(PNK)
     A                                      DSPATR(HI)
     A                                    +1'TEXT   '
     A                                      COLOR(YLW)
     A                                      DSPATR(HI)
     A                                  9  2'RI      '
     A                                      DSPATR(RI)
     A                                    +1'TEXT   '
     A                                      DSPATR(RI)
     A                                      COLOR(GRN)
     A                                    +1'TEXT   '
     A                                      DSPATR(RI)
     A                                      COLOR(WHT)
     A                                    +1'TEXT   '
     A                                      DSPATR(RI)
     A                                      COLOR(RED)
     A                                    +1'TEXT   '
     A                                      DSPATR(RI)
     A                                      COLOR(TRQ)
     A                                    +1'TEXT   '
     A                                      DSPATR(RI)
     A                                      COLOR(BLU)
     A                                    +1'TEXT   '
     A                                      DSPATR(RI)
     A                                      COLOR(PNK)
     A                                    +1'TEXT   '
     A                                      DSPATR(RI)
     A                                      COLOR(YLW)
     A                                 10  2'UL      '
     A                                      DSPATR(UL)
     A                                    +1'TEXT   '
     A                                      DSPATR(UL)
     A                                      COLOR(GRN)
     A                                    +1'TEXT   '
     A                                      DSPATR(UL)
     A                                      COLOR(WHT)
     A                                    +1'TEXT   '
     A                                      DSPATR(UL)
     A                                      COLOR(RED)
     A                                    +1'TEXT   '
     A                                      DSPATR(UL)
     A                                      COLOR(TRQ)
     A                                    +1'TEXT   '
     A                                      DSPATR(UL)
     A                                      COLOR(BLU)
     A                                    +1'TEXT   '
     A                                      DSPATR(UL)
     A                                      COLOR(PNK)
     A                                    +1'TEXT   '
     A                                      DSPATR(UL)
     A                                      COLOR(YLW)
     A                                 11  2'CS      '
     A                                      DSPATR(CS)
     A                                    +1'TEXT   '
     A                                      DSPATR(CS)
     A                                      COLOR(GRN)
     A                                    +1'TEXT   '
     A                                      DSPATR(CS)
     A                                      COLOR(WHT)
     A                                    +1'TEXT   '
     A                                      DSPATR(CS)
     A                                      COLOR(RED)
     A                                    +1'TEXT   '
     A                                      DSPATR(CS)
     A                                      COLOR(TRQ)
     A                                    +1'TEXT   '
     A                                      DSPATR(CS)
     A                                      COLOR(BLU)
     A                                    +1'TEXT   '
     A                                      DSPATR(CS)
     A                                      COLOR(PNK)
     A                                    +1'TEXT   '
     A                                      DSPATR(CS)
     A                                      COLOR(YLW)
     A                                 12  2'BL HI   '
     A                                      DSPATR(BL HI)
     A                                    +1'TEXT   '
     A                                      DSPATR(BL HI)
     A                                      COLOR(GRN)
     A                                    +1'TEXT   '
     A                                      DSPATR(BL HI)
     A                                      COLOR(WHT)
     A                                    +1'TEXT   '
     A                                      DSPATR(BL HI)
     A                                      COLOR(RED)
     A                                    +1'TEXT   '
     A                                      DSPATR(BL HI)
     A                                      COLOR(TRQ)
     A                                    +1'TEXT   '
     A                                      DSPATR(BL HI)
     A                                      COLOR(BLU)
     A                                    +1'TEXT   '
     A                                      DSPATR(BL HI)
     A                                      COLOR(PNK)
     A                                    +1'TEXT   '
     A                                      DSPATR(BL HI)
     A                                      COLOR(YLW)
     A                                 13  2'BL RI   '
     A                                      DSPATR(BL RI)
     A                                    +1'TEXT   '
     A                                      COLOR(GRN)
     A                                      DSPATR(BL RI)
     A                                    +1'TEXT   '
     A                                      COLOR(WHT)
     A                                      DSPATR(BL RI)
     A                                    +1'TEXT   '
     A                                      COLOR(RED)
     A                                      DSPATR(BL RI)
     A                                    +1'TEXT   '
     A                                      COLOR(TRQ)
     A                                      DSPATR(BL RI)
     A                                    +1'TEXT   '
     A                                      COLOR(BLU)
     A                                      DSPATR(BL RI)
     A                                    +1'TEXT   '
     A                                      COLOR(PNK)
     A                                      DSPATR(BL RI)
     A                                    +1'TEXT   '
     A                                      COLOR(YLW)
     A                                      DSPATR(BL RI)
     A                                 14  2'BL UL   '
     A                                      DSPATR(BL UL)
     A                                    +1'TEXT   '
     A                                      DSPATR(BL UL)
     A                                      COLOR(GRN)
     A                                    +1'TEXT   '
     A                                      DSPATR(BL UL)
     A                                      COLOR(WHT)
     A                                    +1'TEXT   '
     A                                      DSPATR(BL UL)
     A                                      COLOR(RED)
     A                                    +1'TEXT   '
     A                                      DSPATR(BL UL)
     A                                      COLOR(TRQ)
     A                                    +1'TEXT   '
     A                                      DSPATR(BL UL)
     A                                      COLOR(BLU)
     A                                    +1'TEXT   '
     A                                      DSPATR(BL UL)
     A                                      COLOR(PNK)
     A                                    +1'TEXT   '
     A                                      DSPATR(BL UL)
     A                                      COLOR(YLW)
     A                                 15  2'BL CS   '
     A                                      DSPATR(BL CS)
     A                                    +1'TEXT   '
     A                                      COLOR(GRN)
     A                                      DSPATR(BL CS)
     A                                    +1'TEXT   '
     A                                      COLOR(WHT)
     A                                      DSPATR(BL CS)
     A                                    +1'TEXT   '
     A                                      COLOR(RED)
     A                                      DSPATR(BL CS)
     A                                    +1'TEXT   '
     A                                      COLOR(TRQ)
     A                                      DSPATR(BL CS)
     A                                    +1'TEXT   '
     A                                      COLOR(BLU)
     A                                      DSPATR(BL CS)
     A                                    +1'TEXT   '
     A                                      COLOR(PNK)
     A                                      DSPATR(BL CS)
     A                                    +1'TEXT   '
     A                                      COLOR(YLW)
     A                                      DSPATR(BL CS)
     A                                 16  2'RI UL   '
     A                                      DSPATR(RI)
     A                                      DSPATR(UL)
     A                                    +1'TEXT   '
     A                                      DSPATR(RI)
     A                                      DSPATR(UL)
     A                                      COLOR(GRN)
     A                                    +1'TEXT   '
     A                                      DSPATR(RI)
     A                                      DSPATR(UL)
     A                                      COLOR(WHT)
     A                                    +1'TEXT   '
     A                                      DSPATR(RI)
     A                                      DSPATR(UL)
     A                                      COLOR(RED)
     A                                    +1'TEXT   '
     A                                      DSPATR(RI)
     A                                      DSPATR(UL)
     A                                      COLOR(TRQ)
     A                                    +1'TEXT   '
     A                                      DSPATR(RI)
     A                                      DSPATR(UL)
     A                                      COLOR(BLU)
     A                                    +1'TEXT   '
     A                                      DSPATR(RI)
     A                                      DSPATR(UL)
     A                                      COLOR(PNK)
     A                                    +1'TEXT   '
     A                                      DSPATR(RI)
     A                                      DSPATR(UL)
     A                                      COLOR(YLW)
     A                                 17  2'RI HI   '
     A                                      DSPATR(RI HI)
     A                                    +1'TEXT   '
     A                                      DSPATR(RI HI)
     A                                      COLOR(GRN)
     A                                    +1'TEXT   '
     A                                      DSPATR(RI HI)
     A                                      COLOR(WHT)
     A                                    +1'TEXT   '
     A                                      DSPATR(RI HI)
     A                                      COLOR(RED)
     A                                    +1'TEXT   '
     A                                      DSPATR(RI HI)
     A                                      COLOR(TRQ)
     A                                    +1'TEXT   '
     A                                      DSPATR(RI HI)
     A                                      COLOR(BLU)
     A                                    +1'TEXT   '
     A                                      DSPATR(RI HI)
     A                                      COLOR(PNK)
     A                                    +1'TEXT   '
     A                                      DSPATR(RI HI)
     A                                      COLOR(YLW)
     A                                 18  2'RI CS   '
     A                                      DSPATR(RI CS)
     A                                    +1'TEXT   '
     A                                      DSPATR(RI CS)
     A                                      COLOR(GRN)
     A                                    +1'TEXT   '
     A                                      DSPATR(RI CS)
     A                                      COLOR(WHT)
     A                                    +1'TEXT   '
     A                                      DSPATR(RI CS)
     A                                      COLOR(RED)
     A                                    +1'TEXT   '
     A                                      DSPATR(RI CS)
     A                                      COLOR(TRQ)
     A                                    +1'TEXT   '
     A                                      DSPATR(RI CS)
     A                                      COLOR(BLU)
     A                                    +1'TEXT   '
     A                                      DSPATR(RI CS)
     A                                      COLOR(PNK)
     A                                    +1'TEXT   '
     A                                      DSPATR(RI CS)
     A                                      COLOR(YLW)
     A                                 19  2'UL HI   '
     A                                      DSPATR(UL HI)
     A                                    +1'TEXT   '
     A                                      DSPATR(UL HI)
     A                                      COLOR(GRN)
     A                                    +1'TEXT   '
     A                                      DSPATR(UL HI)
     A                                      COLOR(WHT)
     A                                    +1'TEXT   '
     A                                      DSPATR(UL HI)
     A                                      COLOR(RED)
     A                                    +1'TEXT   '
     A                                      DSPATR(UL HI)
     A                                      COLOR(TRQ)
     A                                    +1'TEXT   '
     A                                      DSPATR(UL HI)
     A                                      COLOR(BLU)
     A                                    +1'TEXT   '
     A                                      DSPATR(UL HI)
     A                                      COLOR(PNK)
     A                                    +1'TEXT   '
     A                                      DSPATR(UL HI)
     A                                      COLOR(YLW)
     A                                 20  2'UL CS   '
     A                                      DSPATR(UL CS)
     A                                    +1'TEXT   '
     A                                      DSPATR(UL CS)
     A                                      COLOR(GRN)
     A                                    +1'TEXT   '
     A                                      DSPATR(UL CS)
     A                                      COLOR(WHT)
     A                                    +1'TEXT   '
     A                                      DSPATR(UL CS)
     A                                      COLOR(RED)
     A                                    +1'TEXT   '
     A                                      DSPATR(UL CS)
     A                                      COLOR(TRQ)
     A                                    +1'TEXT   '
     A                                      DSPATR(UL CS)
     A                                      COLOR(BLU)
     A                                    +1'TEXT   '
     A                                      DSPATR(UL CS)
     A                                      COLOR(PNK)
     A                                    +1'TEXT   '
     A                                      DSPATR(UL CS)
     A                                      COLOR(YLW)
     A                                 21  2'RI UL BL'
     A                                      DSPATR(RI UL BL)
     A                                    +1'TEXT   '
     A                                      DSPATR(RI UL BL)
     A                                      COLOR(GRN)
     A                                    +1'TEXT   '
     A                                      DSPATR(RI UL BL)
     A                                      COLOR(WHT)
     A                                    +1'TEXT   '
     A                                      DSPATR(RI UL BL)
     A                                      COLOR(RED)
     A                                    +1'TEXT   '
     A                                      DSPATR(RI UL BL)
     A                                      COLOR(TRQ)
     A                                    +1'TEXT   '
     A                                      DSPATR(RI UL BL)
     A                                      COLOR(BLU)
     A                                    +1'TEXT   '
     A                                      DSPATR(RI UL BL)
     A                                      COLOR(PNK)
     A                                    +1'TEXT   '
     A                                      DSPATR(RI UL BL)
     A                                      COLOR(YLW)
     A**************************************************
     A* DISPREC3   - DESIGNED TO TEST DISPLAY          *
     A*              ATTRBIBUTES                       *
     A**************************************************
     A          R DISPREC3
     A                                      OVERLAY
     A                                      SLNO(*VAR)
     A                                      CLRL(*NO)
     A                                  1 30'SIMPLE DSPATR TEST 3'
     A                                      DSPATR(&PFIELD1)
     A            PFIELD1        1A  P
     A**************************************************
     A* OPINREC1   - DESIGNED TO TEST OPTION           *
     A*              INDICATORS                        *
     A**************************************************
     A          R OPINREC1
     A  01N99                           5  2'OPTION 1 SELECTED' 
     A  99N01                           5  2'OPTION 99 SELECTED' 
     A  01 99                           5  2'OPTION 1 AND 99-
     A                                       SELECTED'
     A  01
     AO 99                              7  2'OPTION 1 OR 99-
     A                                       WAS SELECTED'
     A**************************************************
     A* OPINREC2   - DESIGNED TO TEST OPTION           *
     A*              INDICATORS                        *
     A**************************************************
     A          R OPINREC2
     A  01                              5  2'OPTION 1 SELECTED'
     A  02                              6  2'OPTION 2 SELECTED'
     A  03                              7  2'OPTION 3 SELECTED'
     A N01                              8  2'OPTION 1 NOT SELECTED'
     A N02                              9  2'OPTION 2 NOT SELECTED'
     A N03                             10  2'OPTION 3 NOT SELECTED'
     A  01
     A  02
     A  03                             11  2'OPTIONS 1-3 SELECTED'
     A  01N02 03                       11  2'OPTIONS 1 AND 3-
     A                                       BUT NOT 2 SELECTED'
     A N01 02 03                       11  2'OPTIONS 3 AND 2-
     A                                       BUT NOT 1 SELECTED'
     A  01 02
     A N03                             11  2'OPTIONS 1 AND 2-
     A                                       BUT NOT 3 SELECTED'
     A  01 02
     AO 03 02                          12  2'OPTIONS 1 AND 2-
     A                                       OR 3 AND 2 SELECTED'
     A  01 
     A  03
     AO 02
     A  03                             13  2'OPTIONS 1 AND 3-
     A                                       OR 2 AND 3 SELECTED'
     A  01
     A N02
     AO 03
     A N02                             14  2'OPTION 2 IS NOT-
     A                                       SELECTED, BUT 1 OR 3-
     A                                       IS' 
     A  01
     AO 02 03                          15  2'OPTION 1 IS SELECTED-
     A                                       OR BOTH 2 AND 3 ARE-
     A                                       SELECTED'
     A  01
     AO 02 03N01                       16  2'OPTION 1 IS SELECTED-
     A                                       OR BOTH 2 AND 3 ARE-
     A                                       SELECTED AND OPTION 1-
     A                                       IS NOT'
     A  72                              4  2'72'
     A  73                              4  6'73'
     A  60                              4 10'60'
     A  61                              4 14'61'
     A  62                              4 18'62'
     A  63                              4 22'63'
     A  72 73
     AO 60 61 62 
     A  63                             18  2'(72 A 73) V-
     A                                       (60 A 61 A 62- 
     A                                       A 63)'
     A**************************************************
     A* OPINREC3   - DESIGNED TO TEST OPTION           *
     A*              INDICATORS                        *
     A**************************************************
     A          R OPINREC3
     A                                  5  2'              '
     A                                      DSPATR(RI)
     A  01N02N03                            COLOR(BLU)
     A  02N01N03                            COLOR(RED)
     A  03
     A N01
     A N02                                  COLOR(WHT)
     A  01 02 03                            COLOR(YLW)
     A  01                              7  2'OPTION 1 SELECTED'
     A  02                              8  2'OPTION 2 SELECTED'
     A  03                              9  2'OPTION 3 SELECTED'
     A  01N02N03                       12  2'BLUE'    
     A                                      COLOR(BLU)
     A  02N01N03                       12  2'RED'
     A                                      COLOR(RED)
     A  03
     A N01
     A N02                             12  2'WHITE'   
     A                                      COLOR(WHT)
     A  01 02 03                       12  2'YELLOW'
     A                                      COLOR(YLW)
     A**************************************************
     A* MSGREC1    - DESIGNED TO TEST MESSAGE KEYWORDS *
     A**************************************************
     A          R MSGREC1
     A                                  6 27'TESTING MSGCON KEYWORD'
     A                                      DSPATR(UL)
     A                                  7 29'(LENGTH=20 CHARS)'
     A                                      DSPATR(UL)
     A                                 12  2MSGCON(20 KBD0007 +
     A                                      QSYS/QCPFMSG)
     A                                 14  2MSGCON(20 KBD0014 -
     A                                      QSYS/QCPFMSG)
     A                                 16  2MSGCON(20 KBD0021 +
     A                                      QSYS/QCPFMSG)
     A**************************************************
     A* MSGREC2    - DESIGNED TO TEST MESSAGE KEYWORDS *
     A**************************************************
     A          R MSGREC2
     A                                  6 27'TESTING MSGID KEYWORD'
     A                                      DSPATR(UL)
     A            MSGFIELD1     60A  B 12 10MSGID(KBD0007 QSYS/QCPFMSG)
     A  01        MSGFIELD2     60A  O 14 10
     A  25                                  MSGID(&MSGIDNUM &MSGFILENM)
     A                                      MSGID(KBD0014 QSYS/QCPFMSG)
     A            MSGFIELD3     60A  B 16 10
     A                                      MSGID(KBD &MSGNBR +
     A                                      QSYS/&MSGFILENM)
     A            MSGIDNUM       7A  P
     A            MSGFILENM     10A  H
     A            MSGNBR         4A  B 20 10
     A**************************************************
     A* CPREC1   - DESIGNED TO TEST CURSOR POSITIONING *
     A**************************************************
     A          R CPREC1
     A                                      CSRLOC(LINNBR POSNBR)
     A                                  6 27'TESTING CSRLOC KEYWORD'
     A                                      DSPATR(UL)
     A            FIELD1        40   B  8  2
     A            FIELD2         5   B  8 60
     A            FIELD3        20   B 10  2
     A            LINNBR         3  0H
     A            POSNBR         3  0H 
     A**************************************************
     A* CPREC2   - DESIGNED TO TEST CURSOR POSITIONING *
     A**************************************************
     A          R CPREC2
     A                                  6 27'TESTING DSPATR(PC)-
     A                                       KEYWORD' DSPATR(UL)
     A            FIELD1        40   B  8  2
     A  01N02N03                            DSPATR(PC)
     A            FIELD2         5   B  8 60
     A  02N01N03                            DSPATR(PC)
     A            FIELD3        20   B 10  2
     A  03N01N02                            DSPATR(PC)
     A**************************************************
     A* CPREC3   - DESIGNED TO TEST CURSOR POSITIONING *
     A**************************************************
     A          R CPREC3
     A                                  2 27'TESTING FLDCSRPRG-
     A                                       KEYWORD' DSPATR(UL)
     A                                 10 24'FIELD1 ( -> FIELD3 ):'
     A            FIELD1        10   B    +1FLDCSRPRG(FIELD3)
     A                                 11 24'FIELD2 ( -> FIELD4 ):'
     A            FIELD2        10   B    +1FLDCSRPRG(FIELD4)
     A                                 12 24'FIELD3 ( -> FIELD2 ):'
     A            FIELD3        10   B    +1FLDCSRPRG(FIELD2)
     A                                 13 24'FIELD4 ( -> FIELD1 ):'
     A            FIELD4        10   B    +1FLDCSRPRG(FIELD1)
     A**************************************************
     A* EFAREC1  - DESIGNED TO TEST ENTFLDATR KEYWORD  *
     A**************************************************
     A          R EFAREC1
     A                                  6 27'TESTING ENTFLDATR-
     A                                       KEYWORD' DSPATR(UL)
     A                                 10 16'ENTFLDATR((*COLOR BLU)-
     A                                       (*DSPATR RI UL)):'
     A            FIELD1        10   B    +1ENTFLDATR((*COLOR BLU)-
     A                                       (*DSPATR RI UL)) 
     A                                 11 16'ENTFLDATR((*DSPATR RI UL)-
     A                                       (*COLOR BLU)):'
     A            FIELD2        10   B    +1ENTFLDATR((*DSPATR RI UL)-
     A                                       (*COLOR BLU)) 
     A                                 12 16'   ENTFLDATR((*DSPATR CS)-
     A                                       (*COLOR RED)):'
     A            FIELD3        10   B    +1ENTFLDATR((*DSPATR CS)-
     A                                       (*COLOR RED)) 
     A                                 13 16'      ENTFLDATR((*DSPATR RI)-
     A                                       *NOCURSOR):'
     A            FIELD4        10I  B    +1ENTFLDATR((*DSPATR RI)-
     A                                       *NOCURSOR) 
     A                                 14 16'                ENTFLDATR(-
     A                                      (*COLOR YLW)):'
     A            FIELD5        10   B    +1ENTFLDATR((*COLOR YLW))
     A**************************************************
     A* INPREC1   - DESIGNED TO TEST INPUT ATTRIBUTES  *
     A**************************************************
     A          R INPREC1                   CHGINPDFT
     A                                  6 27'TESTING CHGINPDFT-
     A                                       KEYWORD' DSPATR(UL)
     A                                  7 13'(THE FIELD ON THE-
     A                                       SCREEN SHOULD NOT-
     A                                       BE UNDERLINED)'
     A                                      DSPATR(UL)
     A            FIELD1        10   B  9  2
     A            FIELD2        10     10  2
     A**************************************************
     A* INPREC2   - DESIGNED TO TEST INPUT ATTRIBUTES  *
     A**************************************************
     A          R INPREC2                   CHGINPDFT(CS)
     A                                  6 27'TESTING CHGINPDFT-
     A                                       KEYWORD' DSPATR(UL)
     A            FIELD1        10   I  8  2 
     A            FIELD2        10   B  9  2 
     A  01                                  DSPATR(&PFIELD1)
     A            FIELD3        10   B 10  2 
     A  01                                  DSPATR(CS)
     A            FIELD4        10     11  2
     A                                 16  2'1. FIELDS 1 AND 2-
     A                                       SHOULD HAVE COLUMN-
     A                                       SEPARATORS'
     A  01                             17  2'2. FIELD 3 SHOULD HAVE-
     A                                       COLUMN SEPARATORS'
     A N01                             17  2'2. FIELD 3 SHOULD NOT-
     A                                       HAVE COLUMN SEPARATORS'
     A                                 18  2'3. FIELD 4 (AN OUTPUT-
     A                                       ONLY FIELD) SHOULD NOT-
     A                                       HAVE COLUMN SEPARATORS'
     A            PFIELD1        1A  P
     A**************************************************
     A* INPREC3   - DESIGNED TO TEST INPUT ATTRIBUTES  *
     A**************************************************
     A          R INPREC3                   CHGINPDFT(CS)
     A                                  6 27'TESTING CHGINPDFT-
     A                                       KEYWORD' DSPATR(UL)
     A            FIELD1        10   I  9  2
     A            FIELD2        10   I 10  2
     A  01                                  DSPATR(HI)
     A N01                             16  2'BOTH FIELDS SHOULD-
     A                                       HAVE COLUMN SEPARATORS,-
     A                                       NEITHER SHOULD BE-
     A                                       HIGHLIGHTED'
     A  01                             16  2'BOTH FIELDS SHOULD-
     A                                       HAVE COLUMN SEPARATORS,-
     A                                       FIELD 2 SHOULD BE-
     A                                       HIGHLIGHTED'
     A**************************************************
     A* EDITREC1   - DESIGNED TO TEST EDIT KEYWORDS    *
     A*              (EDTCDE AND EDTWRD)               *
     A**************************************************
     A          R EDITREC1
     A                                  2 30'EDTCDE KEYWORD TEST'
     A                                      DSPATR(UL)
     A                                  5 17'EDTCDE(1):'
     A            FIELD1         7  2B    +1EDTCDE(1) 
     A                                  5 41'EDTCDE(2):'
     A            FIELD2         7  2B    +1EDTCDE(2) 
     A                                  6 17'EDTCDE(3):'
     A            FIELD3         7  2B    +1EDTCDE(3) 
     A                                  6 41'EDTCDE(4):'
     A            FIELD4         7  2B    +1EDTCDE(4) 
     A                                  8 17'EDTCDE(A):'
     A            FIELD5         7  2B    +1EDTCDE(A) 
     A                                  8 41'EDTCDE(B):'
     A            FIELD6         7  2B    +1EDTCDE(B) 
     A                                  9 17'EDTCDE(C):'
     A            FIELD7         7  2B    +1EDTCDE(C) 
     A                                  9 41'EDTCDE(D):'
     A            FIELD8         7  2B    +1EDTCDE(D) 
     A                                 11 17'EDTCDE(J):'
     A            FIELD9         7  2B    +1EDTCDE(J) 
     A                                 11 41'EDTCDE(K):'
     A            FIELD10        7  2B    +1EDTCDE(K) 
     A                                 12 17'EDTCDE(L):'
     A            FIELD11        7  2B    +1EDTCDE(L) 
     A                                 12 41'EDTCDE(M):'
     A            FIELD12        7  2B    +1EDTCDE(M) 
     A                                 14 17'EDTCDE(N):'
     A            FIELD13        7  2B    +1EDTCDE(N) 
     A                                 14 41'EDTCDE(O):'
     A            FIELD14        7  2B    +1EDTCDE(O) 
     A                                 15 17'EDTCDE(P):'
     A            FIELD15        7  2B    +1EDTCDE(P) 
     A                                 15 41'EDTCDE(Q):'
     A            FIELD16        7  2B    +1EDTCDE(Q) 
     A                                 17 17'EDTCDE(5):'
     A            FIELD17        7  2B    +1EDTCDE(5) 
     A                                 17 41'EDTCDE(6):'
     A            FIELD18        7  2B    +1EDTCDE(6) 
     A                                 18 17'EDTCDE(7):'
     A            FIELD19        7  2B    +1EDTCDE(7) 
     A                                 18 41'EDTCDE(8):'
     A            FIELD20        7  2B    +1EDTCDE(8) 
     A                                 22 27'TYPE Q HERE TO QUIT:'
     A            RFIELD         1   B    +1
     A**************************************************
     A* EDITREC2   - DESIGNED TO TEST EDIT KEYWORDS    *
     A*              (EDTCDE AND EDTWRD)               *
     A**************************************************
     A          R EDITREC2
     A                                  2 29'EDTCDE KEYWORD TEST 2'
     A                                      DSPATR(UL)
     A                                  5 15'EDTCDE(1 $):'
     A            FIELD1         7  2B    +1EDTCDE(1 $) 
     A                                  5 41'EDTCDE(2 $):'
     A            FIELD2         7  2B    +1EDTCDE(2 $) 
     A                                  6 15'EDTCDE(3 $):'
     A            FIELD3         7  2B    +1EDTCDE(3 $) 
     A                                  6 41'EDTCDE(4 $):'
     A            FIELD4         7  2B    +1EDTCDE(4 $) 
     A                                  8 15'EDTCDE(A $):'
     A            FIELD5         7  2B    +1EDTCDE(A $) 
     A                                  8 41'EDTCDE(B $):'
     A            FIELD6         7  2B    +1EDTCDE(B $) 
     A                                  9 15'EDTCDE(C $):'
     A            FIELD7         7  2B    +1EDTCDE(C $) 
     A                                  9 41'EDTCDE(D $):'
     A            FIELD8         7  2B    +1EDTCDE(D $) 
     A                                 11 15'EDTCDE(J $):'
     A            FIELD9         7  2B    +1EDTCDE(J $) 
     A                                 11 41'EDTCDE(K $):'
     A            FIELD10        7  2B    +1EDTCDE(K $) 
     A                                 12 15'EDTCDE(L $):'
     A            FIELD11        7  2B    +1EDTCDE(L $) 
     A                                 12 41'EDTCDE(M $):'
     A            FIELD12        7  2B    +1EDTCDE(M $) 
     A                                 14 15'EDTCDE(N $):'
     A            FIELD13        7  2B    +1EDTCDE(N $) 
     A                                 14 41'EDTCDE(O $):'
     A            FIELD14        7  2B    +1EDTCDE(O $) 
     A                                 15 15'EDTCDE(P $):'
     A            FIELD15        7  2B    +1EDTCDE(P $) 
     A                                 15 41'EDTCDE(Q $):'
     A            FIELD16        7  2B    +1EDTCDE(Q $) 
     A                                 22 27'TYPE Q HERE TO QUIT:'
     A            RFIELD         1   B    +1
     A**************************************************
     A* EDITREC3   - DESIGNED TO TEST EDIT KEYWORDS    *
     A*              (EDTCDE AND EDTWRD)               *
     A**************************************************
     A          R EDITREC3
     A                                  2 29'EDTCDE KEYWORD TEST 3'
     A                                      DSPATR(UL)
     A                                  5 15'EDTCDE(1 *):'
     A            FIELD1         7  2B    +1EDTCDE(1 *) 
     A                                  5 41'EDTCDE(2 *):'
     A            FIELD2         7  2B    +1EDTCDE(2 *) 
     A                                  6 15'EDTCDE(3 *):'
     A            FIELD3         7  2B    +1EDTCDE(3 *) 
     A                                  6 41'EDTCDE(4 *):'
     A            FIELD4         7  2B    +1EDTCDE(4 *) 
     A                                  8 15'EDTCDE(A *):'
     A            FIELD5         7  2B    +1EDTCDE(A *) 
     A                                  8 41'EDTCDE(B *):'
     A            FIELD6         7  2B    +1EDTCDE(B *) 
     A                                  9 15'EDTCDE(C *):'
     A            FIELD7         7  2B    +1EDTCDE(C *) 
     A                                  9 41'EDTCDE(D *):'
     A            FIELD8         7  2B    +1EDTCDE(D *) 
     A                                 11 15'EDTCDE(J *):'
     A            FIELD9         7  2B    +1EDTCDE(J *) 
     A                                 11 41'EDTCDE(K *):'
     A            FIELD10        7  2B    +1EDTCDE(K *) 
     A                                 12 15'EDTCDE(L *):'
     A            FIELD11        7  2B    +1EDTCDE(L *) 
     A                                 12 41'EDTCDE(M *):'
     A            FIELD12        7  2B    +1EDTCDE(M *) 
     A                                 14 15'EDTCDE(N *):'
     A            FIELD13        7  2B    +1EDTCDE(N *) 
     A                                 14 41'EDTCDE(O *):'
     A            FIELD14        7  2B    +1EDTCDE(O *) 
     A                                 15 15'EDTCDE(P *):'
     A            FIELD15        7  2B    +1EDTCDE(P *) 
     A                                 15 41'EDTCDE(Q *):'
     A            FIELD16        7  2B    +1EDTCDE(Q *) 
     A                                 22 27'TYPE Q HERE TO QUIT:'
     A            RFIELD         1   B    +1
     A**************************************************
     A* EDITREC4   - DESIGNED TO TEST EDIT KEYWORDS    *
     A*              (EDTCDE AND EDTWRD)               *
     A**************************************************
     A          R EDITREC4
     A                                  2 29'EDTCDE KEYWORD TEST 4'
     A                                      DSPATR(UL)
     A                                  5 17'EDTCDE(W):'
     A            FIELD1         7  2B    +1EDTCDE(W) 
     A                                  5 41'EDTCDE(X):'
     A            FIELD2         7  2B    +1EDTCDE(X) 
     A                                  6 17'EDTCDE(Y):'
     A            FIELD3         7  2B    +1EDTCDE(Y) 
     A                                  6 41'EDTCDE(Z):'
     A            FIELD4         7  2B    +1EDTCDE(Z) 
     A                                  8 17'EDTCDE(W):'
     A            FIELD5         5  0B    +1EDTCDE(W) 
     A                                  9 17'EDTCDE(W):'
     A            FIELD6         6  0B    +1EDTCDE(W) 
     A                                 10 17'EDTCDE(W):'
     A            FIELD7         7  0B    +1EDTCDE(W) 
     A                                 11 17'EDTCDE(W):'
     A            FIELD8         8  0B    +1EDTCDE(W) 
     A                                 13 17'EDTCDE(Y):'
     A            FIELD9         3  0B    +1EDTCDE(Y) 
     A                                 14 17'EDTCDE(Y):'
     A            FIELD10        4  0B    +1EDTCDE(Y) 
     A                                 15 17'EDTCDE(Y):'
     A            FIELD11        5  0B    +1EDTCDE(Y) 
     A                                 16 17'EDTCDE(Y):'
     A            FIELD12        6  0B    +1EDTCDE(Y) 
     A                                 17 17'EDTCDE(Y):'
     A            FIELD13        8  0B    +1EDTCDE(Y) 
     A                                 19 17'EDTCDE(9):'
     A            FIELD14        6  0B    +1EDTCDE(9) 
     A                                 22 27'TYPE Q HERE TO QUIT:'
     A            RFIELD         1   B    +1
     A**************************************************
     A* EDITREC5   - DESIGNED TO TEST EDIT KEYWORDS    *
     A*              (EDTCDE AND EDTWRD)               *
     A**************************************************
     A          R EDITREC5
     A                                  2 29'EDTWRD KEYWORD TEST 1'
     A                                      DSPATR(UL)
     A                                  5 12'      EDTWRD(-
     A                                      ''  ,   ,  0.  &CR*''):'
     A            FIELD1        10  2B    +1EDTWRD(-
     A                                      '  ,   ,  0.  &CR*')
     A                                  6 12'     EDTWRD(-
     A                                      ''  ,   , $0 .  CR**''):'
     A            FIELD2        10  2B    +1EDTWRD(-
     A                                      '  ,   , $0 .  CR**')
     A                                  7 12'     EDTWRD(-
     A                                      ''  ,   ,  $0.  CR**''):'
     A            FIELD3        10  2B    +1EDTWRD(-
     A                                      '  ,   ,  $0.  CR**')
     A                                  8 12'         EDTWRD(-
     A                                      ''$  ,   ,  0.  ''):'
     A            FIELD4        10  2B    +1EDTWRD(-
     A                                      '$  ,   ,  0.  ')
     A                                  9 12'EDTWRD(-
     A                                      ''$&  ,   , 0 .  &-&GROSS''):'
     A            FIELD5        10  2B    +1EDTWRD(-
     A                                      '$&  ,   , 0 .  &-&GROSS')
     A                                 10 12'        EDTWRD(-
     A                                      ''  ,   , * .  &-''):'
     A            FIELD6        10  2B    +1EDTWRD(-
     A                                      '  ,   , * .  &-')
     A                                 11 12'               -
     A                                               NO EDTWRD:'
     A            FIELD7        10  2B    +1
     A                                 12 12'             EDTWRD(-
     A                                      ''          ''):'
     A            FIELD8        10  2B    +1EDTWRD(-
     A                                      '          ')
     A                                 13 12'             EDTWRD(-
     A                                      ''         0''):'
     A            FIELD9        10  2B    +1EDTWRD(-
     A                                      '         0')
     A                                 14 12'             EDTWRD(-
     A                                      ''0         ''):'
     A            FIELD10       10  2B    +1EDTWRD(-
     A                                      '0         ')
     A                                 15 12'      EDTWRD(-
     A                                      ''$          &-&NET''):'
     A            FIELD11       10  2B    +1EDTWRD(-
     A                                      '$          &-&NET')
     A                                 16 12'       EDTWRD(-
     A                                      ''$0         -&NET''):'
     A            FIELD12       10  2B    +1EDTWRD(-
     A                                      '$0         -&NET')
     A                                 17 12'        EDTWRD(-
     A                                      ''       $0  &CR*''):'
     A            FIELD13       10  2B    +1EDTWRD(-
     A                                      '       $0  &CR*')
     A                                 18 12'          EDTWRD(-
     A                                      ''         *&CR''):'
     A            FIELD14       10  2B    +1EDTWRD(-
     A                                      '         *&CR')
     A                                 19 12'          EDTWRD(-
     A                                      ''       *  &CR''):'
     A            FIELD15       10  2B    +1EDTWRD(-
     A                                      '       *  &CR')
     A                                 22 27'TYPE Q HERE TO QUIT:'
     A            RFIELD         1   B    +1
     A**************************************************
     A* DVALREC1   - DESIGNED TO TEST DATA VALIDATION  *
     A*              FOR FIELDS                        *
     A**************************************************
     A          R DVALREC1
     A                                      CHECK(AB)
     A                                  5 27'CHECK KEYWORD TEST 1'
     A                                      DSPATR(UL)
     A                                  6 23'(HAS A RECORD LEVEL-
     A                                       CHECK(AB))'
     A                                 10  9'(CHECK(AB) is not propagated-
     A                                       to this field):'
     A            FIELD11       10   B    +1 
     A                                 11  3'CHECK(VN) (CHECK(AB) +
     A                                       is propagated to this +
     A                                       field):'
     A            FIELD21       10   B    +1CHECK(VN) 
     A                                 12  2'CHECK(VNE) (CHECK(AB) +
     A                                       is propagated to this +
     A                                       field):'
     A            FIELD31       10   B    +1CHECK(VNE) 
     A                                 22 22'TYPE Q HERE TO QUIT:'
     A            RFIELD         1   B    +1
     A**************************************************
     A* DVALREC2   - DESIGNED TO TEST DATA VALIDATION  *
     A*              FOR FIELDS                        *
     A**************************************************
     A          R DVALREC2
     A                                      MSGALARM
     A                                  5 27'CHECK KEYWORD TEST 2'
     A                                      DSPATR(UL)
     A                                 10 22'CHECK(VN) CHECK(AB):'
     A            FIELD12       10   B    +1CHECK(VN) CHECK(AB)
     A                                 11 22'       CHECK(VN AB):'
     A            FIELD22       10   B    +1CHECK(VN AB)
     A                                 12 12'CHECK(AB)-
     A                                       VALUES(-
     A                                      ''A'' ''B'' ''C''):'
     A            FIELD32        1   B    +1CHECK(AB) 
     A                                      VALUES('A' 'B' 'C')
     A                                 13 22'          CHECK(VN):'
     A            FIELD42       10   B    +1CHECK(VN)
     A                                 14 22'         CHECK(VNE):'
     A            FIELD52       10   B    +1CHECK(VNE)
     A                                 15 22'      CHECK(VNE AB):'
     A            FIELD62       10   B    +1CHECK(VNE AB)
     A                                 16 22'       CHECK(ME MF):'
     A            FIELD72       10   B    +1CHECK(ME MF)
     A                                 17 22'         CHECK(M10):'
     A            FIELD82        8  0B    +1CHECK(M10)
     A                                 18 22'         CHECK(M11):'
     A            FIELD92       10  0B    +1CHECK(M11)
     A                                 22 22'TYPE Q HERE TO QUIT:'
     A            RFIELD         1   B    +1
     A**************************************************
     A* DVALREC3   - DESIGNED TO TEST DATA VALIDATION  *
     A*              FOR FIELDS                        *
     A**************************************************
     A          R DVALREC3
     A                                  5 26'COMP AND RANGE-
     A                                       KEYWORD TEST'
     A                                      DSPATR(UL)
     A* Compare tests
     A                                  8 22'   COMP(EQ +021920):'
     A            FIELD11        6  0I    +1COMP(EQ +021920)
     A                                  9 22'     COMP(EQ ''ABC''):'
     A            FIELD21        3   I    +1COMP(EQ 'ABC')
     A* Range test, Character fields
     A                                 11 22'     RANGE(''B'' ''F''):'
     A            FIELD12        1   I    +1RANGE('B' 'F')
     A                                 12 22'     RANGE(''2'' ''5''):'
     A            FIELD22        1   I    +1RANGE('2' '5')
     A* Range test, Numeric fields
     A                                 13 22'         RANGE(2 5):'
     A            FIELD32        1  0I    +1RANGE(2 5)
     A                                 14 22'      RANGE(1 1500):'
     A            FIELD42        4  0B    +1RANGE(1 1500)
     A                                 15 22'RANGE(100 99999.99):'
     A            FIELD52        7  2B    +1RANGE(100 99999.99)
     A                                 16 22'    RANGE(-100 -50):'
     A            FIELD62        3  0B    +1RANGE(-100 -50)
     A                                 17 22'    RANGE(.50 1.00):'
     A            FIELD72        3  2I    +1RANGE(.50 1.00)
     A                                 18 22'        RANGE(.5 1):'
     A            FIELD82        3  2I    +1RANGE(.5 1)
     A                                 19 22'  RANGE(.01 999.99):'
     A            FIELD92        5Y 2I    +1RANGE(.01 999.99)
     A                                 22 22'TYPE Q HERE TO QUIT:'
     A            RFIELD         1   B    +1
     A**************************************************
     A* DVALREC4   - DESIGNED TO TEST DATA VALIDATION  *
     A*              FOR FIELDS                        *
     A**************************************************
     A          R DVALREC4
     A                                  5 30'VALUES KEYWORD TEST'
     A                                      DSPATR(UL)
     A                                  8 20'VALUES(''A'' ''B''-
     A                                       ''C'' ''D''):'
     A            RESPC          1   I    +1VALUES('A' 'B' 'C' 'D')
     A                                  9 20'      VALUES(33 -42 01):'
     A            RESPN          3  0I    +1VALUES(33 -42 01)
     A                                 10 20'        VALUES(1.2 100):'
     A            DECFLD         5  2I    +1VALUES(1.2 100)
     A                                 22 20'    TYPE Q HERE TO QUIT:'
     A            RFIELD         1   B    +1
     A**************************************************
     A* DVALREC5   - DESIGNED TO TEST DATA VALIDATION  *
     A*              FOR FIELDS                        *
     A**************************************************
     A          R DVALREC5
     A                                  5 30'VALNUM KEYWORD TEST'
     A                                      DSPATR(UL)
     A                                 11 24'      NORMAL NUMERIC:'
     A            FIELD1        10Y 2B    +1
     A                                 13 24'ENTER NUMBER TO TEST:'
     A            FIELD2        10Y 2B    +1VALNUM
     A                                 22 20'    TYPE Q HERE TO QUIT:'
     A            RFIELD         1   B    +1
     A**************************************************
     A* KBDCREC1   - DESIGNED TO TEST KEYBOARD CONTROL *
     A*              KEYWORDS                          *
     A**************************************************
     A          R KBDCREC1
     A                                  6 28'TESTING KEYBOARD- 
     A                                       CONTROL' DSPATR(UL)
     A* Numeric only
     A                                  9  2'Numeric only, without-
     A                                       right adjust:'
     A            FIELD1         7Y 0B    +1TEXT('No right-adjust')
     A                                 10  2'Numeric only, with-
     A                                       right adjust:   '
     A            FIELD2         7Y 0B    +1CHECK(RZ)
     A* Signed numeric
     A                                 11  2'Signed numeric, (RB is-
     A                                       default):   '
     A            FIELD3         7S 0B    +1TEXT('CHECK(RB) is-
     A                                       the default') 
     A                                 12  2'Signed numeric, (Using-
     A                                       RZ):        '
     A            FIELD4         7S 0B    +1CHECK(RZ)
     A* Character
     A                                 13  2'Character without right-
     A                                       adjust:    '
     A            FIELD5         7   B    +1TEXT('No right-adjust')
     A                                 14  2'Character with right-
     A                                       adjust:       '
     A            FIELD6         7   B    +1CHECK(RB)
     A                                 22 22'TYPE Q HERE TO QUIT:'
     A            RFIELD         1   B    +1
     A**************************************************
     A* REINREC1   - DESIGNED TO TEST MISCELLANEOUS    *
     A*              RESPONSE INDICATOR KEYWORDS       *
     A**************************************************
     A          R REINREC1
     A                                  3 23'TESTING FIELD LEVEL-
     A                                       CHANGE KEYWORD' 
     A                                       DSPATR(UL)
     A            FIELD1        10   B  8  5DFTVAL('ABC')
     A            FIELD2        20   B  9  5
     A                                 11  5'THIS FIELD SHOULD ALLOW-
     A                                       LOWERCASE CHARACTERS-
     A                                       TO BE TYPED INTO IT:'
     A            FIELD3        60   B 12  5CHECK(LC)
     A                                 18  5'TYPING HERE WILL-
     A                                       COMPLETE THE TEST:'
     A            FIELD4        10   I    +1DFT('123')
     A                                      CHANGE(04)
     A                                 20  5'OTHERWISE, THE TEST-
     A                                       SHOULD REPEAT'
     A**************************************************
     A* REINREC2   - DESIGNED TO TEST MISCELLANEOUS    *
     A*              RESPONSE INDICATOR KEYWORDS       *
     A**************************************************
     A          R REINREC2
     A                                      CHANGE(01)
     A                                  3 23'TESTING RECORD LEVEL-
     A                                       CHANGE KEYWORD' 
     A                                       DSPATR(UL)
     A N01                              6  2'FIELD 1:'
     A N01        FIELD1        20   I    +1DFT('ABC')
     A N01                              8  2'FIELD 2:'
     A N01        FIELD2        20   I    +1DFT('123')
     A  01                              6  2'CONTENTS OF FIELD 1:'
     A  01        FIELD3        20   O    +1
     A  01                              8  2'CONTENTS OF FIELD 2:'
     A  01        FIELD4        20   O    +1
     A N01                             20  2'IF A FIELD IS CHANGED,-
     A                                       EACH FIELD''S CONTENTS-
     A                                       ARE SHOWN.'
     A N01                             21  2'OTHERWISE, THE TEST-
     A                                       ENDS.'
     A**************************************************
     A* REINREC3   - DESIGNED TO TEST MISCELLANEOUS    *
     A*              RESPONSE INDICATOR KEYWORDS       *
     A**************************************************
     A          R REINREC3
     A                                      CHANGE(01)
     A                                  3 23'TESTING CHANGE KEYWORD-
     A                                       WITH DSPATR(MDT)'
     A                                       DSPATR(UL)
     A                                 12  2'DON''T TYPE, JUST-
     A                                       PRESS ENTER:'
     A            FIELD1        10   B    +1DSPATR(MDT)
     A                                 20  2'THIS SCREEN WILL-
     A                                       REAPPEAR IF THE-
     A                                       TEST DOES NOT PASS'
     A**************************************************
     A* REINREC4   - DESIGNED TO TEST MISCELLANEOUS    *
     A*              RESPONSE INDICATOR KEYWORDS       *
     A**************************************************
     A          R REINREC4
     A                                      CA01(01)
     A                                      CA02(02)
     A                                      CA03(03)
     A                                      CA04(04)
     A                                      CF13(01)
     A                                      CF14(02)
     A                                      CF15(03)
     A                                      CF16(04)
     A                                      VLDCMDKEY(05)
     A                                      HOME(01) 
     A                                      PAGEUP(02)
     A                                      ROLLUP(03)
     A                                      HELP(04)
     A                                  3 23'TESTING FUNCTION KEY-
     A                                       INDICATOR STATUS'
     A                                       DSPATR(UL)
     A                                  5  2'PRESS F1-F4 or F13-F16-
     A                                       (F1-F4 are CA, F13-F16-
     A                                       are CF)'
     A                                  6  2'Both F1-F4 and F13-F16-
     A                                       set indicators-
     A                                       1-4 respectively.'
     A                                  7  2'Indicator 5 indicates-
     A                                       that a VLDCMDKEY was-
     A                                       pressed.'
     A                                  8  2'Press enter to exit-
     A                                       the test.'
     A  01                             10 20'Option indicator 1 is set'
     A  02                             11 20'Option indicator 2 is set'
     A  03                             12 20'Option indicator 3 is set'
     A  04                             13 20'Option indicator 4 is set'
     A  05                             14 20'Option indicator 5 is set'
     A            FIELD1        60   O 16  2 
     A            FIELD2        60   O 17  2 
     A            FIELD3        60   O 18  2 
     A            INFIELD       60   I 20  2DFT('TYPE HERE')
     A**************************************************
     A* MSCORECn   - DESIGNED TO TEST MISC OVERLAY     *
     A*              RELATED KEYWORDS                  *
     A**************************************************
     A          R MSCOREC1                  LOCK 
     A                                      FRCDTA
     A                                 12 21'Please wait; +
     A                                      operations in progress'
     A          R MSCOREC2                  OVERLAY
     A                                  1 34'Sample Title'
     A            FIELD1         8  0   3  2
     A            FIELD2        20      4  2
     A          R MSCOREC3                  OVERLAY
     A            FIELD1         8     11  2
     A            FIELD2        18     12  2
     A          R MSCOREC4                  OVERLAY
     A            FIELD1         8   B 15  2
     A            FIELD2         8   B 16  2
     A**************************************************
     A* MSCORECn   - DESIGNED TO TEST MISC OVERLAY     *
     A*              RELATED KEYWORDS                  *
     A**************************************************
     A          R MSCOREC5                  INZRCD
     A                                  5 35'TESTING INZRCD'
     A                                      DSPATR(UL)
     A            FIELD1        20   O 12  2DFTVAL('OUTPUT-ONLY FIELD')
     A            FIELD2        20   I 14  2DFT('INPUT-ONLY FIELD')
     A            FIELD3        20A  B 16  2DFTVAL('I-O FIELD')
     A                                 18  2'MSGID: '
     A            MSGFIELD1     60A  B 18 10MSGID(KBD0007 QSYS/QCPFMSG)
     A                                 20  2'MSGCON:'
     A                                 20 10MSGCON(60 KBD0021 +
     A                                      QSYS/QCPFMSG)
     A**************************************************
     A* DATEREC1   - DESIGNED TO TEST DATE, TIME, AND  *
     A*              TIMESTAMP FIELDS                  *
     A**************************************************
     A          R DATEREC1
     A                                  2 21'DATE, TIME, AND TIMESTAMP-
     A                                       KEYWORD TEST'
     A                                      DSPATR(UL)
     A                                  5 21'TIMESTAMP:'
     A            FIELD1          Z  B    +1 
     A                                  7  4'              TIME FIELD:'
     A            FIELD2          T  B    +1 
     A                                  8  4'TIME FIELD, TIMFMT(*HMS):'
     A            FIELD3          T  B    +1TIMFMT(*HMS)
     A                                  9  4'TIME FIELD, TIMFMT(*ISO):'
     A            FIELD4          T  B    +1TIMFMT(*ISO)
     A                                 10  4'TIME FIELD, TIMFMT(*USA):'
     A            FIELD5          T  B    +1TIMFMT(*USA)
     A                                 11  4'TIME FIELD, TIMFMT(*EUR):'
     A            FIELD6          T  B    +1TIMFMT(*EUR)
     A                                 12  4'TIME FIELD, TIMFMT(*JIS):'
     A            FIELD7          T  B    +1TIMFMT(*JIS)
     A                                 17  4'TIME FIELD, TIMFMT(*HMS)-
     A                                       TIMSEP('',''):'
     A            FIELD8          T  B    +1TIMFMT(*HMS) TIMSEP(',')
     A                                  7 40'              DATE FIELD:'
     A            FIELD9          L  B    +1 
     A                                  8 40'DATE FIELD, DATFMT(*MDY):'
     A            FIELD10         L  B    +1DATFMT(*MDY)
     A                                  9 40'DATE FIELD, DATFMT(*DMY):'
     A            FIELD11         L  B    +1DATFMT(*DMY)
     A                                 10 40'DATE FIELD, DATFMT(*YMD):'
     A            FIELD12         L  B    +1DATFMT(*YMD)
     A                                 11 40'DATE FIELD, DATFMT(*JUL):'
     A            FIELD13         L  B    +1DATFMT(*JUL)
     A                                 12 40'DATE FIELD, DATFMT(*ISO):'
     A            FIELD14         L  B    +1DATFMT(*ISO)
     A                                 13 40'DATE FIELD, DATFMT(*USA):'
     A            FIELD15         L  B    +1DATFMT(*USA)
     A                                 14 40'DATE FIELD, DATFMT(*EUR):'
     A            FIELD16         L  B    +1DATFMT(*EUR)
     A                                 15 40'DATE FIELD, DATFMT(*JIS):'
     A            FIELD17         L  B    +1DATFMT(*JIS)
     A                                 18  4'DATE FIELD, DATFMT(*DMY)-
     A                                       DATSEP('',''):'
     A            FIELD18         L  B    +1DATFMT(*DMY) DATSEP(',')
     A                                 22 27'TYPE Q HERE TO QUIT:'
     A            RFIELD         1   B    +1
     A**************************************************
     A* DATEREC2   - DESIGNED TO TEST MAPVAL KEYWORD   *
     A*                                                *
     A**************************************************
     A          R DATEREC2
     A                                  2 29'MAPVAL KEYWORD TEST 1'
     A                                      DSPATR(UL)
     A                                  5  2'DATFMT(*MDY) DATSEP(''/'') -
     A                                      MAPVAL(-
     A                                      (''01/01/40'' *BLANK)-
     A                                      ):'
     A            FIELD1          L  B  6  2DATFMT(*MDY) DATSEP('/')
     A                                      MAPVAL(-
     A                                      ('01/01/40' *BLANK)-
     A                                      )
     A                                  8  2'DATFMT(*USA) -
     A                                      MAPVAL(-
     A                                      (*BLANK ''01/01/0001'') -
     A                                      (''01/01/1940'' ''01/01/2040'')-
     A                                      ):'
     A            FIELD2          L  B  9  2DATFMT(*USA)
     A                                      MAPVAL(-
     A                                      (*BLANK '01/01/0001') -
     A                                      ('01/01/1940' '01/01/2040')-
     A                                      )
     A                                 11  2'TIMFMT(*HMS) TIMSEP('','') -
     A                                      MAPVAL(-
     A                                      (''00,00,00'' *BLANK)-
     A                                      ):'
     A            FIELD3          T  B 12  2TIMFMT(*HMS) TIMSEP(',')
     A                                      MAPVAL(-
     A                                      ('00,00,00' *BLANK)-
     A                                      )
     A                                 14  2'TIMFMT(*ISO) -
     A                                      MAPVAL(-
     A                                      (''00.00.00'' *BLANK) -
     A                                      (''01.01.01'' ''12.13.14'')-
     A                                      ):'
     A            FIELD4          T  B 15  2TIMFMT(*ISO)
     A                                      MAPVAL(-
     A                                      ('00.00.00' *BLANK) -
     A                                      ('01.01.01' '12.13.14')-
     A                                      )
     A                                 17  2'TIMESTAMP -
     A                                      MAPVAL(-
     A                                      (''1972-01-01-01.00.00.000000-
     A                                      '' *BLANK) -
     A                                      (''1999-01-01-01.12.34.567890-
     A                                      '' ''-
     A                                      2000-02-02-02.11.22.654321'')-
     A                                      ):'
     A            FIELD5          Z  B 19  2MAPVAL(-
     A                                      ('1972-01-01-01.00.00.000000'-
     A                                       *BLANK) -
     A                                      ('1999-01-01-01.12.34.567890'-
     A                                       '2000-02-02-02.11.22.654321'-
     A                                      ))
     A                                 22 27'TYPE Q HERE TO QUIT:'
     A            RFIELD         1   B    +1
     A**************************************************
     A* DATEREC3   - DESIGNED TO TEST MAPVAL KEYWORD   *
     A*                                                *
     A**************************************************
     A          R DATEREC3
     A                                  2 29'MAPVAL KEYWORD TEST 2'
     A                                      DSPATR(UL)
     A                                  5  2'DATFMT(*MDY) DATSEP(''/'') -
     A                                      MAPVAL(-
     A                                      (''01/01/40'' *CUR)-
     A                                      ):'
     A            FIELD1          L  B  6  2DATFMT(*MDY) DATSEP('/')
     A                                      MAPVAL(-
     A                                      ('01/01/40' *CUR)-
     A                                      )
     A                                  8  2'DATFMT(*USA) -
     A                                      MAPVAL(-
     A                                      (*CUR ''01/01/0001'') -
     A                                      (''01/01/1940'' ''01/01/2040'')-
     A                                      ):'
     A            FIELD2          L  B  9  2DATFMT(*USA)
     A                                      MAPVAL(-
     A                                      (*CUR '01/01/0001') -
     A                                      ('01/01/1940' '01/01/2040')-
     A                                      )
     A                                 11  2'TIMFMT(*HMS) TIMSEP('','') -
     A                                      MAPVAL(-
     A                                      (''00,00,00'' *CUR)-
     A                                      ):'
     A            FIELD3          T  B 12  2TIMFMT(*HMS) TIMSEP(',')
     A                                      MAPVAL(-
     A                                      ('00,00,00' *CUR)-
     A                                      )
     A                                 14  2'TIMFMT(*ISO) -
     A                                      MAPVAL(-
     A                                      (''00.00.00'' *CUR) -
     A                                      (''01.01.01'' ''12.13.14'')-
     A                                      ):'
     A            FIELD4          T  B 15  2TIMFMT(*ISO)
     A                                      MAPVAL(-
     A                                      ('00.00.00' *CUR) -
     A                                      ('01.01.01' '12.13.14')-
     A                                      )
     A                                 17  2'TIMESTAMP -
     A                                      MAPVAL(-
     A                                      (''1972-01-01-01.00.00.000000-
     A                                      '' *CUR) -
     A                                      (''1999-01-01-01.12.34.567890-
     A                                      '' ''-
     A                                      2000-02-02-02.11.22.654321'')-
     A                                      ):'
     A            FIELD5          Z  B 19  2MAPVAL(-
     A                                      ('1972-01-01-01.00.00.000000'-
     A                                       *CUR) -
     A                                      ('1999-01-01-01.12.34.567890'-
     A                                       '2000-02-02-02.11.22.654321'-
     A                                      ))
     A                                 22 27'TYPE Q HERE TO QUIT:'
     A            RFIELD         1   B    +1
     A**************************************************
     A* EMSGREC1   - DESIGNED TO TEST ERRMSG AND       *
     A*              ERRMSGID KEYWORD                  *
     A**************************************************
     A          R EMSGREC1
     A                                      MSGALARM
     A                                  2 29'ERRMSG KEYWORD TEST'
     A                                      DSPATR(UL)
     A                                 10 31'FIELD1:'
     A            FIELD1        10A  B    +1
     A  01                                  ERRMSG('No stock available' 01)
     A  02                                  ERRMSG('Partial stock available'-
     A                                       02)
     A  03                                  ERRMSGID(CPA2401 QCPFMSG 03-
     A                                       &RPLTXT)
     A            RPLTXT        78A  P
     A**************************************************
     A* HELPREC1-3 - DESIGNED TO TEST HELP KEYWORDS    *
     A*                                                *
     A**************************************************
     A          R HELPREC1                  HELP
     A                                      OVERLAY
     A          H                           HLPARA(*RCD)
     A                                      HLPRCD(RECHELP1)
     A  01                              1  2'THIS TEST IS THE SAME AS-
     A                                       THE LAST, BUT USES THE'
     A                                       DSPATR(UL) 
     A  01                              2  2'HLPBDY KEYWORD SO PAGE KEYS-
     A                                       ON THE HELP SCREENS SHOULD'
     A                                       DSPATR(UL) 
     A  01                              3  2'HAVE NO EFFECT'
     A                                       DSPATR(UL) 
     A                                  5  2'PRESS THE HELP KEY ANYWHERE-
     A                                       IN THIS RECORD 1 AREA'
     A                                  7  2'RECORD 1, FIELD1:'
     A            FIELD1         5A  I    +1
     A                                  8  2'RECORD 1, FIELD2:'
     A            FIELD2         5A  I    +1
     A          R HELPREC2                  OVERLAY 
     A                                 11  2'THIS RECORD HAS NO HELP, SO-
     A                                       THE HELP KEY SHOULD NOT HAVE- 
     A                                       AN EFFECT IN THIS RECORD 2-
     A                                       AREA'
     A                                 13  2'RECORD 2, FIELD1:'
     A            FIELD1         5A  I    +1
     A                                 14  2'RECORD 2, FIELD2:'
     A            FIELD2         5A  I    +1
     A          R HELPREC3                  HELP
     A                                      OVERLAY
     A          H                           HLPARA(19 1 19 50)
     A                                      HLPRCD(RECHELP2)
     A  01                                  HLPBDY
     A          H                           HLPARA(20 1 20 50)
     A                                      HLPRCD(RECHELP3)
     A                                 17  2'FIELD 1 SHOULD HAVE A-
     A                                       DIFFERENT HELP SCREEN-
     A                                       THAN FIELD2'
     A                                 19  2'RECORD 3, FIELD1:'
     A            FIELD1         5A  I    +1
     A                                 20  2'RECORD 3, FIELD2:'
     A            FIELD2         5A  I    +1
     A          R RECHELP1              
     A                                  2  2'YOU PRESSED THE HELP KEY-
     A                                       IN RECORD AREA 1'
     A          R RECHELP2              
     A                                  2  2'YOU PRESSED THE HELP KEY-
     A                                       IN FIELD 1, RECORD AREA 3'
     A          R RECHELP3              
     A                                  2  2'YOU PRESSED THE HELP KEY-
     A                                       IN FIELD 2, RECORD AREA 3'
     A**************************************************
     A* SFLREC1 - DESIGNED TO TEST SUBFILE KEYWORDS    *
     A*           USED WITH SFLCREC OF SAME NUMBER     *
     A**************************************************
     A          R SFLREC1                   SFL
     A                                  5  2'THIS IS THE SUBFILE-
     A                                      RECORD LINE 1'
     A                                  6  2'THIS IS THE SUBFILE-
     A                                      RECORD LINE 2'
     A**************************************************
     A* SFLCREC1 - DESIGNED TO TEST SUBFILE KEYWORDS   *
     A*            USED WITH SFLREC OF SAME NUMBER     *
     A**************************************************
     A          R SFLCREC1                   
     A                                      SFLCTL(SFLREC1)
     A                                      SFLPAG(4)
     A                                      SFLSIZ(4)
     A                                      SFLDSP
     A                                      SFLDSPCTL
     A                                  1 33'SUBFILE TEST 1'
     A                                      DSPATR(UL)
     A                                  2 27'(PAGE EQUALS SIZE, SIZE=4)'
     A                                  4  2'SUBFILE:'
     A**************************************************
     A* SFLREC2 - DESIGNED TO TEST SUBFILE KEYWORDS    *
     A*           USED WITH SFLCREC OF SAME NUMBER     *
     A**************************************************
     A          R SFLREC2                   SFL
     A            FIELD1         2A  O  5  2
     A                                    +1'THIS IS THE SUBFILE-
     A                                      RECORD LINE 1'
     A            FIELD2         2A  O  6  2
     A                                    +1'THIS IS THE SUBFILE-
     A                                      RECORD LINE 2'
     A**************************************************
     A* SFLCREC2 - DESIGNED TO TEST SUBFILE KEYWORDS   *
     A*            USED WITH SFLREC OF SAME NUMBER     *
     A**************************************************
     A          R SFLCREC2                   
     A                                      SFLCTL(SFLREC2)
     A                                      SFLPAG(4)
     A                                      SFLSIZ(16)
     A                                      SFLDSP
     A                                      SFLDSPCTL
     A                                  1 33'SUBFILE TEST 2'
     A                                      DSPATR(UL)
     A                                  2 20'(PAGE=4, SIZE=16: -
     A                                      ALL FIELDS ARE OUTPUT)'
     A                                  4  2'SUBFILE:'
     A**************************************************
     A* SFLREC3 - DESIGNED TO TEST SUBFILE KEYWORDS    *
     A*           USED WITH SFLCREC OF SAME NUMBER     *
     A**************************************************
     A          R SFLREC3                   SFL
     A            FIELD1         2A  B  5  2
     A                                    +1'THIS IS THE SUBFILE-
     A                                      RECORD LINE 1'
     A            FIELD2         2A  B  6  2
     A                                    +1'THIS IS THE SUBFILE-
     A                                      RECORD LINE 2'
     A**************************************************
     A* SFLCREC3 - DESIGNED TO TEST SUBFILE KEYWORDS   *
     A*            USED WITH SFLREC OF SAME NUMBER     *
     A**************************************************
     A          R SFLCREC3                   
     A                                      SFLCTL(SFLREC3)
     A                                      SFLPAG(4)
     A                                      SFLSIZ(16)
     A                                      SFLDSP
     A                                      SFLDSPCTL
     A                                  1 33'SUBFILE TEST 3'
     A                                      DSPATR(UL)
     A                                  2 20'(PAGE=4, SIZE=16: -
     A                                      ALL FIELDS ARE I/O)'
     A                                  4  2'SUBFILE:'
     A**************************************************
     A* SFLREC4 - DESIGNED TO TEST SUBFILE KEYWORDS    *
     A*           USED WITH SFLCREC OF SAME NUMBER     *
     A**************************************************
     A          R SFLREC4                   SFL
     A            FIELD1         2A  B  5  2
     A                                    +1'THIS IS THE SUBFILE-
     A                                      RECORD LINE 1'
     A            FIELD2         2A  B  6  2
     A                                    +1'THIS IS THE SUBFILE-
     A                                      RECORD LINE 2'
     A**************************************************
     A* SFLCREC4 - DESIGNED TO TEST SUBFILE KEYWORDS   *
     A*            USED WITH SFLREC OF SAME NUMBER     *
     A**************************************************
     A          R SFLCREC4                   
     A                                      SFLCTL(SFLREC4)
     A                                      SFLPAG(4)
     A                                      SFLSIZ(16)
     A                                      SFLDSP
     A                                      SFLDSPCTL
     A                                  1 33'SUBFILE TEST 4'
     A                                      DSPATR(UL)
     A                                  2  6'(PAGE=4, SIZE=16: -
     A                                      ALL FIELDS ARE I/O, -
     A                                      CURSOR STARTS AT RECORD:'  
     A            FIELD1         4S 0O    +1SFLRCDNBR(CURSOR)
     A                                    +1')'
     A                                  4  2'SUBFILE:'
     A**************************************************
     A* SFLREC5 - DESIGNED TO TEST SUBFILE KEYWORDS    *
     A*           USED WITH SFLCREC OF SAME NUMBER     *
     A**************************************************
     A          R SFLREC5                   SFL
     A            FIELD1         2A  B  5  2
     A                                    +1'THIS IS THE SUBFILE-
     A                                      RECORD LINE 1'
     A            FIELD2         2A  B  6  2
     A                                    +1'THIS IS THE SUBFILE-
     A                                      RECORD LINE 2'
     A**************************************************
     A* SFLCREC5 - DESIGNED TO TEST SUBFILE KEYWORDS   *
     A*            USED WITH SFLREC OF SAME NUMBER     *
     A**************************************************
     A          R SFLCREC5                   
     A                                      SFLCTL(SFLREC5)
     A                                      SFLPAG(4)
     A                                      SFLSIZ(16)
     A                                      SFLDSP
     A                                      SFLDSPCTL
     A                                      SFLCSRRRN(&FIELD2)
     A                                  1 33'SUBFILE TEST 5'
     A                                      DSPATR(UL)
     A                                  2  6'(PAGE=4, SIZE=16: -
     A                                      ALL FIELDS ARE I/O, -
     A                                      TOP RECORD IS:'  
     A            FIELD1         4S 0O    +1SFLRCDNBR(CURSOR *TOP)
     A                                    +1')'
     A            FIELD2         5S 0H
     A                                  4  2'SUBFILE:'
