commiting everything bcz i am moving all stuff to another machine 10.57.100.120
This commit is contained in:
@ -11,6 +11,7 @@
|
||||
00011 ***** DTSIP007
|
||||
00012 CL**2
|
||||
00013 S7000-IO-DATA-TO-WRK-DATA. DTSIP007
|
||||
DISPLAY 'MIO-COMPRESSION-IND:' MIO-COMPRESSION-IND. DTSIP007
|
||||
00014 IF MIO-COMPRESS-NO-88 DTSIP007
|
||||
00015 PERFORM S7100-EXPAND-NO THRU S7100-EXIT DTSIP007
|
||||
00016 ELSE DTSIP007
|
||||
|
||||
Reference in New Issue
Block a user