| William M. Klein 2005-06-06, 3:55 am |
| Check out the NUMPROC and ZWB compiler options. There is NEVER a guarantee that
"incompatible data" will cause a S0C7 (IBM mainframe ABEND) ... Only that
"results are unpredictable".
--
Bill Klein
wmklein <at> ix.netcom.com
"David Roser" <david.roser@iinet.net.au> wrote in message
news:42a3b4ff$0$10160$5a62ac22@per-qv1-newsreader-01.iinet.net.au...
>I have a program which allows a non-numeric move
> to a comp-3 field without a 0C7 error.
> Would anyone know why ?
>
> TIA
> David
>
>
> 03 WHJ1-DSPLY-INVC-ARGT-ID PIC X(10) VALUE SPACES
> 10 AAWFQ-INVC-ARGT-ID PIC S9(10) COMP-3.
>
>
> DISPLAY 'WHJ1-DSPLY-INVC-ARGT-ID = ' WHJ1-DSPLY-INVC-ARGT-ID
> MOVE WHJ1-DSPLY-INVC-ARGT-ID TO AAWFQ-INVC-ARGT-ID
> DISPLAY 'AAWFQ-INVC-ARGT-ID = ' AAWFQ-INVC-ARGT-ID
>
>
> . . . . . . . . . . . . . . . .
> Display Filter View Print Options Help
> ------------------------------------------------
> SDSF OUTPUT DISPLAY SFLOINC1 JOB24659 DSID 12
> COMMAND INPUT ===>
> WHJ1-DSPLY-INVC-ARGT-ID = 008A500000
> ECDF6CEDDE6CDEC6CDCE6CC474FFFCFFFFFF4444
444444444
> 681104273809553019730940E000815000000000
000000000
> ------------------------------------------------
> AAWFQ-INVC-ARGT-ID = 0081500000
> CCECD6CDEC6CDCE6CC44444474FFFFFFFFFF4444
444444444
> 116680955301973094000000E000815000000000
000000000
> ------------------------------------------------
>
|