MVS Jan 2005.p65 - CBT Tape

signal off failure
"ISPQRY"
ISPRC = RC
if ISPRC = Ø then
do
ispfenv = 'YES'
/*********************************************************************/
/* Check if HEADING ISPF table exists already, if so set HEADOFF=YES */
/*********************************************************************/
call ispwrap "VGET (ZSCREEN)"
if tsoenv = 'BACK' then
htable = jobinfo(1)||jobinfo(2)
else
htable = userid()||zscreen
TBCRC = ispwrap(8 "TBCREATE" htable "KEYS(HEAD)")
if TBCRC = Ø then
do
headoff = 'NO'
hcreator = 'YES'
end
else
do
headoff = 'YES'
end
end
signal on failure name trap
end
/*********************************************************************/
/* MODTRACE must occur after the setting of ISPFENV */
/*********************************************************************/
call modtrace 'START' sigl
/*********************************************************************/
/* Start-up message (if batch) */
/*********************************************************************/
startmsg = execname 'started' date() time() 'on' lpar
if tsoenv = 'BACK' & sysvar('SYSNEST') = 'NO' &,
headoff = 'NO' then
do
jobname = mvsvar('SYMDEF','JOBNAME')
jobinfo = jobinfo()
parse var jobinfo jobtype jobnum .
say jobname center(' 'startmsg' ',61,'-') jobtype jobnum
say
if ISPRC = -3 then
do
call saydd msgdd 1 'ISPF ISPQRY module not found,',
'ISPQRY is usually in the LINKLST'
call rcexit 2Ø 'ISPF ISPQRY module is missing'
end
/*********************************************************************/
© 2005. Reproduction prohibited. Please inform Xephon of any infringement.
59