Sorry for my delayed response - EOF NOWRITE did the trick. Thank you! Ciao.....Mike
But... - I wonder why IF ^EOF() failed. -----Ursprüngliche Nachricht----- Von: CMSTSO Pipelines Discussion List [mailto:CMS-PIPELINES@VM.MARIST.EDU] Im Auftrag von Glenn Knickerbocker Gesendet: Donnerstag, 5. Dezember 2013 19:33 An: CMS-PIPELINES@VM.MARIST.EDU Betreff: Re: How to avoid specs run-out cycle? On 12/5/2013 12:48 PM, FAULHABER Michael wrote: > Following SPEC generates an empty record after the wanted ones. > Because I failed to prevent this by IF ^EOF() ... FI I filter this > with LOCATE as shown in this cutout: > > '|a:spec a: w1 . select 1 b: w1 . select second c: w1 .', > ' select 0 print ((a + b - c + 128) // 128) d2c 1.1 r|l', > > What would be the canonical way to do this? As long as there's no explicit WRITE, you can cancel writing the record with EOF NOWRITE at the end of the spec. If you were using WRITE (say, if you produced more than one record), then you'd need an IF ¬EOF() clause to skip the whole mess in the runout. ¬R ________________________________ CONFIDENTIALITY : This e-mail and any attachments are confidential and may be privileged. If you are not a named recipient, please notify the sender immediately and do not disclose the contents to another person, use it for any purpose or store or copy the information in any medium.
