IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

U4087 REASON=00000003 in PL/1 program


IBM Mainframe Forums -> PL/I & Assembler
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
marc03b

New User


Joined: 19 Aug 2005
Posts: 2

PostPosted: Tue Jun 02, 2009 8:04 am
Reply with quote

Hi,

I am getting the below error:
USER COMPLETION CODE=4087 REASON=00000003

Additional error msgs:
+CEE0374C CONDITION=IBM0181S TOKEN=00030085 59C9C2D4 00000002
WHILE RUNNING PROGRAM UNKNOWN
...
+CEE0374C CONDITION=CEE3204S TOKEN=00030C84 59C3C5C5 00000000
WHILE RUNNING PROGRAM IBMRLIB1

Files are declared as:
File1 FILE RECORD INPUT ENV (V TOTAL SCALARVARYING);
File2 FILE RECORD UPDATE ENV(FB RECSIZE(1103));

The PL/1 program is reading two files. The error is occurring when reading file2 on the 301th record. When file2 has 300 records or less, program runs fine, regardless of number of records read in file1. Program is executing READ command then REWRITE after some data manipulation. I'm thinking it's a memory problem and have tried setting the job parm REGION=0M.

The jobstep is using PLIXG proc to run the PL/1 program.

Any help is appreciated,
Marc
Back to top
View user's profile Send private message
Gnanas N

Active Member


Joined: 06 Sep 2007
Posts: 792
Location: Chennai, India

PostPosted: Tue Jun 02, 2009 2:06 pm
Reply with quote

Please show us the code part of READ, REWRITE statements.

BTW, have you looked at LEMSG DD output? Please post that too.
Back to top
View user's profile Send private message
marc03b

New User


Joined: 19 Aug 2005
Posts: 2

PostPosted: Thu Jun 04, 2009 1:14 am
Reply with quote

READ FILE(file2) INTO(rec2);
REWRITE FILE(file2) FROM (rec2);

There wasn't a LEMSG DD output. This is a non-EPLI program.

Thanks.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Thu Jun 04, 2009 3:08 am
Reply with quote

Quote:
I'm thinking it's a memory problem and have tried setting the job parm REGION=0M.
Just out of curiosity, why are you "thinking" instead of researching? You can know by using the manuals rather than "thinking" and guessing about what the problem is. For example, part of the error messages you posted is:
Quote:
IBM0181S
ONCODE=oncode-value The ENDFILE condition was raised (FILE= or ONFILE= file-name).
Explanation:

The end of an input file was detected. The ONCODE associated with this message is 70.
Programmer response:

Include an ON-unit for the ENDFILE condition for each input file in the program to handle the end-of-file processing.
System action:

The ERROR condition is raised.
Symbolic Feedback Code:

IBM05L
So I'm "thinking" it's not a memory problem at all, that setting REGION=0M will have no impact upon your error, and that perhaps you ought to be looking at handling the input files in your code better. It took less than a minute to find that via Google on "ibm0181s", by the way.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> PL/I & Assembler

 


Similar Topics
Topic Forum Replies
No new posts Using API Gateway from CICS program CICS 0
No new posts Reorg abended with REASON=X'00E40347' DB2 2
No new posts REASON 00D70014 in load utility DB2 6
No new posts DB2 Event passed to the Application P... DB2 1
No new posts How to pass the PARM value to my targ... COBOL Programming 8
Search our Forums:

Back to Top