× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.