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.