Re: RPG, SQL and Journaling -- RPG400-L

Nope.

Exec Sql Update LOG_SERVICE_IFS_TEXT_FILE_LOCATION

Set LOCATION_ACTIVE = :B_LOCACT,

WHO_LAST_UPDATED = :CurrentUser

Where LOG_FILE_NUMBER = :InIdentityKey;

SqlErrorCheck(SqlState:

'UpdateRecord':

'Update of LOG_SERVICE_IFS_TEXT_FILE_LOCATION(XLIFSL)
failed!');

Program . . . . . . . : XL0001 Library . . . . . . . :
LIBLOGSRVC

DB2 for IBM i module attributes:

Number of SQL statements . . . . . . . . . . . : 7

Commitment control . . . . . . . . . . . . . . : *NONE

Relational database . . . . . . . . . . . . . : *LOCAL

Naming convention . . . . . . . . . . . . . . : *SYS

Allow copy of data . . . . . . . . . . . . . . : *OPTIMIZE

Allow blocking . . . . . . . . . . . . . . . . : *ALLREAD

Delay PREPARE . . . . . . . . . . . . . . . . : *NO

Close SQL cursor . . . . . . . . . . . . . . . : *ENDACTGRP

Date format . . . . . . . . . . . . . . . . . : *ISO

Date separator . . . . . . . . . . . . . . . . : /

Time format . . . . . . . . . . . . . . . . . : *HMS

Time separator . . . . . . . . . . . . . . . . : :

Default Collection name . . . . . . . . . . . : *NONE

On Wed, May 8, 2024 at 1:47 PM Charles Wilt <charles.wilt@xxxxxxxxx> wrote:

Do you have a WITH xxx in the SQL Statement?

UPDATE ...
...
WITH CHG;

That overrides the module setting.

Charles

On Wed, May 8, 2024 at 1:43 PM Alan Campin <alan0307d@xxxxxxxxx> wrote:

I am working on my next open source project and have run into another
weird one.

I have built a screen program using ILE RPG with SQL for database I/O.
Tables are all defined with DDL. All modules are compiled with
COMIIT(*NONE) and a display of the modules with a DSPMOD show

COMMIT(*NONE)

but when I attempt to do a UPDATE operation on a field in a database

table

the program crashes with an error saying I must have a journal for
commitment control.

I tried adding SET OPTION COMMIT = *NONE but the same result.

I have been writing programs like this for years and never ran into this.
This system is at V7R3.

Has IBM changed RPG to now require that a table be journaled? Nothing I

can

find in the documentation says that.

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

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

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

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.