× 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.



Is the a MONMSG CPF0000 in the CL after the delete?

Perhaps it couldn't delete it...

I'd imagine that "statement 1000001" is simply the implicit cycle code...

Charles

On Tue, Oct 24, 2017 at 11:50 AM, Bradley Stone <bvstone@xxxxxxxxx> wrote:

I would contact IBM. or...

If it is two programs trying to create the same file, then maybe the
naming scheme you're using needs to be refreshed.

I know having written SPLTOOL over 20 years ago and creating PDFs from
spooled files I've seen similar things. When I create temp files I tried
once to use a timestamp.. not good enough.. that can easily cause a clash
too. So I always use incrementing data areas for naming unique files.


Bradley V. Stone
www.bvstools.com
MAILTOOL Benefit #13 <https://www.bvstools.com/mailtool.html>: The ability
to use an IFS stream file as the body of the email (either text or html).

On Tue, Oct 24, 2017 at 11:37 AM, James H. H. Lampert <
jamesl@xxxxxxxxxxxxxxxxx> wrote:

Saw this at a customer site, and I'm not entirely sure what to make of
it,
or what to do about it.

We have an externally-described print file, which I'll call FOOBAR. And
we
have a CL program that does an OVRPRTF to create a PDF that I'll call
/frobozz/pdfwork/FOOBAR12345.PDF (after having deleted any previous
occurrence of that stream file). Then, it calls an RPG program (I'll call
it FROBNITZ), that prints to that print file, generating the PDF.

Except that in a single freak occurrence, when the RPG program was
called,
it threw a CPF4208 message:

To module . . . . . . . . . : FROBNITZ
To procedure . . . . . . . : FROBNITZ
Statement . . . . . . . . . : 1000001
Message . . . . : File FOOBAR in FROBOZZ not opened.
Cause . . . . . : The open operation of file FOOBAR in library FROBOZZ
failed because of reason code 6: . . . 6 --
Specified stream file already exists. . . .
Technical description . . . . . . . . : errno = 3457.


and locked up the job.

But there isn't a "statement 1000001" to be found anywhere in the source
member or compilation listing.

I will note that FOOBAR is *not* USROPN, and its F-spec declares it as an
externally-described output file, of type PRINTER.

In the CL program, it's just
. . .
DEL OBJLNK(&PDFPATH)
MONMSG CPF0000
OVRPRTF . . .
MONMSG CPF0000
CALL FROBNITZ . . .
. . .

Near as I can tell, two jobs were trying to generate the same PDF at the
same time. Anybody have any insights?

--
JHHL
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD

--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

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.