This tiny assembler program may enhance control of your jobs whenever  TWS or JES JCL syntax would be to complex. The program raises an U0001 user abend, which leads to „end of job“ – definitively! So, you do not have to COND=(nn,op) or IF statements to your JCL.

D2PABND  TITLE 'D2PABND - JES STEP ABEND WITH USER CODE 0001'
* JOB STEP TERMINATION FOR ADVANCED TWS CONTROL
* G.RUBAN 5/95
D2PABND  CSECT
START    STM   R14,R12,12(R13)          SAVE SYSTEM REGISTERS
         BALR  R11,R0                   LOAD PROGRAM BASE
         USING *,R11                    USING R11 AS BASE REGISTER
         WTO   '*** D2PABND: JOB STEP TERMINATED WITH U0001'
         ABEND X'0001',,STEP            ABEND JOB STEP
DATAD    DSECT
         DS    0D
SAVEAREA DS    18F                      PROGRAM SAVE AREA
R0       EQU   0
R1       EQU   1
R2       EQU   2
R3       EQU   3
R4       EQU   4
R5       EQU   5
R6       EQU   6
R7       EQU   7
R8       EQU   8
R9       EQU   9
R10      EQU   10
R11      EQU   11
R12      EQU   12
R13      EQU   13
R14      EQU   14
R15      EQU   15
         END