*DECK SSFREQ
USETEXT COMCBEG 
USETEXT COMRAPL 
USETEXT COMRSFC 
PROC SSFREQ;
# TITLE SSFREQ - MAKE SSF CALL.  #
  
      BEGIN  # SSFREQ # 
  
# 
**    SSFREQ  - MAKE SSF CALL.
* 
*     MAKE SPECIAL SUBSYSTEM FUNCTION (SSF) CALL. 
* 
*     PROC SSFREQ.
* 
*     ENTRY   - APL$HEADER IS BASED ARRAY CONTAINING APPLICATION TABLE. 
*               SFC IS ARRAY CONTAINING FUNCTION CALLS. 
* 
*     EXIT    - REQUEST COMPLETED.  SWAP IN REQUEST MADE IF REQUIRED. 
* 
*     PROCESS - INITIALIZE JOB IDENTIFICATION.
*               MAKE SSF SYSTEM CALL. 
*               RETURN. 
# 
  
# 
****  PROC SSFREQ - XREF LIST BEGIN.
# 
      XREF
        BEGIN 
        PROC CALLSYS;                # MAKE RA+1 REQUEST #
        END 
  
# 
****  PROC SSFREQ - XREF LIST END.
# 
  
  
CONTROL EJECT;
  
      SFC$JOBID = APL$JOBID;
      SSFRCL = TRUE;
      SSFADDR = LOC(SFC$FC1); 
      CALLSYS(SSF$CALL);
      SFC$FC1CB = FALSE;
      ASLONGAS SFC$FC1 EQ SF$LIST 
        AND SFC$FP1 NE 0
        AND SFC$RC1 EQ 0
      DO
        BEGIN 
        CALLSYS(SSF$CALL);
        SFC$FC1CB = FALSE;
        END 
      RETURN; 
      END  # SSFREQ # 
  
      TERM
