*DECK CLP$GSC 
          PROC CLP$GSC(PARAMNM,VALSETCOUNT,STATUS$);
  
#         CLP$GSC - GET SET COUNT                                      #
#                                                                      #
#       CALLING SEQ -                                                  #
#         CLP$GSC(PARAMNM,VALSETCOUNT,STATUS$):                        #
#       GIVEN -                                                        #
#         PARAMNM = NAME OF PARAMETER FOR WHICH REQUEST IS MADE        #
#         STATUS$ = EXPANDED ERROR STATUS(OUTPUT)                      #
#         VALSETCOUNT = NUM. OF SETS WITHIN A PAR. VALUE(OUTPUT)       #
#       DOES - GETS NUMBER OF SETS WITHIN THE PAR. VALUE               #
#                                                                      #
          BEGIN 
*CALL A 
  
*CALL CLPARAM 
  
*CALL STATUS$ 
  
*CALL STRING$ 
  
  
*CALL E$
  
*CALL CLPTYPE 
  
          DEF  PVTLENGTH   #26#;
  
          ITEM   J  I;
          ITEM  MES          C(30); 
XREF PROC S$PRTCD;
  
          XREF
          BEGIN 
*CALL PVT$
  
          PROC S$ABORT; 
  
          END 
  
          FOR J=0 STEP 1 UNTIL PVTLENGTH  DO
              BEGIN 
              IF PVT$KEYWNAM[J] EQ PARAMNM THEN 
                  BEGIN 
                  VALSETCOUNT = PVT$SETCOUNT[J];
                  GOTO BOTTOMGSC; 
                  END 
#               OTHERWISE CONTINUE LOOP                                #
              END 
  
#           IF FOR_LOOP WAS COMPLETED W/OUT FINDING PARAMNM            #
#             IN PVT,THEN GSC SHOULDN'T HAVE BEEN CALLED               #
              $BEGIN
                  S$ABORT("CLP$GSC-1"); 
              $END
  
BOTTOMGSC:  
#***#     RETURN; 
          END 
          TERM
  
