Re[2]: Passing numeric fields to COBOL program

Gary,

If you are passing the parm as a literal, it has to be hex.  If passing value 
from CL variable, the dcl of the variable should be *dec (15 5).

In packed decimal format the sign is carried as 'F' (pos) or 'D' (neg)in the 
final nyble (sp?).

Eric A DeLong
ericadelong@pmsc.com 

______________________________ Reply Separator _________________________________
Subject: RE: Passing numeric fields to COBOL program 
Author:  <MIDRANGE-L@MIDRANGE.COM > at INTERNET
Date:    6/10/98 7:26 AM


So if I defined the field in my program as packed it HAS to be hex?  This 
may sound like a dumb question but if I key X'0070198F' is the first 0 the 
sign digit?
     
Gary Lehman
Programmer Analyst
Missouri Consolidated Health Care Plan
     
                -----Original Message-----
                From:        tuohyp@ibm.net [mailto:tuohyp@ibm.net] 
                Sent:        Tuesday, June 09, 1998 6:35 PM
                To:        'MIDRANGE-L@MIDRANGE.COM'
                Subject:        RE: Passing numeric fields to COBOL program
     
     
                Gary, does this problem occur when you are passing the
parameter from a command line? If so, the problem is that the number you are 
passing is signed where as the program is expecting packed, hence you key 
the number as a hex value.
     
                Paul Tuohy
     
                +---
                | 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
                +---
+---
| 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 
+---
     


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