Wouldn't it be nice if you could verify that you really did mean to press ENTER? And if you didn't mean to press ENTER, wouldn't it be nice to prevent the system from "powering down" until that 12-hour process completes? With a small CL program and the use of exit point programs, you can delay the execution of the PWRDWNSYS command.
The following CL program sends a message to a specified user and waits for a reply:
DCL VAR(&REPLY) TYPE(*CHAR) LEN(1)
SNDUSRMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('PWRDWNSYS will be processed as +
soon as you respond to this message. +
Enter G to continue.') VALUES('G') +
TOUSR(QSYSOPR) MSGRPY(&REPLY)
ENDPGM
By combining this CL program and the "Prepower down system exit point" (QIBM_QWC_PWRDWNSYS), you can delay the execution of the PWRDWNSYS command until you (or someone else) responds to the message from the CL program.
Simply compile the CL program (CRTCLPGM) and add it to the exit point with the ADDEXITPGM command:
Once this is done, anytime the PWRDWNSYS command is executed, a message will be sent to the user specified in the SNDUSRMSG command (QSYSOPR in this example) and the power down process will not continue until a valid response to the message is received. So, even though you can't prevent the inevitable PWRDWNSYS process, you can delay it until a more convenient time.
--Steve McKay
Business users want new applications now. Market and regulatory pressures require faster application updates and delivery into production. Your IBM i developers may be approaching retirement, and you see no sure way to fill their positions with experienced developers. In addition, you may be caught between maintaining your existing applications and the uncertainty of moving to something new.
IT managers hoping to find new IBM i talent are discovering that the pool of experienced RPG programmers and operators or administrators with intimate knowledge of the operating system and the applications that run on it is small. This begs the question: How will you manage the platform that supports such a big part of your business? This guide offers strategies and software suggestions to help you plan IT staffing and resources and smooth the transition after your AS/400 talent retires. Read on to learn:
LATEST COMMENTS
MC Press Online