Retro1.org codex

*DECK     CSIIAP
      PROC CSIIAP;
# TITLE - INTIALIZATION ABORT PROCEDURE.                               #
      BEGIN 
# 
**    CSIIAP - INITIALIZATION ABORT PROCEDURE.
* 
*     D.K. ENDO    82/06/11 
* 
*     THIS PROCEDURE PREVENTS CS TO BE RESTARTED WHEN IT ABORTS.
* 
*     PROC CSIIAP 
* 
*     ENTRY        1. NONE. 
* 
*     EXIT         1. NONE. 
* 
# 
# 
****  PROC CSIIAP - XREF LIST BEGINS. 
# 
      XREF
        BEGIN 
        PROC ABORT;          # CAUSE ABORT WHEN CALLED                 #
        PROC RSJCR;          # RETRIEVE/SET JOB CONTROL REGISTER       #
        END 
# 
****
# 
 
 
#                                                                      #
#                            CSIIAP CODE BEGINS HERE                   #
#                                                                      #
 
 
# 
*     SET JOB CONTROL REGISTER TO ONE TO CAUSE THE LOOP TO CALL CS
*     TO ONLY BE EXECUTED ONCE. 
# 
 
 
      RSJCR(1,1,0); 
 
 
# 
*     ABORT THE JOB.
# 
 
 
      ABORT;
 
 
      RETURN;                # **** RETURN ****                        #
 
      END # CSIIAP #
      TERM