A          R PETORD                    TEXT('PET ORDERS')
     A            PET            1A
     A            ORDERDATE       L         DATFMT(*USA)
     A            COUNT          5S 0       EDTCDE(J)
     A                                      RANGE(1 1000)
     A            BID            7S 2       EDTCDE(J *)
     A                                      RANGE(1 1000)
     A            FIRSTNAME     16A         CHECK(ME)
     A                                      VARLEN(16)