RE: decimal data error (packed field?)

you could pass a flag back from the called program and use it to determine
whether or not to RESET the data structure (or would a CLEAR work here)

Joe Giusto II
Patuxent Publishing Company
 <mailto:jgiusto@patuxent.com> mailto:JGiusto@patuxent.com
http://www.lifegoeson.com <http://lifegoeson.com> 


        -----Original Message-----
        From:   Tim Truax [SMTP:truax@usaor.net]
        Sent:   Thursday, October 29, 1998 6:21 PM
        To:     MIDRANGE-L@midrange.com
        Subject:        Re: decimal data error (packed field?)

        Hi all,
        Thanks to all of you for your thoughtful replies.  This particular
externally
        defined DS is returned from a called program.  If the data that is
supposed to
        reside in the returned DS exists, it is cycled back, if the data
doesn't exist
        the DS comes back empty from the called program. And this is the
problem.  I am
        not sure that doing the initilization to zeros would work for every
repetitive
        call cycles, maybe I have to go to the source and just be sure the
returned data
        is initialized properly from the called program.

        As for the size of the field you are all right.  A 3 byte packed
will be
        X'12345F', but it is just being z-add'd to a bigger field.  Sorry
for any
        confusion this caused.

        Thanks again!
        Tim Truax


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