Re: Update in procedure not working

Run the following command:

CHGJOB LOG(4 00 *SECLVL) LOGCLPGM(*YES)

 Then run your job again.  (I am assuming that you are running this program interactively.) 

You should see more details in the job log this time.

Warmest Regards,

Richard Reeve



On Tuesday, March 25, 2014 1:40 PM, RPGLIST <rpglist@xxxxxxxxxxx> wrote:

I did and there was nothing in the job log, except for the program call.
that's it.

Take a look at the joblog.  The problem will appear before your very
eyes....:o)


Warmest Regards,

Richard Reeve



On Tuesday, March 25, 2014 1:03 PM, RPGLIST <rpglist@xxxxxxxxxxx> wrote:

I know this is going to turn out to be pretty simple, but for the life of
me I cannot see the issue.

This is all within a procedure:

I'm chaining out to a file with a key using a Ds named InDs defined as
*INPUT.  Works perfectly, get a hit and I have the record.

I copy InDs to a Ds named OutDs defined as an *OUTPUT, I update the OutDs
with a variety of new values that are needed and then execute the
following statement:

Update RdCobex OutDs;

Executes fine, no errors or anything... but the record is never updated.

Here are the DS definitions:

520       D InDs            ds                  LikeRec(rdCobEx:*Input)
521       D OutDs           ds                  LikeRec(RdCobex:*Output)

Here is the file declaration:

512       FDepndCobExuf   e           k Disk



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