Re: Update of a dataarea

[Charles Wilt <charles.wilt@xxxxxxxxx>]

Following up on Kevin's link...

You could build a ILE CL module that issues the CHGDTAARA command, and have
that called from your ILE RPG PgmC.

Charles

On Fri, Oct 22, 2021 at 12:31 PM Kevin Bucknum <Kevin@xxxxxxxxxxxxxxxxxxx>
wrote:

> Barbara's answer from along time ago.
>
> https://archive.midrange.com/midrange-l/200309/msg00154.html
>
>
>
> On Fri, 2021-10-22 at 14:26 -0400, smith5646midrange@xxxxxxxxx wrote:
> I have a CLLE program (PgmA) that calls another CLLE program (PgmB) which
> allocates a dataarea - ALCOBJ OBJ(dataarea *DTAARA *EXCLRD).  PgmB is used
> EVERYWHERE and cannot be changed.
>
>
>
> PgmA then calls an RPGLE (PgmC) that needs to update the dataarea.  If we
> do
> an IN *LOCK in PgmC, we get an error - *LOCK for data area *LIBL/dataarea
> was not granted (C G D F).
>
>
>
> If we omit the *LOCK on the IN in PgmC, then the OUT used to update it
> fails.
>
>
>
> What am I missing?
>
>
> [https://www.medtronsoftware.com/img/MedtronMinilogo.bmp]
> Kevin Bucknum
>
> Senior Programmer Analyst
>
> MEDDATA / MEDTRON
>
> 120 Innwood Drive
> Covington LA 70433
> Local: 985-893-2550<tel:985-893-2550>
> Toll Free: 877-893-2550<tel:877-893-2550>
> https://www.medtronsoftware.com
>
>
> CONFIDENTIALITY NOTICE
>
> This document and any accompanying this email transmission contain
> confidential information, belonging to the sender that is legally
> privileged.  This information is intended only for the use of the
> individual or entity named above.  The authorized recipient of this
> information is prohibited from disclosing this information to any other
> party and is required to destroy the information after its stated need has
> been fulfilled.  If you are not the intended recipient, or the employee of
> agent responsible to deliver it to the intended recipient, you are hereby
> notified that any disclosure, copying, distribution or action taken in
> reliance on the contents of these documents is STRICTLY PROHIBITED.  If you
> have received this email in error, please notify the sender immediately to
> arrange for return or destruction of these documents.
> --
> 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.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: https://amazon.midrange.com