00001 *****                                                             03/01/12
00002 *                                                                 DTSIL205
00003 *    DTSIL205    PARSE COMMA DELIMITED FILE LINKAGE.                 LV001
00004 *                STEP 1: SEPARATE DATA FIELDS.                    DTSIL205
00005 *                                                                 DTSIL205
00006 *                04/22/2010  INITIAL DEVELOPMENT            GD    DTSIL205
00007 *                                                                 DTSIL205
00008 *****                                                             DTSIL205
00009                                                                   DTSIL205
00010          10  L205-LAST-FIELD             PIC S9(04)    COMP.      DTSIL205
00011          10  L205-LAST-FIELD-LEN         PIC S9(04)    COMP.      DTSIL205
00012                                                                   DTSIL205
00013          10  L205-INPUT-DATA             PIC  X(4096).            DTSIL205
00014                                                                   DTSIL205
00015          10  L205-FIELDS-MAX-LEN         PIC S9(04)    COMP       DTSIL205
00016                                            VALUE +100.            DTSIL205
00017          10  L205-FIELDS  OCCURS 100 TIMES.                       DTSIL205
00018 *************************************************************     DTSIL205
00019 *   INPUT FROM CALLING PROGRAM                                    DTSIL205
00020 *************************************************************     DTSIL205
00021              15  L205-FIELD-LENGTH       PIC S9(04)    COMP.      DTSIL205
00022              15  L205-FIELD-TYPE         PIC  X(02).              DTSIL205
00023                  88  L205-TYPE-TEXT-88      VALUE '00'.           DTSIL205
00024                  88  L205-TYPE-NUMBER-88    VALUE '01'.           DTSIL205
00025                  88  L205-TYPE-DATE-88      VALUE '02'.           DTSIL205
00026 *************************************************************     DTSIL205
00027 *   RETURNED FROM DTSBU205                                        DTSIL205
00028 *************************************************************     DTSIL205
00029              15  L205-FIELD-VALID        PIC  X(01).              DTSIL205
00030                  88  L205-VALID-YES-88     VALUE 'Y'.             DTSIL205
00031                  88  L205-VALID-NO-88      VALUE 'N'.             DTSIL205
00032              15  L205-TEXT               PIC  X(100).             DTSIL205
00033              15  L205-DATE               PIC  X(10).              DTSIL205
00034              15  L205-INTEGER            PIC S9(11)    COMP-3.    DTSIL205
00035              15  L205-FRACTION           PIC SV9(11)   COMP-3.    DTSIL205
00036                                                                   DTSIL205
00037          10  FILLER                      PIC  X(32).              DTSIL205