RE: *LDA question

[jerickson@xxxxxxx]

Title: RE: *LDA question

Silly question,...  are you re-writing the display record after the retrieval of the *LDA?

-----Original Message-----
From: Mike Silvers [mailto:msilvers@hbs-inc.com]
Sent: Thursday, September 21, 2000 7:12 AM
To: RPG400-L@midrange.com
Subject: *LDA question

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