A                                      DSPSIZ(24 80 *DS3)
     A          R SCR1
     A                                      FRCDTA
     A                                      CHGINPDFT
     A                                      CF03(03 'Exit')
     A            LIN01         79A  B  2  2
     A            LIN02         79A  B  3  2
     A            LIN03         79A  B  4  2
     A            LIN04         79A  B  5  2
     A            LIN05         79A  B  6  2
     A            LIN06         79A  B  7  2
     A            LIN07         79A  B  8  2
     A            LIN08         79A  B  9  2
     A            LIN09         79A  B 10  2
     A            LIN10         79A  B 11  2
     A            LIN11         79A  B 12  2
     A            LIN12         79A  B 13  2
     A            LIN13         79A  B 14  2
     A            LIN14         79A  B 15  2
     A            LIN15         79A  B 16  2
     A            LIN16         79A  B 17  2
     A            LIN17         79A  B 18  2
     A            LIN18         79A  B 19  2
     A            LIN19         79A  B 20  2
     A            LIN20         79A  B 21  2
     A            LIN21         79A  B 22  2
     A                                 23 63'F3=Exit'
     A                                      COLOR(BLU)