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