Kari,
Are you able to see the actual line number that is causing this, or is the program just ending?
Can you debug NY2HMEF to see where the code is failing?
The code will be failing on one of the Eval statements (there are 26 of them in the program).
I suspect that the issue is with the SQL Pattern and that it is only expecting to handle numeric fields of lengths up to 30.9, whereas Plex is now handling 63.21.
If you look at the following code -
* Cast Sql<Sql.NumericField>, SqlTemp<Sql.TextField>
C CALL 'YOBCASTNEX' 99
C PARM F0001I ZZTXT 65
C PARM *ZEROS ZZNBR 6321
C Z-ADD ZZNBR F00019
* API Call Source code: _SQL_RPGSource.ToPackedDecimal
C Z-ADD 0 $PREC 19 1
C Eval $PREC = SQLLEN-256*(%DIV(SQLLEN:256))
C Eval $PREC = 10**$PREC
C Eval F00019 = F00019/$PREC
C ELSE
$PREC is defined as 19 1. I wonder if 21 decimal places is too much.
ZZNBR is now defined as 63.21 but F00019 is defined as 30.5 (the old Plex Limitation is size). So there are more issues here.
That's just a couple of potential issues I see in this code. The SQLBlockFetch pattern needs to be updated to use the new lengths support in Plex.
Hope that helps some...
Crispin.