* ========================================================
 * Prompt for dates and submit a job to batch.
 * ========================================================
 * To create:
 *   CRTDSPF FILE(xxx/JKL003D) SRCFILE(xxx/QDDSSRC)
 *              SRCMBR(JKL003D)
 * ========================================================

A                                      DSPSIZ(24 80 *DS3)
A          R FORMAT01
A                                      CA03(03)
A                                      CA12(03)
A                                      OVERLAY
A                                  1 31'Generate Some Report'
A                                  1 72DATE
A                                      EDTCDE(Y)
A                                  2 72TIME
A                                  5  8'Enter a range of dates. You may le-
A                                      ave the ending date blank'
A                                  6  8'if the report is to be run for onl-
A                                      y one day.'
A                                  8  8'Beginning date ...................-
A                                      ...........:'
A            SBGNDATE       6   B  8 55
A  51                                  DSPATR(PC RI)
A                                  9  8'Ending date ......................-
A                                      ...........:'
A            SENDDATE       6   B  9 55
A  52                                  DSPATR(PC RI)
A                                 22  6'F3=Cancel request'
A                                 22 27'Enter=Generate report'
A
A          R MSGSFL                    SFL
A                                      SFLMSGRCD(24)
A            MSGKEY                    SFLMSGKEY
A            PGMNAM                    SFLPGMQ
A
A          R MSGCTL                    SFLCTL(MSGSFL)
A                                      SFLSIZ(0010)
A                                      SFLPAG(0001)
A                                      OVERLAY
A                                      SFLDSP
A                                      SFLDSPCTL
A                                      SFLINZ
A N87                                  SFLEND
A            PGMNAM                    SFLPGMQ(10)