*COMDECK XCDDLJ 
          IDENT  XCDDLJ 
          ENTRY  XCDDLJ 
          SYSCOM B1 
          TITLE  XCDDLJ - CONVERT INTEGER TO LEFT JUSTIED DECIMAL.
          COMMENT CONVERT INTEGER TO LEFT JUSTIFIED DECIMAL.
          COMMENT COPYRIGHT CONTROL DATA CORP. 1985.
 XCDDLJ   SPACE  4,10 
***       XCDDLJ - CONVERT INTEGER TO LEFT JUSTIFIED DECIMAL. 
* 
*         HOLLERITH = XCDDLJ (INTEGER)
* 
*         XX = XCDDLJ(YY);         (*SYMPL* CALL) 
* 
*         ENTRY  (YY) =  THE INTEGER TO BE CONVERTED. 
* 
*         EXIT   XX, A CHARACTER ITEM TO CONTAIN DISPLAY CODE ON EXIT.
* 
*         CALLS  CDD. 
  
  
 XCDDLJ   SUBR               ENTRY/EXIT 
          SB1    1
          SA1    X1+
          RJ     =XCDD= 
          BX6    X4 
          EQ     XCDDLJX     RETURN, RESULT IN X6 
  
          END 
