Can anyone explain to me why I get Enterprise COBOL V4.1 "informational" message IGYOP3094-W in the do-nothing program listed below?
TIA for curing my ignorance. Peter PP 5655-S71 IBM Enterprise COBOL for z/OS 4.1.0 TESTGOTO Date 04/23/2012 Time 15 LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 000001 * PROPRIETARY COMMENT ON LINE 1 REMOVED FOR PRIVACY 000002 ID DIVISION. 000003 PROGRAM-ID. TESTGOTO. 000004 ENVIRONMENT DIVISION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 WS-WORK-AREA. 000008 05 WS-SUB PIC S9(4) USAGE IS BINARY. 000009 000010 LINKAGE SECTION. 000011 01 PARM-AREA. 000012 05 PARM-LEN PIC S9(4) BINARY. 000013 05 PARM-DATA. 000014 10 PARM-CC PIC 9(02). 000015 10 PARM-YY PIC 9(02). 000016 10 PARM-MM PIC 9(02). 000017 10 PARM-DD PIC 9(02). 000018 PP 5655-S71 IBM Enterprise COBOL for z/OS 4.1.0 TESTGOTO Date 04/23/2012 Time 15 LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 000020 PROCEDURE DIVISION USING PARM-AREA. 000021 * LINES 22-30 PROPRIETARY COPY CODE REMOVED FOR PRIVACY 000031 000032 MOVE PARM-DD TO WS-SUB. 000033 PERFORM PARA-1 THRU PARA-EXIT. 000034 GO TO RETURN-TO-CALLER. 000035 000036 PARA-1. 000037 IF PARM-MM > 06 000038 1 MOVE +2 TO WS-SUB. 000039 PERFORM SUB-PARA-2. 000040 PERFORM SUB-PARA-1. ==000040==> IGYOP3094-W There may be a loop from the "PERFORM" statement at "PERFORM (line 40.01)" to itself. "PERFORM" statement optimization was not attempted. 000041 MOVE WS-SUB TO RETURN-CODE. 000042 GO TO PARA-EXIT. 000043 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. 000054 000055 RETURN-TO-CALLER. 000056 GOBACK. 000057 This message and any attachments are intended only for the use of the addressee and may contain information that is privileged and confidential. If the reader of the message is not the intended recipient or an authorized representative of the intended recipient, you are hereby notified that any dissemination of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail and delete the message and any attachments from your system. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN