38 lines
2.9 KiB
COBOL
38 lines
2.9 KiB
COBOL
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
|