A          R FORMAT                    TEXT('FORMAT PF V2R11')
     A            NULLOK        20          ALWNULL
     A            VARLEN       128          VARLEN(50)
     A            VDATE           L         DATFMT(*DMY) DATSEP('/')
     A            VTIME           T         TIMFMT(*HMS) TIMSEP(':')
     A            VHORO           Z