*DECK RTPUTD
USETEXT COMCBEG 
USETEXT COMQDEF 
    PROC RTPUTD( (KEYWORD), (VALUE) );
      BEGIN  # RTPUTD # 
# 
**    RTPUTD     PUT KEYWORD AND DECIMAL VALUE IN ROUTING TEXT. 
* 
*     PROC RTPUTD( (KEYWORD), (VALUE) ) 
* 
*     ENTRY      (SEE *RTPUTC* ENTRY CONDITIONS). 
*                KEYWORD = 1 TO 10 CHAR PREFIX TO INSERT IN TEXT. 
*                VALUE = INTEGER VALUE TO INSERT AS DECIMAL TEXT. 
* 
*     EXIT       (SEE *RTPUTC* EXIT CONDITIONS).
* 
*     PROCESS    IF VALUE NON-ZERO: 
*                  CONVERT VALUE TO DECIMAL CHARACTERS
*                  CALL RTPUTC TO STORE STRING IN TEXT. 
# 
  
      ITEM KEYWORD    C(10);       # *KEYWORD=* # 
      ITEM VALUE      U;           # *VALUE* #
  
# 
****  XREF
# 
      XREF
        BEGIN 
        PROC NAME;                 # DEBUG CODE # 
        PROC RTPUTC;               # PUT CHARACTER ITEM # 
        FUNC XCDDLJ     C(10);     # CONVERT INTEGER TO LJ DECIMAL #
        END 
  
# 
****  XREF END
# 
  
        $BEGIN
        NAME("RTPUTD"); 
        $END
  
      IF VALUE GT 0 
      THEN
        BEGIN 
        RTPUTC(KEYWORD, XCDDLJ(VALUE) );
        END 
  
      END  # RTPUTD # 
    TERM
