IFERR (HLI function)

The conventions used on this page are described in Function call notation conventions.

Summary

Description

The IFERR call (ERROR) places an error message on the Model 204 journal.

Thread type

multiple cursor IFSTRT, single cursor IFSTRT

IFCALL function number

28

Syntax

IFERR(RETCODE,PRINT_OP,ERR_MSG)

Compile-only form

Not available

Execute-only form

Not available

Specify the parameters in the syntax order shown above.

Parameter	Description
RETCODE	[O,i,r] The Model 204 return code is a required output parameter. The code is a binary integer value.
PRINT_OP	[I,i,r] The print option is a required input parameter. Specify any of the following integer values for printing the message, or sum any of the values: 0 = Print the message only on the journal. 1 = Print the message on the operator's console and on the journal. 128 = Print the message on the journal and snap the current thread's storage areas including the Host Language Interface/Model 204 server area and control blocks.
ERR_MSG	[I,c,r] The error message is a required input parameter that specifies the message to be printed. Specify a character string less than 256 characters in length.

Usage notes

Use the IFERR call to document errors encountered during host language program processing. Model 204 writes the message in the journal as an AD line. You can use the IFERR call on any type of IFSTRT thread.

Coding example (COBOL)

In the example below, a message is written to the Model 204 journal.

WORKING-STORAGE SECTION. 01 CALL-ARGS. 05 RETCODE PIC 9(5) COMP SYNC. 05 AUDIT-ERROPT PIC 9(5) VALUE 0. . . . 01 MESSAGES. 05 MESSAGE-A PIC X(19) VALUE "INPUT CODE INVALID;". 05 MESSAGE-B PIC X(19) VALUE "RECORD NOT FOUND;". . . . PROCEDURE DIVISION. . . . CALL "IFERR" USING RETCODE, AUDIT-ERROPT, MESSAGE-B.