The THRU clause is only valid for level 88. See 'Data Description Entry - Format 3' page 30 of the ILE COBOL Reference Summary. Levels 01 through 49 and 77 can only contain a single value. 01 Variables. 05 Var1 pic XX. 88 Lower-Half value '00' thru '49'. 88 Upper-Half value '50' thru '99'. IF Lower-Half statements... EndIf. Or Evaluate True When Lower-Half statements... When Upper-Half statements... When Other statements... End-Evaluate. Basil Zangare Nikon Inc -----Original Message----- From: cobol400-l-bounces@xxxxxxxxxxxx [mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of Santhamurthy_Veeraraghavan Sent: Friday, August 26, 2005 7:46 AM To: cobol400-l@xxxxxxxxxxxx Subject: [COBOL400-L] VALUE CLAUSE in working storage Hi, Is it possible to have the VALUES as '0 thru 99' for a variable in working storage and check for a condition in procedure division? Kindly clarify? Working-storage section. 77 VAR1 PIC 9(2) VALUES 0 THRU 99 Procedure division. . . . If var1 = 34 ...statemetns.. Endif Thanks & Regards, Santha DISCLAIMER: This email (including any attachments) is intended for the sole use of the intended recipient/s and may contain material that is CONFIDENTIAL AND PRIVATE COMPANY INFORMATION. Any review or reliance by others or copying or distribution or forwarding of any or all of the contents in this message is STRICTLY PROHIBITED. If you are not the intended recipient, please contact the sender by email and delete all copies; your cooperation in this regard is appreciated.
As an Amazon Associate we earn from qualifying purchases.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.