     A*%%***********************************************************************
     A*%%TS  RD  19990313  181115  SHANNON     REL-V4R2M0  5769-PW1
     A*%%FI+10660100000000000000000000000000000000000000000000000000
     A*%%FI       0000000000000000000000000000000000000000000000000
     A*%%***********************************************************************
     A          R HDR
     A*%%***********************************************************************
     A*%%RI 00000 
     A*%%***********************************************************************
     A                                      SKIPB(001)
     A                                      SPACEA(002)
     A                                    14
     A                                      'This Report is an example of using-
     A                                       a display file'
     A                                    14
     A                                      'to prompt a user for an item numbe-
     A                                      r, and then print'
     A                                      SPACEB(001)
     A                                    14
     A                                      'that value on a report, defined us-
     A                                      ing RLU (Report'
     A                                      SPACEB(001)
     A                                    14
     A                                      'Layout Utility) and RPGIV.'
     A                                      SPACEB(001)
     A*%%***********************************************************************
     A*%%SS
     A*%%CL 001
     A*%%CL 001
     A*%%CL 001
     A*%%CL 002
     A*%%***********************************************************************
     A          R DTL
     A*%%***********************************************************************
     A*%%RI 00000 
     A*%%***********************************************************************
     A                                      SPACEB(001)
     A                                    18
     A                                      'Item Number Entered On Display:'
     A            ITEM          10A  O    +1
     A*%%***********************************************************************
     A*%%SS
     A*%%SN ITEM       xxxxxxxxxx
     A*%%CP+999CRTPRTF
     A*%%CP+    FILE(SHANNON/PRTDP1)
     A*%%CP+    DEVTYPE(*SCS)
     A*%%CP     PAGESIZE(*N       132      *N     )
     A*%%***********************************************************************