56 lines
4.4 KiB
COBOL
56 lines
4.4 KiB
COBOL
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
|