Re: Create PDF using Transform Services does not work in restricted state

Hi Glenn,

Another way of looking at this would be if an IPL is required you could
update a data area with the complete job number of the backup job.

Ensure the logging is such that the job log will not be removed as the job
completed normally. I would use log(4 0 *seclvl) logclpgm(*yes)

Then in the system start up program check that data area and if there is a
job number print and email the joblog and then clear the data area.

I suggest a data area as that is simple but you could use a table or a
data queue checked on start up.

Thanks

Don





From: "Glenn Gundermann" <glenn.gundermann@xxxxxxxxx>
To: "Midrange Systems Technical Discussion"
<midrange-l@xxxxxxxxxxxxxxxxxx>
Date: 21/02/2024 01:40 PM
Subject: Create PDF using Transform Services does not work in
restricted state
Sent by: "MIDRANGE-L" <midrange-l-bounces@xxxxxxxxxxxxxxxxxx>



Hi folks,

We're on 7.4 with the latest PTFs.

I have a batch backup program running in QCTL that ends all subsystems,
does a full system backup, restarts all subsystems, DSPJOBLOG to PDF and
emails the PDF. This works fine.

I want to add a feature. After the backup is complete and
before restarting all subsystems, I want to check a dataarea and determine
if I have set it to perform an IPL. If yes, I want to perform an IPL. But
before the IPL, I want to generate the joblog PDF and email it.
Unfortunately, since the system is in a restricted state, I get the
following error message:

OVRPRTF FILE(QPJOBLOG) DEVTYPE(*AFPDS) TOSTMF('/tmp/DEVS2K backup joblog
2024-02-19 18.51.27.pdf') WSCST(*PDF) OVRSCOPE(*JOB)

DSPJOBLOG JOB(*) OUTPUT(*PRINT)

CPFCE02 - Unable to access the required transform service.

What's the minimum I need to start to get Transform Services to work?

After the backup is complete, I'm thinking I would do this:

DCL VAR(&QSTRUPPGM) TYPE(*CHAR) LEN(20)
DCL VAR(&STRUPPGM) TYPE(*CHAR) STG(*DEFINED) +
LEN(10) DEFVAR(&QSTRUPPGM 1)
DCL VAR(&STRUPLIB) TYPE(*CHAR) STG(*DEFINED) +
LEN(10) DEFVAR(&QSTRUPPGM 11)

===================
If performing an IPL:
===================
RTVSYSVAL SYSVAL(QSTRUPPGM) RTNVAR(&QSTRUPPGM)
CHGSYSVAL SYSVAL(QSTRUPPGM) VALUE(*NONE)
STRSBS QCTL
start whatever else is needed for Transform Services.
dspjoblog to pdf and email pdf
CHGSYSVAL SYSVAL(QSTRUPPGM) VALUE(&STRUPLIB/&STRUPPGM)
PWRDWNSYS OPTION(*IMMED) RESTART(*YES)

===================
If not performing an IPL:
===================
STRSBS QCTL
dspjoblog to pdf and email pdf

Yours truly,

Glenn Gundermann
Email: glenn.gundermann@xxxxxxxxx
Cell: (416) 317-3144