49 lines
3.8 KiB
COBOL
49 lines
3.8 KiB
COBOL
00001 ***** 01/12/21
|
|
00002 * DTSIR309
|
|
00003 * DTSIR309 STATEMENT OF ACCOUNT (CREDITS) REPORT RECORD. LV002
|
|
00004 * DTSIR309
|
|
00005 * NOTES: DTSIR309
|
|
00006 * R309-LENGTH MUST BE CALCULATED USING DTSIR309
|
|
00007 * THE VALUE OF R309-STMT-TEXT-CNT. DTSIR309
|
|
00008 * DTSIR309
|
|
00009 * IF LENGTH OF DTSIR309 IS MODIFIED, THEN DTSIR309
|
|
00010 * CORRESPONDING MODIFICATION MUST BE MADE DTSIR309
|
|
00011 * IN DTSIRLEN AND ALL PROGRAMS USING IT MUST DTSIR309
|
|
00012 * BE RECOMPILED. DTSIR309
|
|
00013 * DTSIR309
|
|
00014 * 02/28/2001 ADDED FEIN TO IR RECORD ZL1. DTSIR309
|
|
00015 * 04/06/2008 MODIFIED FOR AUTOMATED REFUND PROCESS. GD. DTSIR309
|
|
00016 * 08/02/2008 MODIFIED FOR ADDING OPID FIELD ZL1. DTSIR309
|
|
00017 * 01/12/2021 MODIFIED FOR ADDING SI EMPLOYERS ZL1. CL**2
|
|
00018 * DTSIR309
|
|
00019 ***** DTSIR309
|
|
00020 DTSIR309
|
|
00021 10 R309-LENGTH PIC S9(04) COMP. DTSIR309
|
|
00022 DTSIR309
|
|
00023 10 R309-SORT-AREA. DTSIR309
|
|
00024 15 R309-REC-TYPE PIC X(03). DTSIR309
|
|
00025 15 R309-ZIP PIC X(10). DTSIR309
|
|
00026 15 R309-EMP-NO PIC S9(07) COMP-3. DTSIR309
|
|
00027 DTSIR309
|
|
00028 10 R309-DATA-AREA. DTSIR309
|
|
00029 15 R309-FEIN PIC S9(09) COMP-3. DTSIR309
|
|
00030 15 R309-BATCH-NO PIC S9(05) COMP-3. DTSIR309
|
|
00031 15 R309-ITEM-NO PIC S9(03) COMP-3. DTSIR309
|
|
00032 15 R309-FMT-ADDR. DTSIR309
|
|
00033 20 R309-FMT-LINE OCCURS 5 TIMES DTSIR309
|
|
00034 INDEXED BY R309-FMT-IDX DTSIR309
|
|
00035 PIC X(40). DTSIR309
|
|
00036 15 R309-ADVANCED-BARCODE PIC X(02). DTSIR309
|
|
00037 15 R309-STMT-DATE PIC S9(09) COMP-3. DTSIR309
|
|
00038 15 R309-LAST-ACCT-UPDATE-DATE DTSIR309
|
|
00039 PIC S9(09) COMP-3. DTSIR309
|
|
00040 15 R309-TOT-CREDIT-AMT PIC S9(09)V9(02) COMP-3. DTSIR309
|
|
00041 15 R309-OPID PIC X(07). DTSIR309
|
|
00042 15 R309-EMP-TYPE PIC X(01). CL**2
|
|
00043 *** 15 R309-STMT-TEXT-CNT PIC S9(04) COMP. DTSIR309
|
|
00044 * 15 R309-STMT-TEXT-AREA. DTSIR309
|
|
00045 * 20 R309-STMT-TEXT PIC X(72) DTSIR309
|
|
00046 * OCCURS 0 TO 8 TIMES DTSIR309
|
|
00047 * DEPENDING ON R309-STMT-TEXT-CNT DTSIR309
|
|
00048 *** INDEXED BY R309-STMT-TEXT-IDX. DTSIR309
|