Common COMDD7S

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comdd7s +++|          CTEXT  COMDD7S - DISPLAY 7 DIGITS (LEADING ZERO SUPPRESSION).
00002  M00S00002.comdd7s +++|          SPACE  4,10
00003  M00S00003.comdd7s +++|          IF     -DEF,QUAL$
00004  M00S00004.comdd7s +++|          QUAL   COMDD7S
00005  M00S00005.comdd7s +++|          ENDIF

Line S00006 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1981.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.comdd7s +++| D7S      SPACE  4,10
00009  M00S00008.comdd7s +++|***       D7S - DISPLAY 7 DIGITS (LEADING ZERO SUPPRESSION).
00010  M00S00009.comdd7s +++|*
00011  M00S00010.comdd7s +++|*         ENTRY  (T2 - T3) = DIGITS, RIGHT JUSTIFIED.
00012  M00S00011.comdd7s +++|*
00013  M00S00012.comdd7s +++|*         CALLS  D2D, D4D, D6S.
00014  M00S00013.comdd7s +++|
00015  M00S00014.comdd7s +++|
00016  M00S00015.comdd7s +++| D7S      SUBR               ENTRY/EXIT
00017  M00S00016.comdd7s +++|          LDD    T2
00018  M00S00017.comdd7s +++|          SHN    -6
00019  M00S00018.comdd7s +++|          ZJN    D7S1        IF UPPER DIGIT ZERO
00020  M00S00019.comdd7s +++|          ADN    1R0
00021  M00S00020.comdd7s +++| D7S1     OAN    CH+40
00022  M00S00021.comdd7s +++|          NJN    D7S2        IF NOT SUPPRESSING ZERO
00023  M00S00022.comdd7s +++|          LDD    T2          DISPLAY LOWER 6 DIGITS
00024  M00S00023.comdd7s +++|          SHN    14
00025  M00S00024.comdd7s +++|          LMD    T3
00026  M00S00025.comdd7s +++|          RJM    D6S
00027  M00S00026.comdd7s +++|          UJN    D7SX        RETURN
00028  M00S00027.comdd7s +++|
00029  M00S00028.comdd7s +++| D7S2     LDD    T2          DISPLAY NEXT 2 DIGITS
00030  M00S00029.comdd7s +++|          LPN    77
00031  M00S00030.comdd7s +++|          RJM    D2D
00032  M00S00031.comdd7s +++|          LDD    T3          DISPLAY LAST 4 DIGITS
00033  M00S00032.comdd7s +++|          RJM    D4D
00034  M00S00033.comdd7s +++|          LDC    2R.         DISPLAY *. *

Line S00001 Modification History
`M01` (Added by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00035  M01S00001.v23l617 +++| D7SA     EQU    *-1         REPLACE *. *
00036  M00S00034.comdd7s +++|          OAN    CH+40
00037  M00S00035.comdd7s +++|          UJN    D7SX        RETURN
00038  M00S00036.comdd7s +++|          SPACE  4,10
00039  M00S00037.comdd7s +++|          IF     -DEF,QUAL$
00040  M00S00038.comdd7s +++|          QUAL   *
00041  M00S00039.comdd7s +++| D7S      EQU    /COMDD7S/D7S

Line S00002 Modification History
`M01` (Added by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00042  M01S00002.v23l617 +++| D7SA     EQU    /COMDD7S/D7SA
00043  M00S00040.comdd7s +++|          ENDIF
00044  M00S00041.comdd7s +++|          ENDX