A*%%TS  DD  m22       7/29/9  LIOTTT      REL-V3R2M1  5763-CL2
     A*%%EC
     A                                      DSPSIZ(24 80 *DS3)
     A                                      PRINT
     A                                      INDARA
     A          R JOBCHSRS1
     A*%%TS  SD  19980529  130355  LIOTTT      REL-V4R2M0  5769-PW1
     A                                      SFL
     A            SELECT         1A  I  6  1ALIAS(SEL_THIS_JOB)
     A                                      VALUES(' ' '1')
     A            JOB           10A  O  6  5
     A            JOBUSR        10A  O  6 17
     A            JOBNBR         6A  O  6 29
     A*%%GP UNTITLED   01
     A*
     A          R JOBCHSRC1
     A*%%TS  SD  19980529  123737  LIOTTT      REL-V4R2M0  5769-PW1
     A                                      SFLCTL(JOBCHSRS1)
     A                                      SFLSIZ(7)
     A                                      SFLPAG(6)
     A                                      WINDOW(JOBCHSRW1)
     A                                      CA03
     A                                      CA12
     A                                      KEEP
     A                                      BLINK
     A                                      OVERLAY
     A  81                                  SFLDSP
     A                                      SFLDSPCTL
     A N81                                  SFLCLR
     A N82                                  SFLEND(*MORE)
     A                                  1 19'Select a Job'
     A                                      DSPATR(HI)
     A                                  1 39SYSNAME
     A                                  2  1'Type option, press enter'
     A                                      COLOR(BLU)
     A                                  2 29DATE
     A                                      EDTCDE(Y)
     A                                  2 39TIME
     A                                  3  3'1=Select'
     A                                      COLOR(BLU)
     A                                  5  5'Qualified job name'
     A                                      DSPATR(HI)
     A*%%GP UNTITLED   02
     A*
     A          R JOBCHSRW1                 TEXT('Job list window')
     A*%%TS  SD  19980529  123737  LIOTTT      REL-V4R2M0  5769-PW1
     A                                      LOCK
     A                                      WINDOW(&STRROW &STRCOL 13 47 +
     A                                      *NOMSGLIN)
     A            STRROW         3S 0P      ALIAS(STR_ROW_NBR)
     A            STRCOL         3S 0P      ALIAS(STR_COL_NBR)
     A                                 13  1'F3=Exit      F12=Cancel'
     A                                      COLOR(BLU)
     A*%%WP 0 01 001
     A*
     A          R DUMMY
     A*%%TS  DD  m16       7/29/9  LIOTTT      REL-V3R2M1  5763-CL2
     A                                      ASSUME
     A                                  1  2' '