linux build
This commit is contained in:
parent
8fa056fa85
commit
bdcd276bf8
@ -1,7 +1,7 @@
|
|||||||
del %1.obj 2>nul
|
del %1.obj 2>nul
|
||||||
del %1.exe 2>nul
|
del %1.exe 2>nul
|
||||||
|
|
||||||
ntvdm -t -r:. -h -c -d cobol %1,%1,%1/D;
|
ntvdm -r:. -h -c -d cobol %1,%1,%1/D;
|
||||||
|
|
||||||
ntvdm -c runcob %1
|
ntvdm -c runcob %1
|
||||||
echo:
|
echo:
|
||||||
|
11
Microsoft COBOL v21/m.sh
Normal file
11
Microsoft COBOL v21/m.sh
Normal file
@ -0,0 +1,11 @@
|
|||||||
|
str=$(tr '[a-z]' '[A-Z]' <<< $1)
|
||||||
|
|
||||||
|
rm $str.INT 2>/dev/null
|
||||||
|
rm $str.LST 2>/dev/null
|
||||||
|
|
||||||
|
ntvdm -u -r:. -h -c -d COBOL $str,$str,$str/D\;
|
||||||
|
|
||||||
|
rm $str.LST 2>/dev/null
|
||||||
|
|
||||||
|
ntvdm -u -r:. -c RUNCOB $str
|
||||||
|
echo
|
Loading…
Reference in New Issue
Block a user