12 Modifications

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comcchg +++|          CTEXT  COMCCHG - JOB PROFILE CHARGE VALIDATION.
00002  M01S00002.comcchg +++|          SPACE  4,10
00003  M01S00003.comcchg +++|          IF     -DEF,QUAL$,1
00004  M01S00004.comcchg +++|          QUAL   COMCCHG
00005  M01S00005.comcchg +++|          BASE   D

Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.ns21000 ---|          USE    COMCCHG
00007  M01S00007.comcchg +++|          SPACE  4,10
00008  M01S00008.comcchg +++|* COMMENT COMCCHG - VALIDATE JOB PROFILE CHARGE INFORMATION.

Seq #  *Modification Id* Act 
----------------------------+
00009  M02S00009.281l803 ---|*         COMMENT  COPYRIGHT CONTROL DATA CORP. 1981.
00010  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00011  M01S00010.comcchg +++|          SPACE  4,10
00012  M01S00011.comcchg +++|***       COMCCHG - VALIDATE CHARGE/PROJECT NUMBERS.
00013  M01S00012.comcchg +++|*
00014  M01S00013.comcchg +++|*         R.P. ROHRBOUGH     72/09/08.
00015  M01S00014.comcchg +++|*         G.R. GREENFIELD    75/11/25. (MODIFIED)
00016  M01S00015.comcchg +++|*         P.C. SMITH         81/06/09. (COMMON DECK CREATED)
00017  M01S00016.comcchg +++|          SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
00018  M02S00017.261l700 ---|***       COMCCHG VALIDATES A CHARGE/PROJECT NUMBER PAIR, ACCORDING
00019  M01S00001.261l700 +++|***       *COMCCHG* VALIDATES A CHARGE/PROJECT NUMBER PAIR, ACCORDING
00020  M01S00018.comcchg +++|*         TO THE INFORMATION IN THE PROJECT PROFILE FILE.

Seq #  *Modification Id* Act 
----------------------------+
00021  M02S00019.261l700 ---|*         CALLING THIS ROUTINE CAUSES ALL ACCOUNTING INFORMATION

Seq #  *Modification Id* Act 
----------------------------+
00022  M02S00020.261l700 ---|*         TO THIS POINT TO BE ISSUED TO THE ACCOUNT FILE,

Seq #  *Modification Id* Act 
----------------------------+
00023  M02S00021.261l700 ---|*         AND THE *CHARGE REQUIRED* BIT IN THE CPA TO BE CLEARED.
00024  M01S00002.261l700 +++|*         *COMCCHG* CONTAINS FOUR EXTERNALLY-CALLABLE ENTRY POINTS -
00025  M01S00022.comcchg +++|*

Seq #  *Modification Id* Act 
----------------------------+
00026  M02S00023.261l700 ---|*         ENTRY  (X2) = DEFAULT CHARGE FLAG.

Seq #  *Modification Id* Act 
----------------------------+
00027  M03S00024.261l700 ---|*                (X3) = USER NUMBER.

Seq #  *Modification Id* Act 
----------------------------+
00028  M02S00001.261l700 ---|*                (X3) = USER NAME.

Seq #  *Modification Id* Act 
----------------------------+
00029  M02S00025.261l700 ---|*                (SSJ=) = ADDRESS OF *SSJ=* PARAMETER BLOCK.
00030  M01S00003.261l700 +++|*         *BAB* - BEGIN ACCOUNT BLOCK.
00031  M01S00004.261l700 +++|*                 CALLS *CPM* TO TERMINATE THE CURRENT ACCOUNT BLOCK
00032  M01S00005.261l700 +++|*                 (IF NECESSARY) AND BEGIN A NEW ONE.  *CPM* ISSUES
00033  M01S00006.261l700 +++|*                 THE APPROPRIATE ACCOUNT FILE MESSAGES AND CLEARS
00034  M01S00007.261l700 +++|*                 THE *CHARGE REQUIRED* BIT IN THE CONTROL POINT AREA.
00035  M01S00008.261l700 +++|*
00036  M01S00009.261l700 +++|*         *CHG* - VALIDATE CHARGE/PROJECT AND BEGIN ACCOUNT BLOCK.
00037  M01S00010.261l700 +++|*                 CALLS ROUTINE *VCP* FOLLOWED BY *BAB*.
00038  M01S00011.261l700 +++|*
00039  M01S00012.261l700 +++|*         *RPE* - READ PROFILE ENTRY.
00040  M01S00013.261l700 +++|*                 READS THE PROFILE ENTRY FOR THE CURRENT CHARGE AND
00041  M01S00014.261l700 +++|*                 PROJECT FROM THE *PROFILB* FILE.
00042  M01S00015.261l700 +++|*
00043  M01S00016.261l700 +++|*         *VCP* - VALIDATE CHARGE AND PROJECT NUMBERS.
00044  M01S00017.261l700 +++|*                 CHECKS IF THE SPECIFIED CHARGE AND PROJECT NUMBERS
00045  M01S00018.261l700 +++|*                 ARE VALID, ARE ALLOWED FOR THE SPECIFIED USER NAME,
00046  M01S00019.261l700 +++|*                 AND ARE ALLOWED FOR THE CURRENT TIME OF DAY.
00047  M01S00020.261l700 +++|*                 DEPENDING ON THE VALUE OF THE *LIM$* ASSEMBLY OPTION,
00048  M01S00021.261l700 +++|*                 IT ALSO CHECKS IF THE CURRENT SRU LIMITS OF THE
00049  M01S00022.261l700 +++|*                 CALLING JOB ARE WITHIN THE RANGE ALLOWED FOR THE
00050  M01S00023.261l700 +++|*                 SPECIFIED CHARGE AND PROJECT NUMBERS.
00051  M01S00024.261l700 +++|*
00052  M01S00025.261l700 +++|*         THE FOLLOWING ENTRY CONDITIONS ARE REQUIRED FOR ALL OF THE
00053  M01S00026.261l700 +++|*         ENTRY POINTS.  ADDITIONAL ENTRY AND EXIT CONDITIONS ARE
00054  M01S00027.261l700 +++|*         DOCUMENTED IN THE INDIVIDUAL ROUTINES.
00055  M01S00028.261l700 +++|*
00056  M01S00029.261l700 +++|*         ENTRY  (SSJ=) = ADDRESS OF *SSJ=* PARAMETER BLOCK.
00057  M01S00026.comcchg +++|*                (SRUM - SRUM+9) = ACCOUNTING INFORMATION BLOCK.
00058  M01S00027.comcchg +++|*
00059  M01S00028.comcchg +++|*T,SRUM   60/ CONTROL POINT SRUS.

Figure SRUM

Seq #  *Modification Id* Act 
----------------------------+
00060  M02S00029.ns22000 ---|*T,SRUM+1 6/ A, 23/ 0, 1/ S, 6/ SC, 6/ B, 18/ C

Figure SRUM+1

00061  M01S00001.ns22000 +++|*T,SRUM+1 6/ A, 30/ 0,  6/ B, 18/ C

Figure SRUM+1

00062  M01S00030.comcchg +++|*T,SRUM+2 60/ CHARGE NUMBER (1 - 10 CHARACTERS)

Figure SRUM+2

00063  M01S00031.comcchg +++|*T,SRUM+3 60/ PROJECT

Figure SRUM+3

00064  M01S00032.comcchg +++|*T,SRUM+4 60/   NUMBER  (1 - 20 CHARACTERS)

Figure SRUM+4

00065  M01S00033.comcchg +++|*T,SRUM+5 60/ ACCOUNT

Figure SRUM+5

00066  M01S00034.comcchg +++|*T,SRUM+6 60/  FILE

Figure SRUM+6

00067  M01S00035.comcchg +++|*T,SRUM+7 60/   MESSAGE

Figure SRUM+7

00068  M01S00036.comcchg +++|*T,SRUM+8 60/    AREA

Figure SRUM+8

00069  M01S00037.comcchg +++|*T,SRUM+9 60/     (1 - 50 CHARACTERS)

Figure SRUM+9

00070  M01S00038.comcchg +++|*
00071  M01S00039.comcchg +++|*         WHERE  A = SRU VALIDATION LIMIT INDEX.

Seq #  *Modification Id* Act 
----------------------------+
00072  M02S00040.ns22000 ---|*                S = 1, IF SERVICE CLASS CHANGE NEEDED.

Seq #  *Modification Id* Act 
----------------------------+
00073  M02S00041.ns22000 ---|*                SC = NEW SERVICE CLASS.
00074  M01S00042.comcchg +++|*                B = 0, IF PROJECT IS FIRST ENTRY IN LEVEL-3 BLOCK.
00075  M01S00043.comcchg +++|*                 .NE. 0, IF PROJECT IS SECOND ENTRY IN LEVEL-3 BLOCK.
00076  M01S00044.comcchg +++|*                C = LEVEL-3 RANDOM ADDRESS.
00077  M01S00045.comcchg +++|*
00078  M01S00046.comcchg +++|*         THE CHARGE NUMBER AND PROJECT NUMBER, AS WELL

Seq #  *Modification Id* Act 
----------------------------+
00079  M02S00047.261l700 ---|*         AS THE PRECEEDING 2 FIELDS, MUST BE SET ON ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
00080  M02S00048.261l700 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00081  M03S00049.261l700 ---|*         EXIT   (B6) = ADDRESS OF ERROR MESSAGE, IF NON-ZERO.

Seq #  *Modification Id* Act 
----------------------------+
00082  M02S00002.261l700 ---|*         EXIT   (B5) = ADDRESS OF PROJECT ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
00083  M02S00003.261l700 ---|*                (B6) = ADDRESS OF ERROR MESSAGE, IF NON-ZERO.

Seq #  *Modification Id* Act 
----------------------------+
00084  M02S00004.261l700 ---|*                TO *CHGX* IF ENTERED FROM *CHG*.

Seq #  *Modification Id* Act 
----------------------------+
00085  M02S00005.261l700 ---|*                TO *RPEX* IF ENTERED FROM *RPE*.
00086  M01S00030.261l700 +++|*         AS THE PRECEDING 2 FIELDS, MUST BE SET ON ENTRY.
00087  M01S00050.comcchg +++|          SPACE  4,15
00088  M01S00051.comcchg +++|***       ACCOUNT FILE MESSAGES.
00089  M01S00052.comcchg +++|*
00090  M01S00053.comcchg +++|*

Seq #  *Modification Id* Act 
----------------------------+
00091  M02S00054.261l700 ---|*         *ABCN, CHARGENMBR, PROJECTNUMBER.*  IF *CCNR* BIT INDICATES

Seq #  *Modification Id* Act 
----------------------------+
00092  M03S00055.261l700 ---|*                A CHARGE CARD IS REQUIRED AT THIS TIME.

Seq #  *Modification Id* Act 
----------------------------+
00093  M02S00002.261l700 ---|*                A CHARGE COMMAND IS REQUIRED AT THIS TIME.
00094  M01S00031.261l700 +++|*         *ABCN, CHARGENUMBR, PROJECT NUMBER.*
00095  M01S00032.261l700 +++|*                IF FIRST *CHARGE* COMMAND IN THIS JOB.
00096  M01S00056.comcchg +++|*

Seq #  *Modification Id* Act 
----------------------------+
00097  M02S00057.v23l617 ---|*         *ACCN, CHARGENMBR, PROJECTNUMBER.*  IF CHARGE CARD IS NOT

Seq #  *Modification Id* Act 
----------------------------+
00098  M02S00003.261l700 ---|*         *ACCN, CHARGENMBR, PROJECTNUMBER.*  IF CHARGE COMMAND IS NOT

Seq #  *Modification Id* Act 
----------------------------+
00099  M02S00058.261l700 ---|*                REQUIRED AT THIS TIME.
00100  M01S00033.261l700 +++|*         *ACCN, CHARGENUMBR, PROJECTNUMBER.*
00101  M01S00034.261l700 +++|*                IF NOT FIRST *CHARGE* COMMAND IN THIS JOB.
00102  M01S00059.comcchg +++|*
00103  M01S00060.comcchg +++|*                THIS CHARGE-PROJECT NUMBER COMBINATION WILL BE USED
00104  M01S00061.comcchg +++|*                FOR ACCOUNTING PURPOSES FOR THIS JOB UNTIL ANOTHER
00105  M01S00062.comcchg +++|*                CHARGE ENTRY OCCURS OR UNTIL JOB TERMINATION.
00106  M01S00063.comcchg +++|          SPACE  4,40
00107  M01S00064.comcchg +++|***       ERROR MESSAGES.
00108  M01S00065.comcchg +++|*
00109  M01S00066.comcchg +++|*         ADDRESS OF THE ERROR MESSAGE RETURNED IN B6.
00110  M01S00067.comcchg +++|*
00111  M01S00068.comcchg +++|*         * CHARGE FILE BUSY.* - FILE IS NOT AVAILABLE FOR CHARGE
00112  M01S00069.comcchg +++|*                PURPOSES.  WAIT AND TRY AGAIN.
00113  M01S00070.comcchg +++|*

