RE: An introduction to MI by example II (part B)...

[Tim McCarthy <TimM@xxxxxxxxxxxxxxxxxx>]

Skip the PKDWORK variable and just do ADDN SUM,NBR1,NBR2; If you got
this from the RPG compiler output then remember - RPG creates a lot of
#$%%. 

TrailBlazer Systems, Inc.
http://www.softwarejungle.com
AS/400 E-Commerce Solutions

Chaos, panic, & disorder - my work here is done.


> DCL DD NBR1 PKD (03,0) BAS(NBR1.P );
> DCL DD NBR2 PKD (03,0) BAS(NBR2.P );
> DCL DD SUM PKD (05,0) BAS(SUM.P );
> DCL DD .PKDWORK PKD(26,10);
> DCL SPCPTR NBR1.P PARM;
> DCL SPCPTR NBR2.P PARM;
> DCL SPCPTR SUM.P PARM;
> DCL OL *ENTRY
> (NBR1.P ,NBR2.P ,SUM.P ) EXT PARM MIN(0);
> 
> ENTRY * (PARMS) EXT;
> ADDN .PKDWORK,NBR1,NBR2;
> CPYNV SUM,.PKDWORK;
> RTX *;
> PEND;
> 
> 
+---
| This is the MI Programmers Mailing List!
| To submit a new message, send your mail to MI400@midrange.com.
| To subscribe to this list send email to MI400-SUB@midrange.com.
| To unsubscribe from this list send email to MI400-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: dr2@cssas400.com
+---