D2PABND  TITLE 'D2PABND - JES STEP ABEND WITH USER CODE 0001'          
* JOB STEP TERMINATION FUER OPC/ESA-STEUERUNG                         
* INSBESONDERE FUER DB2 UTLITY ODER SONSTIGE UTILITY STEUERUNG
* G.RUBAN 5/95
LBSABND  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