Dropping through into PARA-2 from PARA-1 when the return from the PERFORM PARA-2 is still set would result in a loop. Ugly code IMO.
Dave Gibney Information Technology Services Washington State University > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On > Behalf Of Bob Shannon > Sent: Monday, April 23, 2012 12:46 PM > To: IBM-MAIN@bama.ua.edu > Subject: Re: Why does Enterprise COBOL V4.1 optimization complain about a > PERFORM loop? > > > Can anyone explain to me why I get Enterprise COBOL V4.1 "informational" > message IGYOP3094-W >in the do-nothing program listed below? > > I haven't written in COBOL in over 30 years, but I suspect it's because SUB- > PARA-2 sits in between SUB-PARA-1 and PARA-EXIT. > > 000044 SUB-PARA-1. > 000045 IF WS-SUB < 6 > 000046 1 MOVE 0 TO WS-SUB > 000047 1 GO TO PARA-EXIT. > 000048 > 000049 SUB-PARA-2. > 000050 DISPLAY WS-SUB. > 000051 > 000052 PARA-EXIT. > 000053 EXIT. > > Bob Shannon > Rocket > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN