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

One could simply eschew the idea of sending a spool file, pdf or otherwise.
Instead you could do
create table rob.joblogg as (
select *
from table(qsys2.joblog_info('*')) A
order by ordinal_position desc)
with data;

select * from rob.joblogg;

Much easier to scan that than to look at the printed output any day,
especially if the string you are looking for spans lines of printed
output. For example, if your spool file looks like
line ###21 ... error with job xxxxx
line ###22 /yyyyyy/zzzzz...
that's rough to scan in a spool file or PDF. With that joblog file, no
problem. Simply look for job xxxxx/yyyyyy/zzzzz


On Tue, Feb 20, 2024 at 10:40 PM Glenn Gundermann <
glenn.gundermann@xxxxxxxxx> wrote:

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
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.