*DECK,UPKXCDD 
USETEXT COMCBEG 
USETEXT COMQDEF 
    FUNC UPKXCDD ((NUM)) C(10); 
      BEGIN  # UPKXCDD #
# 
**    UPKXCDD    CONVERT INTEGER TO DISPLAY CODE. 
* 
*     CONVERTS AN INTEGER TO DECIMAL DISPLAY CODE.
*     IF THE INTEGER IS ZERO OR NEGATIVE, ALL *-* ARE RETURNED. 
* 
*     FUNC UPKXCDD ((NUM)) C(10)
* 
*     ENTRY      NUM = INTEGER TO CONVERT.
* 
*     EXIT       FUNCTION RETURNS DISPLAY CODE STRING.
* 
*     PROCESS    IF NEGATIVE OR ZERO: 
*                  RETURN *----*
*                ELSE:  
*                  CALL XCDD TO CONVERT INTEGER.
* 
# 
  
      ITEM NUM        I;           # INTEGER TO CONVERT # 
  
# 
****  XREF
# 
      XREF
        BEGIN 
        PROC NAME;                 # DEBUG CODE # 
        FUNC XCDD       C(10);     # CONVERT INTEGER TO DPC # 
        END 
  
# 
****  XREF END
# 
  
      ARRAY [0:0] S(1); 
        BEGIN 
        ITEM TMPC       C(00,00,10);
        ITEM TMPC4      C(00,36,04);
        END 
  
        $BEGIN
        NAME("UPKXCDD");           # DEBUG CODE # 
        $END
  
      IF NUM LE 0 
      THEN
        BEGIN 
        UPKXCDD = "----------"; 
        END 
  
      ELSE
        BEGIN 
        TMPC = XCDD(NUM); 
        UPKXCDD = TMPC4;           # LOWER 4 DIGITS # 
        END 
  
      END  # UPKXCDD #
    TERM
