Perform Until Exit

[klophockey]

I have some code that compiles fine in ISCobol and MFCobol. However, it does not compile for ACUCobol.

Wondering if someone might have a suggestion on how I could get it coded for ACUCobol.

The compile error says "identifier expected, EXIT found"

perform until exit
read arc1 next
at end
exit perform
not at end
display counter
end-read
if (st not = "00" and
st not = "10")
move "Y" to w-err-sw
exit perform
else
continue
end-if
add 1 to counter
end-perform.


Thank you very much for your expertise

 

[fredericofonseca]

maybe the version you have does not allow it - you should check your Reference Manual for the version you have and see what it states.

Regards

Frederico Fonseca
SysSoft Integrated Ltd

http://www.syssoft-int.com

FAQ219-2884
FAQ181-2886

 

[k5tm]

Try

perform until "A" = "B"

Tom Morrison
Consultant

 

[klophockey]

Thank you very much for the input.
The compiler does not allow for the statement I tried.....so...
The A=B code is similar to what was there previously (1=2) but that had the exposure of an infinite loop (which actually happened and requires different code.

Any other thought on how that section of code could be done?

 

[k5tm]

but that had the exposure of an infinite loop

PERFORM UNTIL EXIT also requires some statement to exit the perform (EXIT PERFORM or STOP RUN or GO TO). So, if you had an infinite loop problem before, you will still have it with UNTIL EXIT.

Tom Morrison
Consultant