77 lines
6.0 KiB
COBOL
77 lines
6.0 KiB
COBOL
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
|