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

23
Copybook/DTSIVLEN.cpy Normal file
View File

@ -0,0 +1,23 @@
00001 ***** 09/30/98
00002 * DTSIVLEN
00003 * DTSIVLEN VSAM KSDS WORK FILE RECORD LENGTHS. LV002
00004 * DTSIVLEN
00005 * CL**2
00006 * 09/30/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**2
00007 * CL**2
00008 ***** DTSIVLEN
00009 CL**2
00010 10 VLEN-LENGTH-AREA. DTSIVLEN
00011 15 VLEN-COR-LENGTH PIC S9(04) COMP VALUE +1612. DTSIVLEN
00012 15 FILLER PIC S9(04) COMP VALUE +0. DTSIVLEN
00013 15 FILLER PIC S9(04) COMP VALUE +0. DTSIVLEN
00014 15 FILLER PIC S9(04) COMP VALUE +0. DTSIVLEN
00015 15 FILLER PIC S9(04) COMP VALUE +0. DTSIVLEN
00016 10 FILLER REDEFINES VLEN-LENGTH-AREA. DTSIVLEN
00017 15 VLEN-LENGTH OCCURS 5 TIMES DTSIVLEN
00018 INDEXED BY VLEN-IDX DTSIVLEN
00019 PIC S9(04) COMP. DTSIVLEN
00020 CL**2
00021 10 VLEN-MAX-LENGTH PIC S9(04) COMP VALUE +2024. DTSIVLEN
00022 CL**2
00023 10 VLEN-KEY-LENGTH PIC S9(04) COMP VALUE +32. DTSIVLEN