RE: Passing numeric fields to COBOL program

[Pete Hall <peteh@xxxxxxxxxx>]

At 11:59 AM 6/17/98 -0400, Howard Weatherly wrote:
>Well, on the mainframe the "F" does indeed change to a "C"
>or "D" if the field is used as a result field in COBOL, I'm
>not sure about DB2 but sense the result would be in a host
>variable, I can't help but believe it to be true there as
>well. Now on the 400, I think I will do somemore diging just
>to satisfy my own curiousity.

I had to convert some packed fields from a mainframe flat file several years 
ago, and had to examine each for a C in the sign nibble and replace that with a 
D in order to make it work. Otherwise, I think I just got a data decimal 
exception (this was V2R2). As I recall, I did this by positionally parsing the 
fields and using the SCAN opcode to see if the rightmost byte was in the 
constant X'0C1C2C3C4C5C6C7C8C9C', then using MLLZO to replace it if necessary. 
It wasn't pretty, but it did work.

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