CRTSRCPF FILE(QTEMP/QCLSRC)
EDTF FILE(QTEMP/QCLSRC) MBR(JEFF)
************Beginning of data**************
SNDMSG MSG('BEFORE PWRDWNSYS') TOUSR(ROB)
PWRDWNSYS OPTION(*IMMED) RESTART(*YES *FULL)
DSPJOBLOG OUTPUT(*PRINT)
SNDMSG MSG('AFTER PWRDWNSYS') TOUSR(ROB)
************End of Data********************
CRTCLPGM PGM(QTEMP/JEFF) SRCFILE(QTEMP/QCLSRC)
Ownership of object JEFF in QTEMP type *PGM changed.
Program JEFF created in library QTEMP.
CALL QTEMP/JEFF
To confirm power down, press F16.
F16=Confirm
From HMC: D9002740 and so on and so forth...
Sign on
DSPMSG ROB
From . . . : ROB 01/03/13 15:54:35
BEFORE PWRDWNSYS
No "AFTER".
I might be a little thirsty Tuesday night...
Rob Berendt
