00001 *****                                                             02/01/04
00002 *                                                                 DTSIY774
00003 *    DTSIY774    DTSBE774 OUTPUT RECORD - ACCOUNTS RECEIVABLE        LV001
00004 *                RECORD FOR DATA VALIDATION.                      DTSIY774
00005 *                                                                 DTSIY774
00006 *                11/27/2002  INITIAL DEVELOPMENT            GD    DTSIY774
00007 *                                                                 DTSIY774
00008 *****                                                             DTSIY774
00009                                                                   DTSIY774
00010          10  Y774-LENGTH                 PIC S9(04) COMP          DTSIY774
00011                                           VALUE +30.              DTSIY774
00012                                                                   DTSIY774
00013          10  Y774-SORT-AREA.                                      DTSIY774
00014              15  Y774-REC-TYPE           PIC  X(03).              DTSIY774
00015                  88  Y774-REC-TYPE-774-88  VALUE '774'.           DTSIY774
00016              15  Y774-EMP-NO             PIC S9(07) COMP-3.       DTSIY774
00017              15  Y774-YRQ                PIC S9(05) COMP-3.       DTSIY774
00018              15  Y774-ESTB-DATE          PIC S9(09) COMP-3.       DTSIY774
00019                                                                   DTSIY774
00020          10  Y774-DATA-AREA.                                      DTSIY774
00021              15  Y774-RCVD-DATE          PIC S9(09) COMP-3.       DTSIY774
00022              15  Y774-DUE-DATE           PIC S9(09) COMP-3.       DTSIY774
00023              15  Y774-TYPE               PIC  X(01).              DTSIY774
00024                  88  Y774-TYPE-RECEIVABLE-88   VALUE '0'.         DTSIY774
00025                  88  Y774-TYPE-LIQUIDATION-88  VALUE '1'.         DTSIY774
00026              15  Y774-EMP-CLASS          PIC  X(01).              DTSIY774
00027                  88  Y774-EMP-CLASS-CONTRIB-88 VALUE 'R'.         DTSIY774
00028                  88  Y774-EMP-CLASS-REIMB-88   VALUE 'S'.         DTSIY774
00029              15  Y774-AMT                PIC S9(09)V9(02)  COMP-3.DTSIY774