RETURNS ATTRIBUTE ERROR



IBM's cross-platform compiler PL/I for MVS, VM & VSE, OS/390 and Enterprise PL/I for z/OS

RETURNS ATTRIBUTE ERROR

Postby Jerrin Jose Thomas » Sat Mar 13, 2010 1:38 am

Hi all,

We are currently converting all the MVS version PL/1 programs to the new Enterprise PLN version.

In one program,one of the variable called VALID_FIELD declared as DEC FIXED(15) is used in the following statements:-

DCL X CHAR(09);
VALID_FIELD = FIELD_VALIDATION(X);
SELECT(VALID_FIELD);
WHEN(1);
WHEN(2);

The PROC FIELD_VALIDATION is coded as :-

FIELD_VALIDATION(Y) RETURNS DEC FIXED(31):
DCL Y CHAR(08);

The above piece of logic gives a TABT data exception error while running in CICS in the statement WHEN(1) in the SELECT clause;.

Later,we changed the code and the procedure where the VALID_FIELD was declared as BIN FIXED(15) and the PROC coded as

FIELD_VALIDATION(Y) RETURNS BIN FIXED(31):

With this above change the program ran fine.

Note:- The blue colored line statement indicates the changes done from PL1 to PLN.

Can you people give any possible suggestions for this behaviour.
Jerrin Jose Thomas
 
Posts: 3
Joined: Sat Mar 13, 2010 1:04 am
Has thanked: 0 time
Been thanked: 0 time

Return to PL/I

 


  • Related topics
    Replies
    Views
    Last post