03 BPCC-SCREEN                      REDEFINES TRANIOAREA.     00000001
              05  DOCH-IOAREA.                                          00000002
                 10  BPCC-RECORD-KEY.                                   00000003
                  15  BILL-COLL-CODE                  PIC X(04).        00000004
              05  DOCD-IOAREA.                                          00000005
                 10  BPCC-LINE-RECORD-KEY.                              00000006
                  15  DAYS-PAST-DUE                   PIC 9(03).        00000007
                 10  BPCC-RESULT-FIELDS.                                00000008
                  15  DUNN-CODE                       PIC X(04).        00000010
                  15  COLL-CODE                       PIC X(04).        00000100