Seq #  *Modification Id* Act 
----------------------------+
00114  M02S00071.v23l617 ---|*         * CHARGE INVALID AT THIS HOUR.* - THIS PROJECT NUMBER
00115  M01S00004.v23l617 +++|*         * CHARGE NOT VALID AT THIS HOUR.* - THIS PROJECT NUMBER
00116  M01S00072.comcchg +++|*                CANNOT BE USED AT THIS TIME OF DAY.
00117  M01S00073.comcchg +++|*
00118  M01S00074.comcchg +++|*         * CHARGE NUMBER EXPIRED.* - CHARGE NUMBER EXPIRATION DATE
00119  M01S00075.comcchg +++|*                HAS OCCURRED.
00120  M01S00076.comcchg +++|*
00121  M01S00077.comcchg +++|*         * CUMULATIVE LIMIT EXCEEDED.* - ONE OF THE INSTALLATION
00122  M01S00078.comcchg +++|*                DEFINED RESOURCE USAGE ACCUMULATORS FOR THIS PROJECT
00123  M01S00079.comcchg +++|*                EXCEEDS MAXIMUM VALUE ALLOWED.
00124  M01S00080.comcchg +++|*
00125  M01S00081.comcchg +++|*         * CUMULATIVE SRU LIMIT EXCEEDED.* - SRU ACCUMULATOR FOR THIS
00126  M01S00082.comcchg +++|*                PROJECT EXCEEDS MAXIMUM VALUE ALLOWED.
00127  M01S00083.comcchg +++|*

Seq #  *Modification Id* Act 
----------------------------+
00128  M02S00084.261l700 ---|*         * DATA BASE ERROR.* - ERROR IN VALIDATION FILE STRUCTURE
00129  M01S00035.261l700 +++|*         * DATA BASE ERROR.* - ERROR IN PROFILE FILE STRUCTURE
00130  M01S00085.comcchg +++|*                DETECTED.
00131  M01S00086.comcchg +++|*

Seq #  *Modification Id* Act 
----------------------------+
00132  M02S00087.v23l617 ---|*         * INVALID CHARGE.* -
00133  M01S00005.v23l617 +++|*         * CHARGE NOT VALID.* -
00134  M01S00088.comcchg +++|*             1. CHARGE OR PROJECT NUMBER DOES NOT EXIST.
00135  M01S00089.comcchg +++|*             2. PROJECT NUMBER IS NOT AVAILABLE TO A USER WITH THIS
00136  M01S00090.comcchg +++|*                ACCOUNT NUMBER.
00137  M01S00091.comcchg +++|*             3. CHARGE OR PROJECT NUMBER EXITS, BUT IS INACTIVE.
00138  M01S00092.comcchg +++|*

Seq #  *Modification Id* Act 
----------------------------+
00139  M02S00093.v23l617 ---|*         * INVALID DEFAULT CHARGE.* - SAME AS *INVALID CHARGE*,
00140  M01S00006.v23l617 +++|*         * DEFAULT CHARGE NOT VALID.* - SAME AS *CHARGE NOT VALID*,
00141  M01S00094.comcchg +++|*                EXCEPT THAT THE DEFAULT CHARGE INFORMATION WAS USED
00142  M01S00095.comcchg +++|*                FOR PROCESSING.
00143  M01S00096.comcchg +++|*
00144  M01S00097.comcchg +++|*         * PROJECT NUMBER EXPIRED.* - PROJECT NUMBER EXPIRATION DATE
00145  M01S00098.comcchg +++|*                HAS OCCURRED.
00146  M01S00099.comcchg +++|          TITLE  COMCCHG - PROGRAM EQUIVALENCES.
00147  M01S00100.comcchg +++|***       ASSEMBLY OPTIONS.
00148  M01S00101.comcchg +++|*
00149  M01S00102.comcchg +++|*         LIM$ EQU 0 - FULL CHECKING- CHARGE PERFORMS ALL CHECKS
00150  M01S00103.comcchg +++|*                      CORRESPONDING TO THE ABOVE ERROR MESSAGE
00151  M01S00104.comcchg +++|*                      DOCUMENTATION.
00152  M01S00105.comcchg +++|*         LIM$ EQU 1 - SUPPRESSES CHECKING OF SRU ACCUMULATORS AND
00153  M01S00106.comcchg +++|*                      INSTALLATION DEFINED RESOURCE USAGE
00154  M01S00107.comcchg +++|*                      ACCUMULATORS, BUT RETAINS ALL OTHER CHECKING.

Seq #  *Modification Id* Act 
----------------------------+
00155  M02S00006.261l700 ---|*         PPE$ DEFINED - ASSEMBLE CODE TO PROCESS PROLOGUE/EPILOGUE-S.

Seq #  *Modification Id* Act 
----------------------------+
00156  M02S00108.261l700 ---|
00157  M01S00036.261l700 +++|*         RPE$ DEFINED - ASSEMBLE CODE TO PERFORM RANDOM READ OF LEVEL
00158  M01S00037.261l700 +++|*                        3 BLOCK.
00159  M01S00109.comcchg +++|
00160  M01S00110.comcchg +++|          IF     -DEF,LIM$,1
00161  M01S00111.comcchg +++| LIM$     EQU    0
00162  M01S00112.comcchg +++|          TITLE  COMCCHG - MACRO DEFINITIONS.
00163  M01S00113.comcchg +++| ERROR    SPACE  4,10
00164  M01S00114.comcchg +++|**        ERROR - RETURN ERROR MESSAGE.
00165  M01S00115.comcchg +++|*
00166  M01S00116.comcchg +++|*         RETURN AN ERROR MESSAGE TO THE CALLING PROGRAM.
00167  M01S00117.comcchg +++|*
00168  M01S00118.comcchg +++|*         ERROR  MSG
00169  M01S00119.comcchg +++|*
00170  M01S00120.comcchg +++|*                MSG = ADDRESS OF ERROR MESSAGE.
00171  M01S00121.comcchg +++|
00172  M01S00122.comcchg +++|
00173  M01S00123.comcchg +++|          PURGMAC  ERROR
00174  M01S00124.comcchg +++|
00175  M01S00125.comcchg +++| ERROR    MACRO  MSG
00176  M01S00126.comcchg +++|          R=     B6,MSG
00177  M01S00127.comcchg +++|          EQ     ERR
00178  M01S00128.comcchg +++|          ENDM
00179  M01S00129.comcchg +++| LIMIT    SPACE  4,20
00180  M01S00130.comcchg +++|**        LIMIT - DEFINE USER ACCESS LIMIT.
00181  M01S00131.comcchg +++|*
00182  M01S00132.comcchg +++|*
00183  M01S00133.comcchg +++|*         LIMIT  PROG,CV,LB,UB,ERR
00184  M01S00134.comcchg +++|*
00185  M01S00135.comcchg +++|*                PROG        PROCESSOR ADDRESS.
00186  M01S00136.comcchg +++|*                CV          CURRENT VALUE.
00187  M01S00137.comcchg +++|*                LB          LOWER BOUND.
00188  M01S00138.comcchg +++|*                UB          UPPER BOUND.
00189  M01S00139.comcchg +++|*                ERR         ADDRESS OF ERROR MESSAGE.
00190  M01S00140.comcchg +++|*
00191  M01S00141.comcchg +++|*         CREATES TWO-WORD ENTRY IN LIMIT PROCESSOR TABLE AS FOLLOWS:
00192  M01S00142.comcchg +++|*
00193  M01S00143.comcchg +++|*T         6/OPEN,12/ UB,12/ LB,12/ CV,18/ PROG

Figure

00194  M01S00144.comcchg +++|*T         42/ OPEN,18/ERROR ADDRESS

Figure

00195  M01S00145.comcchg +++|
00196  M01S00146.comcchg +++|
00197  M01S00147.comcchg +++|          PURGMAC  LIMIT
00198  M01S00148.comcchg +++|
00199  M01S00149.comcchg +++| LIMIT    MACRO  PROG,CV,LB,UB,ERR
00200  M01S00150.comcchg +++|          VFD    6/0,12/UB,12/LB,12/CV,18/PROG
00201  M01S00151.comcchg +++| .2       IFC    NE,#ERR##
00202  M01S00152.comcchg +++|          VFD    42/0,18/ERR
00203  M01S00153.comcchg +++| .2       ELSE
00204  M01S00154.comcchg +++|          ERR                MISSING *ERR* PARAMETER
00205  M01S00155.comcchg +++| .2       ENDIF
00206  M01S00156.comcchg +++|          ENDM
00207  M01S00157.comcchg +++|          SPACE  4,10
00208  M01S00158.comcchg +++|***       COMMON DECKS REQUIRED.
00209  M01S00159.comcchg +++|*
00210  M01S00160.comcchg +++|*         COMCMAC - CPU SYSTEM MACROS.
00211  M01S00161.comcchg +++|*         COMSPFM - PERMANENT FILE EQUIVALENCES.
00212  M01S00162.comcchg +++|*         COMSPRO - PROJECT PROFILE FILE STRUCTURE.
00213  M01S00163.comcchg +++|*         COMSSRU - DEFINE SRU PARAMETERS.
00214  M01S00164.comcchg +++|*         COMSSSJ - SPECIAL SYSTEM JOB PARAMETERS.
00215  M01S00165.comcchg +++|          SPACE  4,10
00216  M01S00166.comcchg +++|**        PROGRAM EQUATES.
00217  M01S00167.comcchg +++|
00218  M01S00168.comcchg +++|
00219  M01S00169.comcchg +++| PBUFL    EQU    101B        PROFILE FILE CIO BUFFER LENGTH
00220  M01S00170.comcchg +++|          SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
00221  M02S00171.261l700 ---|**        USER VALIDATION FILE MICROS.
00222  M01S00038.261l700 +++|**        PROFILE FILE MICROS.
00223  M01S00172.comcchg +++|
00224  M01S00173.comcchg +++|

Seq #  *Modification Id* Act 
----------------------------+
00225  M02S00174.261l700 ---| PF       MICRO  1,, "PPFN"  PROFILE VALIDATION FILE NAME
00226  M01S00039.261l700 +++| PF       MICRO  1,, "PPFN"  PROFILE FILE NAME
00227  M01S00175.comcchg +++| PW       MICRO  1,, "PPWD"  PASSWORD

Seq #  *Modification Id* Act 
----------------------------+
00228  M02S00176.v23l617 ---| UN       MICRO  1,, "PUSN"  USER NUMBER
00229  M01S00007.v23l617 +++| UN       MICRO  1,, "PUSN"  USER NAME
00230  M01S00177.comcchg +++|          TITLE  COMCCHG - DATA AREA.
00231  M01S00178.comcchg +++| FETS     SPACE  4,10
00232  M01S00179.comcchg +++|**        FETS.
00233  M01S00180.comcchg +++|
00234  M01S00181.comcchg +++|
00235  M01S00182.comcchg +++| P        BSS    0
00236  M01S00183.comcchg +++| SCR      RFILEB PBUF,PBUFL,(PFN="PF"),(USN="UN"),(PWD="PW"),EPR
00237  M01S00184.comcchg +++| TSRM     SPACE  4,10
00238  M01S00185.comcchg +++|**        TSRM   TABLE OF SRU CONSTANTS.
00239  M01S00186.comcchg +++|*
00240  M01S00187.comcchg +++|*T,TSRM   VFD    6/0,18/UPPER LIMIT,18/LOWER LIMIT,18/DEFAULT

Figure TSRM

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": "DEFAULT", "bits": 18, "type": 4 },
{ "name": "LOWER LIMIT", "bits": 18, "type": 3 },
{ "name": "UPPER LIMIT", "bits": 18, "type": 2 },
{ "name": "0", "bits": VFD    6, "type": 1 }
]


 is invalid.

Please check your syntax and try again.

00241  M01S00188.comcchg +++|
00242  M01S00189.comcchg +++|
00243  M01S00190.comcchg +++| TSRM     BSS    0
00244  M01S00191.comcchg +++|          VFD    6/0,18/M1SU,18/M1SL,18/M1SR
00245  M01S00192.comcchg +++|          VFD    6/0,18/M2SU,18/M2SL,18/M2SR
00246  M01S00193.comcchg +++|          VFD    6/0,18/M3SU,18/M3SL,18/M3SR
00247  M01S00194.comcchg +++|          VFD    6/0,18/M4SU,18/M4SL,18/M4SR
00248  M01S00195.comcchg +++|          VFD    6/0,18/MASU,18/MASL,18/ADSR

