A*%%TS  SD  20031002  113201  ITIOWNER    REL-V5R2M0  5722-WDS
     A*%%EC
     A                                      DSPSIZ(24 80 *DS3)
     A                                      CA03(03 'EXIT')
     A                                      HELP(01)
     A          R DISPLAY
     A*%%TS  SD  20031002  113201  ITIOWNER    REL-V5R2M0  5722-WDS
     A                                  2 33'Test Application'
     A                                  2 69DATE
     A                                      EDTCDE(Y)
     A                                  3 69TIME
     A                                  6  7'Number of times Client Server proc-
     A                                      ess has run'
     A            MSG            5A  O  6 54
     A                                 23  3'F3=Exit'
     A                                  7  9'(Hit enter to run process)'