cdc:nos2.source:opl.opl871:common:comcchg.001
Common COMCCHG Part 001
12 Modifications
Listing Sections
- Common COMCCHG Start
- Common COMCCHG Part 1 (Line 1098)
Source
Seq # *Modification Id* Act ----------------------------+ 01098 M01S00749.comcchg +++| SA1 EISX SET RETURN ADDRESS 01099 M01S00750.comcchg +++| BX6 X1 01100 M01S00751.comcchg +++| SA6 B7 01101 M01S00752.comcchg +++| JP B7+1 EXECUTE SUBROUTINE
| Line S00753 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01102 M02S00753.261l700 ---| ERR SPACE 4,10 01103 M01S00199.261l700 +++| ERR SPACE 4,15 01104 M01S00754.comcchg +++|** ERR - ERROR EXIT. 01105 M01S00755.comcchg +++|* 01106 M01S00756.comcchg +++|* ENTRY (B6) = ERROR MESSAGE ADDRESS. 01107 M01S00757.comcchg +++|*
| Line S00758 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01108 M02S00758.ns22000 ---|* EXIT TO *CHGX* TO RETURN ERROR STATUS FROM COMMON DECK. 01109 M01S00102.ns22000 +++|* EXIT RETURN ERROR STATUS FROM COMMON DECK.
| Line S00103 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01110 M02S00103.261l700 ---|* TO *CHGX* IF ENTERED FROM *CHG*. 01111 M01S00200.261l700 +++|* TO *VCNX* IF ENTERED FROM *VCN*. 01112 M01S00104.ns22000 +++|* TO *RPEX* IF ENTERED FROM *RPE*. 01113 M01S00759.comcchg +++|*
| Line S00760 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01114 M02S00760.261l700 ---|* MACROS RETURN 01115 M01S00201.261l700 +++|* USES X - 1, 2, 6. 01116 M01S00202.261l700 +++|* A - 1, 2, 6. 01117 M01S00203.261l700 +++|* B - 6, 7. 01118 M01S00204.261l700 +++|* 01119 M01S00205.261l700 +++|* MACROS RETURN. 01120 M01S00761.comcchg +++| 01121 M01S00762.comcchg +++| 01122 M01S00763.comcchg +++| ERR BSS 0 ENTRY 01123 M01S00001.cchg1 +++| SA2 P ENSURE COMPLETE BIT SET IN FET 01124 M01S00002.cchg1 +++| SX6 B1 01125 M01S00003.cchg1 +++| BX6 X2+X6 01126 M01S00004.cchg1 +++| SA6 A2 01127 M01S00764.comcchg +++| RETURN P 01128 M01S00765.comcchg +++| SB7 ERRD
| Line S00766 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01129 M02S00766.v23l617 ---| NE B6,B7,ERR1 IF NOT *INVALID CHARGE.* 01130 M01S00024.v23l617 +++| NE B6,B7,ERR1 IF NOT *CHARGE NOT VALID.* 01131 M01S00767.comcchg +++| SA1 DCF 01132 M01S00768.comcchg +++| ZR X1,ERR1 IF NOT DEFAULT CHARGE
| Line S00769 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01133 M02S00769.v23l617 ---| SB6 ERRI * INVALID DEFAULT CHARGE.* 01134 M01S00025.v23l617 +++| SB6 ERRI * DEFAULT CHARGE NOT VALID.*
| Line S00770 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01135 M02S00770.ns22000 ---| ERR1 EQ CHGX RETURN WITH ERROR STATUS 01136 M01S00105.ns22000 +++| ERR1 BSS 1 RETURN WITH ERROR STATUS
| Line S00106 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01137 M02S00106.261l700 ---|* EQ CHGX IF ENTERED FROM *CHG* 01138 M01S00206.261l700 +++|* EQ VCNX IF ENTERED FROM *VCN* 01139 M01S00107.ns22000 +++|* EQ RPEX IF ENTERED FROM *RPE* 01140 M01S00108.ns22000 +++| ERRX EQU *-1 01141 M01S00771.comcchg +++| 01142 M01S00207.261l700 +++|
| Line S00772 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01143 M02S00772.v23l617 ---| ERRA DATA C* CHARGE INVALID AT THIS HOUR.* 01144 M01S00026.v23l617 +++| ERRA DATA C* CHARGE NOT VALID AT THIS HOUR.* 01145 M01S00773.comcchg +++| ERRB DATA C* CUMULATIVE SRU LIMIT EXCEEDED.* 01146 M01S00774.comcchg +++| ERRC DATA C* CUMULATIVE LIMIT EXCEEDED.*
| Line S00775 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01147 M02S00775.v23l617 ---| ERRD DATA C* INVALID CHARGE.* 01148 M01S00027.v23l617 +++| ERRD DATA C* CHARGE NOT VALID.* 01149 M01S00776.comcchg +++| ERRE DATA C* DATA BASE ERROR.* 01150 M01S00777.comcchg +++| ERRF DATA C* CHARGE FILE BUSY.* 01151 M01S00778.comcchg +++| ERRG DATA C* CHARGE NUMBER EXPIRED.* 01152 M01S00779.comcchg +++| ERRH DATA C* PROJECT NUMBER EXPIRED.*
| Line S00780 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01153 M02S00780.v23l617 ---| ERRI DATA C* INVALID DEFAULT CHARGE.* 01154 M01S00028.v23l617 +++| ERRI DATA C* DEFAULT CHARGE NOT VALID.*
| Line S00781 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01155 M02S00781.261l700 ---| ICN SPACE 4,15
| Line S00782 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01156 M02S00782.261l700 ---|** ICN - ISSUE CHARGE NUMBER MESSAGES.
| Line S00783 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01157 M02S00783.261l700 ---|*
| Line S00109 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01158 M02S00109.261l700 ---|* ENTRY (B5) = ADDRESS OF PROJECT ENTRY.
| Line S00110 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01159 M02S00110.261l700 ---|*
| Line S00784 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | ns22000 |
M03 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01160 M03S00784.261l700 ---|* EXIT ACCOUNTING INFORMATION ISSUED TO ACCOUNT AND USER
| Line S00785 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | ns22000 |
M03 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01161 M03S00785.261l700 ---|* DAYFILES. CHARGE REQUIRED FLAG CLEARED IF CHARGE
| Line S00786 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | ns22000 |
M03 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01162 M03S00786.261l700 ---|* NUMBER ENTERED. JOB SERVICE CLASS CHANGED IF SERVICE
| Line S00787 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | ns22000 |
M03 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01163 M03S00787.261l700 ---|* CLASS PARAMETER SPECIFIED.
| Line S00111 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01164 M02S00111.261l700 ---|* EXIT PROJECT PROLOGUE AND EPILOGUE CONTROL FIELDS SET IN
| Line S00112 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01165 M02S00112.261l700 ---|* CP AREA.
| Line S00113 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01166 M02S00113.261l700 ---|* ACCOUNTING INFORMATION ISSUED TO ACCOUNT AND USER
| Line S00114 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01167 M02S00114.261l700 ---|* DAYFILES.
| Line S00115 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | ns2323 |
M03 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01168 M03S00115.261l700 ---|* CHARGE REQUIRED FLAG CLEARED IF CHARGE NUMBER ENTERED.
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ns2323 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01169 M02S00009.261l700 ---|* CHARGE REQUIRED FLAG CLEARED IN CONTROL POINT AREA.
| Line S00788 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01170 M02S00788.261l700 ---|*
| Line S00789 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01171 M02S00789.261l700 ---|* USES A - 1, 2, 6, 7.
| Line S00790 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | ns2323 |
M03 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01172 M03S00790.261l700 ---|* X - 0, 1, 2, 3, 6, 7.
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | ns2323 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01173 M02S00010.261l700 ---|* X - 1, 2, 3, 6, 7.
| Line S00791 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01174 M02S00791.261l700 ---|* B - 2, 3, 4, 6, 7.
| Line S00792 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01175 M02S00792.261l700 ---|*
| Line S00793 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01176 M02S00793.261l700 ---|* CALLS CCC, CPM=.
| Line S00794 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | ns22000 |
M03 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01177 M03S00794.261l700 ---|*
| Line S00795 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | ns22000 |
M03 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01178 M03S00795.261l700 ---|* MACROS RECALL.
| Line S00116 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01179 M02S00116.261l700 ---|*
| Line S00117 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01180 M02S00117.261l700 ---|* MACROS BEGINAB, RECALL.
| Line S00796 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01181 M02S00796.261l700 ---|
| Line S00797 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01182 M02S00797.261l700 ---|
| Line S00798 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01183 M02S00798.261l700 ---| ICN SUBR ENTRY/EXIT
| Line S00799 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01184 M02S00799.261l700 ---| SA1 SRUM+2 GET CHARGE NUMBER
| Line S00800 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | ns22000 |
M03 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01185 M03S00800.261l700 ---| ZR X1,ICN5.1 IF NO CHARGE NUMBER ENTERED
| Line S00801 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01186 M02S00801.261l700 ---| SA1 =6RACCN, SET ACCOUNT FILE MESSAGE HEADER
| Line S00802 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01187 M02S00802.261l700 ---| SB2 60-36
| Line S00803 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01188 M02S00803.261l700 ---| MX3 6 SET CHARACTER MASK
| Line S00804 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01189 M02S00804.261l700 ---| SB7 SRUM+5 FWA OF MESSAGE AREA
| Line S00805 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01190 M02S00805.261l700 ---| BX6 X1
| Line S00806 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01191 M02S00806.261l700 ---| SB6 SRUM+2 ADDRESS OF CHARGE/PROJECT BLOCK
| Line S00807 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01192 M02S00807.261l700 ---| SB4 2
| Line S00808 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01193 M02S00808.261l700 ---| ICN1 SA1 B6 FETCH FIRST/NEXT CHARGE/PROJECT
| Line S00809 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01194 M02S00809.261l700 ---| SB6 B6+B1
| Line S00810 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01195 M02S00810.261l700 ---| SB3 60
| Line S00811 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01196 M02S00811.261l700 ---| ICN2 BX7 X3*X1
| Line S00812 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01197 M02S00812.261l700 ---| ZR X7,ICN4 IF AT END OF THIS WORD
| Line S00813 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01198 M02S00813.261l700 ---| LX1 6
| Line S00814 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01199 M02S00814.261l700 ---| BX6 X6+X7 MERGE NEW CHARACTER
| Line S00815 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01200 M02S00815.261l700 ---| LX6 6
| Line S00816 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01201 M02S00816.261l700 ---| SB2 B2-6
| Line S00817 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01202 M02S00817.261l700 ---| ZR B2,ICN7 IF MESSAGE WORD FULL
| Line S00818 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01203 M02S00818.261l700 ---| SB3 B3-6
| Line S00819 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01204 M02S00819.261l700 ---| ICN3 NZ B3,ICN2 IF MORE CHARACTERS TO CHECK
| Line S00820 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01205 M02S00820.261l700 ---| ICN4 GT B4,B1,ICN6 IF SEPARATOR REQUIRED
| Line S00821 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01206 M02S00821.261l700 ---| ICN5 SB4 B4-1
| Line S00822 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01207 M02S00822.261l700 ---| PL B4,ICN1 IF MORE CHARGE/PROJECT
| Line S00823 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01208 M02S00823.261l700 ---| SX2 1R.
| Line S00824 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01209 M02S00824.261l700 ---| LX2 -6
| Line S00825 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01210 M02S00825.261l700 ---| BX6 X2+X6 MERGE TERMINATOR
| Line S00826 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01211 M02S00826.261l700 ---| MX7 0
| Line S00827 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01212 M02S00827.261l700 ---| LX6 B2 LEFT JUSTIFY
| Line S00828 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01213 M02S00828.261l700 ---| SA7 B7+B1
| Line S00829 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01214 M02S00829.261l700 ---| SA6 B7 STORE LAST WORD AND ZERO WORD
| Line S00830 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01215 M02S00830.261l700 ---|
| Line S00831 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01216 M02S00831.261l700 ---|* SET UP SRU MULTIPLIERS.
| Line S00832 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01217 M02S00832.261l700 ---|
| Line S00833 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01218 M02S00833.261l700 ---| SA1 SRM SRU INDICES
| Line S00834 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01219 M02S00834.261l700 ---| SA2 TSRM
| Line S00835 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01220 M02S00835.261l700 ---| RJ CCC CALCULATE CHARGE CONSTANTS
| Line S00836 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01221 M02S00836.261l700 ---| SA6 SRUM
| Line S00837 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01222 M02S00837.261l700 ---| RECALL P
| Line S00838 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01223 M02S00838.261l700 ---|
| Line S00839 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | ns2323 |
M03 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01224 M03S00839.261l700 ---|* CALL *CPM* TO ISSUE APPROPRIATE ACCOUNT FILE MESSAGES.
| Line S00840 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | ns2323 |
M03 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01225 M03S00840.261l700 ---|* CLEAR *CHARGE REQUIRED* BIT IN CP AREA.
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | ns2323 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01226 M02S00011.261l700 ---|* CALL *CPM* TO BEGIN ACCOUNT BLOCK.
| Line S00841 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01227 M02S00841.261l700 ---|
| Line S00842 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | ns22000 |
M03 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01228 M03S00842.261l700 ---| ICN5.1 SX1 SRUM SET BLOCK ADDRESS
| Line S00843 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | ns22000 |
M03 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01229 M03S00843.261l700 ---| SX2 42B SET CPM FUNCTION CODE
| Line S00844 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | ns22000 |
M03 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01230 M03S00844.261l700 ---| RJ =XCPM=
| Line S00118 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01231 M02S00118.261l700 ---| BEGINAB SRUM BEGIN ACCOUNT BLOCK
| Line S00845 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | ns2323 |
M03 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01232 M03S00845.261l700 ---| SA1 SSJ=+UIDS CLEAR CHARGE REQUIRED
| Line S00846 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | ns2323 |
M03 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01233 M03S00846.261l700 ---| MX0 -1
| Line S00847 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | ns2323 |
M03 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01234 M03S00847.261l700 ---| LX0 17
| Line S00848 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | ns2323 |
M03 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01235 M03S00848.261l700 ---| BX6 X0*X1
| Line S00849 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | ns2323 |
M03 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01236 M03S00849.261l700 ---| SA6 A1
| Line S00850 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01237 M02S00850.261l700 ---| EQ ICNX RETURN
| Line S00851 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01238 M02S00851.261l700 ---|
| Line S00852 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01239 M02S00852.261l700 ---| ICN6 SB3 A1-ICNA
| Line S00853 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01240 M02S00853.261l700 ---| ZR B3,ICN5 IF SEPARATOR ALREADY SET
| Line S00854 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01241 M02S00854.261l700 ---| SA1 ICNA
| Line S00855 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01242 M02S00855.261l700 ---| SB3 ICNB SET SEPARATOR AND LENGTH
| Line S00856 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01243 M02S00856.261l700 ---| EQ ICN2 CONTINUE BUILDING MESSAGE
| Line S00857 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01244 M02S00857.261l700 ---|
| Line S00858 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01245 M02S00858.261l700 ---| ICN7 SA6 B7 STORE FIRST/NEXT MESSAGE WORD
| Line S00859 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01246 M02S00859.261l700 ---| SB7 B7+B1
| Line S00860 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01247 M02S00860.261l700 ---| SB2 60
| Line S00861 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01248 M02S00861.261l700 ---| SX6 B0+ CLEAR BUILD WORD
| Line S00862 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01249 M02S00862.261l700 ---| SB3 B3-6
| Line S00863 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01250 M02S00863.261l700 ---| EQ ICN3 CONTINUE THE BUILD
| Line S00864 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01251 M02S00864.261l700 ---|
| Line S00865 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01252 M02S00865.261l700 ---| .1 MICRO 1,,*, * SEPARATOR CHARACTERS
| Line S00866 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01253 M02S00866.261l700 ---| .2 MICCNT .1
| Line S00867 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01254 M02S00867.261l700 ---|
| Line S00868 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01255 M02S00868.261l700 ---| ICNA DATA L*".1"*
| Line S00869 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01256 M02S00869.261l700 ---| ICNB EQU .2*6 01257 M01S00870.comcchg +++| MWS SPACE 4,20 01258 M01S00871.comcchg +++|** MWS - MULTIPLE WORD TABLE SEARCH. 01259 M01S00872.comcchg +++|* 01260 M01S00873.comcchg +++|* ENTRY (A0) = BLOCK LEVEL. 01261 M01S00874.comcchg +++|* (B2) = FWA TABLE. 01262 M01S00875.comcchg +++|* (B3) = LIMIT OF TABLE (FWA+LENGTH). 01263 M01S00876.comcchg +++|* (B6) = ENTRY BLOCK ADDRESS. 01264 M01S00877.comcchg +++|* (B7) = WORD COUNT/ENTRY. 01265 M01S00878.comcchg +++|* (X5) = WORD COUNT/ ENTRY FOR COMPARE. 01266 M01S00879.comcchg +++|* 01267 M01S00880.comcchg +++|* ENTRY (X2) = (LAST WORD IN MATCHED ENTRY). 01268 M01S00881.comcchg +++|* (X2) = 0 IF ENTRY NOT FOUND. 01269 M01S00882.comcchg +++|* (B2) = NEXT TABLE ENTRY. 01270 M01S00883.comcchg +++|* (B3) = LIMIT OF TABLE. 01271 M01S00884.comcchg +++|* 01272 M01S00885.comcchg +++|* USES A - 0, 1, 2. 01273 M01S00886.comcchg +++|* X - 0, 1, 2, 3, 5. 01274 M01S00887.comcchg +++|* B - 2, 3, 4, 5. 01275 M01S00888.comcchg +++| 01276 M01S00889.comcchg +++| 01277 M01S00890.comcchg +++| MWS8 SB3 A0-B2 01278 M01S00891.comcchg +++| MX2 0 SET ERROR 01279 M01S00892.comcchg +++| ZR B3,MWSX IF FIRST ENTRY 01280 M01S00893.comcchg +++| ZR X0,MWS6 IF LEVEL-0 01281 M01S00894.comcchg +++| 01282 M01S00895.comcchg +++| MWS SUBR ENTRY/EXIT 01283 M01S00896.comcchg +++| EQ B2,B3,MWS7 IF NULL TABLE 01284 M01S00897.comcchg +++| BX5 -X5 01285 M01S00898.comcchg +++| SX0 A0 01286 M01S00899.comcchg +++| SX5 X5+B7 01287 M01S00900.comcchg +++| SA0 B2+ 01288 M01S00901.comcchg +++| BX5 -X5 01289 M01S00902.comcchg +++| EQ MWS2 ENTER SEARCH LOOP 01290 M01S00903.comcchg +++| 01291 M01S00904.comcchg +++| MWS1 PL X3,MWS8 IF PAST NUMBER 01292 M01S00905.comcchg +++| SB2 B2+B7 INCREMENT TABLE ENTRY 01293 M01S00906.comcchg +++| MX2 0 SET ERROR 01294 M01S00907.comcchg +++| GE B2,B3,MWSX IF END OF TABLE 01295 M01S00908.comcchg +++| MWS2 SB5 B0+ INITIALIZE COMPARE 01296 M01S00909.comcchg +++| SB4 B7+X5 01297 M01S00910.comcchg +++| MWS3 SA2 B2+B5 01298 M01S00911.comcchg +++| SA1 B6+B5 01299 M01S00912.comcchg +++| NG X2,MWS4 IF AT LEAST ONE NEGATIVE 01300 M01S00913.comcchg +++| PL X1,MWS5 IF BOTH POSITIVE 01301 M01S00914.comcchg +++| SX3 -B1 SET ENTRY NOT REACHED 01302 M01S00915.comcchg +++| EQ MWS1 CONTINUE SEARCH 01303 M01S00916.comcchg +++| 01304 M01S00917.comcchg +++| MWS4 NG X1,MWS5 IF BOTH NEGATIVE 01305 M01S00918.comcchg +++| SX3 B1 SET PAST ENTRY 01306 M01S00919.comcchg +++| EQ MWS1 CONTINUE SEARCH 01307 M01S00920.comcchg +++| 01308 M01S00921.comcchg +++| MWS5 IX3 X2-X1 01309 M01S00922.comcchg +++| NZ X3,MWS1 IF NO MATCH 01310 M01S00923.comcchg +++| SB5 B5+B1 01311 M01S00924.comcchg +++| LT B5,B4,MWS3 IF NOT END OF COMPARE 01312 M01S00925.comcchg +++| SB2 B2+B7 01313 M01S00926.comcchg +++| MWS6 SA2 B2-B1 SET LAST WORD OF ENTRY 01314 M01S00927.comcchg +++| EQ MWSX RETURN 01315 M01S00928.comcchg +++| 01316 M01S00929.comcchg +++| MWS7 MX2 0 SET ERROR 01317 M01S00930.comcchg +++| EQ MWSX RETURN
| Line S00119 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01318 M02S00119.261l700 ---| PPE$ IF DEF,PPE$
| Line S00120 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01319 M02S00120.261l700 ---| PPE SPACE 4,15
| Line S00121 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01320 M02S00121.261l700 ---|** PPE - PASS PROJECT PROLOGUE/EPILOGUE PARAMETERS.
| Line S00122 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01321 M02S00122.261l700 ---|*
| Line S00123 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01322 M02S00123.261l700 ---|* ENTRY (B5) = ADDRESS OF PROJECT ENTRY.
| Line S00124 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01323 M02S00124.261l700 ---|*
| Line S00125 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01324 M02S00125.261l700 ---|* EXIT PROLOGUE/EPILOGUE PARAMETERS SET IN (SRUM+1).
| Line S00126 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01325 M02S00126.261l700 ---|* (PPF) = PROJECT PROLOGUE FILE NAME.
| Line S00127 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01326 M02S00127.261l700 ---|* (PPU) = PROJECT PROLOGUE USER NAME.
| Line S00128 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01327 M02S00128.261l700 ---|* (PPW) = PROJECT PROLOGUE PASSWORD.
| Line S00129 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01328 M02S00129.261l700 ---|*
| Line S00130 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01329 M02S00130.261l700 ---|* A - 1, 2, 3, 4, 5.
| Line S00131 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01330 M02S00131.261l700 ---|* X - 0, 1, 2, 3, 4, 5, 6, 7.
| Line S00132 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01331 M02S00132.261l700 ---|
| Line S00133 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01332 M02S00133.261l700 ---|
| Line S00134 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01333 M02S00134.261l700 ---| PPE SUBR ENTRY/EXIT
| Line S00135 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01334 M02S00135.261l700 ---| SA1 SRUM+1 READ *CPM* PARAMETER WORD
| Line S00136 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01335 M02S00136.261l700 ---| SA2 B5+PPNW READ PROJECT PROLOGUE FILE NAME
| Line S00137 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01336 M02S00137.261l700 ---| MX0 42
| Line S00138 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01337 M02S00138.261l700 ---| SX5 B1
| Line S00139 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01338 M02S00139.261l700 ---| LX5 52-0
| Line S00140 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01339 M02S00140.261l700 ---| BX6 X0*X2
| Line S00141 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01340 M02S00141.261l700 ---| ZR X6,PPE1 IF NO PROJECT PROLOGUE DEFINED
| Line S00142 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01341 M02S00142.261l700 ---| SA6 PPF SET PROJECT PROLOGUE FILE NAME
| Line S00143 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01342 M02S00143.261l700 ---| SA3 B5+PPUW READ PROJECT PROLOGUE USER NAME
| Line S00144 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01343 M02S00144.261l700 ---| SA4 B5+PPPW READ PROJECT PROLOGUE PASSWORD
| Line S00145 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01344 M02S00145.261l700 ---| BX6 X0*X3
| Line S00146 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01345 M02S00146.261l700 ---| BX7 X0*X4
| Line S00147 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01346 M02S00147.261l700 ---| SA6 PPU SET PROJECT PROLOGUE USER NAME
| Line S00148 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01347 M02S00148.261l700 ---| SA7 PPP SET PROJECT PROLOGUE PASSWORD
| Line S00149 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01348 M02S00149.261l700 ---| SX7 3
| Line S00150 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01349 M02S00150.261l700 ---| BX1 X1+X5 SET PROJECT PROLOGUE REQUIRED FLAG
| Line S00151 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01350 M02S00151.261l700 ---| BX7 X7*X2 SET CHARGE REQUIRED OPTION
| Line S00152 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01351 M02S00152.261l700 ---| LX7 50-0
| Line S00153 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01352 M02S00153.261l700 ---| BX1 X1+X7
| Line S00154 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01353 M02S00154.261l700 ---| PPE1 SA2 B5+PENW
| Line S00155 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01354 M02S00155.261l700 ---| BX2 X0*X2
| Line S00156 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01355 M02S00156.261l700 ---| ZR X2,PPE2 IF NO PROJECT EPILOGUE DEFINED
| Line S00157 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01356 M02S00157.261l700 ---| LX5 53-52 SET PROJECT EPILOGUE REQUIRED FLAG
| Line S00158 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01357 M02S00158.261l700 ---| BX1 X1+X5
| Line S00159 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01358 M02S00159.261l700 ---| PPE2 BX6 X1 WRITE *CPM* PARAMETER WORD
| Line S00160 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01359 M02S00160.261l700 ---| SA6 A1
| Line S00161 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01360 M02S00161.261l700 ---| EQ PPEX RETURN
| Line S00162 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01361 M02S00162.261l700 ---| PPE$ ENDIF 01362 M01S00931.comcchg +++| RPR SPACE 4,15 01363 M01S00932.comcchg +++|** RPR - READ PHYSICAL RECORD. 01364 M01S00933.comcchg +++|* 01365 M01S00934.comcchg +++|* ENTRY (X2) = RANDOM ADDRESS OF RECORD (BITS 0 - 17). 01366 M01S00935.comcchg +++|* 01367 M01S00936.comcchg +++|* EXIT RECORD IN PROFILO BUFFER. 01368 M01S00937.comcchg +++|* 01369 M01S00938.comcchg +++|* USES A - 2, 3, 6, 7. 01370 M01S00939.comcchg +++|* X - 0, 2, 3, 6, 7. 01371 M01S00940.comcchg +++|* 01372 M01S00941.comcchg +++|* MACROS ERROR, RPHR. 01373 M01S00942.comcchg +++| 01374 M01S00943.comcchg +++| 01375 M01S00944.comcchg +++| RPR SUBR ENTRY/EXIT 01376 M01S00945.comcchg +++| SA3 P+1 01377 M01S00946.comcchg +++| SX6 X3 01378 M01S00947.comcchg +++| SA6 A3+B1 01379 M01S00948.comcchg +++| SA6 A6+B1 01380 M01S00949.comcchg +++| SX7 X2 01381 M01S00950.comcchg +++| SA7 P+6 01382 M01S00951.comcchg +++| RPHR P,R 01383 M01S00952.comcchg +++| SA2 X2 01384 M01S00953.comcchg +++| MX0 -8 01385 M01S00954.comcchg +++| LX0 10 01386 M01S00955.comcchg +++| BX3 -X0*X2 01387 M01S00956.comcchg +++| ZR X3,RPRX IF NO ERROR 01388 M01S00957.comcchg +++| ERROR ERRE * DATA BASE ERROR.* 01389 M01S00958.comcchg +++| SUR SPACE 4,20
| Line S00959 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01390 M02S00959.v23l617 ---|** SUR - SEARCH USER NUMBER RANGE. 01391 M01S00029.v23l617 +++|** SUR - SEARCH USER NAME RANGE. 01392 M01S00960.comcchg +++|*
| Line S00961 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01393 M02S00961.v23l617 ---|* ENTRY (X1) = USER NUMBER TO SEARCH FOR. 01394 M01S00030.v23l617 +++|* ENTRY (X1) = USER NAME TO SEARCH FOR. 01395 M01S00962.comcchg +++|* (B2) = LOWER RANGE ADDRESS. 01396 M01S00963.comcchg +++|* (B3) = UPPER RANGE ADDRESS + 1. 01397 M01S00964.comcchg +++|* 01398 M01S00965.comcchg +++|* EXIT (X4) = 0, IF MATCH.
| Line S00966 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01399 M02S00966.v23l617 ---|* (X4) = 1, IF USER NUMBER NOT IN LIST (LOWER 18
| Line S00967 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01400 M02S00967.v23l617 ---|* BITS OF USER NUMBER ENTRY EQUALS 1). 01401 M01S00031.v23l617 +++|* (X4) = 1, IF USER NAME NOT IN LIST (LOWER 18 01402 M01S00032.v23l617 +++|* BITS OF USER NAME ENTRY EQUALS 1). 01403 M01S00968.comcchg +++|* (X4) = OTHER, IF END OF RANGE ENCOUNTERED 01404 M01S00969.comcchg +++|* (NOTE - NOT NECESSARILY END OF LIST). 01405 M01S00970.comcchg +++|* 01406 M01S00971.comcchg +++|* USES X - 3, 4. 01407 M01S00972.comcchg +++|* A - 3. 01408 M01S00973.comcchg +++|* B - 2. 01409 M01S00974.comcchg +++| 01410 M01S00975.comcchg +++| 01411 M01S00976.comcchg +++| SUR SUBR ENTRY/EXIT 01412 M01S00977.comcchg +++| SUR1 SA3 B2 01413 M01S00978.comcchg +++| SX4 X3
| Line S00979 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01414 M02S00979.v23l617 ---| NZ X4,SURX IF USER NUMBER NOT IN LIST 01415 M01S00033.v23l617 +++| NZ X4,SURX IF USER NAME NOT IN LIST 01416 M01S00980.comcchg +++| BX4 X1-X3 01417 M01S00981.comcchg +++| ZR X4,SURX IF MATCH 01418 M01S00982.comcchg +++| SB2 B2+B1
| Line S00983 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01419 M02S00983.v23l617 ---| LT B2,B3,SUR1 IF ANOTHER USER NUMBER IN RANGE 01420 M01S00034.v23l617 +++| LT B2,B3,SUR1 IF ANOTHER USER NAME IN RANGE 01421 M01S00984.comcchg +++| EQ SURX RETURN 01422 M01S00985.comcchg +++| TITLE COMCCHG - TABLES AND BUFFERS. 01423 M01S00986.comcchg +++| SPACE 4,10
| Line S00987 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01424 M02S00987.261l700 ---|** PRESET DATA AREAS. 01425 M01S00208.261l700 +++|* DATA AREA. 01426 M01S00988.comcchg +++| 01427 M01S00989.comcchg +++| 01428 M01S00990.comcchg +++|* THE FOLLOWING TWO DEFINITIONS MUST BE CONTIGUOUS.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Updated by) | ns2483 |
Seq # *Modification Id* Act ----------------------------+ 01429 M02S00001.ns2483 ---|
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Updated by) | ns2483 |
Seq # *Modification Id* Act ----------------------------+ 01430 M02S00002.ns2483 ---| LIST G
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Updated by) | ns2483 |
Seq # *Modification Id* Act ----------------------------+ 01431 M02S00003.ns2483 ---| .BUF SET *
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Updated by) | ns2483 |
Seq # *Modification Id* Act ----------------------------+ 01432 M02S00004.ns2483 ---| BEGIN BSSN .BUF 01433 M01S00991.comcchg +++| 01434 M01S00992.comcchg +++| DCF BSSN 1 DEFAULT CHARGE FLAG 01435 M01S00993.comcchg +++| SRM BSSN 1 SRU MULTIPLIER INDICES 01436 M01S00994.comcchg +++| CDT BSSN 1 CURRENT DATA AND TIME 01437 M01S00995.comcchg +++|
| Line S00996 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01438 M02S00996.v23l617 ---| CUN BSSN 1 CURRENT USER NUMBER
| Line S00997 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01439 M02S00997.v23l617 ---| MUN BSSN 1 MASTER USER NUMBER 01440 M01S00035.v23l617 +++| CUN BSSN 1 CURRENT USER NAME 01441 M01S00036.v23l617 +++| MUN BSSN 1 MASTER USER NAME 01442 M01S00998.comcchg +++| 01443 M01S00999.comcchg +++| ERRM BSSN 5 PFM ERROR MESSAGE
| Line S01000 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01444 M02S01000.261l700 ---| BUFFERS SPACE 4
| Line S01001 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01445 M02S01001.261l700 ---|* VALIDATION FILE BUFFER. 01446 M01S00209.261l700 +++| BUFFERS SPACE 4,10 01447 M01S00210.261l700 +++|* BUFFERS. 01448 M01S01002.comcchg +++| 01449 M01S01003.comcchg +++|
| Line S01004 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01450 M02S01004.261l700 ---| PBUF BSSN PBUFL 01451 M01S00211.261l700 +++| PBUF BSSN PBUFL PROFILE FILE BUFFER 01452 M01S00212.261l700 +++| EBUF BSSN PMWE LEVEL 3 ENTRY BUFFER 01453 M01S00213.261l700 +++| BUFE BSSN 0 END OF BUFFERS 01454 M01S00005.ns21000 +++| END BSSN 01455 M01S01005.comcchg +++|
| Line S01006 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01456 M02S01006.261l700 ---| CHGL EQU PBUF+PBUFL END OF PRESET AREA 01457 M01S00214.261l700 +++| CHGL EQU BUFE END OF *COMCCHG*
| Line S01007 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 01458 M02S01007.ns21000 ---|
| Line S01008 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 01459 M02S01008.ns21000 ---|
| Line S01009 Modification History | |
|---|---|
M01 (Added by) | comcchg |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 01460 M02S01009.ns21000 ---| USE *
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Updated by) | ns2483 |
Seq # *Modification Id* Act ----------------------------+ 01461 M02S00006.ns2483 ---|
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Updated by) | ns2483 |
Seq # *Modification Id* Act ----------------------------+ 01462 M02S00007.ns2483 ---| LIST * 01463 M01S01010.comcchg +++| SPACE 4,10 01464 M01S01011.comcchg +++| QUAL$ IF -DEF,QUAL$ 01465 M01S01012.comcchg +++| QUAL * 01466 M01S00215.261l700 +++| BAB EQU /COMCCHG/BAB 01467 M01S01013.comcchg +++| CHG EQU /COMCCHG/CHG 01468 M01S01014.comcchg +++| CHGL EQU /COMCCHG/CHGL
| Line S00163 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01469 M02S00163.261l700 ---| IF DEF,PPE$,1 01470 M01S00216.261l700 +++| IF DEF,RPE$,1 01471 M01S00164.ns22000 +++| RPE EQU /COMCCHG/RPE 01472 M01S00217.261l700 +++| VCN EQU /COMCCHG/VCN 01473 M01S01015.comcchg +++| QUAL$ ENDIF 01474 M01S01016.comcchg +++| BASE * 01475 M01S01017.comcchg +++| SPACE 4 01476 M01S01018.comcchg +++| ENDX
cdc/nos2.source/opl.opl871/common/comcchg.001.txt · Last modified: by 127.0.0.1