|PL/1 Program ABEND S0CA|
|Written by Philip L Yuson|
PL/1 program ABENDs with S0CA.
When a program moves a field to a DECIMAL field that is shorter than the source field, it creates an OVERFLOW exception - causing an 0CA ABEND.
Added the Compile option: DECIMAL(FOFLONASGN). This prevents the compiler from generating code that will cause a FIXEDOVERFLOW confition.
You need to use this carefully though because it truncates the most significant digit. Your value of 1,000 once truncated will become a zero!!!