The fields in the input/full procedural file format are all input fields
and will not be cleared. The fact that TMDES6 is an output field in a
different format is irrelevant. By clearing the field explicitly you do
not have this consideration, so it works.

The manual also states "Input-only fields are not affected by the CLEAR
operation.  By definition, they assume new values at the next input
operation." However, this is not the case if the input operation fails,
as you have seen.

Possible alternatives are to clear the printer file format instead of
the input file, or to define a data structure based on the input file
format and clear that.

Dave Kahn, TCO, Kazakstan

kahn@tengizchevroil.com   (to November 25)
dkahn@cix.compulink.co.uk (from November 26)

>-----Original Message-----
>From:  Tim Truax [SMTP:truax@usaor.net]
>Sent:  Tuesday, November 11, 1997 5:06 PM
>To:    midrange-L@midrange.com
>Subject:       CLEAR Opcode?
>From the Softcopy:
>11.20.14 CLEAR (Clear) 
>¦   Code   ¦     Factor 1    ¦      Factor 2      ¦   Result  ¦
>¦          ¦                 ¦                    ¦   Field   ¦         
>¦ CLEAR    ¦ *NOKEY          ¦ Structure or       ¦           ¦         
>¦          ¦                 ¦ Variable           ¦           ¦         
> The CLEAR operation sets elements in a structure (record format, data
>structure, array, or table) or a variable (field, subfield, or
>to zero, blank....
>Note that when the CLEAR operation is applied to a record-format name,
>only output fields in the record format are affected.....
>======= my query =========
>I have a program in which I am using a file as Input/Full procedural, I
>am only using one of the files fields as output within the RLU generated
>PRTF in my program.  When I do the following:
>               CLEAR TMISC     <---- Record format name.
>       K10     CHAIN FLTMISC           30
>If my chain is a no hit, this field from the record format above isn't
>cleared out.  But if I do this:
>               CLEAR TMDES6    <---- Individual field within record format.
>       K10     CHAIN FLTMISC           30
>It is cleared out properly.. What gives?
| 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

This thread ...

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2020 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].