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

28
Copybook/DTSIL973.cpy Normal file
View File

@ -0,0 +1,28 @@
00001 ***** 07/27/98
00002 * DTSIL973
00003 * MACIL973 RATING EXPERIENCE FILE LV001
00004 * INPUT/OUTPUT LINKAGE. DTSIL973
00005 * DTSIL973
00006 ***** DTSIL973
00007 SKIP1 DTSIL973
00008 10 L973-TRACE-IND PIC X(01). DTSIL973
00009 88 L973-TRACE-88 VALUE 'T'. DTSIL973
00010 SKIP1 DTSIL973
00011 10 L973-MOD-NAME PIC X(08). DTSIL973
00012 SKIP1 DTSIL973
00013 10 L973-CMND-CD PIC X(03). DTSIL973
00014 88 L973-OPEN-READ-88 VALUE 'OPR'. DTSIL973
00015 88 L973-OPEN-UPDATE-88 VALUE 'OPU'. DTSIL973
00016 88 L973-READ-88 VALUE 'RD '. DTSIL973
00017 88 L973-START-BROWSE-88 VALUE 'STB'. DTSIL973
00018 88 L973-READ-NEXT-88 VALUE 'RDN'. DTSIL973
00019 88 L973-WRITE-88 VALUE 'WR '. DTSIL973
00020 88 L973-REWRITE-88 VALUE 'RWR'. DTSIL973
00021 88 L973-DELETE-88 VALUE 'DEL'. DTSIL973
00022 88 L973-CLOSE-88 VALUE 'CL '. DTSIL973
00023 SKIP1 DTSIL973
00024 10 FILLER PIC X(51). DTSIL973
00025 SKIP1 DTSIL973
00026 10 L973-RESULT-IND PIC X(01). DTSIL973
00027 88 L973-OK-88 VALUE '0'. DTSIL973
00028 88 L973-NO-REC-88 VALUE '1'. DTSIL973