Re: Subfile update problem

Hint: What do you think (N) does?









From: Hoteltravelfundotcom <hoteltravelfun@xxxxxxxxx>
To: "RPG programming on the IBM i / System i" <rpg400-l@xxxxxxxxxxxx>
Date: 04/08/2016 03:20 PM
Subject: Subfile update problem
Sent by: "RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx>



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