----- Original Message -----
Sent: Thursday, September 21, 2000 11:37
AM
Subject: 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
+---