MVS Jan 2005.p65 - CBT Tape

* If MSGDD is provided, write the STARTMSG and SYSEXEC DSN to MSGDD */
/*********************************************************************/
if msgdd '' then
do
call ddcheck msgdd
call saydd msgdd 1 startmsg
call ddcheck 'SYSEXEC'
call saydd msgdd Ø execname 'loaded from' sysdsname
/*********************************************************************/
/* If there are PARMS, write them to the MSGDD */
/*********************************************************************/
if parms '' then
call saydd msgdd Ø 'Parms:' parms
/*********************************************************************/
/* If there is a STEPLIB, write the STEPLIB DSN MSGDD */
/*********************************************************************/
if listdsi('STEPLIB' 'FILE') = Ø then
do
steplibs = dddsns('STEPLIB')
call saydd msgdd Ø 'STEPLIB executables loaded',
'from' word(dddsns,1)
if dddsns('STEPLIB') > 1 then
do
do stl=2 to steplibs
call saydd msgdd Ø copies(' ',31),
word(dddsns,stl)
end
end
end
end
end
/*********************************************************************/
/* If foreground, save ZFKA and turn off the FKA display */
/*********************************************************************/
else
do
fkaset = 'OFF'
call ispwrap "VGET (ZFKA) PROFILE"
if zfka 'OFF' & tsoenv = 'FORE' then
do
fkaset = zfka
fkacmd = 'FKA OFF'
call ispwrap "CONTROL DISPLAY SAVE"
call ispwrap "DISPLAY PANEL(ISPBLANK) COMMAND(FKACMD)"
call ispwrap "CONTROL DISPLAY RESTORE"
end
end
/*********************************************************************/
pull tracelvl . module . sigl . sparms
call modtrace 'STOP' sigl
60 © 2005. Xephon USA telephone (214) 340 5690, fax (214) 341 7081.