Retro1.org codex

*DECK SENDACC 
USETEXT NIPDEF
USETEXT PARAMP
USETEXT PARAMS
PRGM SENDACC ;
STARTIMS ;
 #
*1DC  SENDACC 
* 
*     1. PROC NAME        AUTHOR           DATE 
*        SENDACC          A.BEN-ARTZI      82/07/07 
* 
*     2. FUNCTIONAL DESCRIPTION 
*        THIS IS ONLY A SWITCHING ROUTINE THAT COMBINE THE
*        LOAD OF SEVERAL OVERLAYS 
* 
*     3. METHOD USED
*        CALL THE PROPER ROUTINE ACCORDING TO A SWITCH VALUE. 
*        WHEN THIS OVERLAY IS LOADED IT IS LOADED WITH ALL
*        RELATED ROUTINES, THUS SAVES LOAD TIME IN CASE WHERE 
*        THE ROUTINES ARE TO BE EXECUTED ONE AFTER THE OTHER. 
* 
*        THE ROUTINES LOADED WITH THIS OVERLAY ARE :  
*        UPACNB3,HCRACCU
* 
*     4. ENTRY PARAMETERS 
*        PARAMS9 - SWITCH VALUE 
*        OTHER PARAMS AS REQUIRED BY EACH ROUTINE 
*              SEE IMS OF EACH ROUTINE FOR DETAILS
* 
*     5. FOR INFORMATION ABOUT OUTPUT PARAMETERS, AS WELL AS
*            DAYFILE MESSAGES,TEXTS ETC. REFER TO THE 
*            IMS OF EACH SPECIFIC ROUTINE.
* 
 #
STOPIMS ; 
      XREF LABEL RJMAIN;
      XREF
        BEGIN 
        PROC UPACNB3 ;
        PROC HCRACCU ;
        END 
# 
      INTERNAL VARIABLES
# 
      SWITCH LAB U$ACNB3,CR$ACC    ;
 
      BEGIN 
      GOTO LAB[PARAMS9] ; 
 
U$ACNB3:  
      UPACNB3 ; 
      GOTO EXIT;
 
CR$ACC: 
      HCRACCU ; 
      GOTO EXIT;
 
EXIT: 
      GOTO RJMAIN ; 
      END 
TERM