Seq # *Modification Id* Act
----------------------------+
03159 M00S02725.profile +++| SA1 CBUF
03160 M00S02726.profile +++| ADDWRD TAB2,X1
03161 M00S02727.profile +++| SA1 CBUF+1
03162 M00S02728.profile +++| ADDWRD TAB2,X1
03163 M00S02729.profile +++| BX1 X1-X1
03164 M00S02730.profile +++| ADDWRD TAB2,X1
03165 M00S02731.profile +++| SX0 N
03166 M00S02732.profile +++| RJ PDE PROCESS DATA LEVEL ENTRY
03167 M00S02733.profile +++| RJ ILR INITIALIZE INSTALLATION LIMIT REGISTERS
03168 M00S02734.profile +++| MOVE C.TAB3,D3AA,X0
03169 M00S02735.profile +++| SX6 B1 INDICATE PROJECT NUMBER PRESENT
03170 M00S02736.profile +++| SA6 FPNP
03171 M00S02737.profile +++| MOVE 2,CBUF,X0+PRJW PROJECT NUMBER
03172 M00S02738.profile +++| MOVE 2,CBUF,PN
03173 M00S02739.profile +++| EQ DIP1 *MAIN* LOOP* RETURN
03174 M00S02740.profile +++|
03175 M00S02741.profile +++|* *UPDATE* MODE.
03176 M00S02742.profile +++|
03177 M00S02743.profile +++| PND2 RJ DQP DIRECTIVE QUEUE PROCESSOR
03178 M00S02744.profile +++| BX6 X6-X6 RE-SET FIELD SIZE
03179 M00S02745.profile +++| SA6 DF+2
03180 M00S02746.profile +++| RJ RCE REGENERATE CHARGE NUMBER QUEUE ENTRY
03181 M00S02747.profile +++| MOVE 2,CBUF,PN PROJECT NUMBER
03182 M00S02748.profile +++| RJ PEI PROJECT ENTRY INITIALIZATION
03183 M00S02749.profile +++| SA1 OP
03184 M00S02750.profile +++| SB2 X1-COPT
03185 M00S02751.profile +++| NZ X4,PND6 IF PROJECT NUMBER NOT FOUND
03186 M00S02752.profile +++| ZR B2,PND15 IF *CREATE* OPTION
03187 M00S02753.profile +++| SX7 X5
03188 M00S02754.profile +++| SX0 N
03189 M00S02755.profile +++| RJ ADB ADD DATA LEVEL BLOCK
03190 M00S02756.profile +++| MX0 1
03191 M00S02757.profile +++| SA1 DTII
03192 M00S02758.profile +++| SA2 A5+PTMW
03193 M00S02759.profile +++| SB3 X1-XPND
03194 M00S02760.profile +++| ZR B3,PND4 IF *PN*
03195 M00S02761.profile +++| SB3 X1-XAPN
03196 M00S02762.profile +++| ZR B3,PND3 IF *APN*
03197 M00S02763.profile +++| NG X2,PND16 IF PROJECT NUMBER INACTIVE
03198 M00S02764.profile +++| BX6 X0+X2 DEACTIVATE PROJECT NUMBER
03199 M00S02765.profile +++| SA6 A2
03200 M00S02766.profile +++| RJ UPC UPDATE PROJECT COUNT
03201 M00S02767.profile +++| SA6 A2
03202 M00S02768.profile +++| BX1 X4 UPDATE K-DISPLAY PROJECT COUNT
03203 M00S02769.profile +++| RJ CDD DECIMAL DISPLAY CODE CONVERSION
03204 M00S02770.profile +++| BX6 X4
03205 M00S02771.profile +++| SA6 DSCO+2
03206 M00S02772.profile +++| EQ PND12
03207 M00S02773.profile +++|
03208 M00S02774.profile +++| PND3 NG X2,PND5 IF PROJECT NUMBER INACTIVE
03209 M00S02775.profile +++| EQ PND17 ERROR
03210 M00S02776.profile +++|
03211 M00S02777.profile +++| PND4 PL X2,PND11 IF PROJECT NUMBER ACTIVE
| Line S02778 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03212 M01S02778.ns22000 ---| SA3 CV
03213 M01S02779.ns22000 ---| ZR X3,PND16 IF NOT *CV* OPTION
03214 M01S02780.ns22000 ---| SX6 XAPN SET TO *APN*
03215 M01S02781.ns22000 ---| SA6 DTII
| Line S00209 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03216 M01S00209.ns22000 +++| EQ PND16 ERROR
03217 M01S00210.ns22000 +++|
03218 M00S02782.profile +++| PND5 BX6 -X0*X2 ACTIVATE PROJECT NUMBER
03219 M00S02783.profile +++| SA6 A2
03220 M00S02784.profile +++| EQ PND9
03221 M00S02785.profile +++|
03222 M00S02786.profile +++| PND6 SA1 DTII
03223 M00S02787.profile +++| SB3 X1-XAPN
03224 M00S02788.profile +++| ZR B3,PND8 IF *APN*
03225 M00S02789.profile +++| SB3 X1-XDPN
03226 M00S02790.profile +++| ZR B3,PND18 IF *DPN*
| Line S02791 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03227 M01S02791.ns22000 ---| ZR B2,PND7 IF *CREATE* OPTION
03228 M01S02792.ns22000 ---| SA2 CV
03229 M01S02793.ns22000 ---| ZR X2,PND18 IF NOT *CV* OPTION
| Line S00211 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03230 M01S00211.ns22000 +++| NZ B2,PND18 IF NOT *CREATE* OPTION
03231 M00S02794.profile +++| PND7 SX6 XAPN SET TO *APN*
03232 M00S02795.profile +++| SA6 DTII
03233 M00S02796.profile +++| PND8 BX6 X6-X6
03234 M00S02797.profile +++| SA6 T3IE TABLE 3 INDEX OF ENTRY
03235 M00S02798.profile +++| SA6 L.TAB3 EMPTY TABLE 3
03236 M00S02799.profile +++| ALLOC TAB3,PUNW
03237 M00S02800.profile +++| SA5 X2
03238 M00S02801.profile +++| RJ ILR INITIALIZE INSTALLATION LIMIT REGISTERS
03239 M00S02802.profile +++| MOVE 2,PN,D3AA+PRJW
03240 M00S02803.profile +++| MOVE PUNW,D3AA,A5 INITIALIZE ENTRY TO DEFAULT
03241 M00S02804.profile +++|
03242 M00S02805.profile +++| PND9 SX1 XAPN
03243 M00S02806.profile +++| RJ UPC UPDATE PROJECT COUNT
03244 M00S02807.profile +++| LX6 18 VALIDATE AGAINST *PCL* VALUE
03245 M00S02808.profile +++| MX3 -12
03246 M00S02809.profile +++| BX3 -X3*X6
03247 M00S02810.profile +++| ZR X3,PND10 IF NO RESTRICTION
03248 M00S02811.profile +++| IX3 X3-X4
03249 M00S02812.profile +++| NG X3,PND19 IF *PCL* VALUE EXCEEDED
03250 M00S02813.profile +++| PND10 LX6 -18
03251 M00S02814.profile +++| SA6 A2
03252 M00S02815.profile +++| BX1 X4 UPDATE K-DISPLAY PROJECT COUNT
03253 M00S02816.profile +++| RJ CDD DECIMAL DISPLAY CODE CONVERSION
03254 M00S02817.profile +++| BX6 X4
03255 M00S02818.profile +++| SA6 DSCO+2
03256 M00S02819.profile +++| PND11 SX6 B1 INDICATE PROJECT NUMBER PRESENT
03257 M00S02820.profile +++| SA6 FPNP
03258 M00S02821.profile +++| PND12 RJ KOP K-DISPLAY OUTPUT FOR PROJECT NUMBER
03259 M00S02822.profile +++| BX6 X6-X6 RE-SET FIELD SIZE
03260 M00S02823.profile +++| SA6 DF+2
03261 M00S02824.profile +++| SA1 DTII
03262 M00S02825.profile +++| SA2 X1+TOPR
03263 M00S02826.profile +++| BX5 X5-X5
03264 M00S02827.profile +++| RJ MQE MAKE QUEUE ENTRY
03265 M00S02828.profile +++| JP DIP1 *MAIN LOOP* RETURN
03266 M00S02829.profile +++|
03267 M00S02830.profile +++| PND13 SB3 ERUH
03268 M00S02831.profile +++| EQ PND20
03269 M00S02832.profile +++| PND14 SB3 ERUA
03270 M00S02833.profile +++| EQ PND20
03271 M00S02834.profile +++| PND15 SB3 ERUS
03272 M00S02835.profile +++| EQ PND20
03273 M00S02836.profile +++| PND16 SB3 ERUO
03274 M00S02837.profile +++| EQ PND20
03275 M00S02838.profile +++| PND17 SB3 ERUJ
03276 M00S02839.profile +++| EQ PND20
03277 M00S02840.profile +++| PND18 SB3 ERUI
03278 M00S02841.profile +++| EQ PND20
03279 M00S02842.profile +++| PND19 SB3 ERUN
03280 M00S02843.profile +++| PND20 RJ ERU USER ERROR
03281 M00S02844.profile +++| JP DIP1 *MAIN LOOP* RETURN
| Line S00125 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03282 M01S00125.v23l617 +++|
03283 M01S00126.v23l617 +++|
03284 M01S00127.v23l617 +++| PNDA BSS 1 HOLD REGISTER CONTENTS
03285 M01S00128.v23l617 +++| PNDB BSS 1 HOLD REGISTER CONTENTS
03286 M00S02845.profile +++| TMD SPACE 4,10
03287 M00S02846.profile +++|** TMD - TIME DIRECTIVES.
03288 M00S02847.profile +++|*
03289 M00S02848.profile +++|* *TI*, *TO* DIRECTIVES.
03290 M00S02849.profile +++|* CONVERT TIME TO PACKED FORMAT PRODUCED BY *PDATE*.
03291 M00S02850.profile +++|*
03292 M00S02851.profile +++|* ENTRY (X2) = TABLE ENTRY (TOPR).
03293 M00S02852.profile +++|* (X4) = NUMBER OF CHARACTERS IN VALUE.
03294 M00S02853.profile +++|* (DTII) = TABLE INDEX.
03295 M00S02854.profile +++|*
03296 M00S02855.profile +++|* EXIT TO DIP1.
03297 M00S02856.profile +++|*
03298 M00S02857.profile +++|* CALLS CCP, CDV, CNV, MQE.
03299 M00S02858.profile +++|*
03300 M00S02859.profile +++|* USES ALL REGISTERS.
03301 M00S02860.profile +++|
03302 M00S02861.profile +++|
03303 M00S02862.profile +++| TMD BSS 0
03304 M00S02863.profile +++| RJ CDV CHECK DIRECTIVE AND VALUE
03305 M00S02864.profile +++| RJ CNV CONVERT NUMERIC VALUE
03306 M00S02865.profile +++| SA1 DTII
03307 M00S02866.profile +++| SA2 X1+TOPR
03308 M00S02867.profile +++| RJ CCP CHECK FOR CHARGE/PROJECT NUMBER REQUIRED
03309 M00S02868.profile +++| ZR X5,TMD1 IF ZERO VALUE
03310 M00S02869.profile +++| SX0 100 CALCULATE HOURS
03311 M00S02870.profile +++| BX3 X5
03312 M00S02871.profile +++| IX3 X3/X0
03313 M00S02872.profile +++| SX0 100
03314 M00S02873.profile +++| IX4 X0*X3 CALCULATE MINUTES
03315 M00S02874.profile +++| IX4 X5-X4
03316 M00S02875.profile +++| SX7 X4-60
03317 M00S02876.profile +++| PL X7,TMD2 IF TOO LARGE
03318 M00S02877.profile +++| LX3 6 POSITION HOURS
03319 M00S02878.profile +++| BX5 X3+X4 MERGE HOURS AND MINUTES
03320 M00S02879.profile +++| LX5 6 ASSUME ZERO SECONDS
03321 M00S02880.profile +++| TMD1 RJ MQE MAKE QUEUE ENTRY
03322 M00S02881.profile +++| JP DIP1 *MAIN LOOP* RETURN
03323 M00S02882.profile +++|
03324 M00S02883.profile +++| TMD2 SB3 ERUK
03325 M00S02884.profile +++| RJ ERU USER ERROR
03326 M00S02885.profile +++| JP DIP1 *MAIN LOOP* RETURN
03327 M00S02886.profile +++| UND SPACE 4,10
| Line S02887 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03328 M01S02887.v23l617 ---|** UND - USER NUMBER DIRECTIVE.
| Line S00129 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03329 M01S00129.v23l617 +++|** UND - USER NAME DIRECTIVE.
03330 M00S02888.profile +++|*
03331 M00S02889.profile +++|* *MU*, *AUN*, *DUN* DIRECTIVES.
03332 M00S02890.profile +++|*
03333 M00S02891.profile +++|* ENTRY (X1) = TABLE INDEX.
03334 M00S02892.profile +++|* (X2) = TABLE ENTRY (TOPR).
03335 M00S02893.profile +++|* (X4) = NUMBER OF CHARACTERS IN VALUE.
03336 M00S02894.profile +++|*
03337 M00S02895.profile +++|* EXIT TO DIP1.
03338 M00S02896.profile +++|*
03339 M00S02897.profile +++|* CALLS AUN, CCP, CDV, MQE.
03340 M00S02898.profile +++|*
03341 M00S02899.profile +++|* USES ALL REGISTERS.
03342 M00S02900.profile +++|
03343 M00S02901.profile +++|
03344 M00S02902.profile +++| UND BSS 0
| Line S02903 Modification History |
M01 (Removed by) | profi13 |
Seq # *Modification Id* Act
----------------------------+
03345 M01S02903.profi13 ---| RJ CDV CHECK DIRECTIVE AND VALUE
| Line S00043 Modification History |
M01 (Added by) | profi13 |
Seq # *Modification Id* Act
----------------------------+
03346 M01S00043.profi13 +++| NZ X4,UND0.1 IF ENTERED VALUE NOT NULL
03347 M01S00044.profi13 +++| SB2 X1-XMUN
03348 M01S00045.profi13 +++| NZ B2,UND0.1 IF NOT *MU*
03349 M01S00046.profi13 +++| SX4 1 ALLOW NULL VALUE
03350 M01S00047.profi13 +++| UND0.1 RJ CDV CHECK DIRECTIVE AND VALUE
03351 M00S02904.profile +++| RJ CCP CHECK FOR CHARGE/PROJECT NUMBER REQUIRED
| Line S02905 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03352 M01S02905.v23l617 ---| SA5 CBUF RIGHT JUSTIFY USER NUMBER
| Line S00130 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03353 M01S00130.v23l617 +++| SA5 CBUF RIGHT JUSTIFY USER NAME
03354 M00S02906.profile +++| LX5 -18
03355 M00S02907.profile +++| SB2 X1-XMUN
03356 M00S02908.profile +++| ZR B2,UND2 IF *MU*
03357 M00S02909.profile +++| SB2 X1-XDUN
03358 M00S02910.profile +++| ZR B2,UND1 IF *DUN*
03359 M00S02911.profile +++| SA3 UF
03360 M00S02912.profile +++| NZ X3,UND2 IF *UPDATE* MODE
03361 M00S02913.profile +++| BX1 X5
| Line S02914 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03362 M01S02914.v23l617 ---| RJ AUN ADD USER NUMBER
| Line S00131 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03363 M01S00131.v23l617 +++| RJ AUN ADD USER NAME
03364 M00S02915.profile +++| EQ DIP1
03365 M00S02916.profile +++|
03366 M00S02917.profile +++| UND1 SA3 OP
03367 M00S02918.profile +++| SB2 X3-COPT
03368 M00S02919.profile +++| ZR B2,UND3 IF *CREATE* OPTION
03369 M00S02920.profile +++| UND2 RJ MQE MAKE QUEUE ENTRY
03370 M00S02921.profile +++| JP DIP1 *MAIN LOOP* RETURN
03371 M00S02922.profile +++|
03372 M00S02923.profile +++| UND3 SB3 ERUA
03373 M00S02924.profile +++| RJ ERU USER ERROR
03374 M00S02925.profile +++| JP DIP1 *MAIN LOOP* RETURN
03375 M00S02926.profile +++| TITLE UPDATE/CREATE SUBROUTINES - INPUT PROCESSOR ROUTINES.
03376 M00S02927.profile +++| AMQ SPACE 4,10
03377 M00S02928.profile +++|** AMQ - ALLOCATE MEMORY TO DIRECTIVE QUEUE.
03378 M00S02929.profile +++|*
03379 M00S02930.profile +++|* THE DIRECTIVE QUEUE IS DYNAMICALLY EXPANDABLE, BEGINS
03380 M00S02931.profile +++|* AT LOCATION *MEML*, AND PRECEDES TABLE 0.
03381 M00S02932.profile +++|* *QINC* WORDS ARE ALLOCATED PER CALL.
03382 M00S02933.profile +++|*
03383 M00S02934.profile +++|* CALLS ATS, MVE.
03384 M00S02935.profile +++|*
03385 M00S02936.profile +++|* USES ALL REGISTERS EXCEPT X0.
03386 M00S02937.profile +++|
03387 M00S02938.profile +++|
03388 M00S02939.profile +++| AMQ SUBR ENTRY/EXIT
03389 M00S02940.profile +++| SA5 L.TAB0 SAVE TABLE 0 LENGTH
03390 M00S02941.profile +++| ALLOC TAB0,QINC
03391 M00S02942.profile +++| SB2 X2+QINC
03392 M00S02943.profile +++| MOVE X5,X2,B2
03393 M00S02944.profile +++| SX6 B2 UPDATE TABLE 0 FWA AND LOWER MEMORY LIMIT
03394 M00S02945.profile +++| SA6 F.TAB0
03395 M00S02946.profile +++| SA6 LM
03396 M00S02947.profile +++| BX6 X5 RESTORE TABLE 0 LENGTH
03397 M00S02948.profile +++| SA6 A5
03398 M00S02949.profile +++| SA1 QMAX UPDATE QUEUE MAXIMUM SIZE
03399 M00S02950.profile +++| SX6 X1+QINC
03400 M00S02951.profile +++| SA6 A1
03401 M00S02952.profile +++| EQ AMQX
03402 M00S02953.profile +++| CCP SPACE 4,10
03403 M00S02954.profile +++|** CCP - CHECK FOR CHARGE/PROJECT NUMBER REQUIRED.
03404 M00S02955.profile +++|*
03405 M00S02956.profile +++|* LEVEL-1 DIRECTIVES REQUIRE A CHARGE NUMBER IN EFFECT,
03406 M00S02957.profile +++|* AND LEVEL-3 DIRECTIVES A PROJECT NUMBER.
03407 M00S02958.profile +++|* IF AN ERROR IS DETECTED THE APPROPRIATE MESSAGE IS ISSUED.
03408 M00S02959.profile +++|*
03409 M00S02960.profile +++|* ENTRY (X2) = TABLE ENTRY (TOPR).
03410 M00S02961.profile +++|*
03411 M00S02962.profile +++|* EXIT TO CCPX, IF NO ERROR.
03412 M00S02963.profile +++|* TO DIP1, IF ERROR DETECTED.
03413 M00S02964.profile +++|*
03414 M00S02965.profile +++|* CALLS NONE, IF NO ERROR.
03415 M00S02966.profile +++|*
03416 M00S02967.profile +++|* USES IF NO ERROR-
03417 M00S02968.profile +++|* X - 3, 4.
03418 M00S02969.profile +++|* A - 4.
03419 M00S02970.profile +++|
03420 M00S02971.profile +++|
03421 M00S02972.profile +++| CCP SUBR ENTRY/EXIT
03422 M00S02973.profile +++| BX3 X2
03423 M00S02974.profile +++| LX3 5
03424 M00S02975.profile +++| PL X3,CCP1 IF NOT LEVEL-3 DIRECTIVE
03425 M00S02976.profile +++| SA4 FPNP
03426 M00S02977.profile +++| NZ X4,CCPX IF PROJECT NUMBER PRESENT
03427 M00S02978.profile +++| EQ CCP2 ERROR
03428 M00S02979.profile +++|
03429 M00S02980.profile +++| CCP1 SA4 FCNP
03430 M00S02981.profile +++| NZ X4,CCPX IF CHARGE NUMBER PRESENT
03431 M00S02982.profile +++|
03432 M00S02983.profile +++| SB3 ERUH ERROR
03433 M00S02984.profile +++| EQ CCP3
03434 M00S02985.profile +++|
03435 M00S02986.profile +++| CCP2 SB3 ERUM
03436 M00S02987.profile +++| CCP3 RJ ERU USER ERROR
03437 M00S02988.profile +++| JP DIP1 *MAIN LOOP* RETURN
03438 M00S02989.profile +++| CDV SPACE 4,10
03439 M00S02990.profile +++|** CDV - CHECK DIRECTIVE AND VALUE.
03440 M00S02991.profile +++|*
03441 M00S02992.profile +++|* CHECK NUMBER OF CHARACTERS IN DIRECTIVE,S PARAMETER VALUE
03442 M00S02993.profile +++|* AND DIRECTIVE,S AUTHORIZATION. IF AN ERROR IS DETECTED,
03443 M00S02994.profile +++|* THE APPROPRIATE MESSAGE IS ISSUED.
03444 M00S02995.profile +++|*
03445 M00S02996.profile +++|* ENTRY (X2) = TABLE ENTRY (TOPR).
03446 M00S02997.profile +++|* (X4) = NUMBER OF CHARACTERS IN VALUE.
03447 M00S02998.profile +++|*
03448 M00S02999.profile +++|* EXIT TO CDVX, IF NO ERROR.
03449 M00S03000.profile +++|* TO DIP1, IF ERROR DETECTED.
03450 M00S03001.profile +++|*
03451 M00S03002.profile +++|* CALLS NONE, IF NO ERROR.
03452 M00S03003.profile +++|*
03453 M00S03004.profile +++|* USES IF NO ERROR-
03454 M00S03005.profile +++|* X - 3, 4, 5, 6.
03455 M00S03006.profile +++|* A - 4.
03456 M00S03007.profile +++|
03457 M00S03008.profile +++|
03458 M00S03009.profile +++| CDV SUBR ENTRY/EXIT
03459 M00S03010.profile +++| ZR X4,CDV1 IF NO CHARACTERS ASSEMBLED
03460 M00S03011.profile +++| BX3 X2
03461 M00S03012.profile +++| LX3 -42
03462 M00S03013.profile +++| MX5 -6
03463 M00S03014.profile +++| BX6 -X5*X3
03464 M00S03015.profile +++| IX6 X6-X4
03465 M00S03016.profile +++| NG X6,CDV2 IF TOO MANY CHARACTERS
03466 M00S03017.profile +++| LX3 -6
03467 M00S03018.profile +++| BX3 -X5*X3
03468 M00S03019.profile +++| SA4 ACCC
03469 M00S03020.profile +++| IX3 X3-X4
03470 M00S03021.profile +++| PL X3,CDVX IF DIRECTIVE AUTHORIZED
03471 M00S03022.profile +++|
03472 M00S03023.profile +++| SB3 ERUC
03473 M00S03024.profile +++| EQ CDV3
03474 M00S03025.profile +++| CDV1 SB3 ERUQ
03475 M00S03026.profile +++| EQ CDV3
03476 M00S03027.profile +++| CDV2 SB3 ERUB
03477 M00S03028.profile +++| CDV3 RJ ERU USER ERROR
03478 M00S03029.profile +++| EQ DIP1 *MAIN LOOP* RETURN
03479 M00S03030.profile +++| CKU SPACE 4,10
03480 M00S03031.profile +++|** CKU - CHECK FOR K-DISPLAY UPDATE.
03481 M00S03032.profile +++|*
03482 M00S03033.profile +++|* ENTRY (X1) = (DTII) = TABLE INDEX.
03483 M00S03034.profile +++|* (B7) = FWA OF PERTINENT TABLE OF INDICES (TOI).
03484 M00S03035.profile +++|* (X5) = FIELD,S NEW VALUE.
03485 M00S03036.profile +++|*
| Line S03037 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03486 M01S03037.ns22000 ---|* CALLS CED, PVF.
| Line S00212 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03487 M01S00212.ns22000 +++|* CALLS CED, PVF, SFN.
03488 M00S03038.profile +++|*
03489 M00S03039.profile +++|* USES ALL REGISTERS EXCEPT A0. RESTORES X5, X1 IF USED.
03490 M00S03040.profile +++|
03491 M00S03041.profile +++|
03492 M00S03042.profile +++| CKU5 BX1 X0
03493 M00S03043.profile +++| SA4 CBUF
03494 M00S03044.profile +++| RJ CED CONVERT ENTRY TO DISPLAY CODE
03495 M00S03045.profile +++| RJ PVF PLACE DISPLAY CODE VALUE IN FIELD
03496 M00S03046.profile +++| CKU6 BX5 X0 RESTORE
03497 M00S03047.profile +++| SA1 DTII
03498 M00S03048.profile +++|
03499 M00S03049.profile +++| CKU SUBR ENTRY/EXIT
03500 M00S03050.profile +++| SA3 OP
03501 M00S03051.profile +++| SX3 X3-KOPT
03502 M00S03052.profile +++| NZ X3,CKUX IF NOT *K-DISPLAY* OPTION
03503 M00S03053.profile +++| BX0 X5 SAVE
03504 M00S03054.profile +++| MX7 12
03505 M00S03055.profile +++| LX7 -12
03506 M00S03056.profile +++| CKU1 SA5 B7
03507 M00S03057.profile +++| ZR X5,CKU2 IF END OF TABLE
03508 M00S03058.profile +++| BX3 X7*X5
03509 M00S03059.profile +++| LX3 24
03510 M00S03060.profile +++| BX3 X1-X3
03511 M00S03061.profile +++| SB7 B7+B1
03512 M00S03062.profile +++| NZ X3,CKU1 IF NO MATCH
03513 M00S03063.profile +++| EQ CKU5
03514 M00S03064.profile +++|
03515 M00S03065.profile +++| CKU2 SB6 DSCE+2 PRESET DISPLAY ADDRESS
03516 M00S03066.profile +++| SX3 X1-XCEX
03517 M00S03067.profile +++| ZR X3,CKU3 IF *CEX*
03518 M00S03068.profile +++| SX3 X1-XPEX
| Line S03069 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03519 M01S03069.ns22000 ---| NZ X3,ERD9 IF NOT *PEX*
| Line S00213 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03520 M01S00213.ns22000 +++| NZ X3,CKU4.1 IF NOT *PEX*
03521 M00S03070.profile +++| SB6 DSPE+2
03522 M00S03071.profile +++| CKU3 SA1 =10H UNDEFINED
03523 M00S03072.profile +++| BX6 X1
03524 M00S03073.profile +++| ZR X0,CKU4 IF ZERO VALUE
03525 M00S03074.profile +++| EDATE X0
03526 M00S03075.profile +++| CKU4 SA6 B6
03527 M00S03076.profile +++| EQ CKU6
| Line S00214 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03528 M01S00214.ns22000 +++|
03529 M01S00215.ns22000 +++| CKU4.1 SB6 DSPP+1 CHECK *PPW* DIRECTIVE
03530 M01S00216.ns22000 +++| SX3 X1-XPPW
03531 M01S00217.ns22000 +++| ZR X3,CKU4.2 IF *PPW* DIRECTIVE
03532 M01S00218.ns22000 +++| SB6 DSEP+1 CHECK *EPW* DIRECTIVE
03533 M01S00219.ns22000 +++| SX3 X1-XEPW
03534 M01S00220.ns22000 +++| ZR X3,CKU4.2 IF *EPW* DIRECTIVE
03535 M01S00221.ns22000 +++| SB6 DSPO+1 CHECK *PCR* DIRECTIVE
03536 M01S00222.ns22000 +++| SX3 X1-XPCR
03537 M01S00223.ns22000 +++| ZR X3,CKU4.4 IF *PCR* DIRECTIVE
03538 M01S00224.ns22000 +++| EQ ERD9 DATA BASE ERROR
03539 M01S00225.ns22000 +++|
03540 M01S00226.ns22000 +++| CKU4.2 SA1 CBUF PROCESS PASSWORD
03541 M01S00227.ns22000 +++| SA2 =10H
03542 M01S00228.ns22000 +++| ZR X1,CKU4.3 IF EMPTY INPUT
03543 M01S00229.ns22000 +++| SA2 =10H*******
03544 M01S00230.ns22000 +++| CKU4.3 BX6 X2
03545 M01S00231.ns22000 +++| EQ CKU4.5 SET VALUE IN DISPLAY BUFFER
03546 M01S00232.ns22000 +++|
03547 M01S00233.ns22000 +++| CKU4.4 SA1 CBUF
03548 M01S00234.ns22000 +++| RJ SFN SPACE FILL NAME
03549 M01S00235.ns22000 +++| CKU4.5 SA6 B6
03550 M01S00236.ns22000 +++| EQ CKU6 RESTORE
03551 M00S03077.profile +++| CNV SPACE 4,10
03552 M00S03078.profile +++|** CNV - CONVERT NUMERIC VALUE FROM DISPLAY CODE TO BINARY.
03553 M00S03079.profile +++|*
03554 M00S03080.profile +++|* VALUES ALLOWED AND HAVING SIGNS ARE INCREMENTED OR
03555 M00S03081.profile +++|* DECREMENTED FROM FIELD,S CURRENT VALUE.
03556 M00S03082.profile +++|* IF AN ERROR IS DETECTED THE APPROPRIATE MESSAGE IS ISSUED.
03557 M00S03083.profile +++|*
03558 M00S03084.profile +++|* ENTRY (X1) = (DTII) = TABLE INDEX.
03559 M00S03085.profile +++|* (X2) = TABLE ENTRY (TOPR).
03560 M00S03086.profile +++|* (DF) = MAXIMUM VALUE.
03561 M00S03087.profile +++|* (CBUF) = VALUE TO CONVERT (LEFT JUSTIFIED).
03562 M00S03088.profile +++|*
03563 M00S03089.profile +++|* EXIT TO CNVX, IF NO ERROR.
03564 M00S03090.profile +++|* (X5) = FIELD,S NEW VALUE.
03565 M00S03091.profile +++|* TO DIP1, IF ERROR DETECTED.
03566 M00S03092.profile +++|*
03567 M00S03093.profile +++|* CALLS DXB, GFV.
03568 M00S03094.profile +++|*
03569 M00S03095.profile +++|* USES ALL REGISTERS EXCEPT A0, X0.
03570 M00S03096.profile +++|
03571 M00S03097.profile +++|
03572 M00S03098.profile +++| CNV8 MX1 -42 INSURE 42 BIT FIELD
03573 M00S03099.profile +++| BX5 -X1*X6
03574 M00S03100.profile +++|
03575 M00S03101.profile +++| CNV SUBR ENTRY/EXIT
03576 M00S03102.profile +++| SB6 B0 PRESET NO INCREMENT-DECREMENT
03577 M00S03103.profile +++| SA5 CBUF
03578 M00S03104.profile +++| LX2 1
03579 M00S03105.profile +++| PL X2,CNV3 IF SIGN NOT ALLOWED
03580 M00S03106.profile +++| MX7 6
03581 M00S03107.profile +++| BX2 X7*X5
03582 M00S03108.profile +++| SA3 =1L+
03583 M00S03109.profile +++| BX3 X2-X3
03584 M00S03110.profile +++| ZR X3,CNV1 IF *+* SIGN
03585 M00S03111.profile +++| SA3 =1L-
03586 M00S03112.profile +++| BX3 X2-X3
03587 M00S03113.profile +++| NZ X3,CNV3 IF NOT *-* SIGN
03588 M00S03114.profile +++| SB6 -B1 DECREMENT
03589 M00S03115.profile +++| EQ CNV2
03590 M00S03116.profile +++|
03591 M00S03117.profile +++| CNV1 SB6 B1 INCREMENT
03592 M00S03118.profile +++| CNV2 BX5 -X7*X5 TAKE OUT SIGN
03593 M00S03119.profile +++| LX5 6
03594 M00S03120.profile +++| CNV3 SB7 B1
03595 M00S03121.profile +++| RJ DXB DISPLAY CODE TO BINARY CONVERSION
03596 M00S03122.profile +++| NZ X4,CNV7 IF ERROR
03597 M00S03123.profile +++| ZR B6,CNV6 IF NO INCREMENT/DECREMENT
03598 M00S03124.profile +++| SA1 DTII
03599 M00S03125.profile +++| SX7 X1
03600 M00S03126.profile +++| RJ GFV GET FIELD,S VALUE
03601 M00S03127.profile +++| NG B6,CNV5 IF DECREMENT
03602 M00S03128.profile +++| IX6 X1+X6 INCREMENT
03603 M00S03129.profile +++| MX2 -12
03604 M00S03130.profile +++| NZ X1,CNV6 IF NOT PREVIOUSLY UNLIMITED
03605 M00S03131.profile +++| SA1 X7+TOPR GET TABLE ENTRY
03606 M00S03132.profile +++| SA3 TOIA-1 SEARCH FOR TOI TABLE ENTRY
03607 M00S03133.profile +++| LX1 3
03608 M00S03134.profile +++| NG X1,CNV4 IF LEVEL-1 ENTRY
03609 M00S03135.profile +++| SA3 TOIC-1 SEARCH LEVEL-3 TABLE
03610 M00S03136.profile +++| CNV4 SA3 A3+B1
03611 M00S03137.profile +++| ZR X3,CNV6 IF END OF TABLE
03612 M00S03138.profile +++| LX3 24
03613 M00S03139.profile +++| BX1 -X2*X3
03614 M00S03140.profile +++| IX1 X1-X7
03615 M00S03141.profile +++| NZ X1,CNV4 IF NO MATCH
03616 M00S03142.profile +++| LX3 -20
03617 M00S03143.profile +++| PL X3,CNV6 IF ZERO VALUE NOT UNLIMITED
03618 M00S03144.profile +++| BX6 X6-X6 LEAVE REGISTER UNLIMITED
03619 M00S03145.profile +++| EQ CNV6
03620 M00S03146.profile +++|
03621 M00S03147.profile +++| CNV5 IX6 X1-X6
03622 M00S03148.profile +++| PL X6,CNV6 IF NOT NEGATIVE RESULT
03623 M00S03149.profile +++| BX6 X6-X6 SET RESULT OF ZERO
03624 M00S03150.profile +++| CNV6 SA1 DF MAXIMUM VALUE
03625 M00S03151.profile +++| ZR X1,CNV8 IF INFINITE VALUE ALLOWED
03626 M00S03152.profile +++| IX1 X1-X6
03627 M00S03153.profile +++| PL X1,CNV8 IF MAXIMUM VALUE NOT EXCEEDED
03628 M00S03154.profile +++|
03629 M00S03155.profile +++| CNV7 SB3 ERUK
03630 M00S03156.profile +++| RJ ERU USER ERROR
03631 M00S03157.profile +++| JP DIP1 *MAIN LOOP* RETURN
03632 M00S03158.profile +++| ILR SPACE 4,10
03633 M00S03159.profile +++|** ILR - INITIALIZE INSTALLATION LIMIT REGISTERS.
03634 M00S03160.profile +++|*
03635 M00S03161.profile +++|* CALLS CIV.
03636 M00S03162.profile +++|*
03637 M00S03163.profile +++|* USES X - 1, 2, 3, 4, 6, 7.
03638 M00S03164.profile +++|* A - 1, 2, 3, 4, 6.
03639 M00S03165.profile +++|* B - 2.
03640 M00S03166.profile +++|
03641 M00S03167.profile +++|
03642 M00S03168.profile +++| ILR SUBR ENTRY/EXIT
03643 M00S03169.profile +++| SA2 F.TAB1 LEVEL-1 INDICES
03644 M00S03170.profile +++| SA3 T1IE
03645 M00S03171.profile +++| IX2 X2+X3
03646 M00S03172.profile +++| SA2 X2+CLCW
| Line S00001 Modification History |
M01 (Added by) | profi4 |
Seq # *Modification Id* Act
----------------------------+
03647 M01S00001.profi4 +++| BX6 X2
03648 M00S03173.profile +++| SB2 8
| Line S03174 Modification History |
M01 (Removed by) | profi4 |
Seq # *Modification Id* Act
----------------------------+
03649 M01S03174.profi4 ---| ILR1 LX2 -6
| Line S00002 Modification History |
M01 (Added by) | profi4 |
Seq # *Modification Id* Act
----------------------------+
03650 M01S00002.profi4 +++| SA6 ILRA SAVE LIMIT REGISTERS DEFAULT INDICES
03651 M01S00003.profi4 +++| ILR1 SA2 ILRA
03652 M01S00004.profi4 +++| LX2 -6
03653 M00S03175.profile +++| MX7 -6
| Line S00005 Modification History |
M01 (Added by) | profi4 |
Seq # *Modification Id* Act
----------------------------+
03654 M01S00005.profi4 +++| BX6 X2
03655 M00S03176.profile +++| BX3 -X7*X2
03656 M00S03177.profile +++| SA4 B2+TISL
| Line S00006 Modification History |
M01 (Added by) | profi4 |
Seq # *Modification Id* Act
----------------------------+
03657 M01S00006.profi4 +++| SA6 A2
03658 M00S03178.profile +++| RJ CIV CONVERT INDEX TO VALUE
03659 M00S03179.profile +++| PL X1,ILR2 IF NOT UNLIMITED
03660 M00S03180.profile +++| SX1 B0+
03661 M00S03181.profile +++| ILR2 LX1 30
03662 M00S03182.profile +++| MX7 30
03663 M00S03183.profile +++| BX6 X7*X1
03664 M00S03184.profile +++| SA6 B2+D3AA+PISW
03665 M00S03185.profile +++| SB2 B2-B1
03666 M00S03186.profile +++| PL B2,ILR1 IF MORE REGISTERS TO INITIALIZE
03667 M00S03187.profile +++| EQ ILRX
| Line S00007 Modification History |
M01 (Added by) | profi4 |
Seq # *Modification Id* Act
----------------------------+
03668 M01S00007.profi4 +++|
03669 M01S00008.profi4 +++|
03670 M01S00009.profi4 +++| ILRA BSS 1 LIMIT REGISTERS DEFAULT INDICES
03671 M00S03188.profile +++| KOC SPACE 4,10
03672 M00S03189.profile +++|** KOC - K-DISPLAY OUTPUT FOR CHARGE NUMBER ENTRY.
03673 M00S03190.profile +++|*
03674 M00S03191.profile +++|* ENTRY (X3) = FWA OF CHARGE ENTRY.
03675 M00S03192.profile +++|* (CN) = CHARGE NUMBER.
03676 M00S03193.profile +++|* (T1IE) = TABLE 1 INDEX OF ENTRY.
03677 M00S03194.profile +++|*
| Line S03195 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03678 M01S03195.v23l617 ---|* CALLS CPV, SFC, SFN.
| Line S00132 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03679 M01S00132.v23l617 +++|* CALLS CPV, SFC, SFN, SPT.
03680 M00S03196.profile +++|*
03681 M00S03197.profile +++|* USES ALL REGISTERS EXCEPT A0, X0.
03682 M00S03198.profile +++|
03683 M00S03199.profile +++|
03684 M00S03200.profile +++| KOC SUBR ENTRY/EXIT
03685 M00S03201.profile +++| SA1 OP
03686 M00S03202.profile +++| SX6 X1-KOPT
03687 M00S03203.profile +++| NZ X6,KOCX IF NOT *K-DISPLAY* OPTION
| Line S03204 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03688 M01S03204.v23l617 ---| SA6 DSPN DISABLE K-DISPLAY FOR PROJECT NUMBER
03689 M00S03205.profile +++| RJ SFC CHARGE ENTRY SPECIAL FIELDS
03690 M00S03206.profile +++| SA1 CN CHARGE NUMBER
03691 M00S03207.profile +++| RJ SFN SPACE FILL NAME
03692 M00S03208.profile +++| SA6 DSCN+2
03693 M00S03209.profile +++| SA5 TOIA
03694 M00S03210.profile +++| RJ CPV CONVERT AND PLACE VALUES
03695 M00S03211.profile +++| SA1 KSAV+1 ENABLE K-DISPLAY FOR CHARGE NUMBER
03696 M00S03212.profile +++| BX6 X1
03697 M00S03213.profile +++| SA6 DSCN
| Line S00133 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03698 M01S00133.v23l617 +++| SX1 B0+
03699 M01S00134.v23l617 +++| RJ SPT SET PAGE TABLE
03700 M00S03214.profile +++| EQ KOCX
03701 M00S03215.profile +++| KOP SPACE 4,10
03702 M00S03216.profile +++|** KOP - K-DISPLAY OUTPUT FOR PROJECT NUMBER ENTRY.
03703 M00S03217.profile +++|*
03704 M00S03218.profile +++|* ENTRY (A5) = FWA OF PROJECT ENTRY.
03705 M00S03219.profile +++|* (PN - PN+1) = PROJECT NUMBER.
03706 M00S03220.profile +++|* (T3IE) = TABLE 3 INDEX OF ENTRY.
03707 M00S03221.profile +++|*
| Line S03222 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03708 M01S03222.v23l617 ---|* CALLS CPV, SFN, SFP.
| Line S00135 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03709 M01S00135.v23l617 +++|* CALLS CPV, SFN, SFP, SPT.
03710 M00S03223.profile +++|*
03711 M00S03224.profile +++|* USES ALL REGISTERS EXCEPT A0, X0.
03712 M00S03225.profile +++|
03713 M00S03226.profile +++|
03714 M00S03227.profile +++| KOP SUBR ENTRY/EXIT
03715 M00S03228.profile +++| SA1 OP
03716 M00S03229.profile +++| SX6 X1-KOPT
03717 M00S03230.profile +++| NZ X6,KOPX IF NOT *K-DISPLAY* OPTION
03718 M00S03231.profile +++| RJ SFP PROJECT ENTRY SPECIAL FIELDS
| Line S03232 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03719 M01S03232.v23l617 ---| SA1 PN PROJECT NUMBER
| Line S00136 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03720 M01S00136.v23l617 +++| SA1 PN SET PROJECT NUMBER IN K-DISPLAY FIELDS
03721 M00S03233.profile +++| RJ SFN SPACE FILL NAME
03722 M00S03234.profile +++| SA6 DSPN+2
| Line S00137 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03723 M01S00137.v23l617 +++| SA6 DSP2+2
03724 M00S03235.profile +++| SA1 A1+B1
03725 M00S03236.profile +++| RJ SFN SPACE FILL NAME
| Line S03237 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03726 M01S03237.v23l617 ---| SA6 A6+B1
| Line S00138 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03727 M01S00138.v23l617 +++| SA6 DSPN+3
03728 M01S00139.v23l617 +++| SA6 DSP2+3
03729 M00S03238.profile +++| SA5 TOID
03730 M00S03239.profile +++| RJ CPV CONVERT AND PLACE VALUES
| Line S03240 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03731 M01S03240.v23l617 ---| SA1 KSAV ENABLE K-DISPLAY FOR PROJECT NUMBER
03732 M01S03241.v23l617 ---| BX6 X1
03733 M01S03242.v23l617 ---| SA6 DSPN
| Line S00140 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03734 M01S00140.v23l617 +++| SX1 B1+
03735 M01S00141.v23l617 +++| RJ SPT SET PAGE TABLE
03736 M00S03243.profile +++| EQ KOPX
| Line S00142 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03737 M01S00142.v23l617 +++| SPT SPACE 4,10
03738 M01S00143.v23l617 +++|** SPT - SET PAGE TABLE.
03739 M01S00144.v23l617 +++|*
03740 M01S00145.v23l617 +++|* ENTRY (X1) = 0, INITIAL/CHARGE PAGE TABLE.
03741 M01S00146.v23l617 +++|* = 1, CHARGE/PROJECT PAGE TABLE.
03742 M01S00147.v23l617 +++|*
03743 M01S00148.v23l617 +++|* USES X - 1, 2, 3, 6, 7.
03744 M01S00149.v23l617 +++|* A - 1, 2, 3, 6, 7.
03745 M01S00150.v23l617 +++|
03746 M01S00151.v23l617 +++|
03747 M01S00152.v23l617 +++| SPT SUBR ENTRY/EXIT
03748 M01S00153.v23l617 +++| SX6 SPTA SET CURRENT PAGE TABLE TO INITIAL/CHARGE
03749 M01S00154.v23l617 +++| MX2 42
03750 M01S00155.v23l617 +++| ZR X1,SPT1 IF INITIAL/CHARGE PAGE TABLE
03751 M01S00156.v23l617 +++| SA3 SPTB RESET PAGE TABLE HEADER TO PAGE ONE
03752 M01S00157.v23l617 +++| LX3 30
03753 M01S00158.v23l617 +++| BX3 X2*X3
03754 M01S00159.v23l617 +++| SX6 B1
03755 M01S00160.v23l617 +++| BX6 X6+X3
03756 M01S00161.v23l617 +++| LX6 30
03757 M01S00162.v23l617 +++| SA6 A3
03758 M01S00163.v23l617 +++| SA1 KSAV RESTORE PAGE NUMBER LINE
03759 M01S00164.v23l617 +++| SX6 SPTB SET CURRENT PAGE TABLE TO PROJECT DISPLAY
03760 M01S00165.v23l617 +++| SPT1 BX7 X1 FORMAT PAGE NUMBER LINE
03761 M01S00166.v23l617 +++| SA6 KPAG
03762 M01S00167.v23l617 +++| SA7 KPLN
03763 M01S00168.v23l617 +++| SA1 KIA SET CURRENT MESSAGE AREAS
03764 M01S00169.v23l617 +++| SX3 DSA
03765 M01S00170.v23l617 +++| BX6 X1*X2
03766 M01S00171.v23l617 +++| BX6 X3+X6
03767 M01S00172.v23l617 +++| SA6 A1+
03768 M01S00173.v23l617 +++| SX6 MESA+1
03769 M01S00174.v23l617 +++| SX7 INPA+1
03770 M01S00175.v23l617 +++| SA6 M1
03771 M01S00176.v23l617 +++| SA7 IL
03772 M01S00177.v23l617 +++| EQ SPTX RETURN
03773 M01S00178.v23l617 +++|
03774 M01S00179.v23l617 +++|
03775 M01S00180.v23l617 +++|* INITIAL AND CHARGE DISPLAY PAGE TABLE.
03776 M01S00181.v23l617 +++|
03777 M01S00182.v23l617 +++| SPTA PAGT DSA,MESA+1,INPA+1 LEFT SCREEN PAGE 1
03778 M01S00183.v23l617 +++| PAGT
03779 M01S00184.v23l617 +++| PAGT DSD RIGHT SCREEN
03780 M01S00185.v23l617 +++| PAGT *
03781 M01S00186.v23l617 +++|
03782 M01S00187.v23l617 +++|* PROJECT DISPLAY PAGE TABLE.
03783 M01S00188.v23l617 +++|
03784 M01S00189.v23l617 +++| SPTB PAGT DSA,MESA+1,INPA+1 LEFT SCREEN PAGE 1
03785 M01S00190.v23l617 +++| PAGT DSB,MESB+1,INPB+1 LEFT SCREEN PAGE 2
03786 M01S00191.v23l617 +++| PAGT DSC,MESC+1,INPC+1 LEFT SCREEN PAGE 3
03787 M01S00192.v23l617 +++| PAGT
03788 M01S00193.v23l617 +++| PAGT DSD RIGHT SCREEN
03789 M01S00194.v23l617 +++| PAGT *
03790 M00S03244.profile +++| MQE SPACE 4,10
03791 M00S03245.profile +++|** MQE - MAKE QUEUE ENTRY.
03792 M00S03246.profile +++|*
03793 M00S03247.profile +++|* A NEW QUEUE ENTRY IS APPENDED TO END OF DIRECTIVE QUEUE
03794 M00S03248.profile +++|* (NOT PERTINENT FOR *CREATE* MODE). IF NECESSARY, QUEUE
03795 M00S03249.profile +++|* MAXIMUM SIZE IS INCREASED TO MAKE ROOM FOR ENTRY.
03796 M00S03250.profile +++|* IN ADDITION, DIRECTIVE,S CORRESPONDING TABLE 1 OR 3 FIELD
03797 M00S03251.profile +++|* IS UPDATED (PERTINENT WHEN FIELD SIZE VALUE .NE. 0), AND
03798 M00S03252.profile +++|* K-DISPLAY UPDATED (PERTINENT WHEN *K-DISPLAY* OPTION).
03799 M00S03253.profile +++|* ONE WORD QUEUE ENTRY GENERATED IS IN FORM-
03800 M00S03254.profile +++|* 12/A, 6/, 42/B
03801 M00S03255.profile +++|* WHERE
03802 M00S03256.profile +++|* A = TABLE INDEX.
03803 M00S03257.profile +++|* B = VALUE.
03804 M00S03258.profile +++|*
03805 M00S03259.profile +++|* ENTRY (X1) = (DTII) = TABLE INDEX.
03806 M00S03260.profile +++|* (X2) = TABLE ENTRY (TOPR).
03807 M00S03261.profile +++|* (X5) = VALUE FIELD OF ENTRY.
03808 M00S03262.profile +++|*
03809 M00S03263.profile +++|* CALLS AMQ, CKU, SDF.
03810 M00S03264.profile +++|*
03811 M00S03265.profile +++|* USES ALL REGISTERS.
03812 M00S03266.profile +++|
03813 M00S03267.profile +++|
03814 M00S03268.profile +++| MQE SUBR ENTRY/EXIT
03815 M00S03269.profile +++| SX6 B1
03816 M00S03270.profile +++| LX2 3
03817 M00S03271.profile +++| PL X2,MQE1 IF NO LEVEL-1 UPDATE NEEDED
03818 M00S03272.profile +++| SA6 FUP1
03819 M00S03273.profile +++| MQE1 LX2 1
03820 M00S03274.profile +++| PL X2,MQE2 IF NO LEVEL-2 UPDATE NEEDED
03821 M00S03275.profile +++| SA6 FUP2
03822 M00S03276.profile +++| MQE2 LX2 1
03823 M00S03277.profile +++| PL X2,MQE3 IF NO LEVEL-3 UPDATE NEEDED
03824 M00S03278.profile +++| SA6 FUP3
03825 M00S03279.profile +++| MQE3 SA4 DF+2 FIELD SIZE
03826 M00S03280.profile +++| ZR X4,MQE5 IF SET DATA IN FIELD NOT PERTINENT
03827 M00S03281.profile +++| BX6 X5
03828 M00S03282.profile +++| SA3 F.TAB3 PRESET LEVEL-3 DIRECTIVE
03829 M00S03283.profile +++| SA4 T3IE
03830 M00S03284.profile +++| SB7 TOIC
03831 M00S03285.profile +++| NG X2,MQE4 IF LEVEL-3 DIRECTIVE
03832 M00S03286.profile +++| SA3 F.TAB1
03833 M00S03287.profile +++| SA4 T1IE
03834 M00S03288.profile +++| SB7 TOIA
03835 M00S03289.profile +++| MQE4 IX3 X3+X4
03836 M00S03290.profile +++| FUNC SDFT SET DATA IN FIELD
03837 M00S03291.profile +++| SA1 DTII
03838 M00S03292.profile +++| RJ CKU CHECK FOR K-DISPLAY UPDATE
03839 M00S03293.profile +++|
03840 M00S03294.profile +++| MQE5 SA2 UF
03841 M00S03295.profile +++| ZR X2,MQEX IF QUEUE ENTRY NOT PERTINENT
03842 M00S03296.profile +++| LX1 -12 MERGE INTO QUEUE ENTRY
03843 M00S03297.profile +++| BX7 X1+X5
03844 M00S03298.profile +++| SA1 QSIZ CHECK FOR FULL QUEUE
03845 M00S03299.profile +++| SA2 QMAX
03846 M00S03300.profile +++| IX3 X1-X2
03847 M00S03301.profile +++| NG X3,MQE6 IF NO NEED TO ALLOCATE MORE TO QUEUE
03848 M00S03302.profile +++| NZ X3,ERD4 IF ERROR
03849 M00S03303.profile +++| BX0 X7 PRESERVE
03850 M00S03304.profile +++| RJ AMQ ALLOCATE MEMORY TO QUEUE
03851 M00S03305.profile +++| SA1 QSIZ RESTORE
03852 M00S03306.profile +++| BX7 X0
03853 M00S03307.profile +++| MQE6 SX6 X1+B1 UPDATE QUEUE SIZE AND STORE ENTRY
03854 M00S03308.profile +++| SA6 A1
03855 M00S03309.profile +++| SA7 X1+MEML
03856 M00S03310.profile +++| EQ MQEX
03857 M00S03311.profile +++| RCE SPACE 4,10
03858 M00S03312.profile +++|** RCE - REGENERATE CHARGE NUMBER QUEUE ENTRY.
03859 M00S03313.profile +++|*
03860 M00S03314.profile +++|* *CN* ENTRY IS MADE IN DIRECTIVE QUEUE.
03861 M00S03315.profile +++|*
03862 M00S03316.profile +++|* ENTRY (DTII) = TABLE INDEX.
03863 M00S03317.profile +++|*
03864 M00S03318.profile +++|* CALLS MQE, SPB.
03865 M00S03319.profile +++|*
03866 M00S03320.profile +++|* USES ALL REGISTERS.
03867 M00S03321.profile +++|
03868 M00S03322.profile +++|
03869 M00S03323.profile +++| RCE SUBR ENTRY/EXIT
03870 M00S03324.profile +++| SA1 DTII SAVE TABLE INDEX
03871 M00S03325.profile +++| BX6 X1
03872 M00S03326.profile +++| SA6 RCEA
03873 M00S03327.profile +++| SX1 XCND TABLE INDEX FOR QUEUE ENTRY
03874 M00S03328.profile +++| BX7 X1
03875 M00S03329.profile +++| SA7 A1
03876 M00S03330.profile +++| SA2 X1+TOPR
03877 M00S03331.profile +++| BX5 X5-X5
03878 M00S03332.profile +++| RJ MQE MAKE QUEUE ENTRY
03879 M00S03333.profile +++| SA1 RCEA RESTORE TABLE INDEX
03880 M00S03334.profile +++| BX6 X1
03881 M00S03335.profile +++| SA6 DTII
03882 M00S03336.profile +++| SX1 CN
03883 M00S03337.profile +++| SX0 N
03884 M00S03338.profile +++| FUNC SPBT SET PRIMARY BLOCK
03885 M00S03339.profile +++| NZ X6,ERD5 IF ERROR
03886 M00S03340.profile +++| NZ X4,ERD6 IF ENTRY NOT FOUND
03887 M00S03341.profile +++| SA1 F.TAB1 TABLE 1 INDEX OF ENTRY
03888 M00S03342.profile +++| IX6 X3-X1
03889 M00S03343.profile +++| SA6 T1IE
03890 M00S03344.profile +++| EQ RCEX
03891 M00S03345.profile +++|
03892 M00S03346.profile +++| RCEA BSS 1 HOLD LOCATION
03893 M00S03347.profile +++| TITLE UPDATE/CREATE SUBROUTINES - MAIN QUEUE ROUTINE.
03894 M00S03348.profile +++| DQP SPACE 4,10
03895 M00S03349.profile +++|** DQP - DIRECTIVE QUEUE PROCESSOR.
03896 M00S03350.profile +++|*
03897 M00S03351.profile +++|* EACH QUEUE ENTRY IS PROCESSED BY CALLING THE APPROPRIATE
03898 M00S03352.profile +++|* QUEUE PROCESSOR. QUEUE PROCESSING CONTINUES UNTIL ALL
03899 M00S03353.profile +++|* ENTRIES HAVE BEEN PROCESSED. PROFILE FILE IS INTERLOCKED
03900 M00S03354.profile +++|* IN MODIFY MODE WHILE QUEUE PROCESSING (NOT NECESSARY IF
03901 M00S03355.profile +++|* *CREATE* OPTION). QUEUE PROCESSING IS INITIATED WHEN A
03902 M00S03356.profile +++|* DIFFERENT CHARGE OR PROJECT NUMBER ENTRY IS ENCOUNTERED
03903 M00S03357.profile +++|* DURING DIRECTIVE INPUT PROCESSING, WHEN DIRECTIVE INPUT
03904 M00S03358.profile +++|* PROCESSING IS TERMINATED, OR WHEN *END* DIRECTIVE ISSUED
03905 M00S03359.profile +++|* (WHEN *K-DISPLAY* OPTION).
03906 M00S03360.profile +++|*
03907 M00S03361.profile +++|* ENTRY (QSIZ) = QUEUE SIZE.
03908 M00S03362.profile +++|* (CN) = CHARGE NUMBER.
03909 M00S03363.profile +++|* (PN - PN+1) = PROJECT NUMBER, IF PERTINENT.
03910 M00S03364.profile +++|*
03911 M00S03365.profile +++|* EXIT TO QUEUE PROCESSORS-
03912 M00S03366.profile +++|* (X1) = QUEUE ENTRY.
03913 M00S03367.profile +++|* (X7) = (DTIQ) = TABLE INDEX.
03914 M00S03368.profile +++|*
03915 M00S03369.profile +++|* CALLS IPP, MSG, UDD, WCL, WDL, WPL, QUEUE PROCESSORS.
03916 M00S03370.profile +++|*
03917 M00S03371.profile +++|* USES ALL REGISTERS.
03918 M00S03372.profile +++|
03919 M00S03373.profile +++|
03920 M00S03374.profile +++| DQP4 SX0 P
03921 M00S03375.profile +++| SX5 P
03922 M00S03376.profile +++| BX6 X6-X6
03923 M00S03377.profile +++| FUNC UDDT UPDATE DIRECTORY
03924 M00S03378.profile +++| NZ X6,ERD45 IF ERROR
03925 M00S03379.profile +++| DQP5 RETURN P,R
03926 M00S03380.profile +++| SA1 IPPD RESET CPU PRIORITY
03927 M00S03381.profile +++| SETPR X1
03928 M00S03382.profile +++| SETRNR ROLL ALLOW JOB ROLLOUT
03929 M00S03383.profile +++| MESSAGE DQPB,1,R B-DISPLAY MESSAGE
03930 M00S03384.profile +++| DQP6 BX6 X6-X6 EMPTY QUEUE
03931 M00S03385.profile +++| SA6 QSIZ
03932 M00S03386.profile +++|
03933 M00S03387.profile +++| DQP SUBR ENTRY/EXIT
03934 M00S03388.profile +++| SA1 OP
03935 M00S03389.profile +++| SX1 X1-COPT
03936 M00S03390.profile +++| SA2 FUP1
03937 M00S03391.profile +++| SA3 A2+B1
03938 M00S03392.profile +++| SA4 A3+B1
03939 M00S03393.profile +++| BX6 X2+X3
03940 M00S03394.profile +++| BX6 X4+X6
03941 M00S03395.profile +++| NZ X6,DQP1 IF NEED TO PROCESS QUEUE
03942 M00S03396.profile +++| SA2 ET
03943 M00S03397.profile +++| PL X2,DQP6 IF NO LEVEL-0 UPDATE
03944 M00S03398.profile +++| SA2 DQPA
03945 M00S03399.profile +++| ZR X2,DQP6 IF NEVER PROCESSED QUEUE
03946 M00S03400.profile +++| ZR X1,DQP6 IF *CREATE* OPTION
03947 M00S03401.profile +++| RJ IPP INTERLOCK PROFILE FILE
03948 M00S03402.profile +++| EQ DQP4
03949 M00S03403.profile +++|
03950 M00S03404.profile +++| DQP1 BX7 X7-X7 CLEAR QUEUE POINTER
03951 M00S03405.profile +++| SA7 QPTR
03952 M00S03406.profile +++| ZR X1,DQP2 IF *CREATE* OPTION
03953 M00S03407.profile +++| SA6 DQPA INDICATE PROCESS OF QUEUE
03954 M00S03408.profile +++| RJ IPP INTERLOCK PROFILE FILE
03955 M00S03409.profile +++|
03956 M00S03410.profile +++|* *MAIN LOOP*
03957 M00S03411.profile +++|
03958 M00S03412.profile +++| DQP2 BSS 0
03959 M00S03413.profile +++| SA1 QPTR QUEUE POINTER
03960 M00S03414.profile +++| SA2 QSIZ QUEUE SIZE
03961 M00S03415.profile +++| IX3 X1-X2
03962 M00S03416.profile +++| ZR X3,DQP3 IF THRU PROCESSING QUEUE
03963 M00S03417.profile +++| PL X3,ERD26 IF ERROR
03964 M00S03418.profile +++| SX6 X1+B1 INCREMENT QUEUE POINTER
03965 M00S03419.profile +++| SA6 A1
03966 M00S03420.profile +++| SA1 X1+MEML NEXT QUEUE ENTRY TO PROCESS
03967 M00S03421.profile +++| MX2 12
03968 M00S03422.profile +++| BX7 X2*X1
03969 M00S03423.profile +++| LX7 12
03970 M00S03424.profile +++| SA7 DTIQ TABLE INDEX
03971 M00S03425.profile +++| SA2 X7+TOPR TABLE ENTRY
03972 M00S03426.profile +++| SB2 X2
03973 M00S03427.profile +++| JP B2 QUEUE PROCESSOR
03974 M00S03428.profile +++|
03975 M00S03429.profile +++| DQP3 SA1 OP
03976 M00S03430.profile +++| SX1 X1-COPT
03977 M00S03431.profile +++| NZ X1,DQP3.1 IF NOT *CREATE* OPTION
03978 M00S03432.profile +++| RECALL N COMPLETE I/O ON DUPLICATE FET
03979 M00S03433.profile +++| DQP3.1 RJ WDL WRITE DATA LEVEL
03980 M00S03434.profile +++| RJ WPL WRITE PROJECT LEVEL
03981 M00S03435.profile +++| RJ WCL WRITE CHARGE LEVEL
03982 M00S03436.profile +++| SA1 OP
03983 M00S03437.profile +++| SX6 X1-COPT
03984 M00S03438.profile +++| ZR X6,DQP3.2 IF *CREATE* OPTION
03985 M00S03439.profile +++| SA1 ET
03986 M00S03440.profile +++| PL X1,DQP5 IF NO LEVEL-0 UPDATE
03987 M00S03441.profile +++| EQ DQP4
03988 M00S03442.profile +++|
03989 M00S03443.profile +++| DQP3.2 RECALL P COMPLETE I/O ON DUPLICATE FET
03990 M00S03444.profile +++| EQ DQP6 SET QUEUE EMPTY AND RETURN
03991 M00S03445.profile +++|
03992 M00S03446.profile +++|
03993 M00S03447.profile +++| DQPA CON 0 QUEUE PROCESSED FLAG
03994 M00S03448.profile +++| DQPB DATA L* PROFILE FILE RELEASED *
03995 M00S03449.profile +++| TITLE UPDATE/CREATE SUBROUTINES - QUEUE PROCESSORS.
03996 M00S03450.profile +++| AUP SPACE 4,10
03997 M00S03451.profile +++|** AUP - *AUN* PROCESSOR.
03998 M00S03452.profile +++|*
03999 M00S03453.profile +++|* ENTRY (X1) = QUEUE ENTRY.
04000 M00S03454.profile +++|*
04001 M00S03455.profile +++|* EXIT TO DQP2.
04002 M00S03456.profile +++|*
04003 M00S03457.profile +++|* CALLS AUN.
04004 M00S03458.profile +++|*
04005 M00S03459.profile +++|* USES ALL REGISTERS.
04006 M00S03460.profile +++|
04007 M00S03461.profile +++|
04008 M00S03462.profile +++| AUP BSS 0
04009 M00S03463.profile +++| MX3 -42
04010 M00S03464.profile +++| BX1 -X3*X1
| Line S03465 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04011 M01S03465.v23l617 ---| RJ AUN ADD USER NUMBER
| Line S00195 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04012 M01S00195.v23l617 +++| RJ AUN ADD USER NAME
04013 M00S03466.profile +++| JP DQP2 *MAIN LOOP* RETURN
04014 M00S03467.profile +++| CNP SPACE 4,10
04015 M00S03468.profile +++|** CNP - CHARGE NUMBER PROCESSOR.
04016 M00S03469.profile +++|*
04017 M00S03470.profile +++|* PROCESSES *ACN*, *CN*, *DCN*.
04018 M00S03471.profile +++|*
04019 M00S03472.profile +++|* ENTRY (DTIQ) = TABLE INDEX.
04020 M00S03473.profile +++|* (CN) = CHARGE NUMBER.
04021 M00S03474.profile +++|*
04022 M00S03475.profile +++|* EXIT TO DQP2.
04023 M00S03476.profile +++|* (T1IE) = TABLE 1 INDEX OF ENTRY.
04024 M00S03477.profile +++|*
04025 M00S03478.profile +++|* CALLS ATS, MVE, MWS, SPB.
04026 M00S03479.profile +++|*
04027 M00S03480.profile +++|* USES ALL REGISTERS.
04028 M00S03481.profile +++|
04029 M00S03482.profile +++|
04030 M00S03483.profile +++| CNP BSS 0
04031 M00S03484.profile +++| SX1 CN
04032 M00S03485.profile +++| SX0 N
04033 M00S03486.profile +++| FUNC SPBT SET PRIMARY BLOCK
04034 M00S03487.profile +++| NZ X6,ERD10 IF ERROR
04035 M00S03488.profile +++| SA1 DTIQ
04036 M00S03489.profile +++| NZ X4,CNP2 IF CHARGE NUMBER NOT FOUND
04037 M00S03490.profile +++| SA2 F.TAB1 TABLE 1 INDEX OF ENTRY
04038 M00S03491.profile +++| IX6 X3-X2
04039 M00S03492.profile +++| SA6 T1IE
04040 M00S03493.profile +++| SB2 X1-XCND
04041 M00S03494.profile +++| ZR B2,DQP2 IF *CN*
04042 M00S03495.profile +++| MX2 1
04043 M00S03496.profile +++| SA3 X3+CSRW
04044 M00S03497.profile +++| SB2 X1-XDCN
04045 M00S03498.profile +++| ZR B2,CNP1 IF *DCN*
04046 M00S03499.profile +++| BX6 -X2*X3 ACTIVATE CHARGE NUMBER
04047 M00S03500.profile +++| SA6 A3
04048 M00S03501.profile +++| EQ DQP2
04049 M00S03502.profile +++|
04050 M00S03503.profile +++| CNP1 BX6 X2+X3 DEACTIVATE CHARGE NUMBER
04051 M00S03504.profile +++| SA6 A3
04052 M00S03505.profile +++| EQ DQP2
04053 M00S03506.profile +++|
04054 M00S03507.profile +++| CNP2 SB2 X1-XACN
04055 M00S03508.profile +++| NZ B2,ERD11 IF NOT *ACN*
04056 M00S03509.profile +++| SA5 L.TAB1
04057 M00S03510.profile +++| ALLOC TAB1,C.TAB1
04058 M00S03511.profile +++| IX5 X2+X5
04059 M00S03512.profile +++| MOVE C.TAB1,D1AA,X5 INITIALIZE ENTRY TO DEFAULT
04060 M00S03513.profile +++| SA0 B1
04061 M00S03514.profile +++| FUNC STBT SORT TABLE 1
04062 M00S03515.profile +++| SX1 B1
04063 M00S03516.profile +++| SB6 CN
04064 M00S03517.profile +++| FUNC MWST SEARCH TABLE 1
04065 M00S03518.profile +++| NZ X2,ERD7 IF CHARGE NUMBER NOT FOUND
04066 M00S03519.profile +++| SB3 X4 TABLE 1 INDEX OF ENTRY
04067 M00S03520.profile +++| SX6 B2-B3
04068 M00S03521.profile +++| SA6 T1IE
04069 M00S03522.profile +++| JP DQP2 *MAIN LOOP* RETURN
04070 M00S03523.profile +++| DUP SPACE 4,10
04071 M00S03524.profile +++|** DUP - *DUN* PROCESSOR.
04072 M00S03525.profile +++|*
04073 M00S03526.profile +++|* ENTRY (X1) = QUEUE ENTRY.
04074 M00S03527.profile +++|*
04075 M00S03528.profile +++|* EXIT TO DQP2.
04076 M00S03529.profile +++|*
04077 M00S03530.profile +++|* USES A - 1, 2, 6.
04078 M00S03531.profile +++|* B - 2, 3.
04079 M00S03532.profile +++|* X - 1, 2, 3, 4, 6.
04080 M00S03533.profile +++|*
04081 M00S03534.profile +++|* CALLS GES, NUE.
04082 M00S03535.profile +++|
04083 M00S03536.profile +++|
04084 M00S03537.profile +++| DUP BSS 0
| Line S03538 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04085 M01S03538.v23l617 ---| MX3 -42 SEARCH FOR USER NUMBER
| Line S00196 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04086 M01S00196.v23l617 +++| MX3 -42 SEARCH FOR USER NAME
04087 M00S03539.profile +++| BX6 -X3*X1
04088 M00S03540.profile +++| LX6 18
04089 M00S03541.profile +++| SA6 UNUM
| Line S03542 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04090 M01S03542.v23l617 ---| DUP1 RJ NUE GET NEXT USER NUMBER ENTRY
| Line S00197 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04091 M01S00197.v23l617 +++| DUP1 RJ NUE GET NEXT USER NAME ENTRY
04092 M00S03543.profile +++| NZ B2,DUP2 IF END OF LEVEL-3 CHAIN
04093 M00S03544.profile +++| SX2 X1
04094 M00S03545.profile +++| NZ X2,DUP2 IF END OF LIST
04095 M00S03546.profile +++| SA2 UNUM
04096 M00S03547.profile +++| BX6 X1-X2
04097 M00S03548.profile +++| BX1 X1-X1
04098 M00S03549.profile +++| NZ X6,DUP1 IF NO MATCH
04099 M00S03550.profile +++| SA6 A1 CLEAR ENTRY FROM TABLE
| Line S03551 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04100 M01S03551.v23l617 ---| SA1 F.TAB3 DECREMENT USER NUMBER COUNT FIELD
| Line S00198 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04101 M01S00198.v23l617 +++| SA1 F.TAB3 DECREMENT USER NAME COUNT FIELD
04102 M00S03552.profile +++| SA2 T3IE
04103 M00S03553.profile +++| IX1 X1+X2
04104 M00S03554.profile +++| SA2 X1
04105 M00S03555.profile +++| LX2 -24
04106 M00S03556.profile +++| MX3 -12
04107 M00S03557.profile +++| BX4 -X3*X2
04108 M00S03558.profile +++| SX4 X4-1
04109 M00S03559.profile +++| NG X4,ERD27 IF ERROR
04110 M00S03560.profile +++| BX2 X3*X2
04111 M00S03561.profile +++| BX6 X2+X4
04112 M00S03562.profile +++| LX6 24
04113 M00S03563.profile +++| SA6 A2
04114 M00S03564.profile +++| EQ DQP2 *MAIN LOOP* RETURN
04115 M00S03565.profile +++|
| Line S03566 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04116 M01S03566.v23l617 ---| DUP2 SB3 ERUL **** DELETE NON-EXISTENT USER NUMBER.
| Line S00199 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04117 M01S00199.v23l617 +++| DUP2 SB3 ERUL **** DELETE NON-EXISTENT USER NAME.
04118 M00S03567.profile +++| RJ ERU USER ERROR
04119 M00S03568.profile +++| EQ DQP2 RETURN TO MAIN LOOP
04120 M00S03569.profile +++| MDP SPACE 4,10
04121 M00S03570.profile +++|** MDP - MISCELLANEOUS DIRECTIVE PROCESSOR.
04122 M00S03571.profile +++|*
04123 M00S03572.profile +++|* PROCESSES *MU*, *PCL*, *M1*,..., *M4*, *AD*, *CEX*,
| Line S03573 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
04124 M01S03573.ns22000 ---|* *ISL*, *IR1*,..., *IR8*, *PEX*, *TI*, *TO*, *ISV*, *SML*,
| Line S00237 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
04125 M01S00237.ns22000 +++|* *ISL*, *IR1*,...,*IR8*, *PEX*, *TI*, *TO*, *PFN*, *PUN*,
04126 M01S00238.ns22000 +++|* *PPW*, *PCR*, *EFN*, *EUN*, *EPW*, *ISV*, *SML*,
04127 M00S03574.profile +++|* *SMA*, *SIL*, *SIA*, *LR1*, *AR1*,..., *LR8*, *AR8*.
04128 M00S03575.profile +++|*
04129 M00S03576.profile +++|* ENTRY (X1) = QUEUE ENTRY.
04130 M00S03577.profile +++|* (X7) = TABLE INDEX.
04131 M00S03578.profile +++|* TO MDP1, IF LEVEL-1 DIRECTIVE.
04132 M00S03579.profile +++|* TO MDP3, IF LEVEL-3 DIRECTIVE.
04133 M00S03580.profile +++|*
04134 M00S03581.profile +++|* EXIT TO DQP2.
04135 M00S03582.profile +++|*
04136 M00S03583.profile +++|* CALLS DFS, SDF.
04137 M00S03584.profile +++|*
04138 M00S03585.profile +++|* USES ALL REGISTERS.
04139 M00S03586.profile +++|
04140 M00S03587.profile +++|
04141 M00S03588.profile +++| MDP BSS 0
04142 M00S03589.profile +++| MDP1 SA2 F.TAB1
04143 M00S03590.profile +++| SA5 T1IE
04144 M00S03591.profile +++| EQ MDP3
04145 M00S03592.profile +++|
04146 M00S03593.profile +++| MDP2 SA2 F.TAB3
04147 M00S03594.profile +++| SA5 T3IE
04148 M00S03595.profile +++|
04149 M00S03596.profile +++| MDP3 RJ DFS (DF) - (DF+4) SET-UP
04150 M00S03597.profile +++| MX3 -42
04151 M00S03598.profile +++| BX6 -X3*X1
04152 M00S03599.profile +++| IX3 X2+X5 FWA OF ENTRY
04153 M00S03600.profile +++| FUNC SDFT SET DATA IN FIELD
04154 M00S03601.profile +++| JP DQP2 *MAIN LOOP* RETURN
04155 M00S03602.profile +++| PNP SPACE 4,10
04156 M00S03603.profile +++|** PNP - PROJECT NUMBER PROCESSOR.
04157 M00S03604.profile +++|*
04158 M00S03605.profile +++|* PROCESSES *APN*, *DPN*, *PN*.
04159 M00S03606.profile +++|*
04160 M00S03607.profile +++|* ENTRY (DTIQ) = TABLE INDEX.
04161 M00S03608.profile +++|* (PN - PN+1) = PROJECT NUMBER.
04162 M00S03609.profile +++|*
04163 M00S03610.profile +++|* EXIT TO DQP2.
04164 M00S03611.profile +++|* (RA3) = 0, IF NEW LEVEL-3 BLOCK.
04165 M00S03612.profile +++|* = LEVEL-3 RANDOM ADDRESS, ELSE.
04166 M00S03613.profile +++|* (T2IE) = TABLE 2 INDEX OF ENTRY.
04167 M00S03614.profile +++|* PROJECT COUNT UPDATED, IF *APN* OR *DPN*.
04168 M00S03615.profile +++|*
04169 M00S03616.profile +++|* CALLS ADB, ATS, MVE, MWS, PDE, PEI, STB, UPC.
04170 M00S03617.profile +++|*
04171 M00S03618.profile +++|* USES ALL REGISTERS.
04172 M00S03619.profile +++|
04173 M00S03620.profile +++|
04174 M00S03621.profile +++| PNP BSS 0
04175 M00S03622.profile +++| RJ PEI PROJECT ENTRY INITIALIZATION
04176 M00S03623.profile +++| NZ X4,PNP2 IF PROJECT NUMBER NOT FOUND
04177 M00S03624.profile +++| SA1 F.TAB2 TABLE 2 INDEX OF ENTRY
04178 M00S03625.profile +++| IX6 X3-X1
04179 M00S03626.profile +++| SA6 T2IE
04180 M00S03627.profile +++| SX7 X5 LEVEL-3 RANDOM ADDRESS
04181 M00S03628.profile +++| SA7 RA3
04182 M00S03629.profile +++| SX0 N
04183 M00S03630.profile +++| RJ ADB ADD DATA LEVEL BLOCK
04184 M00S03631.profile +++| SA1 DTIQ
04185 M00S03632.profile +++| SB2 X1-XPND
04186 M00S03633.profile +++| ZR B2,DQP2 IF *PN*
04187 M00S03634.profile +++| MX2 1
04188 M00S03635.profile +++| SA3 A5+PTMW
04189 M00S03636.profile +++| SB2 X1-XDPN
04190 M00S03637.profile +++| ZR B2,PNP1 IF *DPN*
04191 M00S03638.profile +++| PL X3,DQP2 IF ALREADY ACTIVE
04192 M00S03639.profile +++| BX6 -X2*X3 ACTIVATE PROJECT NUMBER
04193 M00S03640.profile +++| SA6 A3
04194 M00S03641.profile +++| EQ PNP3
04195 M00S03642.profile +++|
04196 M00S03643.profile +++| PNP1 NG X3,DQP2 IF ALREADY INACTIVE
04197 M00S03644.profile +++| BX6 X2+X3 DEACTIVATE PROJECT NUMBER
04198 M00S03645.profile +++| SA6 A3
04199 M00S03646.profile +++| EQ PNP3
04200 M00S03647.profile +++|
04201 M00S03648.profile +++| PNP2 SA1 DTIQ
04202 M00S03649.profile +++| SX1 X1-XAPN
04203 M00S03650.profile +++| NZ X1,ERD13 IF NOT *APN*
04204 M00S03651.profile +++| SA5 L.TAB2
04205 M00S03652.profile +++| SA1 PN
04206 M00S03653.profile +++| ADDWRD TAB2,X1
04207 M00S03654.profile +++| SA1 PN+1
04208 M00S03655.profile +++| ADDWRD TAB2,X1
04209 M00S03656.profile +++| BX1 X1-X1
04210 M00S03657.profile +++| ADDWRD TAB2,X1
04211 M00S03658.profile +++| SX0 N
04212 M00S03659.profile +++| RJ PDE PROCESS DATA LEVEL ENTRY
04213 M00S03660.profile +++| MOVE C.TAB3,D3AA,X0
04214 M00S03661.profile +++| SA0 B1+B1
04215 M00S03662.profile +++| FUNC STBT SORT TABLE 2
04216 M00S03663.profile +++| SX1 B1
04217 M00S03664.profile +++| SB6 PN
04218 M00S03665.profile +++| FUNC MWST SEARCH TABLE 2
04219 M00S03666.profile +++| NZ X2,ERD8 IF PROJECT NUMBER NOT FOUND
04220 M00S03667.profile +++| SB3 X4 TABLE 2 INDEX OF ENTRY
04221 M00S03668.profile +++| SX6 B2-B3
04222 M00S03669.profile +++| SA6 T2IE
04223 M00S03670.profile +++| SX1 XAPN
04224 M00S03671.profile +++|
04225 M00S03672.profile +++| PNP3 RJ UPC UPDATE PROJECT COUNT
04226 M00S03673.profile +++| SA6 A2
04227 M00S03674.profile +++| JP DQP2 *MAIN LOOP* RETURN
04228 M00S03675.profile +++| TITLE UPDATE/CREATE SUBROUTINES - QUEUE PROCESSOR ROUTINES.
04229 M00S03676.profile +++| IPP SPACE 4,10
04230 M00S03677.profile +++|** IPP - INTERLOCK PROFILE FILE.
04231 M00S03678.profile +++|*
04232 M00S03679.profile +++|* PROFILE FILE IS ATTACHED IN MODIFY MODE. IF FILE BUSY,
04233 M00S03680.profile +++|* A ROLLOUT IS PERFORMED AND ANOTHER ATTEMPT MADE.
04234 M00S03681.profile +++|*
04235 M00S03682.profile +++|* EXIT TO IPPX, IF ATTACH SUCCESSFUL.
04236 M00S03683.profile +++|* TO ABT1, IF PFM ERROR.
04237 M00S03684.profile +++|*
04238 M00S03685.profile +++|* CALLS CFS, MSG.
04239 M00S03686.profile +++|*
04240 M00S03687.profile +++|* USES ALL REGISTERS.
04241 M00S03688.profile +++|
04242 M00S03689.profile +++|
04243 M00S03690.profile +++| IPP2 MESSAGE IPPB,1,R B-DISPLAY MESSAGE
04244 M00S03691.profile +++| SETRNR NOROLL PREVENT JOB ROLLOUT
| Line S03692 Modification History |
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
04245 M01S03692.271l716 ---| SETPR 50B
| Line S00002 Modification History |
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
04246 M01S00002.271l716 +++| SETPR LSCS
04247 M00S03693.profile +++|
04248 M00S03694.profile +++| IPP SUBR ENTRY/EXIT
04249 M00S03695.profile +++| GETPR IPPD
| Line S03696 Modification History |
M01 (Removed by) | ns2729 |
Seq # *Modification Id* Act
----------------------------+
04250 M01S03696.ns2729 ---| IPP1 ATTACH P,,,,M,,,IP
| Line S00001 Modification History |
M01 (Added by) | ns2729 |
Seq # *Modification Id* Act
----------------------------+
04251 M01S00001.ns2729 +++| IPP1 ATTACH P,,,,M,,,IP,MA
04252 M00S03697.profile +++| SB2 P
04253 M00S03698.profile +++| RJ CFS CHECK FILE STATUS
04254 M00S03699.profile +++| ZR X2,IPP2 IF NO PFM ERROR
04255 M00S03700.profile +++| SX3 X2-1
| Line S03701 Modification History |
M01 (Removed by) | profi9 |
Seq # *Modification Id* Act
----------------------------+
04256 M01S03701.profi9 ---| NZ X3,ABT1 IF ERROR IS NOT *FILE BUSY*
| Line S00003 Modification History |
M01 (Added by) | profi9 |
Seq # *Modification Id* Act
----------------------------+
04257 M01S00003.profi9 +++| NZ X3,ABT3 IF ERROR IS NOT *FILE BUSY*
04258 M00S03702.profile +++| ROLLOUT =0
04259 M00S03703.profile +++| EQ IPP1 TRY AGAIN
04260 M00S03704.profile +++|
04261 M00S03705.profile +++| IPPB DATA L* PROFILE FILE INTERLOCKED*
04262 M00S03706.profile +++|
04263 M00S03707.profile +++| IPPD CON 0 CPU PRIORITY
04264 M00S03708.profile +++| WCL SPACE 4,10
04265 M00S03709.profile +++|** WCL - WRITE CHARGE LEVEL (LEVEL-1).
04266 M00S03710.profile +++|*
04267 M00S03711.profile +++|* ENTRY (FUP1) .NE. 0, IF UPDATE OF LEVEL-1 NECESSARY.
04268 M00S03712.profile +++|*
04269 M00S03713.profile +++|* CALLS WTB.
04270 M00S03714.profile +++|*
04271 M00S03715.profile +++|* USES ALL REGISTERS.
04272 M00S03716.profile +++|
04273 M00S03717.profile +++|
04274 M00S03718.profile +++| WCL SUBR ENTRY/EXIT
04275 M00S03719.profile +++| SA1 FUP1
04276 M00S03720.profile +++| ZR X1,WCLX IF NO LEVEL-1 UPDATE NEEDED
04277 M00S03721.profile +++| BX6 X6-X6 CLEAR LEVEL-1 UPDATE FLAG
04278 M00S03722.profile +++| SA6 A1
04279 M00S03723.profile +++| SA0 B1
04280 M00S03724.profile +++| SX5 P
04281 M00S03725.profile +++| FUNC WTBT WRITE TABLE 1
04282 M00S03726.profile +++| EQ WCLX
04283 M00S03727.profile +++| TITLE COMMON SUBROUTINES.
04284 M00S03728.profile +++| ACI SPACE 4,10
04285 M00S03729.profile +++| ACI SPACE 4,18
04286 M00S03730.profile +++|** ACI - ASSEMBLE CHARACTERS INTERFACE.
04287 M00S03731.profile +++|*
04288 M00S03732.profile +++|* ENTRY (X1) = BIT STRING OF CHARACTERS TO PERMIT.
04289 M00S03733.profile +++|*
04290 M00S03734.profile +++|* EXIT (CBUF - CBUF+CBUFL) = LEFT-JUSTIFIED ASSEMBLED
04291 M00S03735.profile +++|* CHARACTERS.
04292 M00S03736.profile +++|* (X4) = NUMBER OF CHARACTERS.
04293 M00S03737.profile +++|* (B5) = SEPARATOR (0 IF END OF LINE).
04294 M00S03738.profile +++|* (B6) = 0, IF ENTRY TERMINATION.
04295 M00S03739.profile +++|* (B6) .NE. 0, IF ASSEMBLY COMPLETE.
04296 M00S03740.profile +++|* (ET) = -1, IF EOF.
04297 M00S03741.profile +++|* (ET) = 1, IF */* ENTRY TERMINATION.
04298 M00S03742.profile +++|*
04299 M00S03743.profile +++|* CALLS ASC.
04300 M00S03744.profile +++|*
04301 M00S03745.profile +++|* USES A - 1, 2, 6, 7.
04302 M00S03746.profile +++|* X - 0, 1, 2, 3, 4, 6, 7.
04303 M00S03747.profile +++|* B - 2, 4.
04304 M00S03748.profile +++|
04305 M00S03749.profile +++|
04306 M00S03750.profile +++| ACI SUBR ENTRY/EXIT
04307 M00S03751.profile +++| BX6 X1
04308 M00S03752.profile +++| SA6 ACIB SAVE BIT STRING
04309 M00S03753.profile +++| BX6 X6-X6
04310 M00S03754.profile +++| SA6 ACIA CLEAR CHARACTER COUNT
04311 M00S03755.profile +++| SA6 ACIC CLEAR CHARACTER BUFFER INDEX
04312 M00S03756.profile +++| SB2 CBUFL-1
04313 M00S03757.profile +++| ACI1 SA6 B2+CBUF CLEAR CHARACTER BUFFER
04314 M00S03758.profile +++| SB2 B2-1
04315 M00S03759.profile +++| PL B2,ACI1
04316 M00S03760.profile +++| ACI2 SX0 I INPUT FET ADDRESS
04317 M00S03761.profile +++| SA2 BS BLANK SUPPRESSION
04318 M00S03762.profile +++| BX6 X2
04319 M00S03763.profile +++| SA1 ACIB BIT STRING OF CHARACTERS TO PERMIT
04320 M00S03764.profile +++| FUNC ASCT ASSEMBLE CHARACTERS
04321 M00S03765.profile +++| SA2 ACIC
04322 M00S03766.profile +++| SA6 CBUF+X2 STORE ASSEMBLED CHARACTERS
04323 M00S03767.profile +++| SA1 ACIA
04324 M00S03768.profile +++| SB4 X4-10
04325 M00S03769.profile +++| IX4 X1+X4 INCREMENT CHARACTER COUNT
04326 M00S03770.profile +++| NG B4,ACIX RETURN IF SEPARATOR ENCOUNTERED
04327 M00S03771.profile +++| BX7 X4
04328 M00S03772.profile +++| SA7 A1
04329 M00S03773.profile +++| SX3 X2-CBUFL-1
04330 M00S03774.profile +++| PL X3,ACI2 IF BUFFER FULL
04331 M00S03775.profile +++| SX7 X2+B1
04332 M00S03776.profile +++| SA7 A2 INCREMENT CHARACTER BUFFER INDEX
04333 M00S03777.profile +++| EQ ACI2
04334 M00S03778.profile +++|
04335 M00S03779.profile +++|
04336 M00S03780.profile +++| ACIA CON 0 CHARACTER COUNT
04337 M00S03781.profile +++| ACIB CON 0 BIT STRING OF CHARACTERS TO PERMIT
04338 M00S03782.profile +++| ACIC CON 0 CHARACTER BUFFER INDEX
| Line S00003 Modification History |
M01 (Added by) | ns2417 |
Seq # *Modification Id* Act
----------------------------+
04339 M01S00003.ns2417 +++| COB SPACE 4,15
04340 M01S00004.ns2417 +++|** COB - CHECK OUTPUT BUFFER.
04341 M01S00005.ns2417 +++|*
04342 M01S00006.ns2417 +++|* EXIT OUTPUT BUFFER FLUSHED IF NECESSARY AND *SSST* STATUS
04343 M01S00007.ns2417 +++|* REMOVED FROM OUTPUT FILE.
04344 M01S00008.ns2417 +++|*
04345 M01S00009.ns2417 +++|* USES X - 1, 2, 3.
04346 M01S00010.ns2417 +++|* A - 1, 2, 3.
04347 M01S00011.ns2417 +++|*
04348 M01S00012.ns2417 +++|* MACROS SETFS, STATUS, WRITER.
04349 M01S00013.ns2417 +++|
04350 M01S00014.ns2417 +++|
04351 M01S00015.ns2417 +++| COB SUBR ENTRY/ EXIT
04352 M01S00016.ns2417 +++| SA3 PO
04353 M01S00017.ns2417 +++| SA1 PGLC
04354 M01S00018.ns2417 +++| ZR X3,COB1 IF TERMINAL FILE
04355 M01S00019.ns2417 +++| SX1 X1-99999
04356 M01S00020.ns2417 +++| ZR X1,COBX IF NO DATA WRITTEN
04357 M01S00021.ns2417 +++| COB1 WRITER O,R FLUSH OUTPUT
04358 M01S00022.ns2417 +++| ZR X3,COBX IF TERMINAL FILE
04359 M01S00023.ns2417 +++| STATUS O,P
04360 M01S00024.ns2417 +++| SA2 O+5 GET FNT
04361 M01S00025.ns2417 +++| MX1 -6
04362 M01S00026.ns2417 +++| BX2 -X1*X2 GET FILE STATUS
04363 M01S00027.ns2417 +++| SX1 X2-SSST
04364 M01S00028.ns2417 +++| NZ X1,COBX IF PRIOR OUTPUT ID
04365 M01S00029.ns2417 +++| SETFS O,0 CLEAR FILE STATUS
04366 M01S00030.ns2417 +++| EQ COBX RETURN
04367 M00S03783.profile +++| SIN SPACE 4,11
04368 M00S03784.profile +++|** SIN - SUBROUTINE INTERFACE.
04369 M00S03785.profile +++|*
04370 M00S03786.profile +++|* ENTRY (B7) SUBROUTINE ADDRESS.
04371 M00S03787.profile +++|*
04372 M00S03788.profile +++|* EXIT TO ROUTINE WITH RETURN ADDRESS SET.
04373 M00S03789.profile +++|*
04374 M00S03790.profile +++|* CALLS NONE.
04375 M00S03791.profile +++|*
04376 M00S03792.profile +++|* USES A - 1, 6.
04377 M00S03793.profile +++|* X - 1, 6.
04378 M00S03794.profile +++|* B - 7.
04379 M00S03795.profile +++|
04380 M00S03796.profile +++|
04381 M00S03797.profile +++| SIN SUBR ENTRY/EXIT
04382 M00S03798.profile +++| SA1 SIN SET RETURN ADDRESS
04383 M00S03799.profile +++| BX6 X1
04384 M00S03800.profile +++| SA6 B7
04385 M00S03801.profile +++| JP B7+1 JUMP TO ROUTINE
04386 M00S03802.profile +++| ABT SPACE 4
04387 M00S03803.profile +++|** ABT - ABORT EXIT.
04388 M00S03804.profile +++|
04389 M00S03805.profile +++|
04390 M00S03806.profile +++| ABM SA1 CN ABORT AFTER ISSUING OUTPUT FILE MESSAGE
04391 M00S03807.profile +++| SA2 PN
04392 M00S03808.profile +++| BX6 X1
04393 M00S03809.profile +++| LX7 X2
04394 M00S03810.profile +++| SA6 FCNP SET CHARGE PRESENT INDICATOR
04395 M00S03811.profile +++| SA7 FPNP SET PROJECT PRESENT INDICATOR
04396 M00S03812.profile +++| RJ ERU ISSUE ERROR MESSAGE
04397 M00S03813.profile +++| SX2 PROB *DIRECTIVE ERRORS.*
04398 M00S03814.profile +++| EQ ABT ABORT AFTER CLEAN UP
04399 M00S03815.profile +++|
04400 M00S03816.profile +++| ABE SX2 =C* PROFILE ABORTED.*
04401 M00S03817.profile +++| ABT MESSAGE X2
04402 M00S03818.profile +++| ABT1 BX6 X6-X6 CLEAR K-DISPLAY
04403 M00S03819.profile +++| SA6 DSA+1
04404 M00S03820.profile +++| RECALL N
04405 M00S03821.profile +++| RETURN P
04406 M00S03822.profile +++| RETURN N
| Line S03823 Modification History |
M01 (Removed by) | ns2417 |
Seq # *Modification Id* Act
----------------------------+
04407 M01S03823.ns2417 ---| ABT2 WRITER O,R
04408 M01S03824.ns2417 ---| SETFS X2,0 SET ID CODE
| Line S00031 Modification History |
M01 (Added by) | ns2417 |
Seq # *Modification Id* Act
----------------------------+
04409 M01S00031.ns2417 +++| RJ COB CHECK OUTPUT FILE BUFFER
04410 M00S03825.profile +++| RJ CAF CHECK ALTERNATE FAMILY
04411 M00S03826.profile +++| ABORT
| Line S00004 Modification History |
M01 (Added by) | profi9 |
Seq # *Modification Id* Act
----------------------------+
04412 M01S00004.profi9 +++|
04413 M01S00005.profi9 +++| ABT3 SX2 EBUF
04414 M01S00006.profi9 +++| EQ ABT ISSUE *PFM* ERROR MESSAGE AND ABORT
04415 M00S03827.profile +++| TOV SPACE 4
04416 M00S03828.profile +++|** TOV - TABLE OVERFLOW.
04417 M00S03829.profile +++|*
04418 M00S03830.profile +++|* ENTRY FROM *ATS* ONLY.
04419 M00S03831.profile +++|* (B6) = EXIT ADDRESS IN *COMCMTP* TO CONTINUE
04420 M00S03832.profile +++|* PROCESSING.
04421 M00S03833.profile +++|*
04422 M00S03834.profile +++|* EXIT TO (B6).
| Line S03835 Modification History |
M01 (Removed by) | ns2290 |
Seq # *Modification Id* Act
----------------------------+
04423 M01S03835.ns2290 ---|* FIELD LENGTH INCREASED BY 1000B WORDS.
| Line S00001 Modification History |
M01 (Added by) | ns2290 |
Seq # *Modification Id* Act
----------------------------+
04424 M01S00001.ns2290 +++|* FIELD LENGTH INCREASED BY *FLIN* WORDS.
04425 M00S03836.profile +++|* (TV) .NE. 0, IF FIELD LENGTH LIMIT REACHED.
04426 M00S03837.profile +++|*
| Line S03838 Modification History |
M01 (Removed by) | ns2290 |
Seq # *Modification Id* Act
----------------------------+
04427 M01S03838.ns2290 ---|* USES A - 3, 6.
04428 M01S03839.ns2290 ---|* X - 3, 4, 6.
| Line S00002 Modification History |
M01 (Added by) | ns2290 |
Seq # *Modification Id* Act
----------------------------+
04429 M01S00002.ns2290 +++|* USES X - 3, 4, 6.
04430 M01S00003.ns2290 +++|* A - 3, 4, 6.
04431 M00S03840.profile +++|*
04432 M00S03841.profile +++|* MACROS MEMORY.
04433 M00S03842.profile +++|
04434 M00S03843.profile +++|
04435 M00S03844.profile +++| TOV BSS 0 ENTRY
| Line S00004 Modification History |
M01 (Added by) | ns2290 |
Seq # *Modification Id* Act
----------------------------+
04436 M01S00004.ns2290 +++| SA4 FLM MAXIMUM FIELD LENGTH
04437 M00S03845.profile +++| SA3 ML CURRENT FIELD LENGTH
| Line S03846 Modification History |
M01 (Removed by) | ns2290 |
Seq # *Modification Id* Act
----------------------------+
04438 M01S03846.ns2290 ---| SX3 X3+1000B
04439 M01S03847.ns2290 ---| SX4 X3-FLLM LIMIT FIELD LENGTH
| Line S00005 Modification History |
M01 (Added by) | ns2290 |
Seq # *Modification Id* Act
----------------------------+
04440 M01S00005.ns2290 +++| SX3 X3+FLIN
04441 M01S00006.ns2290 +++| IX4 X3-X4 LIMIT FIELD LENGTH
04442 M00S03848.profile +++| NG X4,TOV1 IF ADEQUATE FIELD LENGTH
04443 M00S03849.profile +++| SX6 B1 INDICATE OVERFLOW
04444 M00S03850.profile +++| SA6 TV
04445 M00S03851.profile +++| TOV1 MEMORY CM,TOVB,R,X3
04446 M00S03852.profile +++| SA3 TOVB GET FIELD LENGTH ASSIGNED
04447 M00S03853.profile +++| AX3 30
04448 M00S03854.profile +++| BX6 X3
04449 M00S03855.profile +++| SA6 ML SET NEW FIELD LENGTH
04450 M00S03856.profile +++| SX6 X6-10B
04451 M00S03857.profile +++| SA6 F.TEND ADJUST TABLE LENGTH
04452 M00S03858.profile +++| JP B6 EXIT
04453 M00S03859.profile +++|
04454 M00S03860.profile +++|
| Line S03861 Modification History |
M01 (Removed by) | ns2290 |
Seq # *Modification Id* Act
----------------------------+
04455 M01S03861.ns2290 ---| TO CON TOV
04456 M00S03862.profile +++| TOVB CON 0 FIELD LENGTH STATUS RETURN
04457 M00S03863.profile +++| HDR SPACE 4
04458 M00S03864.profile +++|** HDR - WRITE HEADER.
04459 M00S03865.profile +++|*
04460 M00S03866.profile +++|* ENTRY NONE.
04461 M00S03867.profile +++|*
04462 M00S03868.profile +++|* EXIT HEADER LINES WRITTEN TO OUTPUT FILE.
04463 M00S03869.profile +++|* (X2) = OUTPUT FILE FET ADDRESS.
04464 M00S03870.profile +++|*
04465 M00S03871.profile +++|* USES ALL REGISTERS EXCEPT A0, X0, A5 AND X5.
04466 M00S03872.profile +++|*
04467 M00S03873.profile +++|* CALLS CDD, SFN.
04468 M00S03874.profile +++|*
04469 M00S03875.profile +++|* MACROS WRITEH, WRITEW.
04470 M00S03876.profile +++|
04471 M00S03877.profile +++|
04472 M00S03878.profile +++| HDR5 SA7 PGLC DISABLE FURTHER PAGING
04473 M00S03879.profile +++| ZR X1,HDRX IF TERMINAL OUTPUT
04474 M00S03880.profile +++| SA3 HDRL
04475 M00S03881.profile +++| SA1 CCDR+8
04476 M00S03882.profile +++| BX6 X3
| Line S03883 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04477 M01S03883.v23l617 ---| HDR6 SA1 A1-B1 BLANK FILL CONTROL CARD IMAGE
| Line S00200 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04478 M01S00200.v23l617 +++| HDR6 SA1 A1-B1 BLANK FILL COMMAND IMAGE
04479 M00S03884.profile +++| SA6 A1
| Line S03885 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04480 M01S03885.v23l617 ---| ZR X1,HDR6 IF NOT END OF CONTROL CARD
04481 M01S03886.v23l617 ---| RJ SFN BLANK FILL LAST WORD OF CONTROL CARD
| Line S00201 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04482 M01S00201.v23l617 +++| ZR X1,HDR6 IF NOT END OF COMMAND
04483 M01S00202.v23l617 +++| RJ SFN BLANK FILL LAST WORD OF COMMAND
04484 M00S03887.profile +++| SA6 A1
04485 M00S03888.profile +++| WRITEW O,HDRK,B1 WRITE PAGE EJECT
| Line S03889 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04486 M01S03889.v23l617 ---| WRITEW X2,CCDR,8 WRITE CONTROL STATEMENT
| Line S00203 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04487 M01S00203.v23l617 +++| WRITEW X2,CCDR,8 WRITE COMMAND
04488 M00S03890.profile +++| WRITEH X2,HDRH,B1+B1 WRITE DATE AND TIME
04489 M00S03891.profile +++| HDR7 WRITEH X2,HDRL,B1 WRITE BLANK LINE
04490 M00S03892.profile +++|
04491 M00S03893.profile +++| HDR SUBR ENTRY/EXIT
04492 M00S03894.profile +++| SA3 OP CHECK FOR LIST OPTION
04493 M00S03895.profile +++| SA1 PO CHECK FOR TERMINAL OUTPUT
04494 M00S03896.profile +++| SX3 X3-LOPT
04495 M00S03897.profile +++| SX7 -1
04496 M00S03898.profile +++| NZ X3,HDR5 IF NOT LIST OPTION
04497 M00S03899.profile +++| NZ X1,HDR1 IF NOT TERMINAL OUTPUT
04498 M00S03900.profile +++| MX6 6
04499 M00S03901.profile +++| SA1 HDRA
04500 M00S03902.profile +++| BX6 -X6*X1
04501 M00S03903.profile +++| SA2 =1L
04502 M00S03904.profile +++| BX6 X6+X2
04503 M00S03905.profile +++| SA6 A1
04504 M00S03906.profile +++| SA7 PGLC DISABLE FURTHER PAGING
04505 M00S03907.profile +++|
04506 M00S03908.profile +++| HDR1 WRITEW O,HDRA,B1
04507 M00S03909.profile +++| SA4 LO
04508 M00S03910.profile +++| SX2 HDRB
04509 M00S03911.profile +++| SX1 X4-CSLO
04510 M00S03912.profile +++| ZR X1,HDR2 IF CHARGE NUMBER LIST
04511 M00S03913.profile +++| SX1 X4-CMLO
04512 M00S03914.profile +++| ZR X1,HDR2 IF MASTER USER CHARGE NUMBER LIST
04513 M00S03915.profile +++| SX2 HDRC
04514 M00S03916.profile +++| SX1 X4-PSLO
04515 M00S03917.profile +++| ZR X1,HDR2 IF PROJECT NUMBER LIST
04516 M00S03918.profile +++| SX1 X4-PMLO
04517 M00S03919.profile +++| ZR X1,HDR2 IF MASTER USER PROJECT NUMBER LIST
04518 M00S03920.profile +++| SX2 HDRD
04519 M00S03921.profile +++|
04520 M00S03922.profile +++| HDR2 WRITEW O,X2,B1+B1
04521 M00S03923.profile +++| SA4 LO
04522 M00S03924.profile +++| SX2 HDRE
04523 M00S03925.profile +++| SX1 X4-FMLO
04524 M00S03926.profile +++| PL X1,HDR3 IF MASTER USER OPTION
04525 M00S03927.profile +++| SX2 HDRF
04526 M00S03928.profile +++|
04527 M00S03929.profile +++| HDR3 WRITEW O,X2,3
04528 M00S03930.profile +++| SA2 PO
04529 M00S03931.profile +++| ZR X2,HDR4 IF TERMINAL FILE
04530 M00S03932.profile +++| SA1 HDRJ PAGE NUMBER
04531 M00S03933.profile +++| SX6 X1+B1
04532 M00S03934.profile +++| SA6 A1
04533 M00S03935.profile +++| RJ CDD
04534 M00S03936.profile +++| MX4 -36
04535 M00S03937.profile +++| SA2 =4LPAGE
04536 M00S03938.profile +++| BX6 -X4*X6
04537 M00S03939.profile +++| BX6 X6+X2
04538 M00S03940.profile +++| SA6 HDRI
04539 M00S03941.profile +++|
04540 M00S03942.profile +++| HDR4 WRITEH O,HDRI,B1
04541 M00S03943.profile +++| WRITEH X2,HDRG,7
04542 M00S03944.profile +++| EQ HDR7 WRITE BLANK LINE
04543 M00S03945.profile +++|
04544 M00S03946.profile +++|
04545 M00S03947.profile +++| HDRA DIS 1,1 "PPFN"
04546 M00S03948.profile +++| HDRB DIS 2,CHARGE NUMBER LIST
04547 M00S03949.profile +++| HDRC DIS 2,PROJECT NUMBER LIST
04548 M00S03950.profile +++| HDRD DIS 2,FULL FILE LIST
04549 M00S03951.profile +++| HDRE DIS 3,OF MASTER USER
04550 M00S03952.profile +++| HDRF DIS 2,OF FULL FILE.
04551 M00S03953.profile +++| HDRG DIS 5, CHARGE NUMBER MASTER USER
04552 M00S03954.profile +++| HDRH BSSZ 2 DATE AND TIME
04553 M00S03955.profile +++| HDRI CON 0
04554 M00S03956.profile +++| HDRJ CON 1 PAGE NUMBER
04555 M00S03957.profile +++| HDRK CON 1H1
04556 M00S03958.profile +++| HDRL CON 10H
04557 M00S03959.profile +++| WOL SPACE 4
04558 M00S03960.profile +++|** WOL - WRITE OUTPUT LINE.
04559 M00S03961.profile +++|*
04560 M00S03962.profile +++|* ENTRY (X2) ADDRESS OF FET FOR FILE.
04561 M00S03963.profile +++|* (B6) FWA OF WORKING BUFFER.
04562 M00S03964.profile +++|* (B7) WORD COUNT OF WORKING BUFFER.
04563 M00S03965.profile +++|* IF (B7) = 0, NO TRANSFER WILL BE PERFORMED.
04564 M00S03966.profile +++|*
04565 M00S03967.profile +++|* EXIT (X2) ADDRESS OF FET FOR FILE.
04566 M00S03968.profile +++|* NEW HEADER WRITTEN IF END OF PAGE.
04567 M00S03969.profile +++|*
04568 M00S03970.profile +++|* CALLS HDR, WTH.
04569 M00S03971.profile +++|*
04570 M00S03972.profile +++|* USES ALL REGISTERS EXCEPT A0, X0, A5 AND X5.
04571 M00S03973.profile +++|
04572 M00S03974.profile +++|
04573 M00S03975.profile +++| WOL SUBR ENTRY/EXIT
04574 M00S03976.profile +++| SX3 X2-O
04575 M00S03977.profile +++| NZ X3,WOL1 IF NOT OUTPUT FILE
04576 M00S03978.profile +++| SA1 PGLC
04577 M00S03979.profile +++| NG X1,WOL1 IF PAGING DISABLED
04578 M00S03980.profile +++| SX6 X1+B1 INCREMENT LINE COUNT
| Line S03981 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
04579 M01S03981.ns22000 ---| SX4 X1-LINP+3
| Line S00239 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
04580 M01S00239.ns22000 +++| SA4 A1+B1 GET LINE LIMIT
04581 M01S00240.ns22000 +++| IX4 X1-X4
04582 M00S03982.profile +++| SA6 A1
04583 M00S03983.profile +++| NG X4,WOL1 IF NOT END OF PAGE
| Line S03984 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
04584 M01S03984.ns22000 ---| SX6 B1 RESET LINE COUNTER
04585 M01S03985.ns22000 ---| SA6 A1
04586 M01S03986.ns22000 ---| SX7 B6 SAVE REGISTERS
04587 M01S03987.ns22000 ---| SX6 B7
04588 M01S03988.ns22000 ---| SA7 WOLA
| Line S00241 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
04589 M01S00241.ns22000 +++| SX6 4
04590 M01S00242.ns22000 +++| SX7 B6
04591 M01S00243.ns22000 +++| SA6 A1 RESET LINE COUNT
04592 M01S00244.ns22000 +++| SA7 WOLA
04593 M01S00245.ns22000 +++| SX6 B7 SAVE REGISTERS
04594 M00S03989.profile +++| SA6 A7+B1
04595 M00S03990.profile +++| RJ HDR WRITE HEADER
04596 M00S03991.profile +++| SA3 WOLA RESTORE REGISTERS
04597 M00S03992.profile +++| SA4 A3+B1
04598 M00S03993.profile +++| SB6 X3
04599 M00S03994.profile +++| SB7 X4
04600 M00S03995.profile +++| WOL1 WRITEH X2,B6,B7
04601 M00S03996.profile +++| EQ WOLX RETURN
04602 M00S03997.profile +++|
04603 M00S03998.profile +++| WOLA BSSZ 2 HOLD AREA FOR REGISTERS
04604 M00S03999.profile +++| CAF SPACE 4
04605 M00S04000.profile +++|** CAF - CHECK ALTERNATE FAMILY.
04606 M00S04001.profile +++|*
04607 M00S04002.profile +++|* EXIT (X6) .NE. 0, IF FAMILY NAME CHANGE NOT ALLOWED.
04608 M00S04003.profile +++|* FAMILY NAME SET TO (FN) IF (FN) .NE. -1 AND JOB
04609 M00S04004.profile +++|* IS FROM SYSTEM ORIGIN.
| Line S04005 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04610 M01S04005.v23l617 ---|* TO ABT, IF ILLEGAL FAMILY NAME SPECIFIED.
| Line S00204 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04611 M01S00204.v23l617 +++|* TO *ABT*, IF INCORRECT FAMILY NAME SPECIFIED.
04612 M00S04006.profile +++|*
04613 M00S04007.profile +++|* USES A - 1,2,6.
04614 M00S04008.profile +++|* B - NONE.
04615 M00S04009.profile +++|* X - 1,2,6.
04616 M00S04010.profile +++|*
04617 M00S04011.profile +++|* CALLS CPM,ABT.
04618 M00S04012.profile +++|
04619 M00S04013.profile +++|
04620 M00S04014.profile +++| CAF SUBR ENTRY/EXIT
04621 M00S04015.profile +++| SA1 FN
04622 M00S04016.profile +++| MX6 59
04623 M00S04017.profile +++| BX6 X1-X6
04624 M00S04018.profile +++| ZR X6,CAFX IF FAMILY NOT SPECIFIED
04625 M00S04019.profile +++| SA1 OT
04626 M00S04020.profile +++| SX6 X1-SYOT
04627 M00S04021.profile +++| NZ X6,CAFX IF NOT SYSTEM ORIGIN
04628 M00S04022.profile +++| ENFAM FN
04629 M00S04023.profile +++| SA1 FN
04630 M00S04024.profile +++| MX6 -18
04631 M00S04025.profile +++| BX6 X6*X1
04632 M00S04026.profile +++| LX1 59-11
04633 M00S04027.profile +++| SX2 =C* FM NOT LEGAL FAMILY.*
04634 M00S04028.profile +++| PL X1,CAF1 IF FAMILY CHANGED
04635 M00S04029.profile +++| MX6 59
04636 M00S04030.profile +++| SA6 A1
04637 M00S04031.profile +++| EQ ABT
04638 M00S04032.profile +++|
04639 M00S04033.profile +++| CAF1 SA6 A1 SET OLD FAMILY NAME
04640 M00S04034.profile +++| BX6 X6-X6
04641 M00S04035.profile +++| EQ CAFX RETURN
04642 M00S04036.profile +++| ADB SPACE 4,10
04643 M00S04037.profile +++|** ADB - ADD DATA LEVEL BLOCK TO TABLE 3.
04644 M00S04038.profile +++|*
04645 M00S04039.profile +++|* ENTRY (X7) = RANDOM ADDRESS OF BLOCK TO READ.
04646 M00S04040.profile +++|* (X0) = FET ADDRESS TO READ FROM.
04647 M00S04041.profile +++|* (CN) = CHARGE NUMBER.
04648 M00S04042.profile +++|* (PN - PN+1) = PROJECT NUMBER.
04649 M00S04043.profile +++|*
04650 M00S04044.profile +++|* EXIT (A5) = FWA OF LEVEL-3 ENTRY.
04651 M00S04045.profile +++|* (T3IE) = TABLE 3 INDEX OF ENTRY.
04652 M00S04046.profile +++|*
04653 M00S04047.profile +++|* CALLS CEP, RDB.
04654 M00S04048.profile +++|*
04655 M00S04049.profile +++|* USES ALL REGISTERS.
04656 M00S04050.profile +++|
04657 M00S04051.profile +++|
04658 M00S04052.profile +++| ADB2 SX6 B2+ SET TABLE 3 INDEX OF ENTRY
04659 M00S04053.profile +++| SA6 T3IE
04660 M00S04054.profile +++|
04661 M00S04055.profile +++| ADB SUBR ENTRY/EXIT
04662 M00S04056.profile +++| BX6 X6-X6 EMPTY TABLE 3
04663 M00S04057.profile +++| SA6 L.TAB3
04664 M00S04058.profile +++| RJ RDB READ DATA LEVEL BLOCK
04665 M00S04059.profile +++| SA3 F.TAB3
04666 M00S04060.profile +++| MX4 -12
04667 M00S04061.profile +++| SB2 B0
04668 M00S04062.profile +++| ADB1 SA5 X3+B2 ENTRY,S CONTROL WORD
04669 M00S04063.profile +++| LX5 12
04670 M00S04064.profile +++| BX6 -X4*X5
04671 M00S04065.profile +++| SX6 X6-3
04672 M00S04066.profile +++| NZ X6,ERD19 IF NOT LEVEL-3 BLOCK
04673 M00S04067.profile +++| LX5 12 ENTRY,S WORD POINTER
04674 M00S04068.profile +++| BX6 -X4*X5
04675 M00S04069.profile +++| RJ CEP CHECK ENTRY,S PROJECT NUMBER
04676 M00S04070.profile +++| ZR X2,ADB2 IF ENTRY FOUND
04677 M00S04071.profile +++| ZR X6,ERD20 IF ENTRY NOT IN BLOCK
04678 M00S04072.profile +++| SB2 B2+X6
04679 M00S04073.profile +++| SX6 B2-PRUS
04680 M00S04074.profile +++| NG X6,ADB1 IF NO ERROR
04681 M00S04075.profile +++| JP ERD21
04682 M00S04076.profile +++| AUN SPACE 4,10
| Line S04077 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04683 M01S04077.v23l617 ---|** AUN - ADD USER NUMBER.
| Line S00205 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04684 M01S00205.v23l617 +++|** AUN - ADD USER NAME.
04685 M00S04078.profile +++|*
04686 M00S04079.profile +++|* IF NECESSARY, ANOTHER LEVEL-3 OVERFLOW BLOCK IS ALLOCATED.
04687 M00S04080.profile +++|*
| Line S04081 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04688 M01S04081.v23l617 ---|* ENTRY (X1) = USER NUMBER TO ADD (RIGHT JUSTIFIED,
| Line S00206 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04689 M01S00206.v23l617 +++|* ENTRY (X1) = USER NAME TO ADD (RIGHT JUSTIFIED,
04690 M00S04082.profile +++|* WITH LEADING ZEROS).
04691 M00S04083.profile +++|*
04692 M00S04084.profile +++|* USES A - 1, 2, 3, 4, 5, 6, 7.
04693 M00S04085.profile +++|* B - 2, 3.
04694 M00S04086.profile +++|* X - 1, 2, 3, 4, 5, 6, 7.
04695 M00S04087.profile +++|*
04696 M00S04088.profile +++|* CALLS GES, NUE.
04697 M00S04089.profile +++|*
04698 M00S04090.profile +++|* MACROS ALLOC.
04699 M00S04091.profile +++|
04700 M00S04092.profile +++|
| Line S04093 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04701 M01S04093.v23l617 ---| AUN7 SB3 ERUP **** DUPLICATE USER NUMBER.
| Line S00207 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04702 M01S00207.v23l617 +++| AUN7 SB3 ERUP **** DUPLICATE USER NAME.
04703 M00S04094.profile +++| AUN8 RJ ERU USER ERROR
04704 M00S04095.profile +++|
04705 M00S04096.profile +++| AUN SUBR ENTRY/EXIT
| Line S04097 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04706 M01S04097.v23l617 ---| BX6 X1 SEARCH FOR USER NUMBER
| Line S00208 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04707 M01S00208.v23l617 +++| BX6 X1 SEARCH FOR USER NAME
04708 M00S04098.profile +++| LX6 18
04709 M00S04099.profile +++| SA6 UNUM
04710 M00S04100.profile +++| BX6 X6-X6 CLEAR FIRST HOLE INDEX
04711 M00S04101.profile +++| SA6 AUNB
04712 M00S04102.profile +++| SX1 B1
| Line S04103 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04713 M01S04103.v23l617 ---| AUN1 RJ NUE NEXT USER NUMBER ENTRY
| Line S00209 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04714 M01S00209.v23l617 +++| AUN1 RJ NUE NEXT USER NAME ENTRY
04715 M00S04104.profile +++| NZ B2,AUN4 IF END OF LEVEL-3 CHAIN
04716 M00S04105.profile +++| MX2 42
04717 M00S04106.profile +++| BX2 X2*X1
04718 M00S04107.profile +++| ZR X2,AUN2 IF HOLE
04719 M00S04108.profile +++| SA2 UNUM
04720 M00S04109.profile +++| BX2 X1-X2
| Line S04110 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04721 M01S04110.v23l617 ---| ZR X2,AUN7 IF USER NUMBER ALREADY PRESENT
| Line S00210 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04722 M01S00210.v23l617 +++| ZR X2,AUN7 IF USER NAME ALREADY PRESENT
04723 M00S04111.profile +++| BX1 X1-X1
04724 M00S04112.profile +++| EQ AUN1 LOOP
04725 M00S04113.profile +++|
04726 M00S04114.profile +++| AUN2 SA2 AUNB SAVE INDEX OF FIRST HOLE
04727 M00S04115.profile +++| NZ X2,AUN3 IF ALREADY HAVE A HOLE
04728 M00S04116.profile +++| SA3 F.TAB3
04729 M00S04117.profile +++| SB2 X3
04730 M00S04118.profile +++| SX7 A1-B2
04731 M00S04119.profile +++| SA7 A2
04732 M00S04120.profile +++| AUN3 ZR X1,AUN1 IF NOT END OF LIST
04733 M00S04121.profile +++|
04734 M00S04122.profile +++| AUN4 SA1 AUNB
04735 M00S04123.profile +++| SA2 F.TAB3
04736 M00S04124.profile +++| IX3 X1+X2
04737 M00S04125.profile +++| NZ X1,AUN6 IF HOLE EXISTS
04738 M00S04126.profile +++| SA5 L.TAB3 ALLOCATE NEW OVERFLOW BLOCK
04739 M00S04127.profile +++| ALLOC TAB3,PRUS
04740 M00S04128.profile +++| IX3 X2+X5
04741 M00S04129.profile +++| SA4 =2LOV CONTROL WORD
04742 M00S04130.profile +++| BX6 X4
04743 M00S04131.profile +++| SA6 X3
04744 M00S04132.profile +++| SB2 PRUS-1 INITIALIZE REST OF NEW BLOCK (WITH 1)
04745 M00S04133.profile +++| SX6 B1
04746 M00S04134.profile +++| AUN5 SA6 A6+B1
04747 M00S04135.profile +++| SB2 B2-B1
04748 M00S04136.profile +++| NZ B2,AUN5 IF MORE WORDS IN BLOCK
04749 M00S04137.profile +++| SX3 X3+B1
04750 M00S04138.profile +++|
| Line S04139 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04751 M01S04139.v23l617 ---| AUN6 SA4 UNUM PLACE USER NUMBER IN HOLE
| Line S00211 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04752 M01S00211.v23l617 +++| AUN6 SA4 UNUM PLACE USER NAME IN HOLE
04753 M00S04140.profile +++| BX7 X4
| Line S04141 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04754 M01S04141.v23l617 ---| SA5 T3IE INCREMENT USER NUMBER COUNT FIELD
| Line S00212 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04755 M01S00212.v23l617 +++| SA5 T3IE INCREMENT USER NAME COUNT FIELD
04756 M00S04142.profile +++| IX1 X2+X5
04757 M00S04143.profile +++| SA2 X1
04758 M00S04144.profile +++| LX2 -24
04759 M00S04145.profile +++| MX5 -12
04760 M00S04146.profile +++| BX4 -X5*X2
04761 M00S04147.profile +++| SX4 X4+B1
04762 M00S04148.profile +++| BX6 X5*X4
| Line S04149 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04763 M01S04149.v23l617 ---| SB3 ERUT **** USER NUMBER LIMIT.
| Line S00213 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04764 M01S00213.v23l617 +++| SB3 ERUT **** USER NAME LIMIT.
04765 M00S04150.profile +++| NZ X6,AUN8 IF FIELD OVERFLOW
04766 M00S04151.profile +++| SA7 X3
04767 M00S04152.profile +++| BX2 X5*X2
04768 M00S04153.profile +++| BX6 X2+X4
04769 M00S04154.profile +++| LX6 24
04770 M00S04155.profile +++| SA6 A2
04771 M00S04156.profile +++| EQ AUNX
04772 M00S04157.profile +++|
04773 M00S04158.profile +++|
04774 M00S04159.profile +++| AUNB BSS 1 FIRST HOLE INDEX
04775 M00S04160.profile +++| CED SPACE 4,10
04776 M00S04161.profile +++|** CED - CONVERT ENTRY TO DISPLAY CODE.
04777 M00S04162.profile +++|*
04778 M00S04163.profile +++|* ENTRY (X5) = TABLE OF INDICES ENTRY (TOI).
04779 M00S04164.profile +++|* (X1) = FIELD,S CURRENT VALUE (RIGHT JUSTIFIED).
04780 M00S04165.profile +++|* (X4) = FIELD,S CURRENT VALUE (LEFT JUSTIFIED).
04781 M00S04166.profile +++|*
04782 M00S04167.profile +++|* EXIT (X6) = DISPLAY CODE VALUE, LEFT JUSTIFIED
04783 M00S04168.profile +++|* WITH TRAILING SPACES.
04784 M00S04169.profile +++|* (FLDV) = FIELD,S CURRENT VALUE (RIGHT JUSTIFIED,
04785 M00S04170.profile +++|* PERTINENT ONLY FOR NUMERIC DIRECTIVES).
04786 M00S04171.profile +++|*
04787 M00S04172.profile +++|* CALLS CDD, COD, SFN.
04788 M00S04173.profile +++|*
04789 M00S04174.profile +++|* USES ALL REGISTERS EXCEPT A0, X0, A5, X5.
04790 M00S04175.profile +++|
04791 M00S04176.profile +++|
04792 M00S04177.profile +++| CED2 BX1 X4
04793 M00S04178.profile +++| RJ SFN SPACE FILL NAME
04794 M00S04179.profile +++|
04795 M00S04180.profile +++| CED SUBR ENTRY/EXIT
04796 M00S04181.profile +++| BX6 X1 SAVE FIELD,S VALUE
04797 M00S04182.profile +++| SA6 FLDV
04798 M00S04183.profile +++| MX2 2
04799 M00S04184.profile +++| BX2 X2*X5
04800 M00S04185.profile +++| ZR X2,CED2 IF NO CONVERSION
04801 M00S04186.profile +++| LX2 2
04802 M00S04187.profile +++| SX2 X2-1
04803 M00S04188.profile +++| ZR X2,CED1 IF OCTAL CONVERSION
04804 M00S04189.profile +++| RJ CDD DECIMAL DISPLAY CODE CONVERSION
04805 M00S04190.profile +++| BX6 X4
04806 M00S04191.profile +++| EQ CEDX
04807 M00S04192.profile +++|
04808 M00S04193.profile +++| CED1 RJ COD OCTAL DISPLAY CODE CONVERSION
04809 M00S04194.profile +++| SB3 B2-60 INSERT *B* AFTER VALUE
04810 M00S04195.profile +++| SB3 -B3 FIRST CLEAR CHARACTER POSITION
04811 M00S04196.profile +++| MX2 6
04812 M00S04197.profile +++| LX2 B3
04813 M00S04198.profile +++| BX4 -X2*X4
04814 M00S04199.profile +++| SA2 =1LB MERGE IN *B*
04815 M00S04200.profile +++| LX2 B3
04816 M00S04201.profile +++| BX6 X2+X4
04817 M00S04202.profile +++| EQ CEDX
04818 M00S04203.profile +++| CEP SPACE 4,10
04819 M00S04204.profile +++|** CEP - CHECK ENTRY,S PROJECT NUMBER.
04820 M00S04205.profile +++|*
04821 M00S04206.profile +++|* ENTRY (A5) = FWA OF LEVEL-3 ENTRY.
04822 M00S04207.profile +++|* (CN) = CHARGE NUMBER.
04823 M00S04208.profile +++|* (PN - PN+1) = PROJECT NUMBER.
04824 M00S04209.profile +++|*
04825 M00S04210.profile +++|* EXIT (X2) = 0, IF PROJECT NUMBER MATCH.
04826 M00S04211.profile +++|*
04827 M00S04212.profile +++|* USES X - 1.
04828 M00S04213.profile +++|* A - 1, 2.
04829 M00S04214.profile +++|
04830 M00S04215.profile +++|
04831 M00S04216.profile +++| CEP SUBR ENTRY/EXIT
04832 M00S04217.profile +++| SA1 A5+PRJW ENTRY,S PROJECT NUMBER
04833 M00S04218.profile +++| SA2 PN CURRENT PROJECT NUMBER
04834 M00S04219.profile +++| BX2 X1-X2
04835 M00S04220.profile +++| NZ X2,CEPX IF NO MATCH
04836 M00S04221.profile +++| SA1 A1+B1
04837 M00S04222.profile +++| SA2 A2+B1
04838 M00S04223.profile +++| BX2 X1-X2
04839 M00S04224.profile +++| NZ X2,CEPX IF NO MATCH
04840 M00S04225.profile +++| SA1 A5+PCHW CHECK CHARGE NUMBER
04841 M00S04226.profile +++| SA2 CN
04842 M00S04227.profile +++| BX2 X1-X2
04843 M00S04228.profile +++| ZR X2,CEPX IF MATCH
04844 M00S04229.profile +++| JP ERD22 ERROR
04845 M00S04230.profile +++| CFS SPACE 4,10
04846 M00S04231.profile +++|** CFS - CHECK FILE STATUS.
04847 M00S04232.profile +++|*
04848 M00S04233.profile +++|* ENTRY (B2) = FET ADDRESS.
04849 M00S04234.profile +++|*
04850 M00S04235.profile +++|* EXIT (X2) = PFM ERROR CODE FROM FET+0, RIGHT JUSTIFIED.
04851 M00S04236.profile +++|*
04852 M00S04237.profile +++|* USES X - 1.
04853 M00S04238.profile +++|* A - 1.
04854 M00S04239.profile +++|
04855 M00S04240.profile +++|
04856 M00S04241.profile +++| CFS SUBR ENTRY/EXIT
04857 M00S04242.profile +++| SA1 B2
04858 M00S04243.profile +++| AX1 10
04859 M00S04244.profile +++| MX2 -8
04860 M00S04245.profile +++| BX2 -X2*X1
04861 M00S04246.profile +++| EQ CFSX
| Line S04247 Modification History |
M01 (Removed by) | ns2516 |
Seq # *Modification Id* Act
----------------------------+
04862 M01S04247.ns2516 ---| CIV SPACE 4,10
| Line S00001 Modification History |
M01 (Added by) | ns2516 |
Seq # *Modification Id* Act
----------------------------+
04863 M01S00001.ns2516 +++| CIV SPACE 4,35
04864 M00S04248.profile +++|** CIV - CONVERT INDEX TO VALUE.
04865 M00S04249.profile +++|*
04866 M00S04250.profile +++|* VALUE IS CALCULATED USING ONE OF THE FOLLOWING METHODS-
04867 M00S04251.profile +++|* 1) IF I = 77B, V = DEFAULT VALUE (FROM TABLE TDSM).
04868 M00S04252.profile +++|* IF I = 0, V = 0.
04869 M00S04253.profile +++|* ELSE, V = I * (U-L) / 64 + L
04870 M00S04254.profile +++|* 2) IF I = 77B, V = LARGEST POSSIBLE NUMBER.
04871 M00S04255.profile +++|* ELSE, V = (100B * I + LBAS) * 100D
04872 M00S04256.profile +++|* 3) IF I = 77B, V = LARGEST POSSIBLE NUMBER.
| Line S04257 Modification History |
M01 (Removed by) | ns2516 |
Seq # *Modification Id* Act
----------------------------+
04873 M01S04257.ns2516 ---|* ELSE, V = (100B * I + KSLI) * 10B
| Line S00002 Modification History |
M01 (Added by) | ns2516 |
Seq # *Modification Id* Act
----------------------------+
04874 M01S00002.ns2516 +++|* ELSE, USE *COMCCVI* *SLI* CONVERSION.
04875 M00S04258.profile +++|* WHERE
04876 M00S04259.profile +++|* V = VALUE.
04877 M00S04260.profile +++|* I = INDEX.
04878 M00S04261.profile +++|* U = UPPER LIMIT VALUE (FROM TABLE *TVC*).
04879 M00S04262.profile +++|* L = LOWER LIMIT VALUE (FROM TABLE *TVC*).
04880 M00S04263.profile +++|*
04881 M00S04264.profile +++|* ENTRY (X3) = INDEX TO CONVERT.
04882 M00S04265.profile +++|* (X4) = TABLE OF INDICES (TOI) ENTRY.
04883 M00S04266.profile +++|* (A4) = ADDRESS OF TABLE OF INDICES ENTRY.
04884 M00S04267.profile +++|*
04885 M00S04268.profile +++|* EXIT (X1) = CALCULATED VALUE.
04886 M00S04269.profile +++|* (X1) .LT. 0, IF UNLIMITED VALUE.
04887 M00S04270.profile +++|* (X6) = 1, IF METHOD 1 USED TO CONVERT INDEX.
04888 M00S04271.profile +++|* .NE. 1, IF METHOD 2 OR 3 USED TO CONVERT INDEX.
04889 M00S04272.profile +++|*
04890 M00S04273.profile +++|* USES X - 1, 2, 3, 4, 6, 7.
04891 M00S04274.profile +++|* B - 2.
04892 M00S04275.profile +++|* A - 1.
| Line S00003 Modification History |
M01 (Added by) | ns2516 |
Seq # *Modification Id* Act
----------------------------+
04893 M01S00003.ns2516 +++|*
04894 M01S00004.ns2516 +++|* CALLS SLI.
04895 M00S04276.profile +++|
04896 M00S04277.profile +++|
04897 M00S04278.profile +++| CIV2 SX1 B0+
04898 M00S04279.profile +++| SB2 A4-TIM1
04899 M00S04280.profile +++| ZR X3,CIVX IF ZERO INDEX
04900 M00S04281.profile +++| SX7 X3-77B
04901 M00S04282.profile +++| SA1 TDSM+B2 DEFAULT VALUE
04902 M00S04283.profile +++| ZR X7,CIVX IF USE DEFAULT VALUE
04903 M00S04284.profile +++| SA2 TCSM+B2 CALCULATE MULTIPLIER
04904 M00S04285.profile +++| SX4 X2 LOWER LIMIT
04905 M00S04286.profile +++| AX2 18
04906 M00S04287.profile +++| SX7 X2 UPPER LIMIT
04907 M00S04288.profile +++| IX1 X7-X4
04908 M00S04289.profile +++| SX7 64
04909 M00S04290.profile +++| IX1 X1*X3
04910 M00S04291.profile +++| IX1 X1/X7
04911 M00S04292.profile +++| IX1 X1+X4
04912 M00S04293.profile +++| AX2 18
04913 M00S04294.profile +++| IX1 X1*X2 POSITION FOR F10.3 CONVERSION
04914 M00S04295.profile +++|
04915 M00S04296.profile +++| CIV SUBR ENTRY/EXIT
04916 M00S04297.profile +++| MX7 -2
04917 M00S04298.profile +++| LX4 4
04918 M00S04299.profile +++| BX6 -X7*X4
04919 M00S04300.profile +++| SX7 X6-1
04920 M00S04301.profile +++| ZR X7,CIV2 IF USE METHOD 1
04921 M00S04302.profile +++| SX1 -B1
04922 M00S04303.profile +++| SX7 X3-77B
04923 M00S04304.profile +++| ZR X7,CIVX IF UNLIMITED
| Line S04305 Modification History |
M01 (Removed by) | ns2516 |
Seq # *Modification Id* Act
----------------------------+
04924 M01S04305.ns2516 ---| LX3 6
04925 M01S04306.ns2516 ---| SX4 KSLI
04926 M01S04307.ns2516 ---| SX2 10B
04927 M00S04308.profile +++| SX7 X6-3
04928 M00S04309.profile +++| ZR X7,CIV1 IF USE METHOD 3
| Line S00005 Modification History |
M01 (Added by) | ns2516 |
Seq # *Modification Id* Act
----------------------------+
04929 M01S00005.ns2516 +++| LX3 6
04930 M00S04310.profile +++| SX4 LBAS
04931 M00S04311.profile +++| SX2 100D
| Line S04312 Modification History |
M01 (Removed by) | ns2516 |
Seq # *Modification Id* Act
----------------------------+
04932 M01S04312.ns2516 ---| CIV1 IX1 X3+X4
| Line S00006 Modification History |
M01 (Added by) | ns2516 |
Seq # *Modification Id* Act
----------------------------+
04933 M01S00006.ns2516 +++| IX1 X3+X4
04934 M00S04313.profile +++| IX1 X1*X2
| Line S04314 Modification History |
M01 (Removed by) | ns2516 |
Seq # *Modification Id* Act
----------------------------+
04935 M01S04314.ns2516 ---| EQ CIVX
| Line S00007 Modification History |
M01 (Added by) | ns2516 |
Seq # *Modification Id* Act
----------------------------+
04936 M01S00007.ns2516 +++| EQ CIVX RETURN
04937 M01S00008.ns2516 +++|
04938 M01S00009.ns2516 +++| CIV1 BX1 X3 CONVERT SRU INDEX
04939 M01S00010.ns2516 +++| BX4 X0 SAVE (X0)
04940 M01S00011.ns2516 +++| RJ SLI
04941 M01S00012.ns2516 +++| BX0 X4 RESTORE (X0)
04942 M01S00013.ns2516 +++| LX1 3
04943 M01S00014.ns2516 +++| EQ CIVX RETURN
04944 M00S04315.profile +++| CPV SPACE 4,10
04945 M00S04316.profile +++|** CPV - CONVERT AND PLACE VALUES.
04946 M00S04317.profile +++|*
04947 M00S04318.profile +++|* ENTRY (X5) = FIRST ENTRY OF PERTINENT TABLE OF INDICES (TOI).
04948 M00S04319.profile +++|* (A5) = ADDRESS OF FIRST ENTRY.
04949 M00S04320.profile +++|* (T1IE) = TABLE 1 INDEX OF ENTRY, IF LEVEL-1 DIRECTIVE.
04950 M00S04321.profile +++|* (T3IE) = TABLE 3 INDEX OF ENTRY, IF LEVEL-3 DIRECTIVE.
04951 M00S04322.profile +++|*
04952 M00S04323.profile +++|* CALLS CED, DFS, GFV, PVF.
04953 M00S04324.profile +++|*
04954 M00S04325.profile +++|* USES ALL REGISTERS EXCEPT A0, X0.
04955 M00S04326.profile +++|
04956 M00S04327.profile +++|