DATA DIVISION.
FILE SECTION.
*
WORKING-STORAGE SECTION.
01 WS-VATATAR-STATUS PIC X VALUE 'N'.
88 VATATAR-STATUS VALUE 'Y'.
*
PROCEDURE DIVISION.
SET VATATAR-STATUS TO FALSE
DISPLAY 'ST2:' WS-VATATAR-STATUS
STOP RUN.
Format 4: SET for condition-names
When this form of the SET statement is executed, the value associated with a
condition-name is placed in its conditional variable according to the rules of the
VALUE clause.
Format 4: SET statement for condition-namesSET condition-name-1 TO TRUE
condition-name-1
Must be associated with a conditional variable.
If more than one literal is specified in the VALUE clause of condition-name-1, its
associated conditional variable is set equal to the first literal.
If multiple condition-names are specified, the results are the same as if a separate
SET statement had been written for each condition-name in the same order in
which they are specified in the SET statement.
arya_starc wrote:yes i got a error message on using false syntax. below in the message
IGYPS2106-S "FALSE" WAS FOUND IN THE "SET" STATEMENT. IT WAS NOT ALLOWED IN THIS CONTEXT. THE STATEMENT WAS DISCARDED.
When this form of the SET statement is executed, the value associated with a
condition-name is placed in its conditional variable according to the rules of the
VALUE clause.
BillyBoyo wrote:Enterprise COBOL does not, yet, support FALSE. There are other COBOL compilers which do.
It would be a useful addition. You can consider raising an RFE (Request For Enhancement) at https://www.ibm.com/developerworks/rfe/
IBM are keen to know what features from the COBOL 2002/2014 Standard people would find useful, so that they can schedule enhancements for future releases of Enterprise COBOL. This is an RFE which I thing would be very popular.
At the moment the general technique is to define two 88-levels, the "off" one setting to a value which does not exist in the "on".
Thanks billy for the link i tries to raise RFE but in registration they asking for the IBMer id and i am non-ibmer, i am not able to raise the RFE.