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



Birgitta,

See my latest post. But your response rasies some questions:

The RPGLE is running in *CALLER, wouldn't that mean it *ACTGRP would be fine?

How does one determine what the RPGLE program expects?

Thanks!
Charles Wilt


On Fri, Jan 30, 2009 at 4:01 PM, Birgitta Hauser <Hauser@xxxxxxxxxxxxxxx> wrote:
Hi Charles,

not sure if this helps but:
If commitment control is not yet started, that means STRCMTCTL was not
executed, a program with embedded SQL will automatically execute STRCMTCTL
with default values.
The default value for commitment scope is *ACTGRP (and not *JOB!).
If STRCMTCTL was already executed in the current job, it will not be started
again from an embedded SQL program.

I assume your RPGLE program expects a commitment scope on job level, but was
accidentally started (by embedded SQL) on activation group level.
I also assume, that a start program that normally starts commitment control
was not executed.

Mit freundlichen Grüßen / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them
and keeping them!"


-----Ursprüngliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Im
Auftrag von Charles Wilt
Gesendet: Friday, 30. January 2009 21:30
An: RPG programming on the IBM i / System i
Betreff: Re: CPF4326 in RPGLE program called by SQLRPGLE program

Ok digging into this a bit more:

-------Activation Group--------
Name Number In Use Indicator
*DFTACTGRP 0000000000000001 Yes
*DFTACTGRP 0000000000000002 Yes
QLGLOCAL 0000000000000012 No
17 0000000000000011 Yes
19 0000000000000013 Yes

------Activation Group------ Control
Type Program Name Number Boundary
1 QCMD QSYS *DFTACTGRP 0000000000000001 Yes
RBLDPRCSTG HLTHPRDPGM *NEW 0000000000000011 Yes
RBLDPRCSTG HLTHPRDPGM *NEW 0000000000000011 No
TB100R HLTHPRDPGM *NEW 0000000000000013 Yes
TB100R HLTHPRDPGM *NEW 0000000000000013 No
TG017R HLTHPRDPGM *NEW 0000000000000013 No

TB100R is the SQLRPGLE
TG017R is the RPGLE

Commitment
Opt Definition Text
17 Activation-group-level


Why is the commitment definition under AG#11 when it was created by
the COMMIT(*CHG) on the SQLRPGLE program using AG#13?

Charles


On Fri, Jan 30, 2009 at 3:15 PM, Charles Wilt <charles.wilt@xxxxxxxxx>
wrote:
The SQLRPGLE is designed to run under *CHG.

Charles

On Fri, Jan 30, 2009 at 2:24 PM, Mark Walter <mwalter@xxxxxxxxxxxxxxx>
wrote:
Compile your SQLRPG with COMMIT(*NONE).

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Charles Wilt
Sent: Friday, January 30, 2009 2:02 PM
To: RPG programming on the AS400 / iSeries
Subject: CPF4326 in RPGLE program called by SQLRPGLE program

All,

I'm suddenly ((?)) getting a CPF4326 - Commitment definition *N not
valid for open of FCONTRL0. In an RPGLE program called by a SQLRPGLE
program.

Cause . . . . . : Commitment definition *N is not valid for open of
member
FCONTRL0 file FCONTRL0 in library HLTHITGDTA for one of the following
reasons:
-- Member FCONTRL0 was opened for commitment control when commitment
definition *N was not active.
-- Uncommitted changes are pending for member FCONTRL0 for a
commitment
definition other than *N.
-- The calling program is using commitment definition *N which has a
scope
of *ACTGRP, while the program specified to open the file using a scope
of
*JOB.

The SQLRPGLE program specifies DFTACTGRP(*NO) ACTGRP(*NEW)

The RPGLE program specifies DFTACTGRP(*NO) ACTGRP(*CALLER)

Using 16-Display Commitment Control, I see a commit definition with
the text 'Activation-group-level'. There are no changes pending.

From the causes above, I believe the RPGLE is expecting a commit
definition scope of *JOB.

Would you agree?

If so, is there any way to control what commitment scope the RPGLE
program expects?

What I don't understand is why this process has worked in the past
with no issues (and I'm sure there's never been a CL in front with a
STRCMTCTL).

The only thing I can think of that's changed is that the box has been
upgraded from v5r2 to v5r4. It's possible an IBM default value as
been changed from some custom value. But which one?

Thanks in advance!
Charles Wilt
--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing
list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

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



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


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



As an Amazon Associate we earn from qualifying purchases.

This thread ...

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.