HP COBOL II/XL Quick Reference Guide (31500-90015)
C- 2
| | |
| 3 | No SIZE ERROR phrase. |
| | |
-------------------------------------------------------------------------------
| | |
| 4 | Invalid GO TO. |
| | |
-------------------------------------------------------------------------------
| | |
| 5 | Address Alignment. |
| | |
-------------------------------------------------------------------------------
| | |
| 6 | Paragraph stack overflow (recursive PERFORMs or too many |
| | PERFORMs with a common exit point).[REV BEG] |
| | |
-------------------------------------------------------------------------------
| | |
| 7 | Leading blanks in a numeric field. If this position |
| | contains I, leading blanks in a numeric field are ignored. |
| | If this position contains N, leading blanks are changed to |
| | zeros. If this position contains a value other than N or I, |
| | the action entered in character position 1 is used. |
| | |
-------------------------------------------------------------------------------
| | |
| 8 | Unsigned number in signed numeric field or signed number in |
| | unsigned numeric field. If this position contains I, the |
| | invalid sign is ignored. If this position contains N, the |
| | invalid sign is corrected. If this position contains a |
| | value other than N or I, the action entered in character |
| | position 1 is used.[REV END] |
| | |
-------------------------------------------------------------------------------
Table C-2. Character Position in Specific Traps (cont.)
----------------------------------------------------------------------------------------
| | |
| Character | |
| Position | Trap Type |
| | |
----------------------------------------------------------------------------------------
| [REV BEG] | |
| | |
| 9 | Only affects a NUMERIC class condition with a PACKED-DECIMAL |
| | identifier. If this field contains the character I, then |
| | the following conditions do
not
make a NUMERIC test false: |
| | |
| | * A signed value in an unsigned PACKED-DECIMAL field. |
| | * An unsigned value in a signed PACKED-DECIMAL field. |
| | * Any invalid sign nibble (half-byte). |
| | |
| | If this field contains anything other than I, the above |
| | conditions make the NUMERIC class condition false.[REV END] |
| | |
----------------------------------------------------------------------------------------