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

25
Copybook/DTSIL825.cpy Normal file
View File

@ -0,0 +1,25 @@
00001 ***** 09/09/98
00002 * DTSIL825
00003 * DTSIL825 ONLINE ACTIVITY FILE OUTPUT LINKAGE. LV002
00004 * DTSIL825
00005 * DTSIL825 IS USED IN CONJUNCTION WITH DTSIRSK1 OR CL**2
00006 * DTSIRSK2 OR DTSIRSK3 TO FORM THE COMMUNICATIONS AREA CL**2
00007 * TO DTSCU825. CL**2
00008 * DTSIL825
00009 * CL**2
00010 * 09/09/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**2
00011 * CL**2
00012 ***** DTSIL825
00013 CL**2
00014 10 L825-CMND-CD PIC X(03). DTSIL825
00015 88 L825-WRITE-88 VALUE 'WR '. DTSIL825
00016 CL**2
00017 10 FILLER PIC X(60). CL**2
00018 CL**2
00019 10 L825-MSG-AREA. DTSIL825
00020 15 L825-MSG-ID PIC X(04). DTSIL825
00021 15 L825-MSG-TXT PIC X(60). DTSIL825
00022 CL**2
00023 10 L825-RESULT-IND PIC X(01). DTSIL825
00024 88 L825-OK-88 VALUE '0'. DTSIL825
00025 88 L825-FILE-CLOSED-88 VALUE '9'. DTSIL825