47 lines
3.6 KiB
COBOL
47 lines
3.6 KiB
COBOL
00001 ***** 02/13/99
|
|
00002 * DTSIR306
|
|
00003 * DTSIR306 ACCOUNTING SUMMARY REPORT RECORD. LV003
|
|
00004 * DTSIR306
|
|
00005 * DTSIR306
|
|
00006 * 02/10/1999 REVIEWED AND MODIFIED FOR DC. EHH DTSIR306
|
|
00007 * DTSIR306
|
|
00008 ***** DTSIR306
|
|
00009 DTSIR306
|
|
00010 10 R306-LENGTH PIC S9(04) COMP. DTSIR306
|
|
00011 DTSIR306
|
|
00012 10 R306-SORT-AREA. DTSIR306
|
|
00013 15 R306-REC-TYPE PIC X(03) VALUE '306'. DTSIR306
|
|
00014 15 R306-PARM-ID PIC S9(04) COMP. DTSIR306
|
|
00015 15 R306-ACCT-SUB PIC S9(04) COMP. DTSIR306
|
|
00016 15 R306-ACCT-IND PIC X(02). DTSIR306
|
|
00017 DTSIR306
|
|
00018 10 R306-DATA-AREA. DTSIR306
|
|
00019 15 R306-EMP-CLASS PIC X(01). DTSIR306
|
|
00020 88 R306-CLASS-ALL-88 VALUE ' '. DTSIR306
|
|
00021 88 R306-CLASS-RATED-88 VALUE 'R'. DTSIR306
|
|
00022 88 R306-CLASS-SELF-INS-88 VALUE 'S'. DTSIR306
|
|
00023 15 R306-START-DEPOSIT-DATE PIC S9(09) COMP-3. DTSIR306
|
|
00024 15 R306-END-DEPOSIT-DATE PIC S9(09) COMP-3. DTSIR306
|
|
00025 15 R306-START-PROCESS-DATE PIC S9(09) COMP-3. DTSIR306
|
|
00026 15 R306-END-PROCESS-DATE PIC S9(09) COMP-3. DTSIR306
|
|
00027 15 R306-START-YRQ PIC S9(05) COMP-3. DTSIR306
|
|
00028 15 R306-END-YRQ PIC S9(05) COMP-3. DTSIR306
|
|
00029 15 R306-START-BATCH-NO PIC S9(05) COMP-3. DTSIR306
|
|
00030 15 R306-END-BATCH-NO PIC S9(05) COMP-3. DTSIR306
|
|
00031 15 R306-RESPONSIBLE-ACTIVITY DTSIR306
|
|
00032 PIC X(03). DTSIR306
|
|
00033 15 R306-TRAN-CATEGORY PIC X(01). DTSIR306
|
|
00034 88 R306-TRAN-CATEGORY-RPT-88 VALUE 'R'. CL**3
|
|
00035 88 R306-TRAN-CATEGORY-PAY-88 VALUE 'P'. CL**3
|
|
00036 88 R306-TRAN-CATEGORY-ADJ-88 VALUE 'A'. CL**3
|
|
00037 15 R306-TRAN-TYPE-CNT PIC S9(04) COMP. DTSIR306
|
|
00038 15 R306-TRAN-TYPE OCCURS 05 TIMES CL**2
|
|
00039 INDEXED BY R306-TRAN-IDX DTSIR306
|
|
00040 PIC X(02). DTSIR306
|
|
00041 15 R306-CHARGED-AMT PIC S9(11)V9(02) COMP-3. DTSIR306
|
|
00042 15 R306-PAID-AMT PIC S9(11)V9(02) COMP-3. DTSIR306
|
|
00043 15 R306-WAIVED-AMT PIC S9(11)V9(02) COMP-3. DTSIR306
|
|
00044 15 R306-WRITTEN-OFF-AMT PIC S9(11)V9(02) COMP-3. DTSIR306
|
|
00045 15 R306-TOLER-AMT PIC S9(11)V9(02) COMP-3. DTSIR306
|
|
00046 15 R306-BALANCE-AMT PIC S9(11)V9(02) COMP-3. DTSIR306
|