*COMDECK SSTCOM 
# 
      SST CALL FUNCTION CODES 
# 
 DEF SSTSQFFSCP     # 1#;       # SWITCH QUEUE FILE FROM SOURCE SCP    #
 DEF SSTSQFTSCP     # 2#;       # SWITCH QUEUE FILE TO RECEIVING SCP   #
 DEF SSTSQFFUCP     # 3#;       # SWITCH QUEUE FILE FROM SOURCE UCP    #
 DEF SSTSQFTUCP     # 4#;       # SWITCH QUEUE FILE TO   RECEIVING UCP #
# 
      SST COMPLETION STATUS CODES 
# 
 DEF RC$NORMAL      # 0#;       # FILE SWITCH COMPLETED NORMALLY       #
 DEF RC$FNTBS       # 1#;       # FILE FNT BUSY                        #
 DEF RC$UCPSO       # 2#;       # APPLICATION SWAPPED OUT              #
 DEF RC$FNTIT       # 3#;       # FILE FNTS INVALID FILE TYPE          #
 DEF RC$UCPNF       # 4#;       # BAD JOB IDENTIFICATION               #
 DEF RC$FNTNS       # 5#;       # NO SPACE IN RECEIVER-S FNT           #
 DEF RC$FLIMIT      # 6#;       # FILE LIMIT REACHED                   #
 DEF RC$FNTNF       # 7#;       # FILE FNTS NOT FOUND                  #
 COMMON SSTCOM; 
   BEGIN
# 
      SST RA+1 CALL WORD
# 
   ARRAY SSTREQ S(1); 
     BEGIN
     ITEM SSTNAME   C(0,0,3) = ["SST"]; 
     ITEM SSTRECALL U(0,19,1) = [1];   # AUTO RECALL BIT               #
     ITEM SSTPADDR  I(0,42,AL);        # PARAMETER BLOCK FWA           #
     ITEM SSTCALL   U(0,0,WL);
     END
# 
      PARAMETER BLOCK FOR SST REQUEST 
# 
   ARRAY SSTPAR P(2); 
     BEGIN
     ITEM SSTFNTR   U(0,0,12);  # FNT ADDRESS IN RECEIVER-S FNT SPACE  #
     ITEM SSTFNTS   U(0,12,12); # FNT ADDRESS IN SOURCE-S FNT SPACE    #
     ITEM SSTFC     U(0,42,6);  # SST FUNCTION CODE                    #
     ITEM SSTRC     U(0,48,11); # SST COMPLETION STATUS                #
     ITEM SSTCB     B(0,59,1);  # SST COMPLETION BIT                   #
     ITEM SSTPARAM  U(0,0,WL);  # SST PARAMETER WORD                   #
     ITEM SSTJSN    C(1,0,4);   # JOB SEQUENCE NUMBER OF APP           #
     ITEM SSTJDT    I(1,42,AL); # JFST ADDRESS OF APPLICATION          #
     ITEM SSTJOBID  U(1,0,WL);  # APPLICATION-S JOB IDENTIFICATION WORD#
     END
   END
