re: external data area -Reply

Boothm wrote

> I want one of the fields in a 57 character 
> external data area to be numeric.

         <SNIP>

> CHGDTAARA DTAARA(SMPLDA (45 4) 
> VALUE(-3500)

Well, I don't know if it'll help you, 'cause your
application pgm will have to interpret the minus
sign, but the following does work (and is readable
via DSPDTAARA)

CHGDTAARA DTAARA(SMPLDA (45 4)) VALUE('-350')

You're also limited to +/- 999 values.  What you're
probably more interested in is something like this:

CHGDTAARA DTAARA(SMPLDA (45 4)) 
  VALUE(X'0003500D')

this will put the Hex representation of a packed
-3500 into your data area.
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the Midrange System Mailing List!  To submit a new message,   *
* send your mail to "MIDRANGE-L@midrange.com".  To unsubscribe from     *
* this list send email to MAJORDOMO@midrange.com and specify            *
* 'unsubscribe MIDRANGE-L' in the body of your message.  Questions      *
* should be directed to the list owner / operator: david@midrange.com   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *