home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / putut / recin.cpy < prev    next >
Text File  |  1996-05-30  |  738b  |  10 lines
  1.       * File RECIN    COPY                                              REC00010
  2.        01  INBUFVARDS.                                                  REC00020
  3.            05  NAME.                                                    REC00030
  4.                07 FIRSTNAME                 PIC X(20) VALUE SPACES.     REC00040
  5.                07 LASTNAME                  PIC X(40).                  REC00050
  6.            05  ADDR                         PIC X(100).                 REC00060
  7.            05  ACCOUNT-OPEN-DDMMYY          PIC X(6).                   REC00070
  8.            05  ACCOUNT-UPDT-DDMMYY          PIC X(6).                   REC00080
  9.            05  RATEVAR                      PIC 9(4).                   REC00090
  10.