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 Check Binary Values for symbols gandikk CA Products 3 Tue Mar 21, 2017 5:11 am
No new posts To display values of multiple rows in... vinu78 DB2 2 Thu Mar 09, 2017 1:20 pm
No new posts IMS region inactive - User abend code... gthmrj IMS DB/DC 5 Tue Mar 07, 2017 12:29 pm
No new posts Replacing same string with different ... vickey_dw DFSORT/ICETOOL 6 Wed Feb 22, 2017 10:44 pm
No new posts setting new limit Key values for inde... srilata83 DB2 1 Fri Feb 10, 2017 9:24 pm


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