00001 ***** 06/29/02 00002 * DTSIR302 00003 * DTSIR302 BATCH DETAIL LISTING REPORT RECORD. LV005 00004 * DTSIR302 00005 * FOR EACH ACCOUNTING TRANSACTION PROCESSED DTSIR302 00006 * (UNIQUELY IDENTIFIED BY BATCH-NO AND ITEM-NO) DTSIR302 00007 * THE ACCOUNTING UPDATE WILL WRITE: DTSIR302 00008 * - ONE R302-TRAN-DATA-88 RECORD. DTSIR302 00009 * - FROM 0 TO N R302-ACCT-DATA-88 RECORDS. DTSIR302 00010 * DTSIR302 00011 * THE ACCOUNTING UPDATE MAY GENERATE TWO OR DTSIR302 00012 * MORE R302 RECORDS WITH THE SAME R302-SORT-AREA DTSIR302 00013 * VALUE. THUS, MACBR302 MUST BE PREPARED TO DTSIR302 00014 * SUMMARIZE R302 RECORDS (PERHAPS THE SUM WILL DTSIR302 00015 * EQUAL ZERO) PRIOR TO PRINTING A LINE ON DTSIR302 00016 * THE REPORT. DTSIR302 00017 * DTSIR302 00018 * DTSIR302 00019 * 10/12/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIR302 00020 * DTSIR302 00021 ***** DTSIR302 00022 DTSIR302 00023 10 R302-LENGTH PIC S9(04) COMP. DTSIR302 00024 DTSIR302 00025 10 R302-SORT-AREA. DTSIR302 00026 15 R302-REC-TYPE PIC X(03) VALUE '302'. DTSIR302 00027 15 R302-DEPOSIT-DATE PIC S9(09) COMP-3. DTSIR302 00028 15 R302-DOC-NO. DTSIR302 00029 20 R302-BATCH-NO PIC S9(05) COMP-3. DTSIR302 00030 20 R302-ITEM-NO PIC S9(03) COMP-3. DTSIR302 00031 15 R302-EMP-NO PIC S9(07) COMP-3. DTSIR302 00032 15 R302-REC-SUB-TYPE PIC X(01). DTSIR302 00033 88 R302-TRAN-DATA-88 VALUE '1'. DTSIR302 00034 88 R302-ACCT-DATA-88 VALUE '2'. DTSIR302 00035 15 R302-SORT-YRQ-ACCT-SEQ-IND. DTSIR302 00036 20 R302-SORT-YRQ PIC S9(05) COMP-3. DTSIR302 00037 20 R302-SORT-ACCT-SEQ PIC S9(04) COMP. DTSIR302 00038 20 R302-SORT-ACCT-IND PIC X(02). DTSIR302 00039 DTSIR302 00040 10 R302-TRAN-DATA-AREA. DTSIR302 00041 15 R302-CURR-RUN-DATE PIC S9(09) COMP-3. DTSIR302 00042 15 R302-RECEIVED-DATE PIC S9(09) COMP-3. DTSIR302 00043 15 R302-ACCT-REC-TYPE PIC X(01). DTSIR302 00044 88 R302-REC-TYPE-RPT-88 VALUE 'R'. DTSIR302 00045 88 R302-REC-TYPE-PAY-88 VALUE 'P'. DTSIR302 00046 88 R302-REC-TYPE-ADJ-88 VALUE 'A'. DTSIR302 00047 15 R302-TRANS-TYPE PIC X(02). DTSIR302 00048 15 R302-APPLIC-YRQ PIC S9(05) COMP-3. DTSIR302 00049 15 R302-APPLIC-ACCT-IND PIC X(02). DTSIR302 00050 15 R302-APPLIC-DOC-NO. DTSIR302 00051 20 R302-APPLIC-BATCH-NO DTSIR302 00052 PIC S9(05) COMP-3. DTSIR302 00053 20 R302-APPLIC-ITEM-NO DTSIR302 00054 PIC S9(03) COMP-3. DTSIR302 00055 15 R302-WAIVE-INT-IND PIC X(01). DTSIR302 00056 15 R302-WAIVE-LATE-PEN-IND PIC X(01). DTSIR302 00057 15 R302-REMIT-AMT PIC S9(09)V9(02) COMP-3. DTSIR302 00058 15 R302-TOT-WAGE-CHNG PIC S9(11)V9(02) COMP-3. DTSIR302 00059 15 R302-TAX-WAGE-CHNG PIC S9(11)V9(02) COMP-3. DTSIR302 00060 15 R302-RESULT-IND PIC X(01). DTSIR302 00061 88 R302-OK-88 VALUE '0'. DTSIR302 00062 88 R302-NOT-OK-88 VALUE '1'. DTSIR302 00063 DTSIR302 00064 15 R302-ERROR-AREA. DTSIR302 00065 20 R302-ERROR-MSG-ID PIC X(03). DTSIR302 00066 20 R302-ERROR-MSG-TEXT PIC X(60). DTSIR302 00067 20 R302-ERROR-MOD-NAME PIC X(08). DTSIR302 00068 DTSIR302 00069 10 R302-ACCT-DATA-AREA REDEFINES R302-TRAN-DATA-AREA. DTSIR302 00070 15 R302-YRQ PIC S9(05) COMP-3. DTSIR302 00071 15 R302-ACCT-IND PIC X(02). DTSIR302 00072 15 R302-CHARGED-AMT PIC S9(09)V9(02) COMP-3. DTSIR302 00073 15 R302-PAID-AMT PIC S9(09)V9(02) COMP-3. DTSIR302 00074 15 R302-WAIVED-AMT PIC S9(09)V9(02) COMP-3. DTSIR302 00075 15 R302-WRITTEN-OFF-AMT PIC S9(09)V9(02) COMP-3. DTSIR302 00076 15 R302-TOLER-AMT PIC S9(09)V9(02) COMP-3. DTSIR302