RE: Grabbing the LDA

A few ways exist.  This is one of them:

use a d-spec to define a data structure for the LDA

        D LOCAL          UDS                   
        D  FIELD1                       3  0
        D  FIELD2                      10

        * you can call it anything you want, and define any subfields you
want

use a c-spec to associate the LDA with your data structure

        C     *DTAARA       DEFINE    *LDA          LOCAL  

use c-specs to retrieve and replace the LDA

         C                   IN        LOCAL 
          * various EVAL's to change the subfields as needed
         C                   OUT       LOCAL 

I believe this is all you need.

Larry Jansen    
-----Original Message-----
From: John Furniss [mailto:JFurniss@xxxxxxxxxxxxxxxxx]
Sent: Thursday, March 25, 2004 8:26 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Grabbing the LDA


List:
        I searched "LDA" and "data area" in the archives, but couldn't find
the exact answer I needed. I want to grab the LDA in a Mapics user exit. How
do I define this? How long is this data area? My goal is to update a
specific field and have it passed back to the calling Mapics program.
        Thanks,

John Furniss
Allied Machine & Engineering Corp.
iSeries Application Programmer
Phone (330) 343-4283 Ext. 8371
email: jfurniss@xxxxxxxxxxxxxxxxx

_______________________________________________
This is the RPG programming on the AS400 / 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.

---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.624 / Virus Database: 401 - Release Date: 3/15/04
 

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.624 / Virus Database: 401 - Release Date: 3/15/04