Rich,
In Dignus Systems/C, you would just code:
#pragma prolkey(iefusi,"DCALL=YES")
//then the exit interface as defined
int iefusi(void * common,
char * jobstep,
char * program,
char * acct,
REGION * reg,
PERFORM * p,
DEFAULTS * def,
char * subsystem
)
{
// I think this is from samplib
reg->regflags1 |= 0x80;;
if (!p->perform_vr)
if (reg->regszreq!=0) {
reg->reglimb = reg->regszreq+size64K;
reg->regsizb = reg->regszreq;
reg->regsiza = size32M;
reg->reglimb = size32M;
}
}
For more information, see http://dignus.com .
Mike.
(this is an example from a while back, so there may be parm changes
since I wrote it, its also missing some typedefs for REGION, PERFORM
and DEFAULTS)
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
