Passing parms between CL and RPG (was RPG Display program and processing)

[Buck Calabro <buck.calabro@xxxxxxxxxxxxxxxxx>]

Jim Langston wrote:

>The one pain is the first CL converts the 
>two numeric fields to alpha and
>then passes them to the second CL.  
>The second CL passes the numbers
>as characters, as there's the imfamous 
>15,2 problem with passing numbers
>between CL and RPG.  

As an aside, there's no problem at all passing numeric parameters between CL
and RPG - even via SBMJOB.  Declare them to be 15,5 and Bob's your uncle.
This is because the command line (or CMD parm on SBMJOB, etc.) has no
explicit declaration of numeric values, so it allocates storage for them in
the form of Packed 15 with 5 decimals.

PGM                               
                                  
DCL &NUMBER *DEC (15 5) VALUE(75) 
SBMJOB CMD(CALL SBMJOB2 &NUMBER) +
       JOB(SBMJOB)                
                                  
ENDPGM                            

d NumberParm      s             15p 5                  
                                                       
c     *Entry        plist                              
c                   parm                    NumberParm 
                                                       
c                   if         NumberParm > 10         
c     '>10'         dsply     'BUCK'                   
c                   endif                              
                                                       
c                   dump                               
c                   eval       *InLR = *On             

Buck Calabro
Aptis; Albany, NY
"We are what we repeatedly do.
 Excellence, then, is not an act, but a habit." --Aristotle


Billing Concepts Corp., a NASDAQ Listed Company, Symbol: BILL
+---
| 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
+---