*DECK,CMDSCH1 
USETEXT COMCBEG 
USETEXT COMQDEF 
USETEXT COMQPAR 
    FUNC CMDSCH1 ((PCNT), (MINVAL), (MAXVAL)) U;
      BEGIN  # CMDSCH1 #
# 
**    CMDSCH1     PROCESS *SCHED* COMMAND NUMERIC PARAMETER.
* 
*     PROCESSES NUMERIC PARAMETERS FOR THE OPERATOR *SCHED* COMMAND.
* 
*     FUNC CMDSCH1 ((PCNT), (MINVAL), (MAXVAL)) U 
* 
*     ENTRY      PARMS = PARSED COMMAND PARAMETERS
*                PCNT = PARAMETER COUNT 
*                MINVAL = MINIMUM VALUE FOR PARAMETER 
*                MAXVAL = MAXUMUM VALUE FOR PARAMETER.
* 
*     EXIT       CMDSCH1 = PARAMETER VALUE, 
*                PARM$STAT = PARAMETER ERROR, IF ERROR. 
* 
# 
  
      ITEM PCNT       U;           # PARAMETER COUNT #
      ITEM MINVAL     U;           # MINIMUM VALUE #
      ITEM MAXVAL     U;           # MAXIMUM VALUE #
  
# 
****  XREF
# 
      XREF
        BEGIN 
        PROC NAME;                 # DEBUG CODE # 
        END 
  
# 
****  XREF END
# 
  
        $BEGIN
        NAME("CMDSCH1");           # DEBUG CODE # 
        $END
  
      IF (PARM$VTYPE[PCNT] EQ S"INTEGER") 
        AND (PARM$INT[PCNT] GE MINVAL)
        AND (PARM$INT[PCNT] LE MAXVAL)
      THEN
        BEGIN 
        CMDSCH1 = PARM$INT[PCNT]; 
        END 
  
      ELSE
        BEGIN 
        CMDSCH1 = 0;
        PARM$STAT = S"PARMERR"; 
        END 
  
      END  # CMDSCH1 #
    TERM
