Re: LDA-problem, adding more specs.

["Charlie Massoglia" <cmassoglia@xxxxxxxxxxx>]

Are you rereading the LDA each time program 1 resumes execution after
programs 2 and 3 are called?  I assume program 1 calls program 2 calls
program 3.

Charles L.Massoglia, President
Massoglia Technical Consulting, Inc.
cmassoglia@voyager.net
In MI 517-676-9700 or in NC 919-363-9395

----- Original Message -----
From: <michel.cuypers@newwave.be>
To: <RPG400-L@midrange.com>
Sent: Wednesday, 11 April, 2001 09:40
Subject: LDA-problem, adding more specs.


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

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