giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
Copybook/DTSIL205.cpy Normal file
View File

@ -0,0 +1,37 @@
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