Columns . . . :                     Edit                         GOLFP/SRCFILE 
 SEU==>_______________________________________________________         DATESCRN 
        *************** Beginning of data ************************************* 

     A*%%TS  SD  20001113  135340  GOLFP       REL-V4R2M0  5769-PW1
     A*%%EC
     A                                      DSPSIZ(24 80 *DS3)
     A          R SCRN1
     A*%%TS  SD  20001113  135340  GOLFP       REL-V4R2M0  5769-PW1
      *-- The WINDOW keyword is saying to display the window at line
      *-- number 4, 20 spaces from the left and the window contains 9 lines
      *-- each of which can contain 50 characters
     A                                      WINDOW(4 20 9 50)
      *-- The WDWTITLE keyword lets you display  a title in the Border of 
      *-- the window.  
     A                                      WDWTITLE((*TEXT ' DATE SCREEN '))
      *-- Set the window border color to BLUE
     A                                      WDWBORDER((*COLOR BLU))
     A                                      WDWBORDER((*DSPATR RI))
      *-- the OVERLAY keyword specifies that any previous displays are not 
      *-- to be cleared when this record is executed. So we overlay the existing
      *-- screen
     A                                      OVERLAY
     A                                      CA03(03)
     A                                  3  2'Valid ISO Date.:'
     A                                      COLOR(WHT)
      *-- The field 'DATE' is expecting an ISO date to be inputted, when the
      *-- user enters a date and presses 'ENTER' the program 'GETDTE' is 
      *-- called, upon returning the field ANY1 contains the literal for the
      *-- requested date. 
     A            DATE           8A  B  3 19
     A                                  5  4'You selected.:'
     A                                      COLOR(WHT)
      *-- 
     A            ANY1          28A  B  5 19
     A                                  8 28'F3-EXIT'
     A                                      COLOR(BLU)
     A                                  8  2'ENTER-CONTINUE'
     A                                      COLOR(BLU)
     A                                  3 30'Enter the date in:'
     A                                      COLOR(WHT)
     A                                  4 30'CCYYMMDD format'
     A                                      COLOR(WHT)
      *-- The 'DUMMY'record is necessary to get the 'SCRN1' window to display
      *-- correctly
     A          R DUMMY                     ASSUME
     A                                  9  3'---'