*****************************************************************
      * GL-FEED-RECORD                                                 *
      * Fixed length 120 characters, no record delimiter within   *
      * the record. One record per line, LF terminated.                *
      *****************************************************************
       01  GL-FEED-RECORD.
           05  GL-RECORD-ID           PIC X(10).
      *        columns 1 to 10, length 10
           05  GL-POSTING-DATE        PIC X(10).
      *        columns 11 to 20, length 10
           05  GL-ACCOUNT-CODE        PIC X(8).
      *        columns 21 to 28, length 8
           05  GL-DESCRIPTION         PIC X(60).
      *        columns 29 to 88, length 60
           05  GL-DEBIT-CENTS         PIC 9(12)V99.
      *        columns 89 to 102, length 14
           05  GL-CREDIT-CENTS        PIC 9(12)V99.
      *        columns 103 to 116, length 14
           05  GL-CURRENCY            PIC X(4).
      *        columns 117 to 120, length 4
      * End of copybook.