How can I do my own numeric validation?
search cancel

How can I do my own numeric validation?

book

Article ID: 33200

calendar_today

Updated On:

Products

Vision:Results Vision:Sixty

Issue/Introduction

INTRODUCTION:

Normally a blank (hex'40') in a field defined as packed decimal causes a S0C7 abend
Normally a divide by zero causes a S0CB abend.

VISION:Results evaluates S0C7 and S0CB ABENDs caused by blank packed fields and zero numeric divisor fields,
respectively, corrects the problem,  reverses the ABEND,  and allows processing to continue.

RESOLUTION:

If you want to do your validation in these cases, add   OPTION $$DUMP   to the beginning of the program.
This disables error handling if the program abends allowing S0C7 (data checks) and S0CB (zero divide exceptions)
to be captured by the ESPIE/STXIT code. For the indicated program exceptions, the normal error analysis report
is generated. For all other program exceptions the system abends immediately at the problem point.

Environment

Release:
Component: V:RSLT