home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / putut / recout.cpy < prev    next >
Text File  |  1996-05-30  |  492b  |  7 lines
  1.       * File RECOUT   COPY                                              REC00010
  2.        01  OUTBUFVARDS.                                                 REC00020
  3.            05  NAME                         PIC X(80).                  REC00030
  4.            05  ADDR                         PIC X(100).                 REC00040
  5.            05  ACCOUNT-UPDT-DDMMYY          PIC X(6).                   REC00050
  6.            05  COSTVAR                      PIC 9(4).                   REC00060
  7.