00001 *****                                                             12/09/04
00002 *                                                                 DTSIL034
00003 *    DTSIL034    COLLECTIONS CODES EDIT/DESCRIPTION                  LV009
00004 *                MODULE LINKAGE.                                  DTSIL034
00005 *                                                                 DTSIL034
00006 *    04/29/2004  ADDED MCMP-STATUS-CD               GD            DTSIL034
00007 *                                                                 DTSIL034
00008 *****                                                             DTSIL034
00009      SKIP1                                                        DTSIL034
00010          10  L034-OPTION         PIC S9(04)   COMP.               DTSIL034
00011              88  L034-MAPL-STATUS-CD         VALUE +01.           DTSIL034
00012              88  L034-MAPL-TYPE              VALUE +02.           DTSIL034
00013              88  L034-MCMP-STATUS-CD         VALUE +13.           DTSIL034
00014              88  L034-MCOL-SUBPOENA-CD       VALUE +05.           DTSIL034
00015              88  L034-MCOL-BNK-CHAPTER       VALUE +06.           DTSIL034
00016              88  L034-MDPC-STATUS-CD         VALUE +08.           DTSIL034
00017              88  L034-MDPC-PMT-FREQUENCY     VALUE +09.           DTSIL034
00018              88  L034-MLEV-STATUS-CD         VALUE +10.           DTSIL034
00019              88  L034-MLIN-STATUS-CD         VALUE +11.           DTSIL034
00020              88  L034-MRPT-RESPONSIBLE-ACT   VALUE +12.           DTSIL034
00021      SKIP1                                                        DTSIL034
00022          10  L034-RESULT-IND             PIC  X(01).              DTSIL034
00023              88  L034-VALID                  VALUE '1'.           DTSIL034
00024              88  L034-NOT-VALID              VALUE '2'.           DTSIL034
00025      SKIP1                                                        DTSIL034
00026          10  L034-CD                     PIC  X(05).              DTSIL034
00027          10  FILLER REDEFINES L034-CD.                            DTSIL034
00028              15  L034-CD-1               PIC  X(01).              DTSIL034
00029              15  FILLER                  PIC  X(04).              DTSIL034
00030          10  FILLER REDEFINES L034-CD.                            DTSIL034
00031              15  L034-CD-2               PIC  X(02).              DTSIL034
00032              15  FILLER                  PIC  X(03).              DTSIL034
00033          10  FILLER REDEFINES L034-CD.                            DTSIL034
00034              15  L034-CD-3               PIC  X(03).              DTSIL034
00035              15  FILLER                  PIC  X(02).              DTSIL034
00036          10  FILLER REDEFINES L034-CD.                            DTSIL034
00037              15  L034-CD-4               PIC  X(04).              DTSIL034
00038              15  FILLER                  PIC  X(01).              DTSIL034
00039          10  L034-CD-5 REDEFINES L034-CD PIC  X(05).              DTSIL034
00040      SKIP1                                                        DTSIL034
00041          10  L034-SHORT-DSCR             PIC  X(10).              DTSIL034
00042          10  L034-LONG-DSCR              PIC  X(40).              DTSIL034
00043      SKIP1                                                        DTSIL034
00044          10  FILLER                      PIC  X(04).              DTSIL034