Debugging

CACHEINFO

Definition

Prints information about cached table records to SYSPRINT.

Prototype	VOID CACHEINFO()
Returns	VOID

Example

/* print cached table records */
CALL SAY(CACHEINFO());

INSMSG

Definition

Inserts a message. When the message text contains variables, their values must be passed to the PARM list.

Prototype	VOID INSMSG(STR CODE) VOID INSMSG(STR CODE, LST PARM)
Returns	VOID
Parameters	CODE: Message code PARM: List with message parameters that are of type STR

Example

The function uses the messages that are defined under JCK-MSG. Each message has a CODE, a SEVERITY and a MESSAGE that can contain variables.

SYSH.PARM(LANG)

TST0001W 04 THE JOB FINISHED WITH &VAR1 WARNINGS IN ENVIRONMENT &VAR2
TST0002E 08 THE JOB FINISHED WITH &VAR1 ERRORS IN ENVIRONMENT &VAR2

SYSH.RULES(MAIN)

/* insert a warning message */
CALL INSMSG("TST0001W", [7, "TEST"]);

/* insert an error message */
CALL INSMSG("TST0002E", [3, "TEST"]);

INSMSGEX

Definition

Inserts a message with an explicit severity. When the message text contains variables, their values must be passed to the PARM list.

Prototype	VOID INSMSGEX(STR CODE, NUM SEVERITY) VOID INSMSGEX(STR CODE, NUM SEVERITY, LST PARM)
Returns	VOID
Parameters	CODE: Message code SEVERITY: Message severity 0 -> Info 4 -> Warning 8 -> Error 12 -> Fatal error PARM: List with message parameters that are of type STR

Example

For this example, the same messages are being used as in INSMSG.

SYSH.RULES(MAIN)

/* insert a warning message with explicit severity */
CALL INSMSGEX("TST0001W", 4, [7, "TEST"]);

SAY

Definition

Prints a value to SYSPRINT. Optionally, a prefix can be defined that is appended in front of the value.

Prototype	VOID SAY(STR VALUE) VOID SAY(STR PREFIX, STR VALUE) VOID SAY(BOOL VALUE) VOID SAY(STR PREFIX, BOOL VALUE) VOID SAY(LST VALUE) VOID SAY(STR PREFIX, LST VALUE) VOID SAY(VOID VALUE) VOID SAY(STR PREFIX, VOID VALUE) VOID SAY(OBJ VALUE) VOID SAY(STR PREFIX, OBJ VALUE)
Returns	VOID
Parameters	VALUE: Printed value PREFIX: Appended value in front

Example

Using a prefix can be useful, if a variable is being used that changes depending on the context (e.g. a different system). This could also be achieved via concatenation.

/* print a message */
CALL SAY("TEST");

/* print a concatenated message */
CALL SAY("PRE"!!"TEST");

/* print a message with prefix */
CALL SAY("PRE", "TEST");