giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

From UAT Z's file modified

Browse Source
This commit is contained in:
Manoj Patel
2025-09-19 12:33:15 -04:00
parent 10597a27ba
commit 8dc0204972
40 changed files with 5728 additions and 2063 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Copybook/DTSIP007.cpy
View File

@ -10,8 +10,8 @@
00010 * CL**2
00011 ***** DTSIP007
00012 CL**2
00013 S7000-IO-DATA-TO-WRK-DATA. DTSIP007
DISPLAY 'MIO-COMPRESSION-IND:' MIO-COMPRESSION-IND. DTSIP007
00013 S7000-IO-DATA-TO-WRK-DATA.
*** SET MIO-COMPRESS-NO-88 TO TRUE. DTSIP007
00014 IF MIO-COMPRESS-NO-88 DTSIP007
00015 PERFORM S7100-EXPAND-NO THRU S7100-EXIT DTSIP007
00016 ELSE DTSIP007