Re: Subfile update problem

Assuming you are trying to update SROCTLRB , the CHAIN(N) is not locking
the record for update , remove the 'N' from Chain.

Update requires exclusive record which it is not getting hence it is not
working.

The (N) extender should be used while loading the subfile and not while
actually updating it.

Thanks,
Ashwani

Please consider the environment before printing this e-mail

-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
Hoteltravelfundotcom
Sent: Friday, April 08, 2016 12:00 PM
To: RPG programming on the IBM i / System i
Subject: Subfile update problem

This update is never getting run, because 91 is on. I try to update with
option 2 this brings the record to a single screen, this i change the amt,
it closes but does not actually update. My question is, why is add working
and not update.

This is a subfile list that i select the record to update. the add works.
c *inKJ ifeq *on
c CurrentUser ifeq 'SIMONK'
c CurrentUser oreq 'RABEB'

C WRITE CTLRB
c endif
c goto ends32


0624.00 C* Update or add record

0624.02 C KKCTRB CHAIN(N) SROCTLRB 91

0625.00 C *IN91 IFEQ *OFF

0626.00 C eval CTUserChg = CurrentUser

0627.00 C eval CTDateChg
=%dec(%char(%date():*iso0):8:0)
0
0629.00 C UPDATE CTLRB

0630.00 C ELSE

0633.00 C Time CTTimeAdd

0633.01 c endif

0633.02 C Time CTTimeAdd

0633.03 C eval CTUserAdd = CurrentUser

0633.04 C eval CTDateAdd
=%dec(%char(%date():*iso0):8:0)
0633.05 C END
--
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: 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.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.
--
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: 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.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.