The DDS for the screen shown
A*%%TS SD 19980504 113753 BOOTH REL-V4R2M0 5769-PW1
A*%%EC
A DSPSIZ(24 80 *DS3)
A CSRINPONLY
A ERRSFL
A*
A R FMT01
A*%%TS SD 19980504 113753 BOOTH REL-V4R2M0 5769-PW1
A TEXT('PRINTER CONTROL MENU')
A CA03(03 'EXIT')
A CA06(06 'MESSAGE')
A BLINK
A OVERLAY
A WINDOW(4 34 10 28)
A WDWTITLE((*TEXT ' Printer Control M-
A enu'))
A 2 1'Printer'
A FIELDP 10A B 2 9DSPATR(UL)
A F2 2Y 0B 4 1PSHBTNFLD((*NUMCOL 1))
A PSHBTNCHC(1 'Start Print >Writer -
A ' ENTER)
A PSHBTNCHC(2 'Display Output >Queue -
A ' ENTER)
A PSHBTNCHC(3 'Display >Printer Messa-
A ges' ENTER)
A PSHBTNCHC(4 'Display >Spool File -
A ' ENTER)
A F1 2Y 0B 9 2PSHBTNFLD
A PSHBTNCHC(1 '>Exit' CF03)
A PSHBTNCHC(2 '>Messages' CF06)
A R DUMMY
A TEXT('PREVENTS PREVIOUS SCREEN FROM-
A BEING CLEARED')
A ASSUME
A 5 9' '
|