PRINT GEN                                                              
         TITLE 'ALC$END - ABEND JOB WITH DUMP'                                  
*  REMARKS:  ABEND TASK WITH A DUMP AND FORCE A CONDITION CODE                  
*                                                                               
*  REGISTER USAGE                                                               
*       R10 = ADDRESSIBILITY TO PARMS                                           
*       R11 = BASE REGISTER                                                     
*       R12 = BASE REGISTER                                                     
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                                                               
R00      EQU   0                                                                
R01      EQU   1                                                                
R02      EQU   2                                                                
R03      EQU   3                                                                
R04      EQU   4                                                                
R05      EQU   5                                                                
R06      EQU   6                                                                
R07      EQU   7                                                                
R08      EQU   8                                                                
R09      EQU   9                                                                
ALC$END CSECT                                                                   
         USING *,R11,R12               R11,R12=BASE REGISTERS                   
         STM   R14,R12,12(R13)         SAVE REGISTERS                           
         LR    R11,R15                 ADDRESSIBILITY                           
         LA    R12,2048(0,R11)                                                  
         LA    R12,2048(0,R12)                                                  
         LR    R1,R13                  SAVE SAVE AREA POINTER                   
         LA    R13,SAVEAREA            POINT TO MY SAVEAREA                     
         ST    R13,8(0,R1)             SET FORW CHAIN IN CALLERS SAREA          
         ST    R1,4(0,R13)             SET BACK CHAIN IN MY SAVEAREA            
         L     R1,24(0,R1)             REACQUIRE R1 AS IT CAME HERE             
         L     R10,0(R1)               POINT R8 TO INPUT PARMS                  
         MVC   RETCODE,0(R10)          MOVE RET CODE TO SAVE AREA               
         B     START                                                            
         DS    0F                                                               
         DC    C'*'                                                             
PGMID    DC    CL8'ALC$END '                                                    
         DC    C'*'                                                             
COMPDATE DC    CL8'&SYSDATE'                                                    
COMPTIME DC    CL8'&SYSTIME'                                                    
SAVEAREA DC    18F'0'                                                           
START    EQU   *                                                                
         L     R2,RETCODE              MOVE RETCODE TO WORK REGISTER            
         ABEND (2),DUMP,STEP,USER                                               
$GOBACK  EQU   *                                                                
         L     R13,4(0,R13)            POINT BACK TO CALLERS SAVEAREA           
         LM    R14,R12,12(R13)         RESTORE REGISTERS                        
         BR    R14                     GOBACK TO MOMMA                          
         LTORG                                                                  
         EJECT                                                                  
         DS    0F                                                               
RETCODE  DS    F                                                                
         END   ALC$END