*DECK  DSPL 
USETEXT COMCBEG 
USETEXT COMRDSD 
PROC DSPL;
# TITLE  DSPL - GENERATE DISPLAYS # 
  
      BEGIN  # DSPL # 
  
# 
**    DSPL - GENERATE DISPLAYS
* 
*     GENERATE L DISPLAYS 
* 
*     PROC DSPL.
* 
*     ENTRY      - LBUFST INDICATES DISPLAY TO GENERATE 
* 
*     EXIT       - DISPLAY GENERATED
* 
*     PROCESSING -
*           DEPENDING ON WHICH DISPLAY
*           CASE (CURRENT DISPLAY,APPL) CALL APPLDSPL 
*           CASE (CURRENT DISPLAY,ID) CALL IDDSPL 
*           CASE (CURRENT DISPLAY,PATH) CALL PATHDSPL 
*         RETURN
# 
  
# 
****  PROC DSPL - XREF LIST BEGIN.
# 
      XREF
        BEGIN 
        PROC APPLDSPL;
        PROC IDDSPL;
        PROC PATHDSPL;
        END 
# 
****  PROC DSPL - XREF LIST END.
# 
  
  
  
      SWITCH DSPLRTN APPL,ID,PATH;
CONTROL EJECT;
  
# 
*     PROCESS CURRENT DISPLAY REQUEST THROUGH SIMULATED CASE STATEMENT. 
# 
  
      GOTO DSPLRTN[LBUF$CURD[0]]; 
  
APPL: 
      APPLDSPL; 
      GOTO ENDCASE; 
  
ID: 
      IDDSPL; 
      GOTO ENDCASE; 
  
PATH: 
      PATHDSPL; 
      GOTO ENDCASE; 
# 
*     END OF SIMULATED CASE STATEMENT.
# 
ENDCASE:  
      RETURN; 
      END 
  
      TERM
