MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

COBOL : IGYOP3093-W

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Application Programming
View previous topic :: View next topic  
Author Message
20cents
Beginner


Joined: 26 Oct 2005
Posts: 25
Topics: 7
Location: Between Heaven and Hell

PostPosted: Wed Dec 28, 2005 10:26 pm    Post subject: COBOL : IGYOP3093-W Reply with quote

What does this statement mean?

7456 IGYOP3093-W The "PERFORM" statement at "PERFORM (line 7456.01)" cannot reach its exit.

Line 7456:

LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6-
007456 1 PERFORM S9999-ABEND-PROCESSING

S9999-ABEND-PROCESSING
Code:

     EVALUATE TRUE                                               
          WHEN ABHI-ERROR-TYPE-FILE OR                           
               ABHI-ERROR-TYPE-SEQUENTIAL                         
                   CONTINUE                                       
          WHEN ABHI-ERROR-TYPE-DB2                               
               MOVE ZERO                 TO  FL-TIMEOUT-ABEND-FLAG
               MOVE ABHI-ERROR-MSG-NUM   TO  FL-TIMEOUT-ABEND-FLAG
               IF FL-TIMEOUT-ABEND       
                  PERFORM S9991-TIMEOUT-ABEND                   
               END-IF                                           
          WHEN ABHI-ERROR-TYPE-USER AND                         
               ABHI-ERROR-MSG-AREA  NOT EQUAL SPACES           
                   CONTINUE                                     
          WHEN OTHER                                           
               MOVE SPACES               TO  ABHI-ERROR-MSG-AREA
               MOVE CDA-ERROR-MSG-AREA   TO  ABHI-ERROR-MSG-AREA
     END-EVALUATE.                                             
     SET APPL-RETURN-CODE-ERROR  TO  TRUE.
     GOBACK.
Back to top
View user's profile Send private message Yahoo Messenger MSN Messenger
Vinodch
Beginner


Joined: 23 Dec 2002
Posts: 80
Topics: 32
Location: Chennai, India

PostPosted: Thu Dec 29, 2005 1:38 am    Post subject: Reply with quote

20 Cents

Hope the para S9999-ABEND-PROCESSING is in the main program, the statement "GOBACK" in the para S9999-ABEND-PROCESSING is causing the error IGYOP3093-W.

The GOBACK statement functions like the EXIT PROGRAM statement when it is coded as part of a called program (or the EXIT METHOD statement when GOBACK is coded as part of an invoked method) and like the STOP RUN statement when coded in a main program.

Hope it helps you.
_________________
Thanks,
Vinod.
Back to top
View user's profile Send private message
20cents
Beginner


Joined: 26 Oct 2005
Posts: 25
Topics: 7
Location: Between Heaven and Hell

PostPosted: Thu Dec 29, 2005 2:42 am    Post subject: Reply with quote

Vinodch,

Thanks. That info you just gave cleared a lot of things. Do you think thst such warning errors may cause my compilation not to complete? My real problem is that I cant seem to stage the source (using ChangeMan). I only got warnings from my compilation, but when I staged it from my library it ends with INCOMP status, and not ACTIVE.

20cents.
Back to top
View user's profile Send private message Yahoo Messenger MSN Messenger
Vinodch
Beginner


Joined: 23 Dec 2002
Posts: 80
Topics: 32
Location: Chennai, India

PostPosted: Thu Dec 29, 2005 3:36 am    Post subject: Reply with quote

20cents

The warning messages will give a RC=4 when you compile the program but still the status will be ACTIVE after compilation.Can you check is there any other error you found other than the error that you earlier mentioned?

Are these statements looks the same in your program

S9999-ABEND-PROCESSING

EVALUATE TRUE
.
.
.

if so then you need to mention a period at the end of the para name like
the below mentioned.

S9999-ABEND-PROCESSING.
EVALUATE TRUE
.
.
.

This might have cause an error during compilation. Give a Try !
_________________
Thanks,
Vinod.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Application Programming All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group