linux build
This commit is contained in:
parent
8fa056fa85
commit
bdcd276bf8
@ -1,7 +1,7 @@
|
||||
del %1.obj 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
|
||||
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