I've now attached a PDF version. If that's not acceptable you'll have to give me more of a hit what would be preferred.
As for your example 1) Try it and see if you like the results. 2) I hate the WS prefix. Just my preference! ________________________________ From: IBM Mainframe Discussion List <[email protected]> on behalf of John McKown <[email protected]> Sent: Friday, August 12, 2016 6:25 AM To: [email protected] Subject: Re: COBOL Unbounded Loops: A Diatribe On Their Omission From the COBOL Standard (and a Plea for Understanding) 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/ IBM developerWorks : IBM developerWorks : Community<https://www.ibm.com/developerworks/community/> www.ibm.com developerWorks; Community. Learn from and share with the experts in the 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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
