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
 

 

PL/I: U4038 abend while passing values from JCL SYSIN DD *

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

New User


Joined: 12 Jun 2008
Posts: 22
Location: bangalore

PostPosted: Fri Aug 01, 2008 7:28 pm    Post subject: PL/I: U4038 abend while passing values from JCL SYSIN DD *
Reply with quote

I am a very new to PLI. i have just coded a sample program to get data from SYSIN and to display this.

Here is my sample program. I searched the forum and got that to pass values to PLI i should code the statements like PLI in SYSIN.

But still its throwing an abend U4038. Could anyone help me to solve this error?


P3:PROCEDURE OPTIONS(MAIN);
DCL X CHARACTER(4);
GET LIST(X);
PUT LIST(X);
END P3;


JCL:

000810 //SYSIN DD *
000820 X='ABCD';
000830 /*




another test program

000001 P1:PROCEDURE OPTIONS(MAIN);
000002 DCL DATA_AREA CHARACTER(4);
000003 GET FILE(SYSIN) LIST(DATA_AREA);
000004 PUT LIST(DATA_AREA);
000005 END P1;

JCL

000810 //SYSIN DD *
000820 TEST
000830 /*
000900 //



Error:

ONCODE=613 The CONVERSION condition was raised because a conversion error occur
ition was raised because a conversion error occurred when converting character to arithmetic on input or output.

*******************************************
* Analysis of Error *
*******************************************


The CONVERSION condition was raised when an invalid character was found
in a character string being converted to an arithmetic data type for a
GET or PUT FILE statement. PL/I expected the field to contain a string
of digits 0 through 9 with an optional leading sign, decimal point,
and/or trailing exponent. A trailing exponent must consist of a decimal
integer preceded by a sign and/or the letter "E".

The ERROR condition has been raised.

To prevent the ERROR condition from being raised, either correct the
input data or add an ON-unit that will handle the CONVERSION condition.
You can use built-in functions ONSOURCE and ONCHAR to identify the error
and the ONSOURCE and ONCHAR pseudovariables to substitute a valid value
that will allow the program to continue processing.
Back to top
View user's profile Send private message

quest2008

New User


Joined: 12 Jun 2008
Posts: 22
Location: bangalore

PostPosted: Fri Aug 01, 2008 7:57 pm    Post subject: Reply to: PL/I: U4038 abend while passing values from JCL SY
Reply with quote

Hello friends.

I searched the forum repatedly. I found there was a similar kind of post and the solution. Now i am able to run the program succeesfully and got the results.


000810 //SYSIN DD *
000820 'AAAAAAAAAAAAAAAAAAAAAAAAA'
000830 /*

http://ibmmainframes.com/viewtopic.php?t=7378&highlight=pli+sysin



Thank you
Back to top
View user's profile Send private message
DeepMoni

New User


Joined: 20 Aug 2009
Posts: 2
Location: Bangalore

PostPosted: Fri Aug 21, 2009 12:12 pm    Post subject: Reply to: PL/I: U4038 abend while passing values from JCL SY
Reply with quote

The problem why you were getting the abends is as follows:-

For the first code you were using GET LIST to retrieve the data.This expects only input value and not the name of the variable.So instead of giving X = 'ABCD' you should have only entered 'ABCD'.

For the second code you entered only value without the quotes.Earlier you declared the value as character in the program.So the program expects a opening and closing quote containing the data.Its absence prompted the compiler to consider the data as numeric and so Data Conversion condition was raised.
Back to top
View user's profile Send private message
quest2008

New User


Joined: 12 Jun 2008
Posts: 22
Location: bangalore

PostPosted: Fri Aug 21, 2009 3:43 pm    Post subject:
Reply with quote

Thanks DeepMoni. But this problem was resolved one year back. icon_confused.gif
Back to top
View user's profile Send private message
DeepMoni

New User


Joined: 20 Aug 2009
Posts: 2
Location: Bangalore

PostPosted: Fri Aug 21, 2009 5:33 pm    Post subject:
Reply with quote

Yes , but I thought it might be a good idea to point out what specifically the errors were so that it might be helpful to others.
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 SQL query to run through list of valu... Ni3-db2 DB2 14 Wed Dec 14, 2016 9:52 am
No new posts IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm
No new posts FTP - JCL failed while passing FTP co... Suneetha1612 JCL & VSAM 12 Wed Nov 16, 2016 7:33 pm
No new posts Overlaying one set of charater values... Kevin Lindsley SYNCSORT 7 Sat Nov 05, 2016 3:21 am
No new posts Low values Results from VARCHAR FORMAT balaji81_k DB2 10 Thu Oct 20, 2016 1:18 am


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