Re: Passing numeric fields to COBOL program

[Jon Paris <paris@xxxxxxxxxx>]

>> Does anyone know why you have to pass a numeric field(ex such as a date) in
hex format?

Gary  - other than for literals, COBOL does not have any means to define a "hex
format" so I'm not sure I know what you mean.  What I can tell you is that
COBOL has NO restrictions that I know of for assing anything.  If you can post
a brief example of what you're having a problem with I can take a look.  The
following however would work just fine.

 Program A.

 01  Date-Stuff.
        05 Six-long Pic S9(6) Comp.
        05 Eight-long Pic S9(8).
 :
 :
 Procedure division.
 :
        Call 'B' using Six-long, Eight-long.




 Program B.
 :
 Linkage section
 77 Six-long Pic S9(6) Comp.
 77 Eight-long Pic S9(8).

 Procedure Division using Six-long, Eight-long.



Jon Paris - AS/400 AD Market Support - paris@ca.ibm.com
Phone: (416) 448-4019   -   Fax: (416) 448-4414
+---
| 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
+---