|
From: | Edward Hart |
Subject: | Re: [Bug-GnuCOBOL] STOP RUN with NORMAL status |
Date: | Mon, 18 Sep 2017 09:47:17 +0100 |
program-id. stop-it.
data division.
working-storage section.
01 pic x.
88 this value 'X'.
procedure division.
if not this
display 'normal'
stop run with normal status 10
else
display 'error'
stop run with error status 15
end-if.
D:\src\cobol>cobc -x -free stopit.cob
stopit.cob: 11: error: syntax error, unexpected Identifier, expecting ERROR or NORMAL
[Prev in Thread] | Current Thread | [Next in Thread] |