Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

U4087 REASON=00000003 in PL/1 program

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler
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    Post subject: U4087 REASON=00000003 in PL/1 program
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: 788
Location: Chennai, India

PostPosted: Tue Jun 02, 2009 2:06 pm    Post subject:
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    Post subject:
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: 8120
Location: East Dubuque, Illinois, USA

PostPosted: Thu Jun 04, 2009 3:08 am    Post subject:
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    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Writing a file using online program grvtomar PL/I & Assembler 3 Fri Jun 30, 2017 1:06 pm
No new posts pre-compiler for program in an HFS Pedro DB2 0 Fri Jun 23, 2017 11:13 pm
No new posts Compiling program in endeavor for tra... RALAKKAL Compuware & Other Tools 4 Mon Jun 05, 2017 8:27 pm
No new posts COBOL DB2 program - zIIP eligible vasanthz COBOL Programming 7 Wed May 31, 2017 5:12 am
No new posts DB2 Program abending without giving a... rahulgarg14 DB2 7 Mon May 29, 2017 8:10 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us