A* ========================================================
A* Prompt for dates and submit a job to batch.
A* ========================================================
A* To create:
A*   CRTDSPF FILE(xxx/JKL002D) SRCFILE(xxx/QDDSSRC)
A*              SRCMBR(JKL002D)
A* ========================================================
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       6A  B  8 55
A                                  9  8'Ending date ......................-
A                                      ...........:'
A            SENDDATE       6A  B  9 55
A                                 22  6'F3=Cancel request'
A                                 22 27'Enter=Generate report'
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 N99                                  SFLEND
A            PGMNAM                    SFLPGMQ(10)