MVS Jan 2005.p65 - CBT Tape
MVS Jan 2005.p65 - CBT Tape
MVS Jan 2005.p65 - CBT Tape
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
signal off failure<br />
"ISPQRY"<br />
ISPRC = RC<br />
if ISPRC = Ø then<br />
do<br />
ispfenv = 'YES'<br />
/*********************************************************************/<br />
/* Check if HEADING ISPF table exists already, if so set HEADOFF=YES */<br />
/*********************************************************************/<br />
call ispwrap "VGET (ZSCREEN)"<br />
if tsoenv = 'BACK' then<br />
htable = jobinfo(1)||jobinfo(2)<br />
else<br />
htable = userid()||zscreen<br />
TBCRC = ispwrap(8 "TBCREATE" htable "KEYS(HEAD)")<br />
if TBCRC = Ø then<br />
do<br />
headoff = 'NO'<br />
hcreator = 'YES'<br />
end<br />
else<br />
do<br />
headoff = 'YES'<br />
end<br />
end<br />
signal on failure name trap<br />
end<br />
/*********************************************************************/<br />
/* MODTRACE must occur after the setting of ISPFENV */<br />
/*********************************************************************/<br />
call modtrace 'START' sigl<br />
/*********************************************************************/<br />
/* Start-up message (if batch) */<br />
/*********************************************************************/<br />
startmsg = execname 'started' date() time() 'on' lpar<br />
if tsoenv = 'BACK' & sysvar('SYSNEST') = 'NO' &,<br />
headoff = 'NO' then<br />
do<br />
jobname = mvsvar('SYMDEF','JOBNAME')<br />
jobinfo = jobinfo()<br />
parse var jobinfo jobtype jobnum .<br />
say jobname center(' 'startmsg' ',61,'-') jobtype jobnum<br />
say<br />
if ISPRC = -3 then<br />
do<br />
call saydd msgdd 1 'ISPF ISPQRY module not found,',<br />
'ISPQRY is usually in the LINKLST'<br />
call rcexit 2Ø 'ISPF ISPQRY module is missing'<br />
end<br />
/*********************************************************************/<br />
© 2005. Reproduction prohibited. Please inform Xephon of any infringement.<br />
59