RETURNS ATTRIBUTE ERROR
Posted: 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.
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.