Seq #  *Modification Id* Act 
----------------------------+
00249  M02S00196.261l700 ---|          TITLE  COMCCHG - MAIN ROUTINE.
00250  M01S00040.261l700 +++|          TITLE  COMCCHG - MAIN ROUTINES.
00251  M01S00041.261l700 +++| BAB      SPACE  4,15
00252  M01S00042.261l700 +++|**        BAB - BEGIN ACCOUNT BLOCK.
00253  M01S00043.261l700 +++|*
00254  M01S00044.261l700 +++|*         EXIT   ACCOUNTING INFORMATION ISSUED TO ACCOUNT AND USER
00255  M01S00045.261l700 +++|*                DAYFILES.
00256  M01S00046.261l700 +++|*                CHARGE REQUIRED FLAG CLEARED.
00257  M01S00047.261l700 +++|*
00258  M01S00048.261l700 +++|*         USES   X - ALL.
00259  M01S00049.261l700 +++|*                A - 1, 2, 6.
00260  M01S00050.261l700 +++|*                B - 1, 2, 5.
00261  M01S00051.261l700 +++|*
00262  M01S00052.261l700 +++|*         CALLS  SNM.
00263  M01S00053.261l700 +++|*
00264  M01S00054.261l700 +++|*         MACROS BEGINAB, RECALL.
00265  M01S00055.261l700 +++|
00266  M01S00056.261l700 +++|
00267  M01S00057.261l700 +++| BAB      SUBR               ENTRY/EXIT
00268  M01S00058.261l700 +++|          IF     -DEF,B1=1,1
00269  M01S00059.261l700 +++|          SB1    1
00270  M01S00060.261l700 +++|
00271  M01S00061.261l700 +++|*         BUILD ACCOUNTING MESSAGE.
00272  M01S00062.261l700 +++|
00273  M01S00063.261l700 +++|          SA1    SRUM+2      READ CHARGE NUMBER
00274  M01S00064.261l700 +++|          SB5    -BABA       MESSAGE TEMPLATE ADDRESS
00275  M01S00065.261l700 +++|          SB3    SRUM+5      ASSEMBLY BUFFER ADDRESS
00276  M01S00066.261l700 +++|          SB2    1R?
00277  M01S00067.261l700 +++|          RJ     SNM         SET CHARGE NUMBER
00278  M01S00068.261l700 +++|          SA1    SRUM+3      SET PROJECT NUMBER WORD ONE
00279  M01S00069.261l700 +++|          SB2    1R!
00280  M01S00070.261l700 +++|          SB5    SRUM+5
00281  M01S00071.261l700 +++|          RJ     SNM
00282  M01S00072.261l700 +++|          SA1    SRUM+4      SET PROJECT NUMBER WORD TWO
00283  M01S00073.261l700 +++|          SB2    1R&
00284  M01S00074.261l700 +++|          RJ     SNM
00285  M01S00075.261l700 +++|
00286  M01S00076.261l700 +++|*         SET SRU MULTIPLIERS.
00287  M01S00077.261l700 +++|
00288  M01S00078.261l700 +++|          SA1    SRM         SRU INDICES
00289  M01S00079.261l700 +++|          SA2    TSRM
00290  M01S00080.261l700 +++|          LX1    30
00291  M01S00081.261l700 +++|          MX0    -6
00292  M01S00082.261l700 +++|          BX6    X6-X6
00293  M01S00083.261l700 +++|          SB2    5
00294  M01S00084.261l700 +++| BAB1     LX1    6
00295  M01S00085.261l700 +++|          BX3    -X0*X1      INDEX FROM *PROFILA*  (I)
00296  M01S00086.261l700 +++|          SX7    X2          DEFAULT MULTIPLIER
00297  M01S00087.261l700 +++|          SX5    X3-77B
00298  M01S00088.261l700 +++|          ZR     X5,BAB2     IF DEFAULT SET
00299  M01S00089.261l700 +++|          BX7    X7-X7
00300  M01S00090.261l700 +++|          ZR     X3,BAB2     IF ZERO INDEX
00301  M01S00091.261l700 +++|
00302  M01S00092.261l700 +++|*         CONVERT INDEX TO VALUE.  V = (I*(U-L)/64) + L.
00303  M01S00093.261l700 +++|
00304  M01S00094.261l700 +++|          AX2    18
00305  M01S00095.261l700 +++|          SX4    X2          LOWER BOUND (L)
00306  M01S00096.261l700 +++|          AX2    18
00307  M01S00097.261l700 +++|          SX5    X2          UPPER BOUND (U)
00308  M01S00098.261l700 +++|          IX7    X5-X4       UPPER - LOWER
00309  M01S00099.261l700 +++|          SX5    64
00310  M01S00100.261l700 +++|          IX3    X7*X3       (U - L) * I
00311  M01S00101.261l700 +++|          IX5    X3/X5       (U - L) * I/64
00312  M01S00102.261l700 +++|          IX7    X5+X4       (U - L) * I/64  +  L
00313  M01S00103.261l700 +++| BAB2     LX6    12          MERGE IN WITH REST OF VALUES
00314  M01S00104.261l700 +++|          BX6    X6+X7
00315  M01S00105.261l700 +++|          SA2    A2+B1       READ NEXT TABLE ENTRY
00316  M01S00106.261l700 +++|          SB2    B2-B1
00317  M01S00107.261l700 +++|          GT     B2,B0,BAB1  IF NOT LAST INDEX
00318  M01S00108.261l700 +++|          SA6    SRUM
00319  M01S00109.261l700 +++|          RECALL P
00320  M01S00110.261l700 +++|
00321  M01S00111.261l700 +++|*         BEGIN ACCOUNT BLOCK.
00322  M01S00112.261l700 +++|
00323  M01S00113.261l700 +++|          BEGINAB  SRUM      BEGIN ACCOUNT BLOCK
00324  M01S00114.261l700 +++|          EQ     BABX        RETURN
00325  M01S00115.261l700 +++|
00326  M01S00116.261l700 +++|
00327  M01S00117.261l700 +++| BABA     DATA   C*ACCN, ??????????, !!!!!!!!!!&&&&&&&&&&.*
00328  M01S00197.comcchg +++| CHG      SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
00329  M02S00198.261l700 ---|**        CHG - VALIDATE CHARGE/PROJECT NUMBER.
00330  M01S00118.261l700 +++|**        CHG - VALIDATE CHARGE/PROJECT NUMBER AND BEGIN ACCOUNT BLOCK.
00331  M01S00199.comcchg +++|*
00332  M01S00200.comcchg +++|*         ENTRY  (X2) = DEFAULT CHARGE FLAG.

Seq #  *Modification Id* Act 
----------------------------+
00333  M02S00201.v23l617 ---|*                (X3) = USER NUMBER.
00334  M01S00008.v23l617 +++|*                (X3) = USER NAME.
00335  M01S00202.comcchg +++|*

Seq #  *Modification Id* Act 
----------------------------+
00336  M02S00203.ns22000 ---|*         EXIT   (B6) = ERROR MESSAGE ADDRESS, IF NON-ZERO.

Seq #  *Modification Id* Act 
----------------------------+
00337  M02S00007.261l700 ---|*         EXIT   (B5) = ADDRESS OF PROJECT ENTRY.
00338  M01S00119.261l700 +++|*         EXIT   (B5) = LEVEL 3 ENTRY BUFFER ADDRESS.
00339  M01S00008.ns22000 +++|*                (B6) = ERROR MESSAGE ADDRESS, IF NON-ZERO.
00340  M01S00204.comcchg +++|*

Seq #  *Modification Id* Act 
----------------------------+
00341  M02S00205.261l700 ---|*         USES   A - 1, 2, 3, 4, 5, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
00342  M02S00206.261l700 ---|*                X - 0, 1, 2, 3, 4, 5, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
00343  M02S00207.261l700 ---|*                B - 6.
00344  M01S00120.261l700 +++|*         USES   A - 0.
00345  M01S00121.261l700 +++|*                B - 5, 6.
00346  M01S00208.comcchg +++|*

Seq #  *Modification Id* Act 
----------------------------+
00347  M02S00209.ns22000 ---|*         CALLS  CLT, CVU, ICN, SDI.

Seq #  *Modification Id* Act 
----------------------------+
00348  M02S00009.261l700 ---|*         CALLS  CLT, CVU, ICN, PPE, SDI.

Seq #  *Modification Id* Act 
----------------------------+
00349  M02S00210.261l700 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00350  M02S00211.261l700 ---|*         MACROS ATTACH, ERROR, PDATE, RETURN, RPHR.
00351  M01S00122.261l700 +++|*         CALLS  BAB, VCN.
00352  M01S00212.comcchg +++|
00353  M01S00213.comcchg +++|
00354  M01S00214.comcchg +++| CHG      SUBR               ENTRY/EXIT
00355  M01S00123.261l700 +++|          RJ     VCN         VALIDATE CHARGE AND PROJECT NUMBER
00356  M01S00124.261l700 +++|          NZ     B6,CHGX     IF ERROR
00357  M01S00125.261l700 +++|          SA0    B5          PRESERVE LEVEL 3 ENTRY BUFFER ADDRESS
00358  M01S00126.261l700 +++|          RJ     BAB         BEGIN ACCOUNT BLOCK
00359  M01S00127.261l700 +++|          SB5    A0          RESTRORE LEVEL 3 ENTRY BUFFER ADDRESS
00360  M01S00128.261l700 +++|          SB6    B0          SET *NO ERROR* STATUS
00361  M01S00129.261l700 +++|          EQ     CHGX        RETURN
00362  M01S00130.261l700 +++|          SPACE  4,10
00363  M01S00131.261l700 +++| RPE$     IF     DEF,RPE$
00364  M01S00132.261l700 +++| RPE      SPACE  4,17
00365  M01S00133.261l700 +++|**        RPE - READ PROFILE ENTRY.
00366  M01S00134.261l700 +++|*
00367  M01S00135.261l700 +++|*         ENTRY  (X1) = 25/, 1/EI, 24/RI
00368  M01S00136.261l700 +++|*                EI = PROFILE FILE LEVEL-3 BLOCK ENTRY INDEX.
00369  M01S00137.261l700 +++|*                RI = PROFILE FILE LEVEL-3 BLOCK RANDOM INDEX.
00370  M01S00138.261l700 +++|*
00371  M01S00139.261l700 +++|*         EXIT   PROFILE FILE LEVEL-3 BLOCK READ TO BUFFER.
00372  M01S00140.261l700 +++|*                (B5) = LEVEL-3 ENTRY BUFFER ADDRESS.
00373  M01S00141.261l700 +++|*                (B6) = ERROR MESSAGE ADDRESS, IF NON-ZERO.
00374  M01S00142.261l700 +++|*
00375  M01S00143.261l700 +++|*         USES   X - 0, 2, 5, 6.
00376  M01S00144.261l700 +++|*                A - 2, 6.
00377  M01S00145.261l700 +++|*                B - 1, 5, 6.
00378  M01S00146.261l700 +++|*
00379  M01S00147.261l700 +++|*         CALLS  APR, RPR.
00380  M01S00148.261l700 +++|*
00381  M01S00149.261l700 +++|*         MACROS RETURN.
00382  M01S00150.261l700 +++|
00383  M01S00151.261l700 +++|
00384  M01S00152.261l700 +++| RPE      SUBR               ENTRY/EXIT
00385  M01S00215.comcchg +++|          IF     -DEF,B1=1,1
00386  M01S00216.comcchg +++|          SB1    1

Seq #  *Modification Id* Act 
----------------------------+
00387  M02S00010.261l700 ---|          SA1    CHG         SAVE RETURN ADDRESS
00388  M01S00153.261l700 +++|          SA2    RPEX        SET RETURN ADDRESS FOR ERROR PROCESSING
00389  M01S00154.261l700 +++|          BX6    X2
00390  M01S00155.261l700 +++|          SA6    ERRX
00391  M01S00156.261l700 +++|          BX5    X1
00392  M01S00157.261l700 +++|          RJ     APR         ATTACH PROFILE FILE
00393  M01S00158.261l700 +++|          MX0    -24
00394  M01S00159.261l700 +++|          BX2    -X0*X5
00395  M01S00160.261l700 +++|          RJ     RPR         READ PHYSICAL RECORD
00396  M01S00161.261l700 +++|          RETURN P
00397  M01S00162.261l700 +++|          LX5    59-24       GET ENTRY INDEX
00398  M01S00163.261l700 +++|          SB5    PBUF        SET LEVEL-3 ENTRY BUFFER ADDRESS
00399  M01S00164.261l700 +++|          PL     X5,RPE1     IF FIRST ENTRY
00400  M01S00165.261l700 +++|          SB5    B5+PMWE
00401  M01S00166.261l700 +++| RPE1     SB6    B0          SET *NO ERROR* STATUS
00402  M01S00167.261l700 +++|          EQ     RPEX        RETURN
00403  M01S00168.261l700 +++|          SPACE  4,10
00404  M01S00169.261l700 +++| RPE$     ENDIF
00405  M01S00170.261l700 +++| VCN      SPACE  4,15
00406  M01S00171.261l700 +++|**        VCN - VALIDATE CHARGE/PROJECT NUMBER.
00407  M01S00172.261l700 +++|*
00408  M01S00173.261l700 +++|*         ENTRY  (X2) = DEFAULT CHARGE FLAG.
00409  M01S00174.261l700 +++|*                (X3) = USER NAME.
00410  M01S00175.261l700 +++|*
00411  M01S00176.261l700 +++|*         EXIT   (B5) = LEVEL 3 ENTRY BUFFER ADDRESS.
00412  M01S00177.261l700 +++|*                (B6) = ERROR MESSAGE ADDRESS, IF NON-ZERO.
00413  M01S00178.261l700 +++|*
00414  M01S00179.261l700 +++|*         USES   X - 0, 1, 2, 6.
00415  M01S00180.261l700 +++|*                A - 1, 2.
00416  M01S00181.261l700 +++|*                B - 1, 2, 6.
00417  M01S00182.261l700 +++|*
00418  M01S00183.261l700 +++|*         CALLS  APR, CLT, CVU, SPI.
00419  M01S00184.261l700 +++|*
00420  M01S00185.261l700 +++|*         MACROS ERROR, PDATE, RETURN, RPHR.
00421  M01S00186.261l700 +++|
00422  M01S00187.261l700 +++|
00423  M01S00188.261l700 +++| VCN      SUBR               ENTRY/EXIT
00424  M01S00189.261l700 +++|          IF     -DEF,B1=1,1
00425  M01S00190.261l700 +++|          SB1    1
00426  M01S00191.261l700 +++|          SA1    VCNX        SET RETURN ADDRESS FOR ERROR PROCESSING
00427  M01S00011.ns22000 +++|          BX6    X1
00428  M01S00012.ns22000 +++|          SA6    ERRX

