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 

PL1 return code 4000

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Problem Determination
View previous topic :: View next topic  
Author Message
MEAS20
Beginner


Joined: 08 Jun 2005
Posts: 6
Topics: 3

PostPosted: Wed Jun 08, 2005 10:39 pm    Post subject: PL1 return code 4000 Reply with quote

Hello,

We are trying to run a compile code on a new machine and we got this return code. no matter how simple the PL1 code is we still get the same error. Can someone tell me what's going on with this error message.

Regards,
Meas.
Back to top
View user's profile Send private message
Mervyn
Moderator


Joined: 02 Dec 2002
Posts: 415
Topics: 6
Location: Hove, England

PostPosted: Thu Jun 09, 2005 4:19 am    Post subject: Reply with quote

Do you have any more information? Any messages to go along with the return code?
_________________
The day you stop learning the dinosaur becomes extinct
Back to top
View user's profile Send private message
MEAS20
Beginner


Joined: 08 Jun 2005
Posts: 6
Topics: 3

PostPosted: Thu Jun 09, 2005 6:19 am    Post subject: Reply with quote

Hello Mervyn,
This is the entire message.
Code:

IBM002I MEAS20X INTERRUPT DURING PROGRAM MANAGEMENT LIBRARY ROUTINES,
   PROGRAM TERMINATED                                                 
IBM004I MEAS20X PROGRAM TERMINATED, USER CODE = 4000                 
   AT OFFSET +0000F0                                                 
   IN PROCEDURE WITH ENTRY TEST11                                     
IBM019I MEAS20X. NO SUITABLE DUMP FILE DEFINITION                   
IEA995I SYMPTOM DUMP OUTPUT                                           
  USER COMPLETION CODE=4000                                           
 TIME=17.19.27  SEQ=01974  CPU=0000  ASID=0089                       
 PSW AT TIME OF ERROR  078D1E00   8000E826  ILC 2  INTC 0D           
   ACTIVE LOAD MODULE           ADDRESS=00007BE8  OFFSET=00006C3E     
   NAME=IBMBLIIA                                                     
   DATA AT PSW  0000E820 - 00181610  0A0D0000  000000A0               
   AR/GR 0: 80C73C28/80000000   1: 00000000/80000FA0                 
         2: 00000000/000152B4   3: 00000000/8000E714                 
         4: 00000000/000151F8   5: 00000000/00000000                 
         6: 00000000/00000001   7: 00000000/000067C4                 
         8: 00000000/00000009   9: 00000000/00006874                 
         A: 00000000/00000001   B: 00000000/000142A0                 
         C: 00000000/00014010   D: 00000000/00015260                         
         E: 00000000/8000E816   F: 00000000/00000000                         
 END OF SYMPTOM DUMP                                                         
IEF472I MEAS20X T010 - COMPLETION CODE - SYSTEM=000 USER=4000 REASON=00000000

Thanks for your help.
Regards,
Meas.
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose

PostPosted: Thu Jun 09, 2005 8:21 am    Post subject: Reply with quote

Meas20,

Check this for a detailed explanation of the error IBM002I

Code:

 Message ID:  IBM002I                                                   
                                                                         
 Upper Case (UE) Version:  job-name INTERRUPT DURING   PL/1   MANAGEMENT
                           LIBRARY ROUTINES, PROGRAM TERMINATED.         
                                                                         
 Mixed Case (EN) Version:  job-name  An interrupt  occurred  during PL/1
                           program  management  library  routines,   the
                           program is being terminated.                 
                                                                         
 Description:  This is a PL/1 run-time message which indicates  that  an
               interrupt  occurred  in a PL/1 program management routine
               (or a routine  invoked  by  a  PL/1  management  routine)
               during  the  processing of a PL/1 condition.  The program
               was terminated with a return code of 4000.  'job-name' is
               replaced in the message text by the name of the job which
               was  affected.  A  dump  is  produced  if  a  SYSUDUMP or
               SYSABEND dd statement is available.                       
                                                                         
               This  message  indicates  that  a disastrous error (i.e.,
               overlaying  sections  of  code  and/or  control   blocks)
               occurred  while  the program was executing.  This type of
               error is usually caused by:                               
                    -arrays  extending  their  bounds                   
                    -use of the SUBSTR function with invalid arguments   
                    -execution  of  a  GO  TO  statement  with  a  label
                     reference which is invalid (or unitialized)         
                                                                         
 User Action:  If arrays and/or the SUBSTR  function  are  used  in  the
               program,  then  enable SUBSCRIPTRANGE and/or STRINGRANGE,
               recompile,   and  re-execute   the   program.   If   GOTO
               statements  containing  label  variables  are used,  then
               enable CHECK for those label  variables,  recompile,  and
               re-execute the program.                                   


Hope this helps...

Cheers

kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Mervyn
Moderator


Joined: 02 Dec 2002
Posts: 415
Topics: 6
Location: Hove, England

PostPosted: Thu Jun 09, 2005 8:25 am    Post subject: Reply with quote

I see Kolusu has just posted what I was going to post. He's too fast for most of us! Mr. Green

Follow the advice and let us know how you get on.

Merv
_________________
The day you stop learning the dinosaur becomes extinct
Back to top
View user's profile Send private message
MEAS20
Beginner


Joined: 08 Jun 2005
Posts: 6
Topics: 3

PostPosted: Thu Jun 09, 2005 9:50 am    Post subject: Reply with quote

I saw the detailed explanation of the error message IBM002I before I started the thread. According to the message the error is cause by either SUBSTR, GOTO or Arrays. But, I am not using any of them. In my initial post I mentioned that "no matter how simple the PL1 code is we still get the same error". so, for example if I write a PL1 code which simply reads a file and writes the data to output file, it still abends with the same error. Any comments, suggestions are greatly appreciated.
Regards,
Meas.
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose

PostPosted: Thu Jun 09, 2005 9:54 am    Post subject: Reply with quote

Meas20,

May be this could be the reason ?

http://www-1.ibm.com/support/docview.wss?uid=isg1OW44260

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
MEAS20
Beginner


Joined: 08 Jun 2005
Posts: 6
Topics: 3

PostPosted: Wed Jun 29, 2005 10:31 am    Post subject: Reply with quote

kolusu wrote:
Meas20,

May be this could be the reason ?

http://www-1.ibm.com/support/docview.wss?uid=isg1OW44260

Kolusu


Very Happy OK, got the fix for this problem. I FTPed the loadlib from system X to system Y. We don't have the PL1 libraries at the same Version on these two systems. Once we copied the library from system X to system Y then it worked fine.

Regards,
MEAS20.
Back to top
View user's profile Send private message
Mervyn
Moderator


Joined: 02 Dec 2002
Posts: 415
Topics: 6
Location: Hove, England

PostPosted: Thu Jun 30, 2005 8:31 am    Post subject: Reply with quote

Meas20,

10 out of 10 for feedback.

Cheers,
Merv
_________________
The day you stop learning the dinosaur becomes extinct
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 -> Problem Determination 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