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 [email protected] with the message: INFO IBM-MAIN
