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

[Rob Berendt <robertowenberendt@xxxxxxxxx>]

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.