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

19
Copybook/EWGVSMCD.cpy Normal file
View File

@ -0,0 +1,19 @@
00001 ******************************************************************07/18/95
00002 * EWGVSMCD VSAM - REV 2.0 *EWGVSMCD
00003 ****************************************************************** LV019
00004 05 VSMC-W-W. CL*16
00005 15 VSAM-W-RETURN-CODE PIC 9(4) COMP. CL*16
00006 88 VSAM-W-ERROR VALUE 30 40 50 80. CL*16
00007 15 VSAM-W-CONTROL-AREA. CL*16
00008 20 VSMC-W-LAST-KEY PIC 9(12). CL*17
00009 20 VSMC-W-KEY. CL*16
00010 25 VSMC-W-SSN PIC 9(9). CL*16
00011 25 VSMC-W-SEQ PIC X(3). CL*18
00012 20 VSMC-W-SEG-NBR OCCURS 02 TIMES PIC S9(4) COMP. CL*17
00013 20 VSMC-W-RECORD-LEN PIC S9(4) COMP. CL*16
00014 15 COM-BLL1-W-POINTER PIC S9(8) COMP. CL*16
00015 15 VSAM-W-RETURN-PGM PIC X(3). CL*16
00016 15 VSAM-W-COM-WRITE PIC 9. CL*16
00017 88 COM-W-REWRITE VALUE 0. CL*16
00018 88 COM-W-WRITE VALUE 1. CL*16
00019 15 FILLER PIC X(4) VALUE 'XXXX'. CL*19