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
 

 

PLI ONCODE = 70

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler
View previous topic :: :: View next topic  
Author Message
Gnanas N

Active Member


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

PostPosted: Thu Nov 22, 2007 2:52 pm    Post subject: PLI ONCODE = 70
Reply with quote

Hi all,
This is the message I have got from SPOOL after running a PLI Program.

Quote:
The ENDFILE condition was raised when the end of an input file was
encountered. There was no ON-unit to handle the ENDFILE condition.
The ERROR condition has been raised.

To prevent the ERROR condition from being raised, add an ON-unit to
handle the ENDFILE condition for each input file used in the program.

The oncode is 0070.


I want to know how to add ON-unit to handle the ENDFILE condition.

Please help me. The program what I have tried is given below.

Quote:
DCL EMPFL FILE RECORD INPUT;
DCL MOREREC BIT(01) INIT('1'B);
DCL NO BIT(01) INIT('0'B);
DCL 01 EMPST,
05 ENO PIC '9999',
05 ENAME PIC 'XXXXXX',
05 ESAL PIC '99999',
05 DEPT PIC 'XX',
05 FILLER CHAR(63);
ON ENDFILE(EMPL) MOREREC = NO;

READ FILE(EMPFL) INTO(EMPST);
DO WHILE(MOREREC);
PUT SKIP LIST(EMPST);
READ FILE(EMPFL) INTO(EMPST);
END;
Back to top
View user's profile Send private message

Gnanas N

Active Member


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

PostPosted: Thu Nov 22, 2007 3:14 pm    Post subject:
Reply with quote

Sorry, I found logic error in my program. I got the correct thing.

Quote:
ON ENDFILE(EMPL) MOREREC = NO;


should be

Quote:
ON ENDFILE(EMPFL) MOREREC = NO;


I request the moderator to delete this topic. Sorry for the inconvenience.
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 IBM0472S ONCODE=290 The INVALIDOP Biswajit Pattanayak PL/I & Assembler 18 Tue May 09, 2017 3:51 pm
No new posts ONCODE=8094 from IRXLOAD iqbal.mallick CLIST & REXX 8 Mon Apr 07, 2014 3:43 pm
No new posts Undocumented ONCODE 8843? Akatsukami PL/I & Assembler 2 Tue Nov 12, 2013 1:02 am
No new posts PLI RUN MESSAGE:ONCODE=8097 Liang Gao ABENDS & Debugging 5 Wed Apr 18, 2012 2:05 pm
No new posts Pl/1 oncode 310 CICS fan PL/I & Assembler 12 Tue Oct 18, 2011 8:52 pm


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