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

27
Copybook/DTSIR905.cpy Normal file
View File

@ -0,0 +1,27 @@
00001 ***** 10/07/98
00002 * DTSIR905
00003 * DTSIR905 ON-LINE RECOVERY/RESTART REPORT RECORD. LV004
00004 * DTSIR905
00005 ***** DTSIR905
00006 CL**3
00007 10 R905-LENGTH PIC S9(04) COMP. CL**2
00008 CL**3
00009 10 R905-SORT-AREA. DTSIR905
00010 15 R905-REC-TYPE PIC X(03) VALUE '905'. DTSIR905
00011 15 R905-EMP-NO PIC S9(07) COMP-3. DTSIR905
00012 15 R905-SYS-DATE PIC S9(09) COMP-3. DTSIR905
00013 15 R905-SYS-TIME PIC S9(07) COMP-3. DTSIR905
00014 CL**3
00015 10 R905-DATA-AREA. DTSIR905
00016 15 R905-OP-ID PIC X(08). DTSIR905
00017 15 R905-UPDATE-IND PIC X(01). DTSIR905
00018 15 R905-UPDATE-TASK-ID PIC S9(08) COMP. DTSIR905
00019 15 R905-UPDATE-OP-ID PIC X(08). DTSIR905
00020 15 R905-UPDATE-TERMID PIC X(04). DTSIR905
00021 15 R905-UPDATE-NETNAME PIC X(08). CL**2
00022 15 R905-UPDATE-START-DATE PIC S9(09) COMP-3. DTSIR905
00023 15 R905-UPDATE-START-TIME PIC S9(07) COMP-3. DTSIR905
00024 15 R905-UPDATE-SCR-ID PIC X(02). DTSIR905
00025 15 R905-UPDATE-FUNCTION PIC X(01). DTSIR905
00026 CL**4
00027 10 R905-PADDING-FOR-SYNCSORT PIC X(20). CL**4