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/DTSIM715.cpy Normal file
View File

@ -0,0 +1,23 @@
00001 ***** 03/26/12
00002 * DTSIM715
00003 * DTSIM715 TPS STATUS RECORD LV001
00004 * DTSIM715
00005 * COMMON RECORD FOR TPS STATUS DATA GENERATED IN DTSBE770 DTSIM715
00006 * AND USED TO BUILD TPS STATUS REPORTS IN DTSBE715. DTSIM715
00007 * DTSIM715
00008 * DTSIM715
00009 ***** DTSIM715
00010 DTSIM715
00011 10 M715-SORT-KEY-AREA. DTSIM715
00012 15 M715-TYPE PIC X(01). DTSIM715
00013 88 M715-TYPE-STATUS-88 VALUE '3'. DTSIM715
00014 15 M715-EMP-NO PIC S9(07) COMP-3. DTSIM715
00015 DTSIM715
00016 10 M715-DATA-AREA. DTSIM715
00017 15 M715-EMP-NAME PIC X(40). DTSIM715
00018 10 M715-PROCESS-DT PIC S9(09) COMP-3. DTSIM715
00019 10 M715-EFF-DT PIC S9(09) COMP-3. DTSIM715
00020 10 M715-DETERM-TYPE PIC X(01). DTSIM715
00021 88 M715-DETERM-NEW-88 VALUE '1'. DTSIM715
00022 88 M715-DETERM-SUCC-88 VALUE '2'. DTSIM715
00023 88 M715-DETERM-INACT-88 VALUE '3'. DTSIM715