Re: *LDA question

This is a hunch but was this program converted from RPGII.  The updating
of the LDA does not take place in the same manner as in RPGII.  You may
want to look at passing the data as PARMS instead of using the LDA.

John Hall
Home Sales Co.


Mike Silvers wrote:
> 
> I am having a problem with some maintenance coding.  The program is written
> in RPGIII.  Here is the issue.... a CL changes a value in the *LDA.  An RPG
> program is called that does not change the value in the *LDA in the
> positions we are talking about.  This RPG program calls another RPG program.
> This program should take the positions of the *LDA and place the value on a
> display screen.  This does not happen.  I ran the final program in debug and
> found that:
>     1.    The display screen is shown before the program is executed.  In
> other words, the display screen is shown, then when the user presses enter,
> the program is executed.  The datapath on the display record format is
> shared, but no other program displays the screen before the problem program.
>     2.    The value of the *LDA is blank.  The CL wrote the values of 'NN'
> in the *LDA in those positions, but in debug, the value is blanks.
>     3.    The value of the *LDA after the program is executed is the correct
> value ('NN').
>     4.    The *LDA is defined in the program and I checked positions around
> the defined positions to make sure the value was not stored in a different
> position.  The position described in the program is the correct position.
> The *LDA is defined and read using these statements:
> C           *NAMVAR   DEFN *LDA      LDA
> C                     IN   LDA
> 
> Does anyone have any ideas???
> 
> Thanks.....
> 
> Mike
> 
> ================================
> 
> Mike Silvers, IBM Certified Expert
> Hainey Business Systems
> 8 E. Canal St
> Dover, PA 17315
> Branch Office:  (410) 397-8739
> Phone:  (800) 932-3380
> Fax:  (717) 292-9474
> Web: http:\\www.hbs-inc.com
> ________________________________
> Providing E-Commerce, EDI, AS/400
> Development and related services
> nationwide.
> ================================
> 
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---