*> cobol-input-validation-class-inspect-test-numval.cpy
      *> 80-byte payment record as the sending system writes it. Every
      *> field the sender types is PIC X, so the edit program can test
      *> it before trusting it; the date also has a numeric view.
      *> Comment lines start in column 7 so the copybook is legal in
      *> both fixed and free source format.
      *> Status: desk-checked against the GnuCOBOL 3.2 source.
       01  Pay-In-Record.
           05  In-Account          PIC X(8).
           05  In-Name             PIC X(24).
           05  In-Currency         PIC X(3).
               88  Currency-Accepted   VALUE "USD" "EUR" "GBP".
           05  In-Amount           PIC X(12).
           05  In-Value-Date-X     PIC X(8).
           05  In-Value-Date REDEFINES In-Value-Date-X
                                   PIC 9(8).
           05  In-Type             PIC X.
               88  Type-Valid          VALUE "P" "R".
               88  Type-Refund         VALUE "R".
           05  In-Reference        PIC X(16).
           05  FILLER              PIC X(8).