Seq #  *Modification Id* Act 
----------------------------+
00429  M02S00217.v23l617 ---|          MX0    42          SAVE USER NUMBER
00430  M01S00009.v23l617 +++|          MX0    42          SAVE USER NAME
00431  M01S00218.comcchg +++|          BX6    X0*X3
00432  M01S00219.comcchg +++|          SA6    CUN
00433  M01S00220.comcchg +++|          BX6    X2          SAVE DEFAULT CHARGE FLAG
00434  M01S00221.comcchg +++|          SA6    DCF

Seq #  *Modification Id* Act 
----------------------------+
00435  M02S00222.ns22000 ---|          SA5    SRUM+2      CHECK IF CHARGE AND PROJECT PRESENT

Seq #  *Modification Id* Act 
----------------------------+
00436  M02S00223.ns22000 ---|          NZ     X5,CHG0     IF PRESENT

Seq #  *Modification Id* Act 
----------------------------+
00437  M02S00224.ns22000 ---|          SA5    A5+B1

Seq #  *Modification Id* Act 
----------------------------+
00438  M02S00225.ns22000 ---|          NZ     X5,CHG0     IF PRESENT

Seq #  *Modification Id* Act 
----------------------------+
00439  M02S00226.ns22000 ---|          SA5    A5+B1

Seq #  *Modification Id* Act 
----------------------------+
00440  M02S00227.ns22000 ---|          ZR     X5,CHG0.1   IF NO CHARGE OR PROJECT PRESENT

Seq #  *Modification Id* Act 
----------------------------+
00441  M02S00228.ns22000 ---| CHG0     SA5    P           SET *FET* ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
00442  M02S00229.ns22000 ---|          SA1    A5+B1       REWIND *FET* POINTERS

Seq #  *Modification Id* Act 
----------------------------+
00443  M02S00230.ns22000 ---|          SX3    3

Seq #  *Modification Id* Act 
----------------------------+
00444  M02S00231.ns22000 ---|          SX7    ERRM        SET ERROR MESSAGE ADDRESS IN FET

Seq #  *Modification Id* Act 
----------------------------+
00445  M02S00232.ns22000 ---|          SA4    P+CFPW

Seq #  *Modification Id* Act 
----------------------------+
00446  M02S00233.ns22000 ---|          MX0    42

Seq #  *Modification Id* Act 
----------------------------+
00447  M02S00234.ns22000 ---|          BX4    X0*X4

Seq #  *Modification Id* Act 
----------------------------+
00448  M02S00235.ns22000 ---|          BX7    X4+X7

Seq #  *Modification Id* Act 
----------------------------+
00449  M02S00236.ns22000 ---|          SA7    A4

Seq #  *Modification Id* Act 
----------------------------+
00450  M02S00237.ns22000 ---|          BX6    X0*X5       CLEAR ALL EXCEPT LOCAL FILE NAME

Seq #  *Modification Id* Act 
----------------------------+
00451  M02S00238.ns22000 ---|          BX6    X6+X3

Seq #  *Modification Id* Act 
----------------------------+
00452  M02S00239.ns22000 ---|          SA6    A5          SET FILENAME AND INITIAL STATUS

Seq #  *Modification Id* Act 
----------------------------+
00453  M02S00240.ns22000 ---|          MX7    0

Seq #  *Modification Id* Act 
----------------------------+
00454  M02S00241.ns22000 ---|          SA7    P+6         CLEAR RANDOM ADDRESS AND INDEX WORDS

Seq #  *Modification Id* Act 
----------------------------+
00455  M02S00242.ns22000 ---|          SX6    X1

Seq #  *Modification Id* Act 
----------------------------+
00456  M02S00243.ns22000 ---|          SA7    A7+B1

Seq #  *Modification Id* Act 
----------------------------+
00457  M02S00244.ns22000 ---|          SA6    A1+B1

Seq #  *Modification Id* Act 
----------------------------+
00458  M02S00245.ns22000 ---|          SA6    A6+B1

Seq #  *Modification Id* Act 
----------------------------+
00459  M02S00246.ns22000 ---|          ATTACH A5,,,,RM,,,IP,FA

Seq #  *Modification Id* Act 
----------------------------+
00460  M02S00247.ns22000 ---|          SA2    X2          CHECK ATTACH STATUS

Seq #  *Modification Id* Act 
----------------------------+
00461  M02S00248.ns22000 ---|          MX1    -8

Seq #  *Modification Id* Act 
----------------------------+
00462  M02S00249.ns22000 ---|          AX2    10

Seq #  *Modification Id* Act 
----------------------------+
00463  M02S00250.ns22000 ---|          BX2    -X1*X2

Seq #  *Modification Id* Act 
----------------------------+
00464  M02S00251.ns22000 ---|          NZ     X2,CHG1     IF ERROR ON ATTACH
00465  M01S00013.ns22000 +++|          RJ     APR         ATTACH PROFILE FILE
00466  M01S00252.comcchg +++|          PDATE  CDT         CURRENT DATE AND TIME
00467  M01S00253.comcchg +++|          RPHR   P,R
00468  M01S00254.comcchg +++|          SX0    7754B
00469  M01S00255.comcchg +++|          SA2    P
00470  M01S00256.comcchg +++|          BX1    X0*X2

Seq #  *Modification Id* Act 
----------------------------+
00471  M02S00257.261l700 ---|          NZ     X1,CHG3     IF END OF FILE
00472  M01S00192.261l700 +++|          NZ     X1,VCN3     IF END OF FILE
00473  M01S00258.comcchg +++|          RJ     SPI         SEARCH FOR PROJECT INFORMATION
00474  M01S00259.comcchg +++|          SX6    LIMT        PROCESS LIMIT TABLE
00475  M01S00260.comcchg +++|          RJ     CLT

Seq #  *Modification Id* Act 
----------------------------+
00476  M02S00014.261l700 ---|          IF     DEF,PPE$,1

Seq #  *Modification Id* Act 
----------------------------+
00477  M02S00015.261l700 ---|          RJ     PPE         PASS PROLOGUE/EPILOGUE PARAMETERS

Seq #  *Modification Id* Act 
----------------------------+
00478  M02S00261.v23l617 ---|          RJ     CVU         CHECK VALID USER NUMBER
00479  M01S00010.v23l617 +++|          RJ     CVU         CHECK VALID USER NAME
00480  M01S00262.comcchg +++|          RETURN P

Seq #  *Modification Id* Act 
----------------------------+
00481  M02S00263.261l700 ---| CHG0.1   RJ     ICN         ISSUE CHARGE NUMBER MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
00482  M02S00264.261l700 ---|          SB6    B0          SET *NO ERROR* STATUS

Seq #  *Modification Id* Act 
----------------------------+
00483  M02S00265.261l700 ---|          EQ     CHGX        RETURN
00484  M01S00193.261l700 +++|          SB5    EBUF        SET LEVEL 3 ENTRY ADDRESS
00485  M01S00194.261l700 +++|          SB6    B0+         SET *NO ERROR* STATUS
00486  M01S00195.261l700 +++|          EQ     VCNX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
00487  M02S00266.ns22000 ---|

Seq #  *Modification Id* Act 
----------------------------+
00488  M02S00267.ns22000 ---| CHG1     SX1    X2-/ERRMSG/FBS

Seq #  *Modification Id* Act 
----------------------------+
00489  M02S00268.ns22000 ---|          NZ     X1,CHG2     IF FILE NOT BUSY

Seq #  *Modification Id* Act 
----------------------------+
00490  M02S00269.ns22000 ---|          ERROR  ERRF        * CHARGE FILE BUSY.*

Seq #  *Modification Id* Act 
----------------------------+
00491  M02S00270.ns22000 ---|

Seq #  *Modification Id* Act 
----------------------------+
00492  M02S00271.ns22000 ---| CHG2     SX1    X2-/ERRMSG/PFN

Seq #  *Modification Id* Act 
----------------------------+
00493  M02S00272.ns22000 ---|          NZ     X1,CHG3     IF NOT * DEVICE UNAVAILABLE.*

Seq #  *Modification Id* Act 
----------------------------+
00494  M02S00273.ns22000 ---|          ERROR  ERRD        * INVALID CHARGE.*
00495  M01S00274.comcchg +++|

Seq #  *Modification Id* Act 
----------------------------+
00496  M02S00275.261l700 ---| CHG3     ERROR  ERRE        * DATA BASE ERROR.*

Seq #  *Modification Id* Act 
----------------------------+
00497  M02S00016.261l700 ---| PPE$     IF     DEF,PPE$

Seq #  *Modification Id* Act 
----------------------------+
00498  M02S00017.261l700 ---| RPE      SPACE  4,17

Seq #  *Modification Id* Act 
----------------------------+
00499  M02S00018.261l700 ---|**        RPE - READ PROFILE ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
00500  M02S00019.261l700 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00501  M02S00020.261l700 ---|*         ENTRY  (X1) = 25/, 1/EI, 24/RI

Seq #  *Modification Id* Act 
----------------------------+
00502  M02S00021.261l700 ---|*                EI = PROFILE FILE LEVEL-3 BLOCK ENTRY INDEX.

Seq #  *Modification Id* Act 
----------------------------+
00503  M02S00022.261l700 ---|*                RI = PROFILE FILE LEVEL-3 BLOCK RANDOM INDEX.

Seq #  *Modification Id* Act 
----------------------------+
00504  M02S00023.261l700 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00505  M02S00024.261l700 ---|*         EXIT   PROFILE FILE LEVEL-3 BLOCK READ TO BUFFER.

Seq #  *Modification Id* Act 
----------------------------+
00506  M02S00025.261l700 ---|*                (B2) = LEVEL-3 ENTRY BUFFER ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
00507  M02S00026.261l700 ---|*                (B6) = ERROR MESSAGE ADDRESS, IF NON-ZERO.

Seq #  *Modification Id* Act 
----------------------------+
00508  M02S00027.261l700 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00509  M02S00028.261l700 ---|*         USES   A - 2, 6.

Seq #  *Modification Id* Act 
----------------------------+
00510  M02S00029.261l700 ---|*                X - 0, 2, 5, 6.

Seq #  *Modification Id* Act 
----------------------------+
00511  M02S00030.261l700 ---|*                B - 1, 2.

Seq #  *Modification Id* Act 
----------------------------+
00512  M02S00031.261l700 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00513  M02S00032.261l700 ---|*         CALLS  APR, RPR.

Seq #  *Modification Id* Act 
----------------------------+
00514  M02S00033.261l700 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00515  M02S00034.261l700 ---|*         MACROS RETURN.

Seq #  *Modification Id* Act 
----------------------------+
00516  M02S00035.261l700 ---|

Seq #  *Modification Id* Act 
----------------------------+
00517  M02S00036.261l700 ---|

Seq #  *Modification Id* Act 
----------------------------+
00518  M02S00037.261l700 ---| RPE      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
00519  M02S00038.261l700 ---|          IF     -DEF,B1=1,1

Seq #  *Modification Id* Act 
----------------------------+
00520  M02S00039.261l700 ---|          SB1    1

Seq #  *Modification Id* Act 
----------------------------+
00521  M02S00040.261l700 ---|          SA2    RPE         SAVE RETURN ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
00522  M02S00041.261l700 ---|          BX6    X2

Seq #  *Modification Id* Act 
----------------------------+
00523  M02S00042.261l700 ---|          SA6    ERRX

Seq #  *Modification Id* Act 
----------------------------+
00524  M02S00043.261l700 ---|          BX5    X1

Seq #  *Modification Id* Act 
----------------------------+
00525  M02S00044.261l700 ---|          RJ     APR         ATTACH PROFILE FILE

Seq #  *Modification Id* Act 
----------------------------+
00526  M02S00045.261l700 ---|          MX0    -24

Seq #  *Modification Id* Act 
----------------------------+
00527  M02S00046.261l700 ---|          BX2    -X0*X5

