*DECK S$SVREL 
          PROC  S$SVREL(RP$); 
  
#**       S$SVREL -  SAVE RAW PARAMETER FROM RELOCATABLE               #
#                                                                      #
#     CALLING SEQUENCE-                                                #
#         S$SVREL(RP$)                                                 #
#                                                                      #
#     GIVEN-                                                           #
#         RP IS A RAW PARAMETER OF THE FORM DESCRIBED IN COMDECK RP$.  #
#                                                                      #
#     DOES-                                                            #
#         SAVES THE RAW PARAMETER FOR LATER RETRIEVAL.                 #
  
  
          BEGIN 
*CALL A 
  
*CALL RP$ 
  
          XREF
              PROC  S$CMALF;           # ALLOCATE FIXED BLOCK          #
          XDEF
              ITEM  S$SPLEN      I=0;  # LENGTH OF SPEC-PART ARRAY     #
          XDEF
*CALL SPECPR$ 
  
CONTROL DISJOINT; 
  
          CONTROL INERT;
  
CONTROL EJECT;
  
          IF S$SPLEN EQ 0 THEN
              S$CMALF(P<S$SPECP>, 1000, 2, 0);   # SHRINKABLE AT LWA   #
          S$SPLEN = S$SPLEN + 1;
          SPECPR$TYPE[S$SPLEN] = RP$TYPE; 
          SPECPR$ORDIN[S$SPLEN] = RP$ORDINAL; 
          SPECPR$GROUP[S$SPLEN] = RP$GROUP; 
          SPECPR$VALUE[S$SPLEN] = RP$VALUE; 
          SPECPR$VALUC[S$SPLEN] = RP$VALUEC;
  
          END  # S$SVREL #
          TERM
