On Thu, Aug 11, 2016 at 7:07 PM, Frank Swarbrick < [email protected]> wrote:
> Because I apparently have nothing better to do I have written a probably > too long document detailing why I believe that Enterprise COBOL should > support an extension to COBOL to support a native syntax for unbounded > loops. See my document attached to the follow COBOL Cafe Forum post: > > > https://www.ibm.com/developerworks/community/ > forums/html/topic?id=8cb11f10-03c9-4b82-9123-ba5ebc2240ff&ps=25 > > First the complaint: Really, a MS Word docx file? I would request, in any future such posting, that you use something more "agnostic". I like the syntax. The functionality is easy to emulate in normal IBM Enterprise COBOL: 011410 01 WS-TRUE-FALSE PIC X VALUE SPACE. 011420 88 WS-TRUE VALUE SPACE. 011430 88 WS-FALSE VALUE ZERO. 011440 88 WS-FOREVER VALUE ZERO. 011500 PROCEDURE DIVISION. 011510 START-UP. 011520 PERFORM UNTIL WS-FALSE 011530 DISPLAY 'HELLO, SAILOR!' UPON SYSOUT 011531 EXIT PERFORM 011540 END-PERFORM 011550 . WS-FALSE is always FALSE, so this is an unbounded. As you can see, I also made a WS-FOREVER (which could have simply been FOREVER). I could also have created a WS-EXIT. I have an "inbred" tendency to make Working Storage "transient" variable names start with WS- (Linkage Section names start LS-, Local Storage name start LCL-). -- Klein bottle for rent -- inquire within. Maranatha! <>< John McKown ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
