00001 *****                                                             07/27/98
00002 *                                                                 DTSIL968
00003 *    MACIL968    ARCHIVED RATING EXPERIENCE FILE                     LV001
00004 *                OUTPUT LINKAGE.                                  DTSIL968
00005 *                                                                 DTSIL968
00006 *    MACIL968 AND MACIESKL DEFINE THE LINAGE AREAS TO             DTSIL968
00007 *    MACCU968 (ARCHIVED RATING EXPERIENCE FILE OUTPUT).           DTSIL968
00008 *                                                                 DTSIL968
00009 *****                                                             DTSIL968
00010      SKIP1                                                        DTSIL968
00011          10  L968-TRACE-IND              PIC  X(01).              DTSIL968
00012              88  L968-TRACE-88               VALUE 'T'.           DTSIL968
00013      SKIP1                                                        DTSIL968
00014          10  L968-MOD-NAME               PIC  X(08).              DTSIL968
00015      SKIP1                                                        DTSIL968
00016          10  L968-CMND-CD                PIC  X(03).              DTSIL968
00017              88  L968-OPEN-UPDATE-88             VALUE 'OPU'.     DTSIL968
00018              88  L968-WRITE-88                   VALUE 'WR '.     DTSIL968
00019              88  L968-CLOSE-88                   VALUE 'CL '.     DTSIL968
00020      SKIP1                                                        DTSIL968
00021          10  FILLER                      PIC  X(51).              DTSIL968
00022      SKIP1                                                        DTSIL968
00023          10  L968-RESULT-IND             PIC  X(01).              DTSIL968
00024              88  L968-OK-88                      VALUE '0'.       DTSIL968
00025              88  L968-NO-REC-88                  VALUE '1'.       DTSIL968