Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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 ASP3 ABEND IN CICS Vedant CICS 0 Fri Oct 20, 2017 3:18 pm
No new posts Extend the decimal values in DIVISION Balaryan DFSORT/ICETOOL 3 Thu Oct 05, 2017 4:05 pm
No new posts Working with hex values in Filemanage... Emile Straker IBM Tools 0 Tue Sep 12, 2017 1:42 am
No new posts DB2 NULL Values display V S Amarendra Reddy DB2 3 Thu Sep 07, 2017 6:59 pm
No new posts Moving values to a variable of copybo... Vignesh Sid COBOL Programming 6 Wed Sep 06, 2017 1:04 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us