Seq #  *Modification Id* Act 
----------------------------+
00528  M02S00047.261l700 ---|          RJ     RPR         READ PHYSICAL RECORD

Seq #  *Modification Id* Act 
----------------------------+
00529  M02S00048.261l700 ---|          RETURN P

Seq #  *Modification Id* Act 
----------------------------+
00530  M02S00049.261l700 ---|          LX5    59-24       GET ENTRY INDEX

Seq #  *Modification Id* Act 
----------------------------+
00531  M02S00050.261l700 ---|          SB2    PBUF        SET LEVEL-3 ENTRY BUFFER ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
00532  M02S00051.261l700 ---|          PL     X5,RPE1     IF FIRST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
00533  M02S00052.261l700 ---|          SB2    B2+PMWE

Seq #  *Modification Id* Act 
----------------------------+
00534  M02S00053.261l700 ---| RPE1     SB6    B0          SET *NO ERROR* STATUS

Seq #  *Modification Id* Act 
----------------------------+
00535  M02S00054.261l700 ---|          EQ     RPEX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
00536  M02S00055.261l700 ---| PPE$     ENDIF
00537  M01S00196.261l700 +++| VCN3     ERROR  ERRE        * DATA BASE ERROR.*
00538  M01S00276.comcchg +++| LIMT     SPACE  4,20
00539  M01S00277.comcchg +++|**        LIMT - TABLE OF LIMIT PROCESSORS.
00540  M01S00278.comcchg +++|
00541  M01S00279.comcchg +++|
00542  M01S00280.comcchg +++| LIMT     BSS    0
00543  M01S00281.comcchg +++|          LIMIT  TOD,CDT,PTMW,PTMW,ERRA
00544  M01S00282.comcchg +++| .CHG1    IFEQ   LIM$,0
00545  M01S00283.comcchg +++|          LIMIT  GLP,PMSW,0,PMSW,ERRB
00546  M01S00284.comcchg +++|          LIMIT  GLP,PISW,0,PISW,ERRB
00547  M01S00285.comcchg +++|          LIMIT  GLP,PIRW-1+1,0,PIRW-1+1,ERRC
00548  M01S00286.comcchg +++|          LIMIT  GLP,PIRW-1+2,0,PIRW-1+2,ERRC
00549  M01S00287.comcchg +++|          LIMIT  GLP,PIRW-1+3,0,PIRW-1+3,ERRC
00550  M01S00288.comcchg +++|          LIMIT  GLP,PIRW-1+4,0,PIRW-1+4,ERRC
00551  M01S00289.comcchg +++|          LIMIT  GLP,PIRW-1+5,0,PIRW-1+5,ERRC
00552  M01S00290.comcchg +++|          LIMIT  GLP,PIRW-1+6,0,PIRW-1+6,ERRC
00553  M01S00291.comcchg +++|          LIMIT  GLP,PIRW-1+7,0,PIRW-1+7,ERRC
00554  M01S00292.comcchg +++|          LIMIT  GLP,PIRW-1+8,0,PIRW-1+8,ERRC
00555  M01S00293.comcchg +++| .CHG1    ENDIF
00556  M01S00294.comcchg +++|          CON    0           END OF TABLE
00557  M01S00295.comcchg +++|          TITLE  COMCCHG - VALIDATION ROUTINES.
00558  M01S00296.comcchg +++| CCE      SPACE  4,20
00559  M01S00297.comcchg +++|**        CCE - CHECK CHARGE NUMBER ENTRY.
00560  M01S00298.comcchg +++|*
00561  M01S00299.comcchg +++|*         THE CHARGE ENTRY IS CHECKED TO SEE IF ACTIVE AND NOT EXPIRED.
00562  M01S00300.comcchg +++|*
00563  M01S00301.comcchg +++|*         ENTRY  (B2) = ADDRESS OF NEXT ENTRY.
00564  M01S00302.comcchg +++|*                (X2) = LAST WORD OF ENTRY.
00565  M01S00303.comcchg +++|*

Seq #  *Modification Id* Act 
----------------------------+
00566  M02S00304.v23l617 ---|*         EXIT   (MUN) = MASTER USER NUMBER.
00567  M01S00011.v23l617 +++|*         EXIT   (MUN) = MASTER USER NAME.
00568  M01S00305.comcchg +++|*                (SRM) = SRU MULTIPLIER INDICES.
00569  M01S00306.comcchg +++|*
00570  M01S00307.comcchg +++|*         USES   X - 3, 4, 5, 6.
00571  M01S00308.comcchg +++|*                A - 3, 4, 5, 6.
00572  M01S00309.comcchg +++|*
00573  M01S00310.comcchg +++|*         MACROS ERROR.
00574  M01S00311.comcchg +++|
00575  M01S00312.comcchg +++|
00576  M01S00313.comcchg +++| CCE2     MX4    42          SAVE MASTER USER AND SRU INDICES
00577  M01S00314.comcchg +++|          BX6    X2*X4
00578  M01S00315.comcchg +++|          SA6    MUN
00579  M01S00316.comcchg +++|          BX6    X3
00580  M01S00317.comcchg +++|          SA6    SRM
00581  M01S00318.comcchg +++|
00582  M01S00319.comcchg +++| CCE      SUBR               ENTRY/EXIT
00583  M01S00320.comcchg +++|          SA3    B2-CMWE+CSRW
00584  M01S00321.comcchg +++|          NG     X3,CCE1     IF CHARGE NUMBER INACTIVE
00585  M01S00322.comcchg +++|          SA4    B2-CMWE+CDTW  CHECK EXPIRATION DATE
00586  M01S00323.comcchg +++|          LX4    -24

Seq #  *Modification Id* Act 
----------------------------+
00587  M02S00324.cchg5   ---|          SX4    X4
00588  M01S00001.cchg5   +++|          MX5    -18
00589  M01S00002.cchg5   +++|          BX4    -X5*X4
00590  M01S00325.comcchg +++|          ZR     X4,CCE2     IF NO RESTRICTION
00591  M01S00326.comcchg +++|          SA5    CDT
00592  M01S00327.comcchg +++|          AX5    18
00593  M01S00328.comcchg +++|          IX4    X4-X5

Seq #  *Modification Id* Act 
----------------------------+
00594  M02S00329.cchg2   ---|          PL     X4,CCE1     IF CHARGE NUMBER NOT EXPIRED
00595  M01S00001.cchg2   +++|          PL     X4,CCE2     IF CHARGE NUMBER NOT EXPIRED
00596  M01S00330.comcchg +++|          ERROR  ERRG        * CHARGE NUMBER EXPIRED.*
00597  M01S00331.comcchg +++|

Seq #  *Modification Id* Act 
----------------------------+
00598  M02S00332.v23l617 ---| CCE1     ERROR  ERRD        * INVALID CHARGE.*
00599  M01S00012.v23l617 +++| CCE1     ERROR  ERRD        * CHARGE NOT VALID.*
00600  M01S00333.comcchg +++| CPE      SPACE  4,20
00601  M01S00334.comcchg +++|**        CPE - CHECK PROJECT NUMBER ENTRY.
00602  M01S00335.comcchg +++|*
00603  M01S00336.comcchg +++|*         THE PROJECT ENTRY IS FOUND, AND THEN CHECKED TO SEE
00604  M01S00337.comcchg +++|*         IF ACTIVE AND NOT EXPIRED.
00605  M01S00338.comcchg +++|*

Seq #  *Modification Id* Act 
----------------------------+
00606  M02S00339.ns2323  ---|*         ENTRY  (SRUM+1) = LEVEL-3 RANDOM ADDRESS AND SERVICE CLASS

Seq #  *Modification Id* Act 
----------------------------+
00607  M02S00340.ns2323  ---|*                CHANGE.
00608  M01S00001.ns2323  +++|*         ENTRY  (SRUM+1) = LEVEL-3 RANDOM ADDRESS.
00609  M01S00341.comcchg +++|*
00610  M01S00342.comcchg +++|*         EXIT   (B5) = ADDRESS OF PROJECT ENTRY.
00611  M01S00343.comcchg +++|*                (SRUM+1) = 6/A,30/,6/B,18/C
00612  M01S00344.comcchg +++|*                WHERE
00613  M01S00345.comcchg +++|*                A = SRU VALIDATION LIMIT INDEX.

Seq #  *Modification Id* Act 
----------------------------+
00614  M02S00346.ns2323  ---|*                S = 1, IF SERVICE CLASS CHANGE NEEDED.

Seq #  *Modification Id* Act 
----------------------------+
00615  M02S00347.ns2323  ---|*                SC = NEW SERVICE CLASS.
00616  M01S00348.comcchg +++|*                B = 0, IF PROJECT IS FIRST ENTRY IN LEVEL-3 BLOCK.
00617  M01S00349.comcchg +++|*                  .NE. O, IF PROJECT IS SECOND ENTRY IN LEVEL-3 BLOCK.
00618  M01S00350.comcchg +++|*                C = LEVEL-3 RANDOM ADDRESS.
00619  M01S00351.comcchg +++|*

Seq #  *Modification Id* Act 
----------------------------+
00620  M02S00352.ns2323  ---|*         USES   A - 1, 2, 3, 4, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
00621  M02S00353.ns2323  ---|*                X - 1, 2, 3, 4, 6, 7.
00622  M01S00002.ns2323  +++|*         USES   A - 1, 2, 3, 4, 6.

Seq #  *Modification Id* Act 
----------------------------+
00623  M02S00003.ns2532  ---|*                X - 1, 2, 3, 4, 5, 6.
00624  M01S00001.ns2532  +++|*                X - 1, 2, 3, 4, 5, 6, 7.
00625  M01S00354.comcchg +++|*                B - 2, 5.
00626  M01S00355.comcchg +++|*

Seq #  *Modification Id* Act 
----------------------------+
00627  M02S00356.261l700 ---|*         MACROS ERROR.
00628  M01S00197.261l700 +++|*         MACROS ERROR, MOVE.
00629  M01S00357.comcchg +++|
00630  M01S00358.comcchg +++|
00631  M01S00359.comcchg +++| CPE5     SA1    B5+PCGW     (SRUM+1)
00632  M01S00360.comcchg +++|          MX2    6
00633  M01S00361.comcchg +++|          BX3    X2*X1       CHARGE/PROJECT SRU VALIDATION
00634  M01S00362.comcchg +++|          SB2    6
00635  M01S00363.comcchg +++|          SA4    SSJ=+ALMS   ACCOUNT LIMIT INDEX WORD

Seq #  *Modification Id* Act 
----------------------------+
00636  M02S00364.ns2532  ---|          LX4    30

Seq #  *Modification Id* Act 
----------------------------+
00637  M03S00365.ns2532  ---|          BX7    -X2*X4      CLEAR OLD SRU INDEX

Seq #  *Modification Id* Act 
----------------------------+
00638  M02S00366.ns2532  ---|          BX4    X2*X4       USER SRU VALIDATION LIMIT

Seq #  *Modification Id* Act 
----------------------------+
00639  M02S00367.ns2532  ---|          LX1    B2,X3

Seq #  *Modification Id* Act 
----------------------------+
00640  M02S00368.ns2532  ---|          LX5    B2,X4

Seq #  *Modification Id* Act 
----------------------------+
00641  M02S00369.ns2532  ---|          IX2    X1-X5       COMPARE VALUES
00642  M01S00002.ns2532  +++|          LX1    X3,B2
00643  M01S00003.ns2532  +++|          BX7    X2*X4
00644  M01S00004.ns2532  +++|          LX5    X7,B2
00645  M01S00005.ns2532  +++|          LX4    30
00646  M01S00006.ns2532  +++|          NZ     X7,CPE5.1   IF ORIGINAL SRU VALIDATION LIMIT SET
00647  M01S00007.ns2532  +++|          BX7    X2*X4       GET CURRENT SRU VALIDATION LIMIT
00648  M01S00008.ns2532  +++|          LX5    X7,B2
00649  M01S00009.ns2532  +++| CPE5.1   IX2    X1-X5       COMPARE VALUES
00650  M01S00370.comcchg +++|          NG     X2,CPE6     IF CHARGE/PROJECT LIMIT SMALLEST

Seq #  *Modification Id* Act 
----------------------------+
00651  M02S00371.ns2532  ---|          LX3    X4          IF USER LIMIT SMALLEST
00652  M01S00010.ns2532  +++|          BX3    X7          USE USER LIMIT IF SMALLEST

Seq #  *Modification Id* Act 
----------------------------+
00653  M02S00372.ns2323  ---| CPE6     BX6    X3

Seq #  *Modification Id* Act 
----------------------------+
00654  M02S00373.ns2323  ---|          SX3    B5-PBUF

Seq #  *Modification Id* Act 
----------------------------+
00655  M02S00374.ns2323  ---|          BX7    X6+X7       MERGE NEW SRU INDEX

Seq #  *Modification Id* Act 
----------------------------+
00656  M02S00375.ns2323  ---|          LX7    30

