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