00001 *****                                                             02/11/99
00002 *                                                                 DTSIR434
00003 *   DTSIR434   DEFERRED PAYMENT CONTRACT REPORT RECORDS.             LV009
00004 *                                                                 DTSIR434
00005 *                                                                 DTSIR434
00006 *              02/10/1999  CREATED FOR DC.  EHH                      CL**6
00007 *                                                                    CL**2
00008 *****                                                             DTSIR434
00009                                                                      CL**2
00010          10  R434-LENGTH         PIC S9(04)  COMP.                   CL**6
00011                                                                      CL**2
00012                                                                      CL**7
00013          10  R434-SORT-AREA.                                         CL**6
00014              15  R434-REC-TYPE           PIC  X(03)  VALUE '434'.    CL**6
00015                                                                      CL**7
00016              15  R434-RESP-OP-ID         PIC  X(08).                 CL**6
00017                                                                      CL**7
00018              15  R434-EMP-NO             PIC S9(07)  COMP-3.         CL**6
00019                                                                      CL**2
00020                                                                      CL**7
00021          10  R434-DATA-AREA.                                         CL**6
00022              15  R434-CORPORATION-IND    PIC  X(01).                 CL**8
00023                  88  R434-CORPORATION-NO-88     VALUE 'N'.           CL**8
00024                  88  R434-CORPORATION-YES-88    VALUE 'Y'.           CL**8
00025                                                                      CL**8
00026              15  R434-STMT-DATE          PIC S9(09)  COMP-3.         CL**6
00027                                                                      CL**7
00028              15  R434-PRIMARY-NAME       PIC  X(40).                 CL**6
00029                                                                      CL**7
00030              15  R434-EMPLOYER-SIGNEE    PIC  X(32).                 CL**7
00031                                                                      CL**7
00032              15  R434-SIGNEE-TITLE       PIC  X(20).                 CL**7
00033                  88  R434-SIGNEE-TITLE-UNKNOWN-88  VALUE SPACES.     CL**7
00034                                                                      CL**7
00035              15  R434-MAILING-ADDRESS.                               CL**6
00036                  20  R434-MAILING-LINE                               CL**6
00037                      OCCURS 5 TIMES                                  CL**6
00038                      INDEXED BY R434-MAILING-LINE-IDX                CL**6
00039                                          PIC  X(40).                 CL**2
00040                                                                      CL**7
00041 *****                                                                CL**5
00042 *                                                                    CL**5
00043 *    BECAUSE OF THE METHOD USED TO HANDLE DPC ADDRESSES IN THE       CL**6
00044 *    SYSTEM, R434-ZIP AND R434-ADVANCED-BARCODE ARE EQUAL TO         CL**6
00045 *    SPACES.  THEY ARE INCLUDED HERE FOR CONSISTENCY WITH THE        CL**5
00046 *    REST OF THE SYSTEM - A MARGINAL REASON AT BEST.                 CL**5
00047 *                                                                    CL**5
00048 *****                                                                CL**5
00049                                                                      CL**7
00050              15  R434-ZIP                PIC  X(10).                 CL**6
00051                                                                      CL**7
00052              15  R434-ADVANCED-BARCODE   PIC  X(14).                 CL**6
00053                                                                      CL**7
00054              15  R434-STMT-DUE-AMT       PIC S9(09)V9(02)  COMP-3.   CL**6
00055                                                                      CL**2
00056              15  R434-COV-CNT            PIC S9(04)  COMP.           CL**6
00057                                                                      CL**7
00058              15  R434-COVERED-YRQ                                    CL**6
00059                  OCCURS 20 TIMES                                     CL**6
00060                  INDEXED BY R434-COVERED-YRQ-IDX                     CL**6
00061                                          PIC S9(05)  COMP-3.         CL**6
00062                                                                      CL**7
00063              15  R434-INSTALL-PMT-AMT    PIC S9(09)V9(02)  COMP-3.   CL**7
00064                                                                      CL**7
00065              15  R434-PMT-BEGIN-DATE     PIC S9(09)        COMP-3.   CL**7
00066                                                                      CL**7
00067              15  R434-PMT-FREQUENCY      PIC  X(01).                 CL**7
00068                  88  R434-PMT-FREQ-WEEKLY-88     VALUE 'W'.          CL**7
00069                  88  R434-PMT-FREQ-BIWEEKLY-88   VALUE 'B'.          CL**9
00070                  88  R434-PMT-FREQ-MONTHLY-88    VALUE 'M'.          CL**7