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