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