00001 *****                                                             10/15/98
00002 *                                                                 DTSIL549
00003 *    DTSIL549  JOURNALING/BATCH DETAIL LISTING MODULE LINKAGE.       LV002
00004 *                                                                 DTSIL549
00005 *              CALL 'DTSBU549' USING L549-LINK-AREA.                 CL**2
00006 *                                                                 DTSIL549
00007 *                                                                 DTSIL549
00008 *                                                                    CL**2
00009 *              10/15/1998  REVIEWED AND MODIFIED FOR DC.  EHH        CL**2
00010 *                                                                    CL**2
00011 *****                                                             DTSIL549
00012                                                                      CL**2
00013          10  L549-OPTION                 PIC  X(01).              DTSIL549
00014              88  L549-INIT-TRAN-88           VALUE '0'.           DTSIL549
00015              88  L549-DELTA-88               VALUE '3'.           DTSIL549
00016              88  L549-CANCEL-TRAN-88         VALUE '7'.           DTSIL549
00017              88  L549-TERM-TRAN-PRIM-88      VALUE '8'.           DTSIL549
00018              88  L549-TERM-TRAN-SEC-88       VALUE '9'.           DTSIL549
00019                                                                      CL**2
00020          10  L549-TRN-DOC-NO             PIC  X(05).              DTSIL549
00021                                                                      CL**2
00022          10  L549-INIT-AREA.                                      DTSIL549
00023              15  L549-INIT-TRACE-IND     PIC  X(01).              DTSIL549
00024              15  L549-INIT-CURR-RUN-DATE PIC S9(09)       COMP-3. DTSIL549
00025              15  L549-INIT-ABSTIME       PIC S9(15)       COMP-3. DTSIL549
00026              15  L549-INIT-EMP-NO        PIC S9(07)       COMP-3. DTSIL549
00027              15  L549-INIT-EMP-CLASS     PIC  X(01).              DTSIL549
00028              15  L549-INIT-ELIGIBLE-CD   PIC S9(03)       COMP-3. DTSIL549
00029              15  L549-INIT-REC-TYPE      PIC  X(01).              DTSIL549
00030              15  L549-INIT-TRANS-TYPE    PIC  X(02).              DTSIL549
00031              15  L549-INIT-RECEIVED-DATE PIC S9(09)       COMP-3. DTSIL549
00032              15  L549-INIT-DEPOSIT-DATE  PIC S9(09)       COMP-3.    CL**2
00033              15  L549-INIT-REMIT-AMT     PIC S9(09)V9(02) COMP-3. DTSIL549
00034              15  L549-INIT-WAIVE-INT-IND PIC  X(01).                 CL**2
00035              15  L549-INIT-WAIVE-LATE-PEN-IND                        CL**2
00036                                          PIC  X(01).                 CL**2
00037              15  L549-INIT-APPLIC-YRQ    PIC S9(05)       COMP-3. DTSIL549
00038              15  L549-INIT-APPLIC-ACCT-IND                        DTSIL549
00039                                          PIC  X(02).              DTSIL549
00040              15  L549-INIT-APPLIC-DOC-NO.                         DTSIL549
00041                  20  L549-INIT-APPLIC-BATCH-NO                    DTSIL549
00042                                          PIC S9(05)       COMP-3. DTSIL549
00043                  20  L549-INIT-APPLIC-ITEM-NO                     DTSIL549
00044                                          PIC S9(03)       COMP-3. DTSIL549
00045              15  L549-INIT-RESP-ACTIVITY PIC  X(03).                 CL**2
00046              15  L549-INIT-RESP-OP-ID    PIC  X(08).                 CL**2
00047              15  FILLER                  PIC  X(55).                 CL**2
00048                                                                      CL**2
00049          10  L549-DELTA-AREA REDEFINES L549-INIT-AREA.            DTSIL549
00050              15  L549-DELTA-KEY.                                  DTSIL549
00051                  20  L549-DELTA-YRQ      PIC S9(05)       COMP-3. DTSIL549
00052                  20  L549-DELTA-ACCT-IND PIC  X(02).              DTSIL549
00053              15  L549-DELTA-DATA.                                 DTSIL549
00054                  20  L549-DELTA-CAT-IND  PIC  X(02).                 CL**2
00055                  20  L549-DELTA-AMT      PIC S9(09)V9(02) COMP-3. DTSIL549