Seq #  *Modification Id* Act 
----------------------------+
00657  M02S00376.ns2323  ---|          SA7    A4

Seq #  *Modification Id* Act 
----------------------------+
00658  M02S00377.ns2323  ---|          LX3    18

Seq #  *Modification Id* Act 
----------------------------+
00659  M02S00378.ns2323  ---|          BX6    X3+X6

Seq #  *Modification Id* Act 
----------------------------+
00660  M02S00379.ns2323  ---|          SA4    SRUM+1

Seq #  *Modification Id* Act 
----------------------------+
00661  M02S00380.ns2323  ---|          BX6    X4+X6
00662  M01S00004.ns2323  +++| CPE6     SA4    SRUM+1
00663  M01S00005.ns2323  +++|          SX6    B5-PBUF     SET FIRST LEVEL-3 BLOCK FLAG
00664  M01S00006.ns2323  +++|          LX6    18
00665  M01S00007.ns2323  +++|          BX6    X3+X6       MERGE SRU VALIDATON INDEX
00666  M01S00008.ns2323  +++|          BX6    X4+X6       MERGE LEVEL-3 BLOCK ADDRESS
00667  M01S00381.comcchg +++|          SA6    A4
00668  M01S00198.261l700 +++|          MOVE   PMWE,B5,EBUF  SET LEVEL 3 ENTRY
00669  M01S00382.comcchg +++|
00670  M01S00383.comcchg +++| CPE      SUBR               ENTRY/EXIT
00671  M01S00384.comcchg +++|          SB5    PBUF
00672  M01S00385.comcchg +++|          MX1    -12
00673  M01S00386.comcchg +++| CPE1     SA2    B5
00674  M01S00387.comcchg +++|          LX2    12
00675  M01S00388.comcchg +++|          BX3    -X1*X2
00676  M01S00389.comcchg +++|          SX3    X3-3
00677  M01S00390.comcchg +++|          NZ     X3,CPE3     IF NOT LEVEL-3 BLOCK
00678  M01S00391.comcchg +++|          SA3    B5+PRJW     CHECK PROJECT NUMBER
00679  M01S00392.comcchg +++|          SA4    SRUM+3      GET PROJECT NUMBER
00680  M01S00393.comcchg +++|          BX3    X3-X4
00681  M01S00394.comcchg +++|          NZ     X3,CPE2     IF NO MATCH
00682  M01S00395.comcchg +++|          SA3    A3+B1
00683  M01S00396.comcchg +++|          SA4    A4+B1
00684  M01S00397.comcchg +++|          BX3    X3-X4
00685  M01S00398.comcchg +++|          NZ     X3,CPE2     IF NO MATCH
00686  M01S00399.comcchg +++|          SA3    B5+PCHW     CHECK CHARGE NUMBER
00687  M01S00400.comcchg +++|          SA4    SRUM+2      GET CHARGE NUMBER
00688  M01S00401.comcchg +++|          BX3    X3-X4
00689  M01S00402.comcchg +++|          NZ     X3,CPE3     IF NO MATCH
00690  M01S00403.comcchg +++|          SA3    B5+PTMW
00691  M01S00404.comcchg +++|          NG     X3,CPE4     IF PROJECT NUMBER INACTIVE
00692  M01S00405.comcchg +++|          SA3    B5+PCDW     CHECK EXPIRATION DATE
00693  M01S00406.comcchg +++|          LX3    -24

Seq #  *Modification Id* Act 
----------------------------+
00694  M02S00407.cchg5   ---|          SX3    X3
00695  M01S00003.cchg5   +++|          MX4    -18
00696  M01S00004.cchg5   +++|          BX3    -X4*X3
00697  M01S00408.comcchg +++|          ZR     X3,CPE5     IF NO RESTRICTION
00698  M01S00409.comcchg +++|          SA4    CDT
00699  M01S00410.comcchg +++|          AX4    18
00700  M01S00411.comcchg +++|          IX3    X3-X4
00701  M01S00412.comcchg +++|          PL     X3,CPE5     IF PROJECT NUMBER NOT EXPIRED
00702  M01S00413.comcchg +++|          ERROR  ERRH        * PROJECT NUMBER EXPIRED.*
00703  M01S00414.comcchg +++|
00704  M01S00415.comcchg +++| CPE2     LX2    12          ADVANCE FOR NEXT ENTRY
00705  M01S00416.comcchg +++|          BX3    -X1*X2
00706  M01S00417.comcchg +++|          SB5    B5+X3
00707  M01S00418.comcchg +++|          SX3    B5-PBUF-PRUS
00708  M01S00419.comcchg +++|          NG     X3,CPE1     IF ANOTHER ENTRY
00709  M01S00420.comcchg +++| CPE3     ERROR  ERRE        * DATA BASE ERROR.*
00710  M01S00421.comcchg +++|

Seq #  *Modification Id* Act 
----------------------------+
00711  M02S00422.v23l617 ---| CPE4     ERROR  ERRD        * INVALID CHARGE.*
00712  M01S00013.v23l617 +++| CPE4     ERROR  ERRD        * CHARGE NOT VALID.*
00713  M01S00423.comcchg +++| CVU      SPACE  4,20

Seq #  *Modification Id* Act 
----------------------------+
00714  M02S00424.v23l617 ---|**        CVU - CHECK VALID USER NUMBER.
00715  M01S00014.v23l617 +++|**        CVU - CHECK VALID USER NAME.
00716  M01S00425.comcchg +++|*
00717  M01S00426.comcchg +++|*         THE USER IS VALIDATED TO USE THIS PROJECT IF ONE OF
00718  M01S00427.comcchg +++|*         THE FOLLOWING IS TRUE-
00719  M01S00428.comcchg +++|*                1. USER IS MASTER USER OF PROJECT.

Seq #  *Modification Id* Act 
----------------------------+
00720  M02S00429.v23l617 ---|*                2. PROJECT SPECIFIES NO USER NUMBER LIST.

Seq #  *Modification Id* Act 
----------------------------+
00721  M02S00430.v23l617 ---|*                3. USER IS SPECIFIED IN PROJECT,S USER NUMBER LIST.
00722  M01S00015.v23l617 +++|*                2. PROJECT SPECIFIES NO USER NAME LIST.
00723  M01S00016.v23l617 +++|*                3. USER IS SPECIFIED IN PROJECT,S USER NAME LIST.
00724  M01S00431.comcchg +++|*
00725  M01S00432.comcchg +++|*         ENTRY  (B5) = ADDRESS OF PROJECT ENTRY.
00726  M01S00433.comcchg +++|*
00727  M01S00434.comcchg +++|*         USES   A - 1, 2, 3.
00728  M01S00435.comcchg +++|*                X - 1, 2, 3, 4.
00729  M01S00436.comcchg +++|*                B - 2, 3.
00730  M01S00437.comcchg +++|*
00731  M01S00438.comcchg +++|*         CALLS  RPR, SUR.
00732  M01S00439.comcchg +++|*
00733  M01S00440.comcchg +++|*         MACROS ERROR.
00734  M01S00441.comcchg +++|
00735  M01S00442.comcchg +++|
00736  M01S00443.comcchg +++| CVU      SUBR               ENTRY/EXIT
00737  M01S00444.comcchg +++|          SA2    B5
00738  M01S00445.comcchg +++|          MX3    12
00739  M01S00446.comcchg +++|          LX3    -24
00740  M01S00447.comcchg +++|          BX3    X3*X2

Seq #  *Modification Id* Act 
----------------------------+
00741  M02S00448.v23l617 ---|          ZR     X3,CVUX     IF NO USER NUMBER LIST SPECIFIED
00742  M01S00017.v23l617 +++|          ZR     X3,CVUX     IF NO USER NAME LIST SPECIFIED
00743  M01S00449.comcchg +++|          SA1    CUN
00744  M01S00450.comcchg +++|          SA3    MUN
00745  M01S00451.comcchg +++|          BX3    X1-X3
00746  M01S00452.comcchg +++|          ZR     X3,CVUX     IF USER IS MASTER USER
00747  M01S00453.comcchg +++|          SB2    B5+PUNW     SEARCH FIRST LEVEL-3 BLOCK
00748  M01S00454.comcchg +++|          SB3    B2+NUNS

Seq #  *Modification Id* Act 
----------------------------+
00749  M02S00455.v23l617 ---| CVU1     RJ     SUR         SEARCH USER NUMBER RANGE

Seq #  *Modification Id* Act 
----------------------------+
00750  M02S00456.v23l617 ---|          ZR     X4,CVUX     IF USER NUMBER IN LIST
00751  M01S00018.v23l617 +++| CVU1     RJ     SUR         SEARCH USER NAME RANGE
00752  M01S00019.v23l617 +++|          ZR     X4,CVUX     IF USER NAME IN LIST
00753  M01S00457.comcchg +++|          SX4    X4-1

Seq #  *Modification Id* Act 
----------------------------+
00754  M02S00458.v23l617 ---|          ZR     X4,CVU2     IF USER NUMBER NOT IN LIST
00755  M01S00020.v23l617 +++|          ZR     X4,CVU2     IF USER NAME NOT IN LIST
00756  M01S00459.comcchg +++|          SX2    X2
00757  M01S00460.comcchg +++|          ZR     X2,CVU2     IF NO MORE OVERFLOW BLOCKS
00758  M01S00461.comcchg +++|          RJ     RPR         READ OVERFLOW BLOCK
00759  M01S00462.comcchg +++|          SA2    PBUF
00760  M01S00463.comcchg +++|          SA1    CUN         SEARCH OVERFLOW BLOCK
00761  M01S00464.comcchg +++|          SB2    PBUF+1
00762  M01S00465.comcchg +++|          SB3    PBUF+PRUS
00763  M01S00466.comcchg +++|          EQ     CVU1        LOOP
00764  M01S00467.comcchg +++|

