Re: LDA-problem, adding more specs.

[Jim Langston <jimlangston@xxxxxxxxxxxxxxxx>]

Oh!  The day before?  The LDA is as it is described, the LOCAL data area.
It is local to that session.  It is not saved at all when the user logs
off.  The next time they sign on, they are given a fresh LDA.

You need to write the current value of the LDA before the user logs off
(perhaps back in Program 1 when they return from pgm 2), and read it when
they start the program 1 again. 

Many places to write it, your choice.  A Data Area (not local), a physical
file (perhaps with member names the same as their user name), just somewhere
on the DASD that you can read later.

Regards,

Jim Langston

michel.cuypers@newwave.be wrote:
> 
> Hi, Y'All,
> 
> I think I must elaborate a bit on the processing codes & - circumstances
> 
> 1. First of all, all pgms are interactive.
> 2. To code the *LDA I use following instructions.
> 
> In pgm 1, I use
> 138.00 D* LDA
> 139.00 D                UDS
> 140.00 D  ENTITY              1020   1024
> 141.00 C****************************************************
>                              ...
> 1015.00 C* FILL IN LDA
> 1016.00 C     *LOCK         IN        *DTAARA
> 1017.00 C                   MOVEL     $ENTY         ENTITY
> 1018.00 C                   OUT       *DTAARA
> 1019.00 C*
> 
> In pgm 2, I don't use anything
> 
> And in pgm 3, I use
> 
> 0145.00 D* LDA
> 0146.00 D                UDS
> 0147.00 D  ENTITY              1020   1024
> 0148.00 C*********************************************
>           ...
> 0568.00 C* NEW ENTITY
> 0569.00 C* ----------
> 0570.00 C* KEEP IN LDA
> 0571.00 C                   Z-ADD     0             $ENTY
> 0572.00 C     *LOCK         IN        *DTAARA
> 0573.00 C                   MOVEL     ENTITY        $ENTY
> 0574.00 C                   ADD       1             $ENTY
> 0575.00 C                   MOVEL     $ENTY         ENTITY
> 0576.00 C                   OUT       *DTAARA
> 
> Pgm 3-coding seems to be working, since during toggling through pgms2-3  the
> ENTITY-value is incremented ...
> 
> On the other hand, In pgm-1  $ENTY is calculated and supposedly put in *LDA:
> ENTITY
> to calculate & pick up the entity-value where it was left off (for instance, 
>the
> day before)
> This calculation is OK (debugging) , but ...
> 
> Greetings, Michel
+---
| 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
+---