Hi,
I managed to get BUFF40S to work. It probably will not work on
DOS/VS. I used DOS/360. You need to define a very small supervisor.
It seems it can't be bigger then 16K. BUFF40 does some LH to load
pointers to data, if they end up being over 16K they get sign
extended and will cause an address exception. Note this will not
work under POWER.
// ASSGN SYS012,X'191' <---- Disk for BUFF40S file.
// ASSGN SYS013,X'00C' <---- Where to get input from
// DLBL BUFF40S,'BUFF40.SPOOL.FILE',0,SD
// EXTENT SYS012,WRK14A,,,1100,1000 <- 10 to 1000
// UPSI 10000000 <--- Needed for format spool file.
// EXEC TSTFORT
$COMPILE
< Program goes here>
$EXECUTE
< Data goes here>
< Repeat COMPILE/EXECUTE as needed>
$COMPILEX
/*
/&
Compile supports the following options:
T=# number of seconds to allow to compile
P=# number of pages of output to allow
C=# number of input cards allowed.
E=# number of errors to allow.
L=1 enable listing.
Defaults: T=20,P=5,C=50,E=25,L=1
Many thanks to Rene Ferland for helping with how to define a
file in DOS.
Rich
-
==========================================================================
Richard Cornwell
rich@...
LinkedIn:
==========================================================================
