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.
midrange.com
