COMDD7S 
COMMON
          CTEXT  COMDD7S - DISPLAY 7 DIGITS (LEADING ZERO SUPPRESSION). 
          SPACE  4,10 
          IF     -DEF,QUAL$ 
          QUAL   COMDD7S
          ENDIF 
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 D7S      SPACE  4,10 
***       D7S - DISPLAY 7 DIGITS (LEADING ZERO SUPPRESSION).
* 
*         ENTRY  (T2 - T3) = DIGITS, RIGHT JUSTIFIED. 
* 
*         CALLS  D2D, D4D, D6S. 
  
  
 D7S      SUBR               ENTRY/EXIT 
          LDD    T2 
          SHN    -6 
          ZJN    D7S1        IF UPPER DIGIT ZERO
          ADN    1R0
 D7S1     OAN    CH+40
          NJN    D7S2        IF NOT SUPPRESSING ZERO
          LDD    T2          DISPLAY LOWER 6 DIGITS 
          SHN    14 
          LMD    T3 
          RJM    D6S
          UJN    D7SX        RETURN 
  
 D7S2     LDD    T2          DISPLAY NEXT 2 DIGITS
          LPN    77 
          RJM    D2D
          LDD    T3          DISPLAY LAST 4 DIGITS
          RJM    D4D
          LDC    2R.         DISPLAY *. * 
 D7SA     EQU    *-1         REPLACE *. * 
          OAN    CH+40
          UJN    D7SX        RETURN 
          SPACE  4,10 
          IF     -DEF,QUAL$ 
          QUAL   *
 D7S      EQU    /COMDD7S/D7S 
 D7SA     EQU    /COMDD7S/D7SA
          ENDIF 
          ENDX
