Re: Passing numeric fields to COBOL program

[Pete Hall <peteh@xxxxxxxxxx>]

At 10:12 AM 6/9/98 -0500, Gary Lehman wrote:
>Does anyone know why you have to pass a numeric field(ex such as a date) in
>hex format?  I'm trying to pass an 8 digit instead of 6 like we've always
>done, but I never had anyone explain to me why hex format is used.  Does it
>have anything to do with packing data? 

Gary,

Assuming that you are talking about passing a numeric value from a command line 
or SBMJOB in the CMD() parameter via the CALL command, the system passes these 
by value, not by reference, and numeric values are always passed as packed 
15.5. In order to pass anything else, you need to specify it in hex. You can 
get around this by creating your own command in which you specify the actual 
length of the variable.

hth
Pete
 

Pete Hall
peteh@inwave.com 
http://www.inwave.com/~peteh/

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---