Seq #  *Modification Id* Act 
----------------------------+
00765  M02S00468.v23l617 ---| CVU2     ERROR  ERRD        * INVALID CHARGE.*
00766  M01S00021.v23l617 +++| CVU2     ERROR  ERRD        * CHARGE NOT VALID.*
00767  M01S00469.comcchg +++| SIB      SPACE  4,20
00768  M01S00470.comcchg +++|**        SIB - SEARCH INDEX BLOCK.
00769  M01S00471.comcchg +++|*
00770  M01S00472.comcchg +++|*         ENTRY  (A0) = LEVEL NUMBER.
00771  M01S00473.comcchg +++|*                (B6) = ADDRESS OF VALIDATION NUMBER.
00772  M01S00474.comcchg +++|*
00773  M01S00475.comcchg +++|*         EXIT   (X2),(B2)   VALIDATION STATUS. *****
00774  M01S00476.comcchg +++|*
00775  M01S00477.comcchg +++|*         USES   A - 1.
00776  M01S00478.comcchg +++|*                X - 0, 1, 2, 3, 5.
00777  M01S00479.comcchg +++|*                B - 2, 3, 4, 7.
00778  M01S00480.comcchg +++|*
00779  M01S00481.comcchg +++|*         CALLS  MWS.
00780  M01S00482.comcchg +++|*
00781  M01S00483.comcchg +++|*         MACROS ERROR.
00782  M01S00484.comcchg +++|
00783  M01S00485.comcchg +++|
00784  M01S00486.comcchg +++| SIB      SUBR               ENTRY/EXIT
00785  M01S00487.comcchg +++|          SA1    PBUF        CHECK INDEX LEVEL
00786  M01S00488.comcchg +++|          SB2    A0
00787  M01S00489.comcchg +++|          MX0    12
00788  M01S00490.comcchg +++|          BX2    X0*X1
00789  M01S00491.comcchg +++|          LX2    12
00790  M01S00492.comcchg +++|          SB7    X2+
00791  M01S00493.comcchg +++|          NE     B2,B7,SIB2  IF LEVEL NUMBER BAD
00792  M01S00494.comcchg +++|          LX0    12          SET CALL TO TABLE SEARCH
00793  M01S00495.comcchg +++|          BX2    X0*X1
00794  M01S00496.comcchg +++|          SB2    X2+PBUF     FWA TABLE
00795  M01S00497.comcchg +++|          LX1    -24
00796  M01S00498.comcchg +++|          BX3    X1*X0
00797  M01S00499.comcchg +++|          LX1    -12
00798  M01S00500.comcchg +++|          BX2    X1*X0
00799  M01S00501.comcchg +++|          SB3    X2+PBUF     LWA+1 TABLE
00800  M01S00502.comcchg +++|          SB7    X3          NUMBER OF WORDS/ENTRY
00801  M01S00503.comcchg +++|          SB4    A0+         CHECK BLOCK LEVEL
00802  M01S00504.comcchg +++|          SX5    B7-B1
00803  M01S00505.comcchg +++|          NE     B1,B4,SIB1  IF NOT LEVEL-1
00804  M01S00506.comcchg +++|          SX5    1
00805  M01S00507.comcchg +++| SIB1     RJ     MWS         SEARCH THIS BLOCK
00806  M01S00508.comcchg +++|          EQ     SIBX        EXIT
00807  M01S00509.comcchg +++|
00808  M01S00510.comcchg +++| SIB2     ERROR  ERRE        * DATA BASE ERROR.*
00809  M01S00511.comcchg +++|SPI       SPACE  4,10
00810  M01S00512.comcchg +++|**        SPI - SEARCH FOR PROJECT PROFILE INFORMATION.
00811  M01S00513.comcchg +++|*
00812  M01S00514.comcchg +++|*         USES   A - 0, 2, 3, 6.
00813  M01S00515.comcchg +++|*                X - 0, 2, 3, 6.
00814  M01S00516.comcchg +++|*                B - 3, 6.
00815  M01S00517.comcchg +++|*
00816  M01S00518.comcchg +++|*         CALLS  CPE, RPR, SIB.
00817  M01S00519.comcchg +++|*
00818  M01S00520.comcchg +++|*         MACROS ERROR.
00819  M01S00521.comcchg +++|
00820  M01S00522.comcchg +++|
00821  M01S00523.comcchg +++| SPI      SUBR               ENTRY/EXIT
00822  M01S00524.comcchg +++| SPI1     SA0    B0+         SEARCH LEVEL-0 BLOCK
00823  M01S00525.comcchg +++|          SB6    SRUM+2      ADDRESS OF CHARGE NUMBER
00824  M01S00526.comcchg +++|          RJ     SIB
00825  M01S00527.comcchg +++|          NZ     X2,SPI4     IF POINTER FOUND
00826  M01S00528.comcchg +++|          SA2    PBUF        CHECK POSITION IN BLOCK
00827  M01S00529.comcchg +++|          SX0    7777B
00828  M01S00530.comcchg +++|          LX2    -36
00829  M01S00531.comcchg +++|          BX3    X0*X2
00830  M01S00532.comcchg +++|          SB3    X3+PBUF+1
00831  M01S00533.comcchg +++|          LT     B2,B3,SPI3  IF NOT EOB
00832  M01S00534.comcchg +++|          SA2    PBUF+2
00833  M01S00535.comcchg +++|          ZR     X2,SPI2     IF NO MORE BLOCKS
00834  M01S00536.comcchg +++|          SA3    B2-B1
00835  M01S00537.comcchg +++|          ZR     X3,SPI9     IF NO RANDOM ADDRESS
00836  M01S00538.comcchg +++|          BX6    X3
00837  M01S00539.comcchg +++|          SA6    SPIA
00838  M01S00540.comcchg +++|          RJ     RPR
00839  M01S00541.comcchg +++|          EQ     SPI1        SEARCH LEVEL-0 BLOCK
00840  M01S00542.comcchg +++|
00841  M01S00543.comcchg +++| SPI2     SA2    B2-B1
00842  M01S00544.comcchg +++|          EQ     SPI4        READ LEVEL-1 BLOCK
00843  M01S00545.comcchg +++|
00844  M01S00546.comcchg +++| SPI3     SA2    SPIA
00845  M01S00547.comcchg +++|          ZR     X2,SPI8     IF PRECEDES VERY FIRST NUMBER
00846  M01S00548.comcchg +++| SPI4     RJ     RPR         READ BLOCK
00847  M01S00549.comcchg +++|          SA0    B1+
00848  M01S00550.comcchg +++|          SB6    SRUM+2      ADDRESS OF CHARGE NUMBER
00849  M01S00551.comcchg +++|          RJ     SIB         SEARCH LEVEL-1 BLOCK
00850  M01S00552.comcchg +++|          NZ     X2,SPI5     IF HIT
00851  M01S00553.comcchg +++|          SA2    PBUF+2
00852  M01S00554.comcchg +++|          ZR     X2,SPI8     IF NO MORE BLOCKS
00853  M01S00555.comcchg +++|          EQ     SPI4        READ NEXT BLOCK
00854  M01S00556.comcchg +++|
00855  M01S00557.comcchg +++| SPI5     RJ     CCE         CHECK CHARGE ENTRY
00856  M01S00558.comcchg +++|          SX2    X2
00857  M01S00559.comcchg +++|          ZR     X2,SPI8     IF NO LEVEL-2 CHAIN
00858  M01S00560.comcchg +++| SPI6     RJ     RPR         READ LEVEL-2 BLOCK
00859  M01S00561.comcchg +++|          SA0    2           SEARCH LEVEL-2 BLOCK
00860  M01S00562.comcchg +++|          SB6    SRUM+3      ADDRESS OF PROJECT NUMBER
00861  M01S00563.comcchg +++|          RJ     SIB
00862  M01S00564.comcchg +++|          NZ     X2,SPI7     IF HIT
00863  M01S00565.comcchg +++|          SA2    PBUF
00864  M01S00566.comcchg +++|          MX0    -12
00865  M01S00567.comcchg +++|          BX3    -X0*X2
00866  M01S00568.comcchg +++|          SA2    X3+PBUF-1
00867  M01S00569.comcchg +++|          ZR     X2,SPI8     IF NO MORE BLOCKS
00868  M01S00570.comcchg +++|          EQ     SPI6        READ NEXT LEVEL-2 BLOCK
00869  M01S00571.comcchg +++|

Seq #  *Modification Id* Act 
----------------------------+
00870  M02S00572.cchg4   ---| SPI7     SA1    SRUM+1

Seq #  *Modification Id* Act 
----------------------------+
00871  M02S00573.cchg4   ---|          SX6    X2          LEVEL-3 RANDOM ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
00872  M02S00574.cchg4   ---|          BX6    X6+X1

Seq #  *Modification Id* Act 
----------------------------+
00873  M02S00575.cchg4   ---|          SA6    A1
00874  M01S00001.cchg4   +++| SPI7     MX6    -18         SET LEVEL-3 BLOCK RANDOM ADDRESS
00875  M01S00002.cchg4   +++|          BX6    -X6*X2
00876  M01S00003.cchg4   +++|          SA6    SRUM+1
00877  M01S00576.comcchg +++|          RJ     RPR         READ FIRST LEVEL-3 BLOCK
00878  M01S00577.comcchg +++|          RJ     CPE         CHECK PROJECT ENTRY
00879  M01S00578.comcchg +++|          EQ     SPIX        RETURN
00880  M01S00579.comcchg +++|

Seq #  *Modification Id* Act 
----------------------------+
00881  M02S00580.v23l617 ---| SPI8     ERROR  ERRD        * INVALID CHARGE.*
00882  M01S00022.v23l617 +++| SPI8     ERROR  ERRD        * CHARGE NOT VALID.*
00883  M01S00581.comcchg +++|
00884  M01S00582.comcchg +++| SPI9     ERROR  ERRE        * DATA BASE ERROR.*
00885  M01S00583.comcchg +++|
00886  M01S00584.comcchg +++| SPIA     CON    0           PREVIOUS RANDOM INDEX TO NEXT LEVEL
00887  M01S00585.comcchg +++|          TITLE  COMCCHG - USER LIMIT PROCESSORS.
00888  M01S00586.comcchg +++| CLT      SPACE  4,15
00889  M01S00587.comcchg +++|**        CLT - CHECK USER LIMITS.
00890  M01S00588.comcchg +++|*
00891  M01S00589.comcchg +++|*         ENTRY  (X6) = ADDRESS OF LIMIT TABLE.
00892  M01S00590.comcchg +++|*
00893  M01S00591.comcchg +++|*         USES   A - 1, 5, 6.
00894  M01S00592.comcchg +++|*                X - 0, 1, 2, 3, 4, 5, 6.
00895  M01S00593.comcchg +++|*                B - 7.
00896  M01S00594.comcchg +++|*
00897  M01S00595.comcchg +++|*         CALLS  EIS.
00898  M01S00596.comcchg +++|
00899  M01S00597.comcchg +++|
00900  M01S00598.comcchg +++| CLT      SUBR               ENTRY/EXIT
00901  M01S00599.comcchg +++| CLT1     SA1    X6+         READ TABLE ENTRY
00902  M01S00600.comcchg +++|          ZR     X1,CLTX     IF END OF TABLE
00903  M01S00601.comcchg +++|          SA6    CLTA        SAVE CURRENT ADDRESS
00904  M01S00602.comcchg +++|          SB7    X1+         CRACK TABLE ENTRY
00905  M01S00603.comcchg +++|          SX0    7777B
00906  M01S00604.comcchg +++|          LX1    -18
00907  M01S00605.comcchg +++|          BX2    X0*X1       CURRENT VALUE
00908  M01S00606.comcchg +++|          LX1    -12
00909  M01S00607.comcchg +++|          BX3    X0*X1       LOWER LIMIT
00910  M01S00608.comcchg +++|          LX1    -12
00911  M01S00609.comcchg +++|          BX4    X0*X1       UPPER LIMIT
00912  M01S00610.comcchg +++|          SA5    X6+B1       ERROR MESSAGE
00913  M01S00611.comcchg +++|          RJ     EIS         EXECUTE PROCESSOR
00914  M01S00612.comcchg +++|          SA1    CLTA
00915  M01S00613.comcchg +++|          SX6    X1+2
00916  M01S00614.comcchg +++|          EQ     CLT1        PROCESS NEXT TABLE ENTRY
00917  M01S00615.comcchg +++|
00918  M01S00616.comcchg +++| CLTA     BSS    1           CURRENT TABLE ENTRY
00919  M01S00617.comcchg +++| GLP      SPACE  4,20
00920  M01S00618.comcchg +++|**        GLP - GENERAL LIMIT PROCESSOR.
00921  M01S00619.comcchg +++|*
00922  M01S00620.comcchg +++|*         THE LOWER 30 BITS AT THE CURRENT VALUE ADDRESS ARE COMPARED
00923  M01S00621.comcchg +++|*         WITH THE UPPER 30 BITS AT THE UPPER LIMIT ADDRESS. THE
00924  M01S00622.comcchg +++|*         CORRESPONDING RESOURCE IS CONSIDERED EXPENDED FOR THE
00925  M01S00623.comcchg +++|*         PROJECT IF THE FORMER EXCEEDS THE LATTER. HOWEVER, A LIMIT
00926  M01S00624.comcchg +++|*         OR LIMIT ADDRESS (RELATIVE) OF 0 IMPLIES NO RESTRICTION.
00927  M01S00625.comcchg +++|*
00928  M01S00626.comcchg +++|*         ENTRY  (X2) = CURRENT VALUE (RELATIVE) ADDRESS.
00929  M01S00627.comcchg +++|*                (X4) = UPPER LIMIT (RELATIVE) ADDRESS.
00930  M01S00628.comcchg +++|*                (X5) = ERROR MESSAGE (ABSOLUTE) ADDRESS.
00931  M01S00629.comcchg +++|*                (B5) = ADDRESS OF PROJECT ENTRY.
00932  M01S00630.comcchg +++|*
00933  M01S00631.comcchg +++|*         USES   X - 1, 2, 4.
00934  M01S00632.comcchg +++|*                A - 2, 4.
00935  M01S00633.comcchg +++|*                B - 6.
00936  M01S00634.comcchg +++|*
00937  M01S00635.comcchg +++|*         MACROS ERROR.
00938  M01S00636.comcchg +++|
00939  M01S00637.comcchg +++|
00940  M01S00638.comcchg +++| GLP      SUBR               ENTRY/EXIT
00941  M01S00639.comcchg +++|          ZR     X4,GLPX     IF NO RESTRICTION
00942  M01S00640.comcchg +++|          SA4    B5+X4       UPPER LIMIT
00943  M01S00641.comcchg +++|          LX4    30
00944  M01S00642.comcchg +++|          MX1    -30
00945  M01S00643.comcchg +++|          BX4    -X1*X4
00946  M01S00644.comcchg +++|          ZR     X4,GLPX     IF NO RESTRICTION
00947  M01S00645.comcchg +++|          SA2    B5+X2       CURRENT VALUE
00948  M01S00646.comcchg +++|          BX2    -X1*X2
00949  M01S00647.comcchg +++|          IX1    X4-X2
00950  M01S00648.comcchg +++|          PL     X1,GLPX     IF LIMIT NOT EXCEEDED
00951  M01S00649.comcchg +++|          SB6    X5
00952  M01S00650.comcchg +++|          ERROR  B6          RETURN SPECIFIED ERROR
00953  M01S00651.comcchg +++| TOD      SPACE  4,20
00954  M01S00652.comcchg +++|**        TOD - CHECK TIME OF DAY.
00955  M01S00653.comcchg +++|*
00956  M01S00654.comcchg +++|*         CURRENT TIME IS COMPARED WITH THE VALUES AT THE LOWER
00957  M01S00655.comcchg +++|*         (TIME ON) AND UPPER (TIME OFF) LIMIT ADDRESSES. THE
00958  M01S00656.comcchg +++|*         PROJECT IS AVAILABLE FOR USE IF THE CURRENT TIME IS
00959  M01S00657.comcchg +++|*         BETWEEN THE LIMIT VALUES. HOWEVER, TIME ON = TIME OFF
00960  M01S00658.comcchg +++|*         IMPLIES NO RESTRICTION.
00961  M01S00659.comcchg +++|*
00962  M01S00660.comcchg +++|*         ENTRY  (X2) = CURRENT TIME (ABSOLUTE) ADDRESS.
00963  M01S00661.comcchg +++|*                (X3) = TIME ON - TIME OFF WORD (RELATIVE) ADDRESS.
00964  M01S00662.comcchg +++|*                (X5) = ERROR MESSAGE (ABSOLUTE) ADDRESS.
00965  M01S00663.comcchg +++|*                (B5) = ADDRESS OF PROJECT ENTRY.
00966  M01S00664.comcchg +++|*
00967  M01S00665.comcchg +++|*         USES   X - 1, 2, 3, 4, 6.
00968  M01S00666.comcchg +++|*                A - 1, 2.
00969  M01S00667.comcchg +++|*
00970  M01S00668.comcchg +++|*         MACROS ERROR.
00971  M01S00669.comcchg +++|
00972  M01S00670.comcchg +++|
00973  M01S00671.comcchg +++| TOD      SUBR               ENTRY/EXIT
00974  M01S00672.comcchg +++|          SA1    B5+X3
00975  M01S00673.comcchg +++|          SA2    CDT
00976  M01S00674.comcchg +++|          SX2    X2
00977  M01S00675.comcchg +++|          SX3    X1          TIME OFF
00978  M01S00676.comcchg +++|          AX1    18          TIME ON
00979  M01S00677.comcchg +++|          SX1    X1
00980  M01S00678.comcchg +++|          IX4    X3-X1
00981  M01S00679.comcchg +++|          ZR     X4,TODX     IF NO LIMIT SET
00982  M01S00680.comcchg +++|          NG     X4,TOD1     IF NIGHT TIME USAGE
00983  M01S00681.comcchg +++|          IX6    X2-X1       CHECK TIME ON
00984  M01S00682.comcchg +++|          NG     X6,TOD2     IF BEFORE
00985  M01S00683.comcchg +++|          IX6    X2-X3       CHECK TIME OFF
00986  M01S00684.comcchg +++|          PL     X6,TOD2     IF AFTER
00987  M01S00685.comcchg +++|          EQ     TODX        RETURN
00988  M01S00686.comcchg +++|
00989  M01S00687.comcchg +++| TOD1     IX6    X2-X1       CHECK TIME ON
00990  M01S00688.comcchg +++|          PL     X6,TODX     IF AFTER
00991  M01S00689.comcchg +++|          IX6    X2-X3       CHECK TIME OFF
00992  M01S00690.comcchg +++|          NG     X6,TODX     IF BEFORE
00993  M01S00691.comcchg +++| TOD2     ERROR  X5          RETURN SPECIFIED ERROR MESSAGE
00994  M01S00692.comcchg +++|          TITLE  COMCCHG - MISCELLANEOUS ROUTINES.
00995  M01S00056.ns22000 +++| APR      SPACE  4,9
00996  M01S00057.ns22000 +++|**        APR - ATTACH PROFILE FILE.
00997  M01S00058.ns22000 +++|*
00998  M01S00059.ns22000 +++|*         EXIT   PROFILE FILE ATTACHED.
00999  M01S00060.ns22000 +++|*                TO *ERR* IF FILE NOT ATTACHED.
01000  M01S00061.ns22000 +++|*
01001  M01S00062.ns22000 +++|*         USES   A - 1, 2, 4, 6, 7.
01002  M01S00063.ns22000 +++|*                X - 0, 1, 2, 3, 4, 6, 7.
01003  M01S00064.ns22000 +++|*
01004  M01S00065.ns22000 +++|*         MACROS ATTACH, ERROR.
01005  M01S00066.ns22000 +++|
01006  M01S00067.ns22000 +++|
01007  M01S00068.ns22000 +++| APR      SUBR               ENTRY/EXIT
01008  M01S00069.ns22000 +++|          SA2    P           SET FET ADDRESS
01009  M01S00070.ns22000 +++|          SA1    A2+B1       REWIND FET POINTERS
01010  M01S00071.ns22000 +++|          SX3    3
01011  M01S00072.ns22000 +++|          SX7    ERRM        SET ERROR MESSAGE ADDRESS IN FET
01012  M01S00073.ns22000 +++|          SA4    P+CFPW
01013  M01S00074.ns22000 +++|          MX0    42
01014  M01S00075.ns22000 +++|          BX4    X0*X4
01015  M01S00076.ns22000 +++|          BX7    X4+X7
01016  M01S00077.ns22000 +++|          SA7    A4
01017  M01S00078.ns22000 +++|          BX6    X0*X2       CLEAR ALL EXCEPT LOCAL FILE NAME
01018  M01S00079.ns22000 +++|          BX6    X6+X3
01019  M01S00080.ns22000 +++|          SA6    A2          SET FILENAME AND INITIAL STATUS
01020  M01S00081.ns22000 +++|          MX7    0
01021  M01S00082.ns22000 +++|          SA7    P+6         CLEAR RANDOM ADDRESS AND INDEX WORDS
01022  M01S00083.ns22000 +++|          SX6    X1
01023  M01S00084.ns22000 +++|          SA7    A7+B1
01024  M01S00085.ns22000 +++|          SA6    A1+B1
01025  M01S00086.ns22000 +++|          SA6    A6+B1
01026  M01S00087.ns22000 +++|          ATTACH A2,,,,RM,,,IP,FA
01027  M01S00088.ns22000 +++|          SA2    X2          CHECK ATTACH STATUS
01028  M01S00089.ns22000 +++|          MX1    -8
01029  M01S00090.ns22000 +++|          AX2    10
01030  M01S00091.ns22000 +++|          BX2    -X1*X2
01031  M01S00092.ns22000 +++|          ZR     X2,APRX     IF FILE ATTACHED
01032  M01S00093.ns22000 +++| APR1     SX1    X2-/ERRMSG/FBS
01033  M01S00094.ns22000 +++|          NZ     X1,APR2     IF FILE NOT BUSY
01034  M01S00095.ns22000 +++|          ERROR  ERRF        * CHARGE FILE BUSY.*
01035  M01S00096.ns22000 +++|
01036  M01S00097.ns22000 +++| APR2     SX1    X2-/ERRMSG/PFN
01037  M01S00098.ns22000 +++|          NZ     X1,APR3     IF NOT * DEVICE UNAVAILABLE.*

