Previous Topic Next topic Print topic


MFJZABND

MFJZABND abends the current job step with a system or user abend.

Syntax:

call "MFJZABND" using abend-type abend-code

Parameters:

abend-code pic 9(8) comp The abend code.
abend-type pic 9(8) comp Type of abend to occur; 0 indicates a user abend; 1 indicates a system abend..
abend-sys pic 9(8) comp value 1
abend-user pic 9(8) comp value 0

Example:

Example 1. To cause an abend with user abend 1004:

77  abend-code                 pic  9(08) comp.
77  abend-type                  pic 9(08)  comp. 
77  abend-sys                   pic  9(08) comp value 1.
77  abend-user                  pic  9(08) comp value 0.

...
Move 1004 to abend-code
call 'MFJZABND' using abend-user abend-code

Example 2. To cause an abend with system abend SDED (note that system abend codes are always hex not decimal):

77  abend-code                 pic  9(08) comp.
77  abend-type                  pic 9(08)  comp. 
77  abend-sys                   pic  9(08) comp value 1.
77  abend-user                  pic  9(08) comp value 0.
...
Move h’ded’ to abend-code
call 'MFJZABND' using abend-sys abend-code
Previous Topic Next topic Print topic