NUMCHECK

NUMCHECK option syntax

Default is: NONUMCHECK

Suboption defaults are:

• If no suboption is specified, defaults are ZON(ALPHNUM), PAC, BIN and MSG. For example, NUMCHECK has the same effect as NUMCHECK(ZON(ALPHNUM),PAC,BIN,MSG).
• If no datatype suboption is specified, default datatype suboptions are ZON(ALPHNUM), PAC, and BIN. For example, NUMCHECK(ABD) shas the same effect as NUMCHECK(ZON(ALPHNUM),PAC,BIN,ABD).
• If only one datatype suboption is specified, defaults are NOZON, NOPAC, NOBIN, and MSG. For example, NUMCHECK(BIN) has the same effect as NUMCHECK(NOZON,NOPAC,BIN,MSG).
• If all datatype suboptions are specified with NO, then the listing will show NONUMCHECK. For example, NUMCHECK(NOZON,NOPAC,NOBIN) has the same effect as NONUMCHECK.

Abbreviations are: NONC | NC

ZON [(ALPHNUM | NOALPHNUM)] | NOZON

Specifying ZON or ZON(ALPHNUM) causes the compiler to generate code for an implicit numeric class test for zoned decimal (numeric USAGE DISPLAY) data items that are used as sending data items in COBOL statements.

Specifying ZON(NOALPHNUM) causes the compiler to generate code for an implicit numeric class test for zoned decimal (numeric USAGE DISPLAY) data items that are used as sending data items in COBOL statements, except when they are used in a comparison with an alphanumeric data item, alphanumeric literal or alphanumeric figurative constant.

Receivers are not checked, unless they are both a sender and a receiver, such as data item B in the following sample statements:

ADD A TO B

DIVIDE A INTO B

COMPUTE B = A + B

INITIALIZE B REPLACING ALPHANUMERIC BY B

This checking is done before the data is used in each statement:

• If the data is NOT NUMERIC, either a warning message for NUMCHECK(ZON,MSG) or a terminating message for NUMCHECK(ZON,ABD) is issued.
• If the data is NUMERIC, the external behavior of the statement is the same as NUMCHECK(NOZON), other than being slower.

PAC | NOPAC

Specifying PAC causes the compiler to generate code for an implicit numeric class test for packed decimal (COMP-3) data items that are used as sending data items in COBOL statements. For packed decimal data items that have an even number of digits, the unused bits are checked for ones.

Restriction: For CALL statements, NUMCHECK(ZON) and NUMCHECK(PAC) check BY CONTENT data items that are zoned decimal or packed decimal, but they do not check BY REFERENCE parameters. (Neither zoned decimal nor packed decimal data items can be specified in a BY VALUE phrase.)

BIN | NOBIN

Specifying BIN causes the compiler to generate code similar to ON SIZE ERROR to test if binary data items contents are bigger than the PICTURE clause. This extra code will be generated only for binary data items that are used as sending data items, and COMP-5 data items will not get this ON SIZE ERROR code generated.

MSG | ABD

Determines whether the message issued for invalid data is a warning level message to continue processing or a terminating level message to cause an abend:

• If MSG is in effect, a runtime warning message with the line number, data item name, data item content, and program name is issued. Also, the affected statements will still be executed.
• If ABD is in effect, a terminating message is issued that causes an abend.

Performance considerations: NUMCHECK is much slower than NONUMCHECK, depending on how many zoned decimal (numeric USAGE DISPLAY) data items, packed decimal (COMP-3) data items, and binary data items are used in a COBOL program.

Note: In Enterprise COBOL V6.1 with PTF for APAR PI71625 installed, ZONECHECK is deprecated but is tolerated for compatibility, and it is replaced by NUMCHECK(ZON(ALPHNUM)).