Seq #  *Modification Id* Act 
----------------------------+
01038  M02S00099.v23l617 ---|          ERROR  ERRD        * INVALID CHARGE.*
01039  M01S00023.v23l617 +++|          ERROR  ERRD        * CHARGE NOT VALID.*
01040  M01S00100.ns22000 +++|
01041  M01S00101.ns22000 +++| APR3     ERROR  ERRE        * DATA BASE ERROR.*

Seq #  *Modification Id* Act 
----------------------------+
01042  M02S00693.261l700 ---| CCC      SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
01043  M02S00694.261l700 ---|**        CCC - CALCULATE CHARGE CONSTANTS.

Seq #  *Modification Id* Act 
----------------------------+
01044  M02S00695.261l700 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01045  M02S00696.261l700 ---|*         ENTRY  (A2) = START OF TABLE.

Seq #  *Modification Id* Act 
----------------------------+
01046  M02S00697.261l700 ---|*                (X1) = SRU INDICES.

Seq #  *Modification Id* Act 
----------------------------+
01047  M02S00698.261l700 ---|*                (X2) = FIRST WORD OF TABLE.

Seq #  *Modification Id* Act 
----------------------------+
01048  M02S00699.261l700 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01049  M02S00700.261l700 ---|*         EXIT   (X6) = SRU MULTIPLIER FOR CONTROL POINT AREA.

Seq #  *Modification Id* Act 
----------------------------+
01050  M02S00701.261l700 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01051  M02S00702.261l700 ---|*         USES   A - 2.

Seq #  *Modification Id* Act 
----------------------------+
01052  M02S00703.261l700 ---|*                X - 0, 1, 2, 3, 4, 5, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
01053  M02S00704.261l700 ---|*                B - 2.

Seq #  *Modification Id* Act 
----------------------------+
01054  M02S00705.261l700 ---|

Seq #  *Modification Id* Act 
----------------------------+
01055  M02S00706.261l700 ---|

Seq #  *Modification Id* Act 
----------------------------+
01056  M02S00707.261l700 ---| CCC      SUBR

Seq #  *Modification Id* Act 
----------------------------+
01057  M02S00708.261l700 ---|          LX1    30          POSITION SRU INDICES

Seq #  *Modification Id* Act 
----------------------------+
01058  M02S00709.261l700 ---|          MX0    -6

Seq #  *Modification Id* Act 
----------------------------+
01059  M02S00710.261l700 ---|          BX6    X6-X6

Seq #  *Modification Id* Act 
----------------------------+
01060  M02S00711.261l700 ---|          SB2    5

Seq #  *Modification Id* Act 
----------------------------+
01061  M02S00712.261l700 ---| CCC1     LX1    6

Seq #  *Modification Id* Act 
----------------------------+
01062  M02S00713.261l700 ---|          BX3    -X0*X1      INDEX FROM *PROFILA*  (I)

Seq #  *Modification Id* Act 
----------------------------+
01063  M02S00714.261l700 ---|          SX7    X2          DEFAULT MULTIPLIER

Seq #  *Modification Id* Act 
----------------------------+
01064  M02S00715.261l700 ---|          SX5    X3-77B

Seq #  *Modification Id* Act 
----------------------------+
01065  M02S00716.261l700 ---|          ZR     X5,CCC2     IF DEFAULT SET

Seq #  *Modification Id* Act 
----------------------------+
01066  M02S00717.261l700 ---|          BX7    X7-X7

Seq #  *Modification Id* Act 
----------------------------+
01067  M02S00718.261l700 ---|          ZR     X3,CCC2     IF ZERO INDEX

Seq #  *Modification Id* Act 
----------------------------+
01068  M02S00719.261l700 ---|

Seq #  *Modification Id* Act 
----------------------------+
01069  M02S00720.261l700 ---|*         CONVERT INDEX TO VALUE V = (I*(U-L)/64) + L

Seq #  *Modification Id* Act 
----------------------------+
01070  M02S00721.261l700 ---|

Seq #  *Modification Id* Act 
----------------------------+
01071  M02S00722.261l700 ---|          AX2    18

Seq #  *Modification Id* Act 
----------------------------+
01072  M02S00723.261l700 ---|          SX4    X2          LOWER BOUND (L)

Seq #  *Modification Id* Act 
----------------------------+
01073  M02S00724.261l700 ---|          AX2    18

Seq #  *Modification Id* Act 
----------------------------+
01074  M02S00725.261l700 ---|          SX5    X2          UPPER BOUND (U)

Seq #  *Modification Id* Act 
----------------------------+
01075  M02S00726.261l700 ---|          IX7    X5-X4       UPPER - LOWER

Seq #  *Modification Id* Act 
----------------------------+
01076  M02S00727.261l700 ---|          SX5    64

Seq #  *Modification Id* Act 
----------------------------+
01077  M02S00728.261l700 ---|          IX3    X7*X3       (U - L) * I

Seq #  *Modification Id* Act 
----------------------------+
01078  M02S00729.261l700 ---|          IX5    X3/X5       (U - L) * I/64

Seq #  *Modification Id* Act 
----------------------------+
01079  M02S00730.261l700 ---|          IX7    X5+X4       (U - L) * I/64  +  L

Seq #  *Modification Id* Act 
----------------------------+
01080  M02S00731.261l700 ---| CCC2     LX6    12          MERGE IN WITH REST OF VALUES

Seq #  *Modification Id* Act 
----------------------------+
01081  M02S00732.261l700 ---|          BX6    X6+X7

Seq #  *Modification Id* Act 
----------------------------+
01082  M02S00733.261l700 ---|          SA2    A2+B1       READ NEXT TABLE ENTRY

Seq #  *Modification Id* Act 
----------------------------+
01083  M02S00734.261l700 ---|          SB2    B2-B1

Seq #  *Modification Id* Act 
----------------------------+
01084  M02S00735.261l700 ---|          GT     B2,B0,CCC1  IF NOT LAST INDEX

Seq #  *Modification Id* Act 
----------------------------+
01085  M02S00736.261l700 ---|          EQ     CCCX        RETURN
01086  M01S00737.comcchg +++| EIS      SPACE  4,10
01087  M01S00738.comcchg +++|**        EIS - EXECUTE INDEXED SUBROUTINE.
01088  M01S00739.comcchg +++|*
01089  M01S00740.comcchg +++|*         ENTRY  (B7) = ADDRESS OF ROUTINE.
01090  M01S00741.comcchg +++|*
01091  M01S00742.comcchg +++|*         EXIT   TO ROUTINE.
01092  M01S00743.comcchg +++|*
01093  M01S00744.comcchg +++|*         USES   A - 1, 6.
01094  M01S00745.comcchg +++|*                X - 1, 6.
01095  M01S00746.comcchg +++|
01096  M01S00747.comcchg +++|
01097  M01S00748.comcchg +++| EIS      SUBR               ENTRY

Proceed to Part 1