*****************************************************************
      * BACS-PAYMENT-RECORD                                            *
      * Fixed length 105 characters, one record per line, LF    *
      * terminated. No delimiter and no header record.                 *
      *****************************************************************
       01  BACS-PAYMENT-RECORD.
           05  BP-EMPLOYEE-ID         PIC X(10).
      *        columns 1 to 10, length 10
           05  BP-PAY-DATE            PIC X(8).
      *        columns 11 to 18, length 8
           05  BP-SORT-CODE           PIC X(6).
      *        columns 19 to 24, length 6
           05  BP-ACCOUNT-NUMBER      PIC X(8).
      *        columns 25 to 32, length 8
           05  BP-PAYEE-NAME          PIC X(35).
      *        columns 33 to 67, length 35
           05  BP-AMOUNT-CENTS        PIC 9(9)V99.
      *        columns 68 to 78, length 11
           05  BP-REFERENCE           PIC X(22).
      *        columns 79 to 100, length 22
           05  BP-TRANSACTION-CODE    PIC X(2).
      *        columns 101 to 102, length 2
           05  BP-CURRENCY            PIC X(3).
      *        columns 103 to 105, length 3
      * End of copybook.