cdc:nos2.source:opl.opl871:deck:modval.004
Deck MODVAL Part 004
60 Modifications
Listing Sections
- Deck MODVAL Start
- Deck MODVAL Part 1 (Line 1327)
- Deck MODVAL Part 2 (Line 2825)
- Deck MODVAL Part 3 (Line 4431)
- Deck MODVAL Part 4 (Line 6226)
- Deck MODVAL Part 5 (Line 8096)
- Deck MODVAL Part 6 (Line 9529)
Source
Seq # *Modification Id* Act ----------------------------+ 06226 M00S05218.modval +++| ZR X1,WDB7 IF ALREADY DISPLAYED 06227 M00S05219.modval +++| MESSAGE A1,3,R ISSUE MESSAGE 06228 M00S05220.modval +++| SX6 B0+ 06229 M00S05221.modval +++| SA6 DML1 06230 M00S05222.modval +++| WDB7 R= A0,TAB1 WRITE TABLE 06231 M00S05223.modval +++| MX0 0 06232 M00S05224.modval +++| SX5 N 06233 M00S05225.modval +++| FUNC WTBT 06234 M00S05226.modval +++| EQ WDB9 CLEAR RANDOM ADDRESS AND EXIT 06235 M00S05227.modval +++| 06236 M00S05228.modval +++| 06237 M00S05229.modval +++| WDBA BSS 1 USER TO UPDATE 06238 M00S05230.modval +++| 06239 M00S05231.modval +++| WDBB CON 0 AVAILABLE DATA BLOCK FLAG 06240 M00S05232.modval +++| TITLE SOURCE CONVERSION SUBROUTINES. 06241 M00S05233.modval +++| ADP SPACE 4,10 06242 M00S05234.modval +++|** ADP - ADD PARENS. 06243 M00S05235.modval +++|* 06244 M00S05236.modval +++|* ENTRY (X6) = 6 CHARACTERS, RIGHT-JUSTIFIED, TO BE 06245 M00S05237.modval +++|* ENCLOSED BY PARENS. 06246 M00S05238.modval +++|* 06247 M00S05239.modval +++|* EXIT (X7) = 6 CHARACTERS ENCLOSED BY PARENS. 06248 M00S05240.modval +++|* 06249 M00S05241.modval +++|* USES X - 1, 2, 7. 06250 M00S05242.modval +++|* A - 1. 06251 M00S05243.modval +++| 06252 M00S05244.modval +++| 06253 M00S05245.modval +++| ADP SUBR ENTRY/EXIT 06254 M00S05246.modval +++| BX2 X6 06255 M00S05247.modval +++| LX2 24 06256 M00S05248.modval +++| MX1 36 06257 M00S05249.modval +++| BX2 X1*X2 ISOLATE UPPER 6 CHARACTERS 06258 M00S05250.modval +++| SA1 =4R) ( 06259 M00S05251.modval +++| BX7 X1+X2 ADD PARENS 06260 M00S05252.modval +++| LX7 42 REPOSITION CHARACTERS 06261 M00S05253.modval +++| EQ ADPX RETURN 06262 M00S05254.modval +++| AOC SPACE 4,10 06263 M00S05255.modval +++|** AOC - ALTERNATE OCTAL CONVERSION. 06264 M00S05256.modval +++|* 06265 M00S05257.modval +++|* ENTRY (A0) = ADDRESS OF *TFR* ENTRY FIRST WORD. 06266 M00S05258.modval +++|* (X1) = DATA FIELD RIGHT JUSTIFIED. 06267 M00S05259.modval +++|* 06268 M00S05260.modval +++|* EXIT (X6) = FIRST WORD OF CONVERTED NUMBER. 06269 M00S05261.modval +++|* (X7) = SECOND WORD OF CONVERTED NUMBER. 06270 M00S05262.modval +++|* 06271 M00S05263.modval +++|* USES A - 2, 4. 06272 M00S05264.modval +++|* B - 2, 3. 06273 M00S05265.modval +++|* X - 1, 2, 4, 7. 06274 M00S05266.modval +++|* 06275 M00S05267.modval +++|* CALLS WOD. 06276 M00S05268.modval +++| 06277 M00S05269.modval +++| 06278 M00S05270.modval +++| AOC SUBR ENTRY/EXIT 06279 M00S05271.modval +++| RJ WOD 06280 M00S05272.modval +++| SA4 A0 GET WORD 1 OF ENTRY 06281 M00S05273.modval +++| LX4 59-30 06282 M00S05274.modval +++| PL X4,AOCX IF NOT MULTIPLE WORD RESULT 06283 M00S05275.modval +++| LX4 24-59+30 06284 M00S05276.modval +++| MX2 -6 06285 M00S05277.modval +++| BX2 -X2*X4 GET NUMBER OF CHARACTERS IN MULTIPLE WORD 06286 M00S05278.modval +++| MX1 1 06287 M00S05279.modval +++| SB2 X2-10 06288 M00S05280.modval +++| SB2 B2+B2 06289 M00S05281.modval +++| SB3 B2+B2 06290 M00S05282.modval +++| SB2 B3+B2 06291 M00S05283.modval +++| SB2 B2-B1 06292 M00S05284.modval +++| AX1 B2 06293 M00S05285.modval +++| BX7 X1*X7 MASK OFF UNUSED CHARACTERS 06294 M00S05286.modval +++| SA2 =10H 06295 M00S05287.modval +++| BX2 -X1*X2 BLANK FILL REMAINDER OF WORD 06296 M00S05288.modval +++| BX7 X7+X2 06297 M00S05289.modval +++| EQ AOCX RETURN 06298 M00S05290.modval +++| 06299 M00S05291.modval +++| APC SPACE 4,10 06300 M00S05292.modval +++|** APC - APPLICATION PERMISSIONS CONVERSION FOR DISPLAY. 06301 M00S05293.modval +++|* 06302 M00S05294.modval +++|* ENTRY (TANB+AAVW) = APPLICATION PERMISSION WORD. 06303 M00S05295.modval +++|* 06304 M00S05296.modval +++|* EXIT APPLICATION PERMISSION PAGE OF K-DISPLAY SET. 06305 M00S05297.modval +++|* 06306 M00S05298.modval +++|* USES X - 2, 3, 4, 5, 6, 7. 06307 M00S05299.modval +++|* A - 3, 4, 5, 6. 06308 M00S05300.modval +++|* B - 3, 4, 5, 7. 06309 M00S05301.modval +++| 06310 M00S05302.modval +++| 06311 M00S05303.modval +++| APC SUBR ENTRY/EXIT 06312 M00S05304.modval +++| SA4 TANB+AAVW GET APPLICATION PERMISSIONS 06313 M00S05305.modval +++| SB3 59 06314 M00S05306.modval +++| SA5 TNAV-1 APPLICATION BIT POSITIONS AND NAMES 06315 M00S05307.modval +++| SB7 DSAP+1 INITIALIZE K-DISPLAY POINTER 06316 M00S05308.modval +++| MX2 -12 06317 M00S05309.modval +++| MX7 42 06318 M00S05310.modval +++| APC1 SA5 A5+B1 06319 M00S05311.modval +++| ZR X5,APCX IF END OF APPLICATION TABLE 06320 M00S05312.modval +++| BX3 -X2*X5 06321 M00S05313.modval +++| NG X5,APC1 IF SPARE APPLICATION BIT 06322 M00S05314.modval +++| SB5 X3 ACCESS BIT NUMBER 06323 M00S05315.modval +++| SB4 B3-B5 06324 M00S05316.modval +++| LX3 X4,B4 POSITION ACCESS BIT 06325 M00S05317.modval +++| BX6 X7*X5 APPLICATION NAME 06326 M00S05318.modval +++| SB4 =10HOFF 06327 M00S05319.modval +++| PL X3,APC2 IF APPLICATION NOT PERMITTED 06328 M00S05320.modval +++| SB4 =10HON 06329 M00S05321.modval +++| APC2 SA6 B7+B1 SET APPLICATION NAME 06330 M00S05322.modval +++| SA3 B4 06331 M00S05323.modval +++| BX6 X3 SET ON/OFF STATUS 06332 M00S05324.modval +++| SA6 B7 06333 M00S05325.modval +++| SB7 B7+3 06334 M00S05326.modval +++| EQ APC1 PROCESS NEXT APPLICATION 06335 M00S05327.modval +++| CAV SPACE 4,15 06336 M00S05328.modval +++|** CAV - CALCULATE ACTUAL VALUE. 06337 M00S05329.modval +++|* 06338 M00S05330.modval +++|* ENTRY (A0) = ADDRESS OF *TFR* ENTRY FIRST WORD. 06339 M00S05331.modval +++|* (X1) = INDEX VALUE TO BE CONVERTED TO ACTUAL VALUE. 06340 M00S05332.modval +++|* 06341 M00S05333.modval +++|* EXIT (X3) = 0 IF NO ACTUAL VALUE CONVERSION REQUIRED. 06342 M00S05334.modval +++|* ACTUAL VALUE STORED IN LIMITS MESSAGE. 06343 M00S05335.modval +++|* ACTUAL VALUE IN PARENS STORED AT K-DISPLAY ADDRESS +1. 06344 M00S05336.modval +++|* 06345 M00S05337.modval +++|* USES A - 2, 4, 5, 6, 7. 06346 M00S05338.modval +++|* B - 3, 4, 7. 06347 M00S05339.modval +++|* X - ALL. 06348 M00S05340.modval +++|* 06349 M00S05341.modval +++|* CALLS ADP, CDD, COD, ICE, INDEX CONVERSION PROCESSORS. 06350 M00S05342.modval +++| 06351 M00S05343.modval +++| 06352 M00S05344.modval +++| CAV SUBR ENTRY/EXIT 06353 M00S05345.modval +++| SA4 A0 GET 1ST WORD OF ENTRY 06354 M00S05346.modval +++| MX0 -6 06355 M00S05347.modval +++| LX4 -18 06356 M00S05348.modval +++| BX3 -X0*X4 06357 M00S05349.modval +++| ZR X3,CAVX IF NO ACTUAL VALUE CONVERSION 06358 M00S05350.modval +++| SA2 A0+2 GET 3RD WORD OF ENTRY 06359 M00S05351.modval +++| AX2 36 06360 M00S05352.modval +++| SB7 X2 PROCESSOR ADDRESS 06361 M00S05353.modval +++| AX2 18 06362 M00S05354.modval +++| SB4 X2 SHIFT VALUE 06363 M00S05355.modval +++| SB3 X3 06364 M00S05356.modval +++| LX4 59-32+18-60 06365 M00S05357.modval +++| RJ ICE CALCULATE ACTUAL VALUE 06366 M00S05358.modval +++| SA2 =10H 06367 M00S05359.modval +++| BX6 X2 06368 M00S05360.modval +++| LX7 X2 06369 M00S05361.modval +++| PL X4,CAV1 IF NOT ZERO SYSTEM DEFAULT CASE 06370 M00S05362.modval +++| ZR X1,CAV4 IF SYSTEM DEFAULT VALUE 06371 M00S05363.modval +++| CAV1 NG X1,CAV4 IF UNLIMITED 06372 M00S05364.modval +++| LX1 B4 06373 M00S05365.modval +++| EQ B3,B1,CAV2 IF OCTAL CONVERSION 06374 M00S05366.modval +++| RJ CDD CONVERT ACTUAL VALUE TO DECIMAL DISPLAY 06375 M00S05367.modval +++| EQ CAV3 ADD PARENS 06376 M00S05368.modval +++| 06377 M00S05369.modval +++| CAV2 RJ CON CONVERT ACTUAL VALUE TO OCTAL DISPLAY 06378 M00S05370.modval +++| CAV3 RJ ADP ADD PARENS 06379 M00S05371.modval +++| SA5 A0+B1 06380 M00S05372.modval +++| AX5 36 06381 M00S05373.modval +++| ZR X5,CAV4 IF NO LIMITS MESSAGE 06382 M00S05374.modval +++| SA6 X5+5 ENTER ACTUAL VALUE IN LIMITS MESSAGE 06383 M00S05375.modval +++| CAV4 SA5 A0+B1 06384 M00S05376.modval +++| AX5 18 06385 M00S05377.modval +++| SX5 X5+ 06386 M00S05378.modval +++| ZR X5,CAVX IF NO K-DISPLAY FIELD 06387 M00S05379.modval +++| SA7 X5+1 06388 M00S05380.modval +++| EQ CAVX RETURN 06389 M00S05381.modval +++| CDS SPACE 4,15 06390 M00S05382.modval +++|** CDS - CONVERT DATE TO SOURCE. 06391 M00S05383.modval +++|* 06392 M00S05384.modval +++|* ENTRY (A1) = ADDRESS OF DATE. 06393 M00S05385.modval +++|* (X1) = DATE IN FORM * YY/MM/DD.*. 06394 M00S05386.modval +++|* 06395 M00S05387.modval +++|* EXIT DATE STORED IN FORM *YYMMDD*. 06396 M00S05388.modval +++|* DATE RESET TO * IF NONEXPIRING. 06397 M00S05389.modval +++|* 06398 M00S05390.modval +++|* USES X - 1, 2, 3, 6, 7. 06399 M00S05391.modval +++|* A - 2, 3, 7. 06400 M00S05392.modval +++|* B - 2. 06401 M00S05393.modval +++| 06402 M00S05394.modval +++| 06403 M00S05395.modval +++| CDS SUBR ENTRY/EXIT 06404 M00S05396.modval +++| SA2 =10H * 06405 M00S05397.modval +++| SA3 =10H 06406 M00S05398.modval +++| BX7 X1-X3 06407 M00S05399.modval +++| ZR X7,CDS2 IF NONEXPIRING PASSWORD 06408 M00S05400.modval +++| MX6 -12 06409 M00S05401.modval +++| SB2 B1+B1 06410 M00S05402.modval +++| BX7 X7-X7 06411 M00S05403.modval +++| CDS1 LX1 18 06412 M00S05404.modval +++| BX2 -X6*X1 06413 M00S05405.modval +++| BX7 X7+X2 06414 M00S05406.modval +++| LX7 12 06415 M00S05407.modval +++| SB2 B2-B1 06416 M00S05408.modval +++| PL B2,CDS1 IF MORE DATE TO EXTRACT 06417 M00S05409.modval +++| SX2 2R 06418 M00S05410.modval +++| BX7 X7+X2 06419 M00S05411.modval +++| LX7 12 06420 M00S05412.modval +++| CDS2 BX7 X7+X2 06421 M00S05413.modval +++| SA7 A1 06422 M00S05414.modval +++| EQ CDSX RETURN 06423 M00S05415.modval +++| CON SPACE 4,10 06424 M00S05416.modval +++|** CON - CONVERT OCTAL NUMBER TO DISPLAY. 06425 M00S05417.modval +++|* 06426 M00S05418.modval +++|* ENTRY (X1) = OCTAL NUMBER. 06427 M00S05419.modval +++|* 06428 M00S05420.modval +++|* EXIT (X6) = OCTAL NUMBER IN DISPLAY CODE WITH POST RADIX B. 06429 M00S05421.modval +++|* 06430 M00S05422.modval +++|* CALLS COD, ISB. 06431 M00S05423.modval +++| 06432 M00S05424.modval +++| 06433 M00S05425.modval +++| CON SUBR ENTRY/EXIT 06434 M00S05426.modval +++| RJ COD CONVERT OCTAL TO DISPLAY 06435 M00S05427.modval +++| RJ ISB INSERT B RADIX 06436 M00S05428.modval +++| EQ CONX RETURN 06437 M00S05429.modval +++| CPS SPACE 4,15 06438 M00S05430.modval +++|** CPS - CONVERT PERMISSIONS TO SOURCE. 06439 M00S05431.modval +++|* 06440 M00S05432.modval +++|* EXIT PERMISSION BITS CONVERTED AND WRITTEN TO SOURCE. 06441 M00S05433.modval +++|* 06442 M00S05434.modval +++|* USES A - 0, 2, 4, 5, 6, 7. 06443 M00S05435.modval +++|* B - 2. 06444 M00S05436.modval +++|* X - 1, 2, 3, 4, 5, 6, 7. 06445 M00S05437.modval +++|* 06446 M00S05438.modval +++|* CALLS SFN, STB. 06447 M00S05439.modval +++|* 06448 M00S05440.modval +++|* MACROS WRITEC. 06449 M00S05441.modval +++| 06450 M00S05442.modval +++| 06451 M00S05443.modval +++| CPS SUBR ENTRY/EXIT 06452 M00S05444.modval +++| SA0 TPCS-1 06453 M00S05445.modval +++| CPS1 SA0 A0+B1 GET NEXT PERMISSION WORD 06454 M00S05446.modval +++| SA1 A0 06455 M00S05447.modval +++| SA2 =3HNUL 06456 M00S05448.modval +++| ZR X1,CPSX IF END OF TABLE 06457 M00S05449.modval +++| LX7 X1 06458 M00S05450.modval +++| BX6 X2 06459 M00S05451.modval +++| LX1 18 06460 M00S05452.modval +++| SA7 CPSA 06461 M00S05453.modval +++| SA6 X1+B1 06462 M00S05454.modval +++| WRITEC S,A6-B1 INITIALIZE IDENTIFIER VALUE 06463 M00S05455.modval +++| CPS2 SA5 CPSA GET PERMISSION WORD PARAMETERS 06464 M00S05456.modval +++| MX2 6 06465 M00S05457.modval +++| LX2 6 06466 M00S05458.modval +++| BX1 X2*X5 NEXT BIT POSITION 06467 M00S05459.modval +++| SX6 B1 06468 M00S05460.modval +++| IX7 X5+X6 06469 M00S05461.modval +++| LX5 -6 06470 M00S05462.modval +++| BX3 X2*X5 LAST BIT POSITION + 1 06471 M00S05463.modval +++| IX3 X1-X3 06472 M00S05464.modval +++| PL X3,CPS1 IF NO MORE BITS TO PROCESS 06473 M00S05465.modval +++| LX5 -30 06474 M00S05466.modval +++| BX4 X2*X5 VALIDATION WORD OFFSET 06475 M00S05467.modval +++| SA4 TANB+X4 06476 M00S05468.modval +++| SA7 A5 06477 M00S05469.modval +++| SB2 X1 06478 M00S05470.modval +++| LX6 B2 06479 M00S05471.modval +++| BX6 X6*X4 06480 M00S05472.modval +++| ZR X6,CPS2 IF BIT NOT SET 06481 M00S05473.modval +++| LX5 24 06482 M00S05474.modval +++| SB2 X5 TABLE OF PERMISSION IDENTIFIERS 06483 M00S05475.modval +++| RJ STB 06484 M00S05476.modval +++| ZR X3,CPS2 IF BIT NOT DEFINED 06485 M00S05477.modval +++| MX6 42 06486 M00S05478.modval +++| BX1 X6*X3 06487 M00S05479.modval +++| RJ SFN SPACE FILL IDENTIFIER 06488 M00S05480.modval +++| LX5 -30 06489 M00S05481.modval +++| SA6 X5+B1 06490 M00S05482.modval +++| WRITEC S,A6-B1 WRITE IDENTIFIER 06491 M00S05483.modval +++| EQ CPS2 CONTINUE PERMISSION BIT CONVERSION 06492 M00S05484.modval +++| 06493 M00S05485.modval +++| 06494 M00S05486.modval +++| CPSA CON 0 PERMISSION WORD PARAMETERS 06495 M00S05487.modval +++| TPCS SPACE 4,10 06496 M00S05488.modval +++|** TPCS - TABLE OF PERMISSION BITS CONVERSION TO SOURCE. 06497 M00S05489.modval +++|* 06498 M00S05490.modval +++|*T 18/SA,6/UBO,6/0,18/TPI,6/LBP,6/FBP
Figure
06499 M00S05491.modval +++|* SA SOURCE ENTRY ADDRESS. 06500 M00S05492.modval +++|* UBO USER BLOCK OFFSET OF VALIDATION WORD. 06501 M00S05493.modval +++|* TPI TABLE OF VALIDATION PERMISSION IDENTIFIERS. 06502 M00S05494.modval +++|* LBP LAST BIT POSITION + 1. 06503 M00S05495.modval +++|* FBP FIRST BIT POSITION. 06504 M00S05496.modval +++| 06505 M00S05497.modval +++| 06506 M00S05498.modval +++| TPCS BSS 0
| Line S05499 Modification History | |
|---|---|
M01 (Removed by) | modva23 |
Seq # *Modification Id* Act ----------------------------+ 06507 M01S05499.modva23 ---| DTCS TMAW,AAWC,TAWI,TAWIL,0 ACCESS WORD
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | modva23 |
Seq # *Modification Id* Act ----------------------------+ 06508 M01S00014.modva23 +++| DTCS TMAW,AAWC,TAWI,60D,0 ACCESS WORD 06509 M00S05500.modval +++| DTCS TMAP,AAVW,TNAV,NNAB+AFAB,AFAB APPLICATIONS 06510 M00S05501.modval +++| DTCS TMSO,ASHN,TRTP,TRTPL,0 SHELL PROGRAM 06511 M00S05502.modval +++| DTCS TMAV,ASVW,TAPV,TAPVL,TAPVS SECURITY VALIDATION 06512 M00S05503.modval +++| DTCS TMLV,ASVW,TALB,TALBS,TALBS-TALBL ACCESS LEVEL 06513 M00S05504.modval +++| DTCS TMAC,ASVW,TACC,TACCL,0 ACCESS CATEGORY 06514 M00S05505.modval +++| DTCS TMVM,ASCV,TSVM,TSVML,0 SERVICE CLASS 06515 M00S05506.modval +++| CON 0 END OF TABLE 06516 M00S05507.modval +++| CSC SPACE 4,15 06517 M00S05508.modval +++|** CSC - CONVERT USER DEFAULT SERVICE CLASSES. 06518 M00S05509.modval +++|* 06519 M00S05510.modval +++|* ENTRY (A0) = ADDRESS OF *TFR* ENTRY FIRST WORD. 06520 M00S05511.modval +++|* (X1) = DATA FIELD RIGHT JUSTIFIED. 06521 M00S05512.modval +++|* 06522 M00S05513.modval +++|* EXIT (X6) = SERVICE CLASS IDENTIFIERS. 06523 M00S05514.modval +++|* 06524 M00S05515.modval +++|* USES B - 2, 3. 06525 M00S05516.modval +++|* X - ALL. 06526 M00S05517.modval +++|* 06527 M00S05518.modval +++|* CALLS STB. 06528 M00S05519.modval +++| 06529 M00S05520.modval +++| 06530 M00S05521.modval +++| CSC SUBR ENTRY/EXIT 06531 M00S05522.modval +++| SB2 TSVM 06532 M00S05523.modval +++| SB3 48 06533 M00S05524.modval +++| LX5 X1 06534 M00S05525.modval +++| BX7 X7-X7 06535 M00S05526.modval +++| LX5 -12 06536 M00S05527.modval +++| MX2 6 06537 M00S05528.modval +++| LX2 18 06538 M00S05529.modval +++| CSC1 BX1 X2*X5 EXTRACT SERVICE CLASS CHARACTER 06539 M00S05530.modval +++| MX4 -12 06540 M00S05531.modval +++| SX0 2R 06541 M00S05532.modval +++| ZR X1,CSC2 IF NO VALUE DEFINED 06542 M00S05533.modval +++| RJ STB LOCATE SERVICE CLASS CHARACTER IN TABLE 06543 M00S05534.modval +++| ZR X3,CSC2 IF NO MATCH 06544 M00S05535.modval +++| LX3 12 GET 2 CHARACTER SERVICE CLASS IDENTIFIER 06545 M00S05536.modval +++| BX0 -X4*X3 06546 M00S05537.modval +++| CSC2 LX0 B3 06547 M00S05538.modval +++| BX7 X7+X0 06548 M00S05539.modval +++| SB3 B3-12 06549 M00S05540.modval +++| LX5 6 06550 M00S05541.modval +++| PL B3,CSC1 IF MORE ENTRIES TO PROCESS 06551 M00S05542.modval +++| BX6 X7 06552 M00S05543.modval +++| EQ CSCX RETURN 06553 M00S05544.modval +++| CSD SPACE 4,15 06554 M00S05545.modval +++|** CSD - CONVERT USER DEFAULT SERVICE CLASSES TO SOURCE. 06555 M00S05546.modval +++|* 06556 M00S05547.modval +++|* ENTRY (TMUC+1) = SERVICE CLASS IDENTIFIERS. 06557 M00S05548.modval +++|* (LMFG) = 0 IF NOT PROCESSING LIMITS. 06558 M00S05549.modval +++|* 06559 M00S05550.modval +++|* EXIT USER DEFAULT SERVICE CLASSES WRITTEN TO SOURCE 06560 M00S05551.modval +++|* FILE OR LIMITS OUTPUT. 06561 M00S05552.modval +++|* 06562 M00S05553.modval +++|* USES A - 1, 5, 6. 06563 M00S05554.modval +++|* X - 0, 1, 5, 6, 7. 06564 M00S05555.modval +++|* 06565 M00S05556.modval +++|* CALLS SFN. 06566 M00S05557.modval +++|* 06567 M00S05558.modval +++|* MACROS WRITEC. 06568 M00S05559.modval +++| 06569 M00S05560.modval +++| 06570 M00S05561.modval +++| CSD SUBR ENTRY/EXIT 06571 M00S05562.modval +++| SA1 TMUC+1 GET CONVERTED DEFAULT SERVICE CLASSES 06572 M00S05563.modval +++| BX0 X1 06573 M00S05564.modval +++| SA5 TOSC 06574 M00S05565.modval +++| CSD1 SA5 A5+B1 06575 M00S05566.modval +++| MX7 12 06576 M00S05567.modval +++| BX6 X7*X0 06577 M00S05568.modval +++| LX0 12 06578 M00S05569.modval +++| ZR X5,CSDX IF END OF TABLE 06579 M00S05570.modval +++| SX1 X5+ 06580 M00S05571.modval +++| NG X1,CSD1 IF RESERVED ENTRY 06581 M00S05572.modval +++| SA1 LMFG 06582 M00S05573.modval +++| NZ X1,CSD2 IF PROCESSING LIMITS 06583 M00S05574.modval +++| BX7 X7*X5 GET ORIGIN TYPE 06584 M00S05575.modval +++| LX6 -12 06585 M00S05576.modval +++| BX1 X7+X6 06586 M00S05577.modval +++| RJ SFN SPACE FILL IDENTIFIER 06587 M00S05578.modval +++| SA6 TMUC+1 06588 M00S05579.modval +++| WRITEC S,A6-B1 WRITE DIRECTIVE TO SOURCE 06589 M00S05580.modval +++| EQ CSD1 PROCESS NEXT IDENTIFIER 06590 M00S05581.modval +++| 06591 M00S05582.modval +++| CSD2 SX1 1R 06592 M00S05583.modval +++| BX6 X6+X1 06593 M00S05584.modval +++| LX6 -6 06594 M00S05585.modval +++| SA6 X5+5 06595 M00S05586.modval +++| WRITEC O,X5 WRITE LIMITS MESSAGE 06596 M00S05587.modval +++| EQ CSD1 PROCESS NEXT IDENTIFIER 06597 M00S05588.modval +++| DAT SPACE 4,10 06598 M00S05589.modval +++|** DAT - CONVERT PACKED DATE TO DISPLAY. 06599 M00S05590.modval +++|* 06600 M00S05591.modval +++|* ENTRY (X1) = DATA FIELD RIGHT JUSTIFIED. 06601 M00S05592.modval +++|* 06602 M00S05593.modval +++|* EXIT (X6) = CONVERTED DATE IN FORM * YY/MM/DD.*. 06603 M00S05594.modval +++|* 06604 M00S05595.modval +++|* USES A - 2. 06605 M00S05596.modval +++|* X - 2, 6. 06606 M00S05597.modval +++|* 06607 M00S05598.modval +++|* MACROS EDATE. 06608 M00S05599.modval +++| 06609 M00S05600.modval +++| 06610 M00S05601.modval +++| DAT SUBR ENTRY/EXIT 06611 M00S05602.modval +++| SA2 =10H 06612 M00S05603.modval +++| BX6 X2 06613 M00S05604.modval +++| ZR X1,DATX IF NO EXPIRATION DATE 06614 M00S05605.modval +++| EDATE X1 UNPACK DATE INTO DISPLAY 06615 M00S05606.modval +++| EQ DATX RETURN 06616 M00S05607.modval +++| ISB SPACE 4,10 06617 M00S05608.modval +++|** ISB - INSERT B (RADIX). 06618 M00S05609.modval +++|* 06619 M00S05610.modval +++|* ENTRY (X6) = RIGHT JUSTIFIED DISPLAY CODE FOR OCTAL NUMBER. 06620 M00S05611.modval +++|* 06621 M00S05612.modval +++|* EXIT (X6) = RIGHT JUSTIFIED DISPLAY CODE FOR OCTAL NUMBER 06622 M00S05613.modval +++|* WITH RADIX INSERTED ON RIGHT. 06623 M00S05614.modval +++|* 06624 M00S05615.modval +++|* USES X - 0, 1, 6. 06625 M00S05616.modval +++| 06626 M00S05617.modval +++| 06627 M00S05618.modval +++| ISB SUBR ENTRY/EXIT 06628 M00S05619.modval +++| MX0 54 06629 M00S05620.modval +++| LX6 6 06630 M00S05621.modval +++| SX1 1RB 06631 M00S05622.modval +++| BX6 X0*X6 06632 M00S05623.modval +++| BX6 X1+X6 06633 M00S05624.modval +++| EQ ISBX RETURN 06634 M00S05625.modval +++| MRJ SPACE 4,15 06635 M00S05626.modval +++|** MRJ - MULTIPLE WORD RIGHT JUSTIFY. 06636 M00S05627.modval +++|* 06637 M00S05628.modval +++|* ENTRY (A2) = ADDRESS WHERE 2ND WORD IS STORED 06638 M00S05629.modval +++|* IN LIMITS MESSAGE. 06639 M00S05630.modval +++|* (X2) = 1ST WORD, RIGHT JUSTIFIED, BLANK FILLED. 06640 M00S05631.modval +++|* (X6) = 2ND WORD, RIGHT JUSTIFIED, BLANK FILLED. 06641 M00S05632.modval +++|* 06642 M00S05633.modval +++|* EXIT 1ST AND 2ND WORDS STORED IN LIMITS MESSAGE 06643 M00S05634.modval +++|* AFTER MULTIPLE WORD RIGHT JUSTIFICATION PROCESSED. 06644 M00S05635.modval +++|* 06645 M00S05636.modval +++|* USES A - 4, 6, 7. 06646 M00S05637.modval +++|* B - 2, 3, 4. 06647 M00S05638.modval +++|* X - 0, 2, 3, 4, 6, 7. 06648 M00S05639.modval +++| 06649 M00S05640.modval +++| 06650 M00S05641.modval +++| MRJ2 BX7 X2 STORE 1ST WORD 06651 M00S05642.modval +++| SA7 A2 06652 M00S05643.modval +++| 06653 M00S05644.modval +++| MRJ SUBR ENTRY/EXIT 06654 M00S05645.modval +++| SA4 =10H 06655 M00S05646.modval +++| SB2 B0 06656 M00S05647.modval +++| BX3 X6-X4 06657 M00S05648.modval +++| ZR X3,MRJ2 IF NO VALUE IN 2ND WORD 06658 M00S05649.modval +++| BX7 X2 06659 M00S05650.modval +++| SA7 A2-B1 06660 M00S05651.modval +++| MX0 6 06661 M00S05652.modval +++| BX7 X0*X3 06662 M00S05653.modval +++| NZ X7,MRJX IF BOTH WORDS FULL 06663 M00S05654.modval +++| MRJ1 LX0 -6 06664 M00S05655.modval +++| BX7 X0*X3 06665 M00S05656.modval +++| SB2 B2+6 06666 M00S05657.modval +++| ZR X7,MRJ1 IF BLANK CHARACTER 06667 M00S05658.modval +++| SB3 60 06668 M00S05659.modval +++| MX0 1 06669 M00S05660.modval +++| SB4 B2-B1 06670 M00S05661.modval +++| AX0 B4 06671 M00S05662.modval +++| SB3 B3-B2 06672 M00S05663.modval +++| LX2 B3 06673 M00S05664.modval +++| BX7 X0*X2 06674 M00S05665.modval +++| BX6 -X0*X6 06675 M00S05666.modval +++| BX7 X7+X6 06676 M00S05667.modval +++| SA7 A2 STORE 2ND WORD 06677 M00S05668.modval +++| BX6 -X0*X2 06678 M00S05669.modval +++| BX4 X0*X4 06679 M00S05670.modval +++| BX6 X6+X4 06680 M00S05671.modval +++| SA6 A2-B1 STORE FIRST WORD 06681 M00S05672.modval +++| EQ MRJX RETURN 06682 M00S05673.modval +++| PLM SPACE 4,15 06683 M00S05674.modval +++|** PLM - PRINT *LIMITS* MESSAGES. 06684 M00S05675.modval +++|* 06685 M00S05676.modval +++|* EXIT ALL *LIMITS* MESSAGES ISSUED. 06686 M00S05677.modval +++|* 06687 M00S05678.modval +++|* USES A - ALL. 06688 M00S05679.modval +++|* B - 2, 3. 06689 M00S05680.modval +++|* X - ALL. 06690 M00S05681.modval +++|* 06691 M00S05682.modval +++|* CALLS CSD, SFN. 06692 M00S05683.modval +++|* 06693 M00S05684.modval +++|* MACROS CLOCK, DATE, GETJO, GETPFP, TSTATUS, WRITEC. 06694 M00S05685.modval +++| 06695 M00S05686.modval +++| 06696 M00S05687.modval +++| PLM8 WRITEC O,(=C* *),B1 WRITE BLANK LINE 06697 M00S05688.modval +++| WRITEC X2,USUD WRITE HEADER 06698 M00S05689.modval +++| RJ CSD CONVERT USER DEFAULT SERVICE CLASSES 06699 M00S05690.modval +++| 06700 M00S05691.modval +++| PLM SUBR ENTRY/EXIT 06701 M00S05692.modval +++| SA2 DSAN GET USER NAME 06702 M00S05693.modval +++| MX7 -54 06703 M00S05694.modval +++| AX2 6 06704 M00S05695.modval +++| SA1 USRN 06705 M00S05696.modval +++| BX7 -X7*X2 06706 M00S05697.modval +++| BX7 X1+X7 06707 M00S05698.modval +++| SA7 A1 06708 M00S05699.modval +++| DATE TODT REQUEST DATE 06709 M00S05700.modval +++| CLOCK TOTM REQUEST TIME 06710 M00S05701.modval +++| GETJO TSTATUS GET JOB ORIGIN 06711 M00S05702.modval +++| SA1 TSTATUS 06712 M00S05703.modval +++| SX1 X1-TXOT 06713 M00S05704.modval +++| NZ X1,PLM1 IF NOT *TXOT* 06714 M00S05705.modval +++| TSTATUS TSTATUS 06715 M00S05706.modval +++| SA3 TSTATUS 06716 M00S05707.modval +++| SA2 =0LNAMIAF 06717 M00S05708.modval +++| MX1 36 06718 M00S05709.modval +++| BX3 X1*X3 06719 M00S05710.modval +++| BX6 X3-X2 06720 M00S05711.modval +++| NZ X6,PLM1 IF NOT NETWORK TERMINAL 06721 M00S05712.modval +++| SA6 TFPA+1 CLEAR NON-NETWORK TERMINAL LIMITS MESSAGES 06722 M00S05713.modval +++| SA6 TFRO+1 06723 M00S05714.modval +++| SA6 TFPX+1 06724 M00S05715.modval +++| SA6 TFTT+1 06725 M00S05716.modval +++| PLM1 GETPFP PLMA REQUEST FAMILY NAME 06726 M00S05717.modval +++| SA1 PLMA 06727 M00S05718.modval +++| BX6 X6-X6 CLEAR POINTERS 06728 M00S05719.modval +++| SA6 A1+B1 06729 M00S05720.modval +++| SA6 A6+B1 06730 M00S05721.modval +++| RJ SFN SPACE FILL NAME 06731 M00S05722.modval +++| SA2 FAM 06732 M00S05723.modval +++| LX6 59-17 06733 M00S05724.modval +++| MX3 -42 06734 M00S05725.modval +++| BX6 -X3*X6 06735 M00S05726.modval +++| BX6 X2+X6 06736 M00S05727.modval +++| SA0 TFR TABLE TO FORMAT RECORDS 06737 M00S05728.modval +++| SA6 A2 06738 M00S05729.modval +++| SA5 OF 06739 M00S05730.modval +++| BX0 X0-X0 06740 M00S05731.modval +++| ZR X5,PLM3.1 IF OUTPUT TO TERMINAL 06741 M00S05732.modval +++| PLM2 SA1 A0 GET WORD 1 OF ENTRY 06742 M00S05733.modval +++| SA2 A0+B1 GET WORD 2 OF ENTRY 06743 M00S05734.modval +++| ZR X1,PLM6 IF END OF TABLE 06744 M00S05735.modval +++| SA1 A2+B1 GET WORD 3 OF ENTRY 06745 M00S05736.modval +++| AX2 36 06746 M00S05737.modval +++| BX0 X2 06747 M00S05738.modval +++| SA0 A1+B1 ADVANCE TABLE ENTRY 06748 M00S05739.modval +++| SX5 X1 06749 M00S05740.modval +++| BX2 X0+X5 06750 M00S05741.modval +++| ZR X2,PLM2 IF NO LIMITS OR HEADER MESSAGE 06751 M00S05742.modval +++| SA2 OF 06752 M00S05743.modval +++| ZR X2,PLM4 IF OUTPUT TO TERMINAL 06753 M00S05744.modval +++| SX7 B1+ 06754 M00S05745.modval +++| ZR X5,PLM3 IF NO HEADER 06755 M00S05746.modval +++| SX7 B1+B1 06756 M00S05747.modval +++| ZR X0,PLM3 IF NO LIMITS MESSAGE 06757 M00S05748.modval +++| SX7 X7+B1 06758 M00S05749.modval +++| PLM3 SA2 PLMB 06759 M00S05750.modval +++| IX6 X2-X7 06760 M00S05751.modval +++| SA6 A2 06761 M00S05752.modval +++| PL X6,PLM4 IF ENOUGH ROOM ON PAGE 06762 M00S05753.modval +++| SA3 LPPG 06763 M00S05754.modval +++| SX6 X3-2 06764 M00S05755.modval +++| IX6 X6-X7 06765 M00S05756.modval +++| SA6 A2 06766 M00S05757.modval +++| PLM3.1 WRITEC O,LITL WRITE PAGE HEADER 06767 M00S05758.modval +++| WRITEC X2,(=C* *),B1 WRITE BLANK LINE 06768 M00S05759.modval +++| PLM4 ZR X5,PLM5 IF NO HEADER MESSAGE 06769 M00S05760.modval +++| WRITEC O,(=C* *),B1 WRITE BLANK LINE 06770 M00S05761.modval +++| WRITEC X2,X5 WRITE HEADER 06771 M00S05762.modval +++| PLM5 ZR X0,PLM2 IF NO LIMITS MESSAGE 06772 M00S05763.modval +++| WRITEC O,X0 ISSUE LIMITS MESSAGE 06773 M00S05764.modval +++| EQ PLM2 PROCESS NEXT ENTRY 06774 M00S05765.modval +++| 06775 M00S05766.modval +++|* WRITE ALLOWED PERMISSIONS LIMIT MESSAGES. 06776 M00S05767.modval +++| 06777 M00S05768.modval +++| PLM6 SA2 PLMC GET *TAPL* INDEX 06778 M00S05769.modval +++| SA1 TAPL+X2 GET ALLOWED PERMISSIONS LIMITS PARAMETERS 06779 M00S05770.modval +++| ZR X1,PLM8 IF END OF TABLE 06780 M00S05771.modval +++| SX6 X2+B1 06781 M00S05772.modval +++| SA6 A2 06782 M00S05773.modval +++| MX2 -6 06783 M00S05774.modval +++| BX3 -X2*X1 NUMBER OF PERMISSION BITS 06784 M00S05775.modval +++| AX1 6 06785 M00S05776.modval +++| BX4 -X2*X1 USER BLOCK OFFSET 06786 M00S05777.modval +++| SA4 TANB+X4 GET PERMISSION BITS FROM USER BLOCK 06787 M00S05778.modval +++| AX1 6 06788 M00S05779.modval +++| SB2 X3-1 06789 M00S05780.modval +++| MX6 1 06790 M00S05781.modval +++| AX6 B2 06791 M00S05782.modval +++| MX5 -12 06792 M00S05783.modval +++| BX5 -X5*X1 LIMITS HEADER ADDRESS 06793 M00S05784.modval +++| AX1 30 06794 M00S05785.modval +++| SA1 X1+B1 GET FIRST BIT POSITION 06795 M00S05786.modval +++| SB3 59 06796 M00S05787.modval +++| SB2 X1+B2 06797 M00S05788.modval +++| SB2 B3-B2 06798 M00S05789.modval +++| LX1 X4,B2 06799 M00S05790.modval +++| BX0 X4 06800 M00S05791.modval +++| BX6 X6*X1
| Line S05792 Modification History | |
|---|---|
M01 (Removed by) | modva28 |
Seq # *Modification Id* Act ----------------------------+ 06801 M01S05792.modva28 ---| ZR X6,PLM6 IF NO PERMISSIONS GRANTED 06802 M01S05793.modva28 ---| WRITEC O,(=C* *),B1 WRITE BLANK LINE
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | modva28 |
Seq # *Modification Id* Act ----------------------------+ 06803 M01S00001.modva28 +++| NZ X6,PLM6.1 IF ANY PERMISSIONS GRANTED 06804 M01S00002.modva28 +++| PL X6,PLM6 IF NO PERMISSIONS GRANTED 06805 M01S00003.modva28 +++| PLM6.1 WRITEC O,(=C* *),B1 WRITE BLANK LINE 06806 M00S05794.modval +++| WRITEC X2,X5 WRITE HEADER MESSAGE 06807 M00S05795.modval +++| SA1 PLMC GET *TAPL* INDEX 06808 M00S05796.modval +++| SA1 TAPL-1+X1 GET *TAPL* ENTRY 06809 M00S05797.modval +++| AX1 24 06810 M00S05798.modval +++| SA5 X1 FWA-1 TABLE OF LIMITS MESSAGE ADDRESSES 06811 M00S05799.modval +++| AX1 18 06812 M00S05800.modval +++| SA0 X1 FWA-1 TABLE OF BIT NAMES AND POSITIONS 06813 M00S05801.modval +++| PLM7 SA5 A5+B1 06814 M00S05802.modval +++| SA0 A0+B1 06815 M00S05803.modval +++| ZR X5,PLM6 IF END OF MESSAGE TABLE 06816 M00S05804.modval +++| NG X5,PLM7 IF PERMISSION NOT ALLOWED 06817 M00S05805.modval +++| SA3 A0 06818 M00S05806.modval +++| MX4 -12 06819 M00S05807.modval +++| BX4 -X4*X3 06820 M00S05808.modval +++| SB2 X4 06821 M00S05809.modval +++| SB3 59 06822 M00S05810.modval +++| SB2 B3-B2 06823 M00S05811.modval +++| LX4 X0,B2 06824 M00S05812.modval +++| PL X4,PLM7 IF PERMISSION NOT GRANTED 06825 M00S05813.modval +++| WRITEC O,X5 WRITE PERMISSION MESSAGE 06826 M00S05814.modval +++| EQ PLM7 CONTINUE PROCESSING MESSAGES 06827 M00S05815.modval +++| 06828 M00S05816.modval +++| 06829 M00S05817.modval +++| PLMA CON 0 FAMILY NAME 06830 M00S05818.modval +++| PLMB CON 0 PAGE LINE COUNTER 06831 M00S05819.modval +++| PLMC CON 0 *TAPL* INDEX 06832 M00S05820.modval +++| TAPL SPACE 4,10 06833 M00S05821.modval +++|** TAPL - TABLE OF ALLOWED PERMISSIONS LIMITS PARAMETERS. 06834 M00S05822.modval +++|* 06835 M00S05823.modval +++|*T 18/TBP,18/TLM,12/LHR,6/UBO,6/NPB
Figure
06836 M00S05824.modval +++|* TBP FWA-1 TABLE OF BIT POSITIONS. 06837 M00S05825.modval +++|* TLM FWA-1 TABLE OF LIMITS MESSAGE ADDRESSES. 06838 M00S05826.modval +++|* LHR LIMITS HEADER MESSAGE ADDRESS. 06839 M00S05827.modval +++|* UBO USER BLOCK OFFSET FOR PERMISSION DATA WORD. 06840 M00S05828.modval +++|* NPB NUMBER OF PERMISSION BITS. 06841 M00S05829.modval +++| 06842 M00S05830.modval +++| 06843 M00S05831.modval +++| TAPL BSS 0 06844 M00S05832.modval +++| APLW TAWI,ALP,ALLW,AAWC ACCESS WORD 06845 M00S05833.modval +++| APLW TNAV,APP,APPH,AAVW APPLICATIONS
| Line S05834 Modification History | |
|---|---|
M01 (Removed by) | ns2427 |
Seq # *Modification Id* Act ----------------------------+ 06846 M01S05834.ns2427 ---| APLW TNAV+TLAV-AFAB,LAP,TLAP,AAVW LOCAL APPLICATIONS 06847 M00S05835.modval +++| APLW TRTP,ASP,RMFP,ASHN *RDF* PERMISSIONS 06848 M00S05836.modval +++| APLW TAPV,APV,AAPP,ASVW SECURITY VALIDATIONS 06849 M00S05837.modval +++| APLW TACC,CAT,VCAT,ASAC ACCESS CATEGORIES 06850 M00S05838.modval +++| APLW TALB,ALV,ALVA,ASVW ACCESS LEVELS 06851 M00S05839.modval +++| APLW TSVM,SCL,USVM,ASCV USER SERVICE CLASS 06852 M00S05840.modval +++| CON 0 END OF TABLE 06853 M00S05841.modval +++| STB SPACE 4,15 06854 M00S05842.modval +++|** STB - SEARCH TABLE. 06855 M00S05843.modval +++|* 06856 M00S05844.modval +++|* ENTRY (X1) = VALUE TO COMPARE. 06857 M00S05845.modval +++|* (X2) = MASK. 06858 M00S05846.modval +++|* (B2) = TABLE ADDRESS. 06859 M00S05847.modval +++|* 06860 M00S05848.modval +++|* EXIT (X3) = TABLE ENTRY ON MATCH. 06861 M00S05849.modval +++|* = 0 IF NO MATCH. 06862 M00S05850.modval +++|* (A3) = ADDRESS OF MATCHING TABLE ENTRY. 06863 M00S05851.modval +++|* 06864 M00S05852.modval +++|* USES X - 3, 6. 06865 M00S05853.modval +++|* A - 3. 06866 M00S05854.modval +++| 06867 M00S05855.modval +++| 06868 M00S05856.modval +++| STB SUBR 06869 M00S05857.modval +++| SA3 B2-1 06870 M00S05858.modval +++| STB1 SA3 A3+1 06871 M00S05859.modval +++| BX6 X3-X1 06872 M00S05860.modval +++| BX6 X2*X6 06873 M00S05861.modval +++| ZR X3,STBX IF END OF TABLE 06874 M00S05862.modval +++| NZ X6,STB1 IF NOT YET MATCH 06875 M00S05863.modval +++| EQ STBX RETURN 06876 M00S05864.modval +++| SRD SPACE 4,25 06877 M00S05865.modval +++|** SRD - SET RECORD DISPLAYS. 06878 M00S05866.modval +++|* 06879 M00S05867.modval +++|* ENTRY *TANB* SET TO PROPER USER BLOCK. 06880 M00S05868.modval +++|* 06881 M00S05869.modval +++|* EXIT K-DISPLAY PROPERLY FORMATTED. 06882 M00S05870.modval +++|* S-OPTION PROPERLY FORMATTED. 06883 M00S05871.modval +++|* VALUES ENTERED IN LIMITS MESSAGES. 06884 M00S05872.modval +++|* 06885 M00S05873.modval +++|* USES A - ALL. 06886 M00S05874.modval +++|* B - 2, 3, 4, 5, 7. 06887 M00S05875.modval +++|* X - ALL. 06888 M00S05876.modval +++|* 06889 M00S05877.modval +++|* CALLS APC, CAV, ICE, MRJ, SFN, 06890 M00S05878.modval +++|* DISPLAY CONVERSION PROCESSORS. 06891 M00S05879.modval +++|* 06892 M00S05880.modval +++|* MACROS EDATE. 06893 M00S05881.modval +++| 06894 M00S05882.modval +++|
| Line S05883 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06895 M01S05883.v23l617 ---| SRD14 RJ APC DISPLAY APPLICATION PERMISSIONS
| Line S00337 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06896 M01S00337.v23l617 +++| SRD16 RJ APC DISPLAY APPLICATION PERMISSIONS 06897 M00S05884.modval +++| 06898 M00S05885.modval +++| SRD SUBR ENTRY/EXIT 06899 M00S05886.modval +++| SA1 TANB+ACCD SET CREATION DATE 06900 M00S05887.modval +++| AX1 18 06901 M00S05888.modval +++| SX1 X1 06902 M00S05889.modval +++| EDATE X1 UNPACK AND CONVERT DATE 06903 M00S05890.modval +++| SA1 TANB+ACMD SET LAST MODIFICATION DATE 06904 M00S05891.modval +++| SA6 DSAC1
| Line S05892 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06905 M01S05892.v23l617 ---| SA6 DSAC2 06906 M01S05893.v23l617 ---| SA6 DSAC3 06907 M01S05894.v23l617 ---| SA6 DSAC4 06908 M00S05895.modval +++| SX1 X1+ 06909 M00S05896.modval +++| EDATE X1 UNPACK AND CONVERT DATE 06910 M00S05897.modval +++| SA6 DSAU
| Line S05898 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06911 M01S05898.v23l617 ---| SA6 DSAU1 06912 M01S05899.v23l617 ---| SA6 DSAU2 06913 M01S05900.v23l617 ---| SA6 DSAU3 06914 M00S05901.modval +++| SA1 AN SET USER NAME 06915 M00S05902.modval +++| SX6 1R/ 06916 M00S05903.modval +++| BX1 X1+X6 06917 M00S05904.modval +++| LX1 -6 06918 M00S05905.modval +++| RJ SFN 06919 M00S05906.modval +++| SA6 TMBS 06920 M00S05907.modval +++| SX1 1R &1R/ 06921 M00S05908.modval +++| LX1 -6 06922 M00S05909.modval +++| BX6 X1-X6 06923 M00S05910.modval +++| SA6 DSAN 06924 M00S05911.modval +++| SA6 DSAN1 06925 M00S05912.modval +++| SA6 DSAN2 06926 M00S05913.modval +++| SA6 DSAN3
| Line S00338 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06927 M01S00338.v23l617 +++| SA6 DSAN4 06928 M00S05914.modval +++| SA0 TFR-3 TABLE TO FORMAT RECORD 06929 M00S05915.modval +++| SRD1 SA0 A0+3 06930 M00S05916.modval +++| SA4 A0+ GET WORD 1 OF ENTRY
| Line S05917 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06931 M01S05917.v23l617 ---| ZR X4,SRD14 IF END OF TABLE
| Line S00339 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06932 M01S00339.v23l617 +++| ZR X4,SRD16 IF END OF TABLE 06933 M00S05918.modval +++| SB7 X4 PROCESSOR ADDRESS 06934 M00S05919.modval +++| LX4 6 06935 M00S05920.modval +++| MX2 -6 06936 M00S05921.modval +++| BX1 -X2*X4 USER BLOCK OFFSET 06937 M00S05922.modval +++| LX4 6 06938 M00S05923.modval +++| BX3 -X2*X4 STARTING BIT NUMBER 06939 M00S05924.modval +++| LX4 6 06940 M00S05925.modval +++| BX2 -X2*X4 NUMBER OF BITS IN FIELD 06941 M00S05926.modval +++| SA1 TANB+X1 GET DATA WORD 06942 M00S05927.modval +++| MX6 1 06943 M00S05928.modval +++| SB4 X2 06944 M00S05929.modval +++| SB2 B4-B1 06945 M00S05930.modval +++| AX6 B2 06946 M00S05931.modval +++| SB2 60 06947 M00S05932.modval +++| SB3 X3+B4 06948 M00S05933.modval +++| SB2 B2-B3 06949 M00S05934.modval +++| LX1 B2 06950 M00S05935.modval +++| BX2 X6*X1 06951 M00S05936.modval +++| LX1 X2,B4 06952 M00S05937.modval +++| BX7 X1 06953 M00S05938.modval +++| LX4 59-31-18 06954 M00S05939.modval +++| PL X4,SRD2 IF DATA TO BE PASSED RIGHT JUSTIFIED 06955 M00S05940.modval +++| BX1 X2 PASS DATA LEFT JUSTIFIED 06956 M00S05941.modval +++| SRD2 SA3 A0+2 GET WORD 3 OF ENTRY 06957 M00S05942.modval +++| LX3 -18 06958 M00S05943.modval +++| SB3 X3 ALTERNATE BLOCK ADDRESS 06959 M00S05944.modval +++| ZR B3,SRD3 IF NO ALTERNATE BLOCK 06960 M00S05945.modval +++| SB3 B3+B1 06961 M00S05946.modval +++| SA1 X7+B3 06962 M00S05947.modval +++| BX7 X1 06963 M00S05948.modval +++| SRD3 SA7 SRDA SAVE DATA FIELD 06964 M00S05949.modval +++| RJ ICE EXECUTE DISPLAY FORMAT PROCESSOR 06965 M00S05950.modval +++| SA4 A0 GET WORD 1 OF ENTRY 06966 M00S05951.modval +++| LX4 0-35 06967 M00S05952.modval +++| SX0 B1 06968 M00S05953.modval +++| BX0 X0*X4 06969 M00S05954.modval +++| SB5 X0 CONTINUATION WORD FLAG 06970 M00S05955.modval +++| SB2 B5+B5 06971 M00S05956.modval +++| SB2 B2+B5 06972 M00S05957.modval +++| SB3 A0+B1 06973 M00S05958.modval +++| SA5 B3-B2 GET WORD 2 OF ENTRY 06974 M00S05959.modval +++| SA3 A0 GET MULTIPLE WORD RESULT FLAG 06975 M00S05960.modval +++| SX2 X5 06976 M00S05961.modval +++| LX3 59-30 06977 M00S05962.modval +++| AX5 18 06978 M00S05963.modval +++| LX4 24-0+35 06979 M00S05964.modval +++| SA1 SRDA GET DATA VALUE 06980 M00S05965.modval +++| MX0 -6 06981 M00S05966.modval +++| ZR X2,SRD4 IF NO SOURCE ADDRESS 06982 M00S05967.modval +++| SB2 B1+B5 06983 M00S05968.modval +++| SA6 X2+B2 06984 M00S05969.modval +++| PL X3,SRD4 IF NOT MULTIPLE WORD RESULT 06985 M00S05970.modval +++| SA7 A6+B1 06986 M00S05971.modval +++| SRD4 NG X3,SRD7 IF MULTIPLE WORD RESULT 06987 M00S05972.modval +++| BX2 -X0*X4 UNLIMITED VALUE 06988 M00S05973.modval +++| LX4 59-33-24 06989 M00S05974.modval +++| LX0 X4,B1 06990 M00S05975.modval +++| ZR X2,SRD5 IF NO UNLIMITED VALUE 06991 M00S05976.modval +++| IX2 X1-X2
| Line S05977 Modification History | |
|---|---|
M01 (Removed by) | ns2516b |
Seq # *Modification Id* Act ----------------------------+ 06992 M01S05977.ns2516b ---| NZ X2,SRD5 IF DATA VALUE NOT UNLIMITED
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2516b |
Seq # *Modification Id* Act ----------------------------+ 06993 M01S00004.ns2516b +++| NG X2,SRD5 IF NOT UNLIMITED 06994 M00S05978.modval +++| SA2 =9AUNLIMITED 06995 M00S05979.modval +++| BX6 X2 06996 M00S05980.modval +++| NG X4,SRD6 IF *SYSTEM* DEFAULT TO BE DISPLAYED 06997 M00S05981.modval +++| SRD5 PL X0,SRD7 IF NOT ZERO SYSTEM DEFAULT 06998 M00S05982.modval +++| NZ X1,SRD7 IF NOT ZERO DATA VALUE 06999 M00S05983.modval +++| SRD6 SA2 =10HSYSTEM 07000 M00S05984.modval +++| BX6 X2 07001 M00S05985.modval +++| SX4 B1 RIGHT JUSTIFY FOR LIMITS 07002 M00S05986.modval +++| SRD7 SB2 X5 07003 M00S05987.modval +++| AX5 18
| Line S05988 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07004 M01S05988.v23l617 ---| ZR B2,SRD8 IF NO K-DISPLAY FIELD
| Line S00340 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07005 M01S00340.v23l617 +++| ZR B2,SRD10 IF NO K-DISPLAY FIELD
| Line S05989 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07006 M01S05989.v23l617 ---| SA6 B2+B5
| Line S00341 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07007 M01S00341.v23l617 +++| BX0 X3 07008 M01S00342.v23l617 +++| LX0 -1 07009 M01S00343.v23l617 +++| SA6 B2+B5 07010 M01S00344.v23l617 +++| NG X0,SRD9 IF ALREADY LEFT JUSTIFIED 07011 M01S00345.v23l617 +++| SA1 =10H 07012 M01S00346.v23l617 +++| BX1 X1-X6 07013 M01S00347.v23l617 +++| MX0 -6 07014 M01S00348.v23l617 +++| ZR X1,SRD9 IF BLANK WORD 07015 M01S00349.v23l617 +++| SA6 SRDB 07016 M01S00350.v23l617 +++| SRD8 LX6 6 LEFT JUSTIFY FIELD 07017 M01S00351.v23l617 +++| BX2 -X0*X6 07018 M01S00352.v23l617 +++| SX2 X2-1R 07019 M01S00353.v23l617 +++| ZR X2,SRD8 IF BLANK CHARACTER 07020 M01S00354.v23l617 +++| LX6 -6 07021 M01S00355.v23l617 +++| SA6 B2+B5 07022 M01S00356.v23l617 +++| SA2 SRDB 07023 M01S00357.v23l617 +++| BX6 X2
| Line S05990 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07024 M01S05990.v23l617 ---| PL X3,SRD8 IF NOT MULTIPLE WORD RESULT
| Line S00358 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07025 M01S00358.v23l617 +++| SRD9 PL X3,SRD10 IF NOT MULTIPLE WORD RESULT
| Line S05991 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07026 M01S05991.v23l617 ---| SA7 A6+B1
| Line S00359 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07027 M01S00359.v23l617 +++| SA7 A6+1
| Line S05992 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07028 M01S05992.v23l617 ---| SRD8 ZR X5,SRD13 IF NO LIMITS MESSAGE
| Line S00360 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07029 M01S00360.v23l617 +++| SRD10 ZR X5,SRD15 IF NO LIMITS MESSAGE 07030 M00S05993.modval +++| SA2 X5+5 GET MULTIPLE ENTRY 1ST WORD 07031 M00S05994.modval +++| LX4 59-34-59+33 07032 M00S05995.modval +++| SA6 A2 STORE LIMITS VALUE
| Line S05996 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07033 M01S05996.v23l617 ---| PL X3,SRD9 IF NOT MULTIPLE WORD RESULT
| Line S00361 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07034 M01S00361.v23l617 +++| PL X3,SRD11 IF NOT MULTIPLE WORD RESULT 07035 M00S05997.modval +++| SA6 A2-B1 07036 M00S05998.modval +++| SA7 A2 07037 M00S05999.modval +++| BX2 X6 07038 M00S06000.modval +++| LX6 X7
| Line S06001 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07039 M01S06001.v23l617 ---| SRD9 PL X4,SRD13 IF NO RIGHT JUSTIFY FOR LIMITS FIELD
| Line S00362 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07040 M01S00362.v23l617 +++| SRD11 PL X4,SRD15 IF NO RIGHT JUSTIFY FOR LIMITS FIELD 07041 M00S06002.modval +++| SA1 =10H 07042 M00S06003.modval +++| BX1 X1-X6
| Line S06004 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07043 M01S06004.v23l617 ---| ZR X1,SRD11 IF BLANK WORD
| Line S00363 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07044 M01S00363.v23l617 +++| ZR X1,SRD13 IF BLANK WORD 07045 M00S06005.modval +++| MX0 -6
| Line S06006 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07046 M01S06006.v23l617 ---| SRD10 BX7 -X0*X6 RIGHT JUSTIFY BLANK FILLED DATA
| Line S00364 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07047 M01S00364.v23l617 +++| SRD12 BX7 -X0*X6 RIGHT JUSTIFY BLANK FILLED DATA 07048 M00S06007.modval +++| SX7 X7-1R 07049 M00S06008.modval +++| LX6 -6
| Line S06009 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07050 M01S06009.v23l617 ---| ZR X7,SRD10 IF BLANK
| Line S00365 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07051 M01S00365.v23l617 +++| ZR X7,SRD12 IF BLANK 07052 M00S06010.modval +++| LX6 6 07053 M00S06011.modval +++| SA6 A2 STORE RIGHT JUSTIFIED LIMITS VALUE
| Line S06012 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07054 M01S06012.v23l617 ---| SRD11 NG X3,SRD12 IF MULTIPLE WORD RESULT 07055 M01S06013.v23l617 ---| ZR B5,SRD13 IF NOT CONTINUATION ENTRY 07056 M01S06014.v23l617 ---| SRD12 RJ MRJ RIGHT JUSTIFY MULTIPLE WORD 07057 M01S06015.v23l617 ---| SRD13 SA1 SRDA GET DATA VALUE
| Line S00366 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07058 M01S00366.v23l617 +++| SRD13 NG X3,SRD14 IF MULTIPLE WORD RESULT 07059 M01S00367.v23l617 +++| ZR B5,SRD15 IF NOT CONTINUATION ENTRY 07060 M01S00368.v23l617 +++| SRD14 RJ MRJ RIGHT JUSTIFY MULTIPLE WORD 07061 M01S00369.v23l617 +++| SRD15 SA1 SRDA GET DATA VALUE 07062 M00S06016.modval +++| RJ CAV CALCULATE ACTUAL VALUE 07063 M00S06017.modval +++| NZ X3,SRD1 IF ACTUAL VALUE CALCULATED 07064 M00S06018.modval +++| SA1 SRDA 07065 M00S06019.modval +++| NZ X1,SRD1 IF DATA VALUE PRESENT 07066 M00S06020.modval +++| SA1 A0+B1 CLEAR LIMITS MESSAGE 07067 M00S06021.modval +++| MX6 18 07068 M00S06022.modval +++| LX6 -6 07069 M00S06023.modval +++| BX6 -X6*X1 07070 M00S06024.modval +++| SA6 A1+ 07071 M00S06025.modval +++| EQ SRD1 CONTINUE RECORD FORMATTING 07072 M00S06026.modval +++| 07073 M00S06027.modval +++| 07074 M00S06028.modval +++| SRDA CON 0 DATA FIELD
| Line S00370 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07075 M01S00370.v23l617 +++| SRDB CON 0 K-DISPLAY DATA FIELD BEFORE LEFT JUSTIFY 07076 M00S06029.modval +++| TITLE MISCELLANEOUS ROUTINES. 07077 M00S06030.modval +++| ABT SPACE 4,10 07078 M00S06031.modval +++|** ABT - ABORT EXIT. 07079 M00S06032.modval +++| 07080 M00S06033.modval +++| 07081 M00S06034.modval +++| ABM BSS 0 ENTRY 07082 M00S06035.modval +++| MESSAGE CCDR,0,R ISSUE COMMAND TO DAYFILE 07083 M00S06036.modval +++| EQ ABT ABORT 07084 M00S06037.modval +++| 07085 M00S06038.modval +++| ABE BSS 0 ENTRY
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | modva33 |
Seq # *Modification Id* Act ----------------------------+ 07086 M01S00002.modva33 +++| SX2 DMGV * GENVAL ABORTED.* 07087 M00S06039.modval +++| SA1 GENF
| Line S06040 Modification History | |
|---|---|
M01 (Removed by) | modva33 |
Seq # *Modification Id* Act ----------------------------+ 07088 M01S06040.modva33 ---| ZR X1,ABE1 IF NOT *GENVAL* 07089 M01S06041.modva33 ---| SX2 DMGV * GENVAL ABORTED.* 07090 M01S06042.modva33 ---| EQ ABT ABORT 07091 M01S06043.modva33 ---| 07092 M01S06044.modva33 ---| ABE1 SX2 DMAB * MODVAL ABORTED.*
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | modva33 |
Seq # *Modification Id* Act ----------------------------+ 07093 M01S00003.modva33 +++| NZ X1,ABT IF *GENVAL* 07094 M01S00004.modva33 +++| SX2 DMAB * MODVAL ABORTED.* 07095 M01S00005.modva33 +++| SA1 PSWF 07096 M01S00006.modva33 +++| ZR X1,ABT IF NOT *PASSWOR* 07097 M01S00007.modva33 +++| SX2 DMPA * ERROR IN PASSWOR ARGUMENTS.* 07098 M01S00008.modva33 +++| SA1 TSTB+1 07099 M01S00009.modva33 +++| AX1 54-0 07100 M01S00010.modva33 +++| ZR X1,ABT IF NOT NETWORK TERMINAL 07101 M01S00011.modva33 +++| WRITEC O,TRMB RESET CURSOR POSITIONING 07102 M01S00012.modva33 +++| SX2 DMPA RESET ERROR MESSAGE 07103 M00S06045.modval +++|* EQ ABT ABORT 07104 M00S06046.modval +++| 07105 M00S06047.modval +++| ABT BSS 0 ENTRY 07106 M00S06048.modval +++| MESSAGE X2,3 ISSUE ERROR MESSAGE 07107 M00S06049.modval +++| RJ COB CHECK OUTPUT BUFFER 07108 M00S06050.modval +++| SA1 ABTA 07109 M00S06051.modval +++| ZR X1,ABT1 IF UPDATE NOT PERFORMED 07110 M00S06052.modval +++| RJ SUI SET AVAILABLE USER INDICES 07111 M00S06053.modval +++| ABT1 SA3 RAPF CHECK SYSTEM FILE ATTACHED 07112 M00S06054.modval +++| ZR X3,ABT2 IF NOT ATTACHED 07113 M00S06055.modval +++| RETURN U 07114 M00S06056.modval +++| RECALL N 07115 M00S06057.modval +++| RETURN P 07116 M00S06058.modval +++| ABT2 SA1 GENF 07117 M00S06059.modval +++| ZR X1,ABT3 IF NOT *GENVAL* 07118 M00S06060.modval +++| RETURN P 07119 M00S06061.modval +++| RETURN U 07120 M00S06062.modval +++| ABT3 RJ CAF CHECK ALTERNATE FAMILY 07121 M00S06063.modval +++| ABORT 07122 M00S06064.modval +++| 07123 M00S06065.modval +++| 07124 M00S06066.modval +++| ABTA CON 0 SET IF UPDATE PERFORMED
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | modva33 |
Seq # *Modification Id* Act ----------------------------+ 07125 M01S00013.modva33 +++| ABTB RPVBLK ABE *REPRIEVE* BLOCK 07126 M00S06067.modval +++| ACI SPACE 4,20 07127 M00S06068.modval +++|** ACI - ASSEMBLE CHARACTERS INTERFACE. 07128 M00S06069.modval +++|* 07129 M00S06070.modval +++|* ENTRY (X1) = BIT STRING OF CHARACTERS TO PERMIT. 07130 M00S06071.modval +++|* (X6) = BIT STRING OF CHARACTER TO SUPPRESS. 07131 M00S06072.modval +++|* 07132 M00S06073.modval +++|* EXIT (CBUF - CBUF+CBUFL) = LEFT JUSTIFIED 07133 M00S06074.modval +++|* ASSEMBLED CHARACTERS. 07134 M00S06075.modval +++|* (X4) = NUMBER OF CHARACTERS. 07135 M00S06076.modval +++|* (B5) = SEPARATOR ( 0 IF END-OF-LINE). 07136 M00S06077.modval +++|* (B6) = 0 IF ENTRY TERMINATION. 07137 M00S06078.modval +++|* (B6) .NE. 0 IF ASSEMBLY COMPLETE. 07138 M00S06079.modval +++|* (ET) = -1 IF EOF. 07139 M00S06080.modval +++|* (ET) = 1 IF */* ENTRY TERMINATION. 07140 M00S06081.modval +++|* 07141 M00S06082.modval +++|* USES X - 0, 1, 2, 4, 6, 7. 07142 M00S06083.modval +++|* A - 1, 2, 6, 7. 07143 M00S06084.modval +++|* B - 2, 4. 07144 M00S06085.modval +++|* 07145 M00S06086.modval +++|* MACROS FUNC. 07146 M00S06087.modval +++| 07147 M00S06088.modval +++| 07148 M00S06089.modval +++| ACI SUBR ENTRY/EXIT 07149 M00S06090.modval +++| SA6 ACIC SAVE BIT STRING TO SUPPRESS 07150 M00S06091.modval +++| BX7 X1 07151 M00S06092.modval +++| SX6 B0 07152 M00S06093.modval +++| SA7 ACIB SAVE BIT STRING TO PERMIT 07153 M00S06094.modval +++| SA6 ACIA CLEAR CHARACTER COUNT 07154 M00S06095.modval +++| SA6 ACID CLEAR CHARACTER BUFFER INDEX 07155 M00S06096.modval +++| SB2 CBUFL-1 07156 M00S06097.modval +++| ACI1 SA6 CBUF+B2 CLEAR CHARACTER BUFFER 07157 M00S06098.modval +++| SB2 B2-1 07158 M00S06099.modval +++| PL B2,ACI1 IF CLEAR NOT COMPLETE 07159 M00S06100.modval +++| ACI2 SX0 I INPUT FET ADDRESS 07160 M00S06101.modval +++| SA2 ACIC CHARACTERS TO BE SUPPRESSED 07161 M00S06102.modval +++| SA1 ACIB CHARACTERS TO BE ALLOWED 07162 M00S06103.modval +++| BX6 X2 07163 M00S06104.modval +++| FUNC ASCT ASSEMBLE CHARACTERS 07164 M00S06105.modval +++| SA2 ACID 07165 M00S06106.modval +++| SA6 CBUF+X2 STORE ASSEMBLED CHARACTERS 07166 M00S06107.modval +++| SA1 ACIA 07167 M00S06108.modval +++| SB4 X4-10 07168 M00S06109.modval +++| IX4 X1+X4 INCREMENT CHARACTER COUNT 07169 M00S06110.modval +++| NG B4,ACIX IF SEPARATOR ENCOUNTERED 07170 M00S06111.modval +++| BX7 X4 07171 M00S06112.modval +++| SA7 A1 07172 M00S06113.modval +++| SX7 X2-CBUFL-1 07173 M00S06114.modval +++| PL X7,ACI2 IF BUFFER FULL 07174 M00S06115.modval +++| SX7 X2+B1 07175 M00S06116.modval +++| SA7 A2 INCREMENT CHARACTER BUFFER INDEX 07176 M00S06117.modval +++| EQ ACI2 ASSEMBLE MORE CHARACTERS 07177 M00S06118.modval +++| 07178 M00S06119.modval +++| 07179 M00S06120.modval +++| ACIA BSS 1 CHARACTER COUNT 07180 M00S06121.modval +++| ACIB BSS 1 BIT STRING OF CHARACTERS TO PERMIT 07181 M00S06122.modval +++| ACIC BSS 1 BIT STRING OF CHARACTERS TO SUPPRESS 07182 M00S06123.modval +++| ACID BSS 1 CHARACTER BUFFER INDEX 07183 M00S06124.modval +++| ADT SPACE 4,10 07184 M00S06125.modval +++|** ADT - ADD TERM TO CURRENT DATE. 07185 M00S06126.modval +++|* 07186 M00S06127.modval +++|* ENTRY (X1) = TERM VALUE. 07187 M00S06128.modval +++|* 07188 M00S06129.modval +++|* EXIT (X2) = (X6) = NEW PACKED DATE. 07189 M00S06130.modval +++|* 07190 M00S06131.modval +++|* USES A - 2, 7. 07191 M00S06132.modval +++|* X - 2, 6, 7. 07192 M00S06133.modval +++|* 07193 M00S06134.modval +++|* MACROS SYSTEM. 07194 M00S06135.modval +++| 07195 M00S06136.modval +++| 07196 M00S06137.modval +++| ADT SUBR ENTRY/EXIT 07197 M00S06138.modval +++| BX7 X1 SET UP *CPM* PARAMETER WORD 07198 M00S06139.modval +++| SA7 ADTA 07199 M00S06140.modval +++| SYSTEM CPM,R,A7,121B*100B ADD TERM TO CURRENT DATE 07200 M00S06141.modval +++| SA2 A7 GET NEW PACKED DATE 07201 M00S06142.modval +++| BX6 X2 07202 M00S06143.modval +++| EQ ADTX RETURN 07203 M00S06144.modval +++| 07204 M00S06145.modval +++| 07205 M00S06146.modval +++| ADTA BSS 1 *CPM* PARAMETERS 07206 M00S06147.modval +++| AUI SPACE 4,15 07207 M00S06148.modval +++|** AUI - ASSIGN USER INDEX. 07208 M00S06149.modval +++|* 07209 M00S06150.modval +++|* 07210 M00S06151.modval +++|* ENTRY NO USER INDEX IN *TANB* BLOCK. 07211 M00S06152.modval +++|* 07212 M00S06153.modval +++|* EXIT (X0) .LT. 0, IF USER INDEX SET. 07213 M00S06154.modval +++|* (X0) .GE. 0, IF USER INDEX NOT SET. 07214 M00S06155.modval +++|* (B3) = MESSAGE, IF USER INDEX NOT SET. 07215 M00S06156.modval +++|* 07216 M00S06157.modval +++|* USES X - 0, 1, 6, 7. 07217 M00S06158.modval +++|* A - 1, 6, 7. 07218 M00S06159.modval +++|* B - 2, 3, 4, 5. 07219 M00S06160.modval +++| 07220 M00S06161.modval +++| 07221 M00S06162.modval +++| AUI4 MX0 1 SET UI USED 07222 M00S06163.modval +++| SB5 B5+B2 07223 M00S06164.modval +++| BX1 X0+X1 07224 M00S06165.modval +++| SB4 B4-B2 07225 M00S06166.modval +++| LX6 X1,B4 07226 M00S06167.modval +++| SX7 B5+B1 07227 M00S06168.modval +++| SA6 A1 07228 M00S06169.modval +++| SA1 TANB+AUIN SET INDEX IN RECORD BLOCK 07229 M00S06170.modval +++| MX0 42 07230 M00S06171.modval +++| BX1 X0*X1 07231 M00S06172.modval +++| BX7 X1+X7 07232 M00S06173.modval +++| SA7 A1 07233 M00S06174.modval +++| 07234 M00S06175.modval +++| AUI SUBR ENTRY/ EXIT 07235 M00S06176.modval +++| SB3 AUIMX-1
| Line S06177 Modification History | |
|---|---|
M01 (Removed by) | nccaui |
Seq # *Modification Id* Act ----------------------------+ 07236 M01S06177.nccaui ---| SA1 TAUI-1 07237 M01S06178.nccaui ---| SB5 B0
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | nccaui |
Seq # *Modification Id* Act ----------------------------+ 07238 M01S00001.nccaui +++| SA1 TAUI+2-1 07239 M01S00002.nccaui +++| SB5 2*60D 07240 M00S06179.modval +++| SB4 60 CONSTANT 60 07241 M00S06180.modval +++| AUI1 SA1 A1+B1 07242 M00S06181.modval +++| SB2 B0 07243 M00S06182.modval +++| GE B5,B3,AUI3 IF ALL ASSIGNED 07244 M00S06183.modval +++| AUI2 PL X1,AUI4 IF UI FREE 07245 M00S06184.modval +++| LX1 1 07246 M00S06185.modval +++| SB2 B2+B1 07247 M00S06186.modval +++| LT B2,B4,AUI2 IF MORE TO CHECK 07248 M00S06187.modval +++| SB5 B5+B4 07249 M00S06188.modval +++| EQ AUI1 LOOP FOR NEXT WORD 07250 M00S06189.modval +++| 07251 M00S06190.modval +++| AUI3 SX0 B0+ SET ERROR 07252 M00S06191.modval +++| SB3 ERUN **** NO USER INDICES AVAILABLE. 07253 M00S06192.modval +++| EQ AUIX RETURN
| Line S00371 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07254 M01S00371.v23l617 +++| CDP SPACE 4,15 07255 M01S00372.v23l617 +++|** CDP - CLEAR DEFAULT PERMISSION BITS. 07256 M01S00373.v23l617 +++|* 07257 M01S00374.v23l617 +++|* ENTRY (A0) = ADDRESS OF *TPCW* ENTRY. 07258 M01S00375.v23l617 +++|* (X4) = PERMISSION CONTROL WORD. 07259 M01S00376.v23l617 +++|* 07260 M01S00377.v23l617 +++|* EXIT (X4) = NEW PERMISSION CONTROL WORD. 07261 M01S00378.v23l617 +++|* DEFAULT BITS CLEARED IN PERMISSION CONTROL WORD. 07262 M01S00379.v23l617 +++|* PERMISSION CONTROL DEFAULT MASK BIT SET. 07263 M01S00380.v23l617 +++|* 07264 M01S00381.v23l617 +++|* USES X - 0, 1, 2, 3, 4, 6. 07265 M01S00382.v23l617 +++|* A - 1, 6. 07266 M01S00383.v23l617 +++|* B - 2, 3. 07267 M01S00384.v23l617 +++| 07268 M01S00385.v23l617 +++| 07269 M01S00386.v23l617 +++| CDP SUBR ENTRY/EXIT 07270 M01S00387.v23l617 +++| SA1 A0 07271 M01S00388.v23l617 +++| MX2 -6 07272 M01S00389.v23l617 +++| LX1 -18 07273 M01S00390.v23l617 +++| BX3 -X2*X1 NUMBER OF PERMISSION BITS 07274 M01S00391.v23l617 +++| LX1 -6 07275 M01S00392.v23l617 +++| BX2 -X2*X1 SHIFT FOR MASK 07276 M01S00393.v23l617 +++| SB2 X3-1 MASK BITS 07277 M01S00394.v23l617 +++| SB3 X2 MASK SHIFT 07278 M01S00395.v23l617 +++| MX0 1 07279 M01S00396.v23l617 +++| AX0 B2 07280 M01S00397.v23l617 +++| LX0 B3 07281 M01S00398.v23l617 +++| BX4 -X0*X4 CLEAR DEFAULT PERMISSIONS 07282 M01S00399.v23l617 +++| SB2 A0-TPCW PREVENT ADDITIONAL CLEAR OF DEFAULT BITS 07283 M01S00400.v23l617 +++| SA1 PCDW 07284 M01S00401.v23l617 +++| SX2 B1 07285 M01S00402.v23l617 +++| LX2 B2 07286 M01S00403.v23l617 +++| BX6 X1+X2 07287 M01S00404.v23l617 +++| SA6 A1 07288 M01S00405.v23l617 +++| EQ CDPX RETURN 07289 M00S06193.modval +++| CEP SPACE 4,10 07290 M00S06194.modval +++|** CEP - CLEAR ERROR PROCESSING. 07291 M00S06195.modval +++|* 07292 M00S06196.modval +++|* ENTRY (A1) = FET ADDRESS. 07293 M00S06197.modval +++|* 07294 M00S06198.modval +++|* USES X - 0, 2, 6. 07295 M00S06199.modval +++|* A - 2, 6. 07296 M00S06200.modval +++| 07297 M00S06201.modval +++| 07298 M00S06202.modval +++| CEP SUBR ENTRY/EXIT 07299 M00S06203.modval +++| SA2 A1+B1 CLEAR ERROR PROCESSING BIT 07300 M00S06204.modval +++| SX0 B1 07301 M00S06205.modval +++| LX0 44 07302 M00S06206.modval +++| BX6 -X0*X2 07303 M00S06207.modval +++| SA6 A2 07304 M00S06208.modval +++| EQ CEPX RETURN 07305 M00S06209.modval +++| CER SPACE 4,20 07306 M00S06210.modval +++|** CER - CHECK FOR ERROR. 07307 M00S06211.modval +++|*
| Line S06212 Modification History | |
|---|---|
M01 (Removed by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07308 M01S06212.modva18 ---|* ENTRY (A1) = FET ADDRESS. 07309 M01S06213.modva18 ---|* (B4) = RETURN CONTROL ADDRESS, ONLY REQUIRED WHEN 07310 M01S06214.modva18 ---|* *CER* CALLED FROM PRESET. 07311 M01S06215.modva18 ---|* (X1) = FIRST WORD OF FET. 07312 M01S06216.modva18 ---|* 07313 M01S06217.modva18 ---|* EXIT ABORT IF ERROR ENCOUNTERED WHEN *CER* NOT CALLED FROM 07314 M01S06218.modva18 ---|* PRESET. 07315 M01S06219.modva18 ---|* 07316 M01S06220.modva18 ---|* ABORT IF ERROR ENCOUNTERED WHEN *CER* CALLED FROM 07317 M01S06221.modva18 ---|* PRESET AND JOB IS TIME-SHARING ORIGIN. 07318 M01S06222.modva18 ---|* 07319 M01S06223.modva18 ---|* ABORT IF ERROR IS NOT *FILE BUSY* FROM *PFM*. 07320 M01S06224.modva18 ---|* 07321 M01S06225.modva18 ---|* IF ERROR ENCOUNTERED WHEN *CER* CALLED FROM PRESET 07322 M01S06226.modva18 ---|* AND JOB IS NOT TIME-SHARING ORIGIN, CONTROL IS 07323 M01S06227.modva18 ---|* RETURNED TO ADDRESS SPECIFIED BY (B4) AFTER ROLLOUT 07324 M01S06228.modva18 ---|* IS COMPLETE. 07325 M01S06229.modva18 ---|* 07326 M01S06230.modva18 ---|* USES X - 0, 1, 2, 6. 07327 M01S06231.modva18 ---|* A - 2, 6. 07328 M01S06232.modva18 ---|* 07329 M01S06233.modva18 ---|* MACROS ROLLOUT.
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07330 M01S00011.modva18 +++|* ENTRY (A1) = FET ADDRESS. 07331 M01S00012.modva18 +++|* (X1) = FIRST WORD OF FET. 07332 M01S00013.modva18 +++|* (B4) = RETURN ADDRESS. CONTROL IS RETURNED HERE 07333 M01S00014.modva18 +++|* IF THE FILE IS FOUND BUSY. 07334 M01S00015.modva18 +++|* 07335 M01S00016.modva18 +++|* EXIT TO (B4) AFTER WAITING FOR FILE TO BECOME AVAILABLE. 07336 M01S00017.modva18 +++|* TO *ABE* IF ONE OF THE FOLLOWING CONDITIONS - 07337 M01S00018.modva18 +++|* 1. AN ERROR OTHER THAN FILE BUSY WAS ENCOUNTERED. 07338 M01S00019.modva18 +++|* 2. AN ERROR IS PRESENT AND *CER* WAS NOT CALLED FROM 07339 M01S00020.modva18 +++|* *PRESET*. 07340 M01S00021.modva18 +++|* TO *ABT* IF AN INTERACTIVE JOB HAS MADE TEN 07341 M01S00022.modva18 +++|* UNSUCCESSFUL ATTEMPTS TO ATTACH THE VALIDATION FILE. 07342 M01S00023.modva18 +++|* 07343 M01S00024.modva18 +++|* USES X - 0, 1, 2, 6. 07344 M01S00025.modva18 +++|* A - 2, 6. 07345 M01S00026.modva18 +++|* 07346 M01S00027.modva18 +++|* MACROS MESSAGE, ROLLOUT. 07347 M00S06234.modval +++| 07348 M00S06235.modval +++| 07349 M00S06236.modval +++| CER SUBR ENTRY/EXIT 07350 M00S06237.modval +++| MX0 -4 CHECK FOR ERROR 07351 M00S06238.modval +++| AX1 10 07352 M00S06239.modval +++| BX0 -X0*X1 07353 M00S06240.modval +++| ZR X0,CERX IF NO ERROR 07354 M00S06241.modval +++| SX0 X0-/ERRMSG/FBS 07355 M00S06242.modval +++| NZ X0,ABE IF NOT *FILE BUSY* RETURN FROM *PFM*
| Line S06243 Modification History | |
|---|---|
M01 (Removed by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07356 M01S06243.modva18 ---| CERA SA2 OT 07357 M01S06244.modva18 ---| SX2 X2-TXOT 07358 M01S06245.modva18 ---|* EQ ABE (IF NOT PRESET CALL) 07359 M01S06246.modva18 ---| NZ X2,CER1 IF NOT TIME-SHARING JOB
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07360 M01S00028.modva18 +++| SA2 CERA 07361 M01S00029.modva18 +++| NZ X2,ABE IF NOT PRESET CALL 07362 M01S00030.modva18 +++| SX1 A1-U 07363 M01S00031.modva18 +++| ZR X1,CER3 IF *VALINDS* REQUEST 07364 M00S06247.modval +++| SA2 CERC 07365 M00S06248.modval +++| SX6 X2-1
| Line S06249 Modification History | |
|---|---|
M01 (Removed by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07366 M01S06249.modva18 ---| ZR X6,ABE IF RETRY COUNT EXCEEDED
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07367 M01S00032.modva18 +++| ZR X6,CER2 IF RETRY COUNT EXCEEDED 07368 M00S06250.modval +++| SA6 A2+
| Line S06251 Modification History | |
|---|---|
M01 (Removed by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07369 M01S06251.modva18 ---| CER1 ROLLOUT ROLLOUT UNTIL FILE NOT BUSY
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07370 M01S00033.modva18 +++| MESSAGE DMWV,2,R * WAITING FOR VALIDATION FILE.* 07371 M01S00034.modva18 +++| ROLLOUT CERD ROLLOUT FOR 5 SECONDS 07372 M01S00035.modva18 +++| MESSAGE (=C**),2,R 07373 M00S06252.modval +++| JP B4 RETURN CONTROL 07374 M00S06253.modval +++|
| Line S06254 Modification History | |
|---|---|
M01 (Removed by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07375 M01S06254.modva18 ---| 07376 M01S06255.modva18 ---| CERB EQ ABE ABORT 07377 M01S06256.modva18 ---| 07378 M01S06257.modva18 ---| 07379 M01S06258.modva18 ---| CERC CON 10 RETRY COUNT FOR TELEX JOBS
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07380 M01S00036.modva18 +++| CER2 SA2 OT 07381 M01S00037.modva18 +++| SX2 X2-IAOT 07382 M01S00038.modva18 +++| NZ X2,CER3 IF NOT INTERACTIVE JOB 07383 M01S00039.modva18 +++| SX2 DMVB * VALIDATION FILE BUSY.* 07384 M01S00040.modva18 +++| EQ ABT ABORT 07385 M01S00041.modva18 +++| 07386 M01S00042.modva18 +++| CER3 ROLLOUT CERB 07387 M01S00043.modva18 +++| JP B4 RETRY 07388 M01S00044.modva18 +++| 07389 M01S00045.modva18 +++| 07390 M01S00046.modva18 +++| CERA CON 0 PRESET CALL FLAG 07391 M01S00047.modva18 +++| CERB CON 0 FAST ATTACH FILE BUSY TIMED/EVENT ROLLOUT 07392 M01S00048.modva18 +++| CERC CON 10 RETRY COUNT 07393 M01S00049.modva18 +++| CERD CON 5 PARAMETER WORD FOR TIMED ROLLOUT 07394 M00S06259.modval +++| CLN SPACE 4,15 07395 M00S06260.modval +++|** CLN - CHECK LINE NUMBER. 07396 M00S06261.modval +++|* 07397 M00S06262.modval +++|* 07398 M00S06263.modval +++|* ENTRY (X1) = AVAILABLE LINES REQUESTED. UPPER 30 BITS 07399 M00S06264.modval +++|* CONTAIN LINES USED IF LESS. 07400 M00S06265.modval +++|* 07401 M00S06266.modval +++|* EXIT NEW PAGE GENERATED IF NECESSARY. 07402 M00S06267.modval +++|* 07403 M00S06268.modval +++|* USES X - 1, 2, 6, 7. 07404 M00S06269.modval +++|* A - 1, 2, 6. 07405 M00S06270.modval +++|* 07406 M00S06271.modval +++|* CALLS CDD. 07407 M00S06272.modval +++|* 07408 M00S06273.modval +++|* MACROS CLOCK, DATE, WRITEC, WRITEH, WRITEW. 07409 M00S06274.modval +++| 07410 M00S06275.modval +++| 07411 M00S06276.modval +++| CLN4 SA6 LC SET NEW LINE COUNT 07412 M00S06277.modval +++| 07413 M00S06278.modval +++| CLN SUBR ENTRY/EXIT 07414 M00S06279.modval +++| SA2 LC 07415 M00S06280.modval +++| IX6 X2-X1 07416 M00S06281.modval +++| PL X6,CLN4 IF ENOUGH ROOM ON PAGE 07417 M00S06282.modval +++| BX7 X1 07418 M00S06283.modval +++| AX7 30 07419 M00S06284.modval +++| ZR X7,CLN1 IF LINES USED = LINES REQUESTED 07420 M00S06285.modval +++| SX1 X1 07421 M00S06286.modval +++| IX6 X2-X7 07422 M00S06287.modval +++| IX2 X2-X1 07423 M00S06288.modval +++| PL X2,CLN4 IF ENOUGH ROOM ON PAGE 07424 M00S06289.modval +++| BX1 X7 07425 M00S06290.modval +++| CLN1 BX6 -X1 SAVE LINES USED COMPLEMENTED 07426 M00S06291.modval +++| SA6 CLNB 07427 M00S06292.modval +++| DATE DATE 07428 M00S06293.modval +++| CLOCK TIME 07429 M00S06294.modval +++| SA1 PN GET PAGE NUMBER 07430 M00S06295.modval +++| SX6 X1+B1 INCREMENT 07431 M00S06296.modval +++| SA6 A1 07432 M00S06297.modval +++| RJ CDD CONVERT 07433 M00S06298.modval +++| LX6 6*4 07434 M00S06299.modval +++| SA6 PAGE 07435 M00S06300.modval +++| WRITEW O,CLNA,1 07436 M00S06301.modval +++| WRITEW O,CCDR,8 WRITE COMMAND IN HEADER LINE 07437 M00S06302.modval +++| WRITEH O,DATE,6 07438 M00S06303.modval +++| SA1 OP CHECK OPTION 07439 M00S06304.modval +++| SX1 X1-LOPT 07440 M00S06305.modval +++| NZ X1,CLN2 IF NOT LIST 07441 M00S06306.modval +++| WRITEC O,SUBT1 07442 M00S06307.modval +++| WRITEC O,SUBT2 07443 M00S06308.modval +++| WRITEC O,(=1L ) 07444 M00S06309.modval +++| SA1 CLNB 07445 M00S06310.modval +++| SA2 LPPG GET LINES PER PAGE 07446 M00S06311.modval +++| IX6 X1+X2 07447 M00S06312.modval +++| SX6 X6-5 07448 M00S06313.modval +++| EQ CLN3 CHECK OUTPUT FILE TYPE 07449 M00S06314.modval +++| 07450 M00S06315.modval +++| CLN2 SA1 CLNB SET LINES REMAINING ON PAGE 07451 M00S06316.modval +++| SA2 LPPG GET LINES PER PAGE 07452 M00S06317.modval +++| IX6 X1+X2 07453 M00S06318.modval +++| SX6 X6-2 07454 M00S06319.modval +++| CLN3 SA1 OF CHECK OUTPUT FILE TYPE 07455 M00S06320.modval +++| NZ X1,CLN4 IF NOT A TERMINAL FILE 07456 M00S06321.modval +++| MX6 1 07457 M00S06322.modval +++| BX6 -X6 07458 M00S06323.modval +++| EQ CLN4 RETURN 07459 M00S06324.modval +++| 07460 M00S06325.modval +++| 07461 M00S06326.modval +++| CLNA CON 1H1 CARRIAGE CONTROL 07462 M00S06327.modval +++| CLNB CON 0 LINES USED COMPLEMENT 07463 M00S06328.modval +++| 07464 M00S06329.modval +++| LC CON 0 LINE COUNT 07465 M00S06330.modval +++| PN CON 1 PAGE NUMBER 07466 M00S06331.modval +++| 07467 M00S06332.modval +++| DATE DATA 1H HEADER 07468 M00S06333.modval +++| TIME DATA 1H 07469 M00S06334.modval +++| CON 0APAGE 07470 M00S06335.modval +++| PAGE DATA 1H 07471 M00S06336.modval +++| CON 0 07472 M00S06337.modval +++| CON 1L 07473 M00S06338.modval +++| SUBT1 DIS ,* USER USER CREATION LAST MOD* 07474 M00S06339.modval +++| SUBT2 DIS ,* NAME INDEX DATE DATE* 07475 M00S06340.modval +++| COB SPACE 4,15
| Line S06341 Modification History | |
|---|---|
M01 (Removed by) | ns2417 |
Seq # *Modification Id* Act ----------------------------+ 07476 M01S06341.ns2417 ---|** COB - CHECK OUTPUT BUFFER FOR END OF RUN PROCESSING.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2417 |
Seq # *Modification Id* Act ----------------------------+ 07477 M01S00001.ns2417 +++|** COB - CHECK OUTPUT BUFFER. 07478 M00S06342.modval +++|*
| Line S06343 Modification History | |
|---|---|
M01 (Removed by) | ns2417 |
Seq # *Modification Id* Act ----------------------------+ 07479 M01S06343.ns2417 ---|* ENTRY JUST PREVIOUS TO END OF RUN. 07480 M01S06344.ns2417 ---|* 07481 M01S06345.ns2417 ---|* EXIT OUTPUT BUFFER DUMPED IF NECESSARY, AND PAGE PARITY 07482 M01S06346.ns2417 ---|* MAINTAINED.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2417 |
Seq # *Modification Id* Act ----------------------------+ 07483 M01S00002.ns2417 +++|* EXIT OUTPUT BUFFER FLUSHED IF NECESSARY AND *SSST* STATUS 07484 M01S00003.ns2417 +++|* REMOVED FROM OUTPUT FILE. 07485 M00S06347.modval +++|* 07486 M00S06348.modval +++|* USES X - 1, 2. 07487 M00S06349.modval +++|* A - 1, 2. 07488 M00S06350.modval +++|*
| Line S06351 Modification History | |
|---|---|
M01 (Removed by) | ns2417 |
Seq # *Modification Id* Act ----------------------------+ 07489 M01S06351.ns2417 ---|* MACROS RECALL, SETFS, STATUS, WRITEH, WRITER.
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2417 |
Seq # *Modification Id* Act ----------------------------+ 07490 M01S00004.ns2417 +++|* MACROS SETFS, STATUS, WRITER. 07491 M00S06352.modval +++| 07492 M00S06353.modval +++|
| Line S06354 Modification History | |
|---|---|
M01 (Removed by) | ns2417 |
Seq # *Modification Id* Act ----------------------------+ 07493 M01S06354.ns2417 ---| COB1 RECALL O CHECK DATA PRESENT 07494 M01S06355.ns2417 ---| SA1 O+2 07495 M01S06356.ns2417 ---| SA2 O+3 07496 M01S06357.ns2417 ---| IX1 X1-X2 07497 M01S06358.ns2417 ---| ZR X1,COB2 IF EMPTY 07498 M01S06359.ns2417 ---| WRITER O 07499 M01S06360.ns2417 ---| 07500 M01S06361.ns2417 ---| COB2 SA2 OF 07501 M01S06362.ns2417 ---| ZR X2,COBX IF TERMINAL FILE
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2417 |
Seq # *Modification Id* Act ----------------------------+ 07502 M01S00005.ns2417 +++| COB SUBR ENTRY/ EXIT 07503 M01S00006.ns2417 +++| SA1 CLN CHECK IF SUBROUTINE *CLN* EVER CALLED 07504 M01S00007.ns2417 +++| SA2 PLM CHECK IF SUBROUTINE *PLM* EVER CALLED 07505 M01S00008.ns2417 +++| BX2 X1+X2 07506 M01S00009.ns2417 +++| ZR X2,COBX IF NO OUTPUT WRITTEN 07507 M01S00010.ns2417 +++| WRITER O,R FLUSH OUTPUT 07508 M01S00011.ns2417 +++| SA1 OF 07509 M01S00012.ns2417 +++| ZR X1,COBX IF TERMINAL FILE 07510 M00S06363.modval +++| STATUS O,P
| Line S06364 Modification History | |
|---|---|
M01 (Removed by) | ns2417 |
Seq # *Modification Id* Act ----------------------------+ 07511 M01S06364.ns2417 ---| SA1 X2 CHECK IF FILE EXISTS 07512 M01S06365.ns2417 ---| MX2 4 07513 M01S06366.ns2417 ---| LX1 46 07514 M01S06367.ns2417 ---| BX2 X2*X1 07515 M01S06368.ns2417 ---| NZ X2,COBX IF FILE DOES NOT EXIST 07516 M00S06369.modval +++| SA2 O+5 GET FNT 07517 M00S06370.modval +++| MX1 -6 07518 M00S06371.modval +++| BX2 -X1*X2 GET FILE STATUS 07519 M00S06372.modval +++| SX1 X2-SSST 07520 M00S06373.modval +++| NZ X1,COBX IF PRIOR OUTPUT ID 07521 M00S06374.modval +++| SETFS O,0 CLEAR FILE STATUS
| Line S06375 Modification History | |
|---|---|
M01 (Removed by) | ns2417 |
Seq # *Modification Id* Act ----------------------------+ 07522 M01S06375.ns2417 ---| 07523 M01S06376.ns2417 ---| COB SUBR ENTRY/ EXIT 07524 M01S06377.ns2417 ---| SA1 PN CHECK PAGE NUMBER 07525 M01S06378.ns2417 ---| LX1 59-0 07526 M01S06379.ns2417 ---| NG X1,COB1 IF PAGE PARITY ALL RIGHT 07527 M01S06380.ns2417 ---| WRITEH O,CLNA,1 07528 M01S06381.ns2417 ---| EQ COB1 CHECK DATA
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | ns2417 |
Seq # *Modification Id* Act ----------------------------+ 07529 M01S00013.ns2417 +++| EQ COBX RETURN 07530 M00S06382.modval +++| CPR SPACE 4,20 07531 M00S06383.modval +++|** CPR - CHECK PASSWORD REQUIREMENT. 07532 M00S06384.modval +++|* 07533 M00S06385.modval +++|* ENTRY (X5) = PASSWORD WORD FROM USER BLOCK. 07534 M00S06386.modval +++|* (A5) = ADDRESS OF PASSWORD WORD. 07535 M00S06387.modval +++|* 07536 M00S06388.modval +++|* EXIT (B3) = ERROR MESSAGE ADDRESS, IF PASSWORD REQUIRED 07537 M00S06389.modval +++|* BUT NOT ENTERED. 07538 M00S06390.modval +++|* (B3) = 0, IF ENTERED OR NOT REQUIRED. 07539 M00S06391.modval +++|* 07540 M00S06392.modval +++|* IF NO PASSWORD IS ENTERED, AND NONE IS REQUIRED, THE 07541 M00S06393.modval +++|* ENCRYPTED NULL PASSWORD AND THE DEFAULT EXPIRATION DATE 07542 M00S06394.modval +++|* WILL BE SET. 07543 M00S06395.modval +++|* 07544 M00S06396.modval +++|* USES X - 0, 1, 5, 6, 7. 07545 M00S06397.modval +++|* A - 1, 7. 07546 M00S06398.modval +++|* B - 2, 3. 07547 M00S06399.modval +++|* 07548 M00S06400.modval +++|* CALLS ADT, EPW. 07549 M00S06401.modval +++| 07550 M00S06402.modval +++| 07551 M00S06403.modval +++| CPR3 SB3 ERPR **** PASSWORD REQUIRED. 07552 M00S06404.modval +++| 07553 M00S06405.modval +++| CPR SUBR ENTRY/EXIT 07554 M00S06406.modval +++| SB3 B0+ SET NO ERROR 07555 M00S06407.modval +++| MX0 42 07556 M00S06408.modval +++| BX6 X0*X5 07557 M00S06409.modval +++| NZ X6,CPRX IF PASSWORD ENTERED 07558 M00S06410.modval +++| BX6 -X0*X5 07559 M00S06411.modval +++| NZ X6,CPR1 IF EXPIRATION DATE ENTERED 07560 M00S06412.modval +++| SX1 APXT-7777B 07561 M00S06413.modval +++| ZR X1,CPR1 IF DEFAULT IS NON-EXPIRING 07562 M00S06414.modval +++| SX1 APXT SET DEFAULT EXPIRATION TERM 07563 M00S06415.modval +++| RJ ADT 07564 M00S06416.modval +++| CPR1 BX3 X6 SAVE EXPIRATION DATE 07565 M00S06417.modval +++| BX5 X5-X5 SET NULL PASSWORD 07566 M00S06418.modval +++| RJ EPW 07567 M00S06419.modval +++| BX7 X3+X6 COMBINE PASSWORD AND EXPIRATION DATE 07568 M00S06420.modval +++| SA1 RP 07569 M00S06421.modval +++| NZ X1,CPR2 IF NO PASSWORD REQUIRED 07570 M00S06422.modval +++| SB2 RPWL 07571 M00S06423.modval +++| ZR B2,CPR2 IF MINIMUM REQUIRED LENGTH = 0 07572 M00S06424.modval +++| SA1 RDBA 07573 M00S06425.modval +++| NZ X1,CPR3 IF NEW USER 07574 M00S06426.modval +++| CPR2 SA7 A5 SET PASSWORD AND EXPIRATION DATE 07575 M00S06427.modval +++| EQ CPRX RETURN 07576 M00S06428.modval +++| CSM SPACE 4,15 07577 M00S06429.modval +++|** CSM - CHECK SECURITY MODE. 07578 M00S06430.modval +++|* 07579 M00S06431.modval +++|* EXIT (X1) = 0, IF USER IS VALID. 07580 M00S06432.modval +++|* (X1) .NE. 0 IF USER IS NOT VALID. IN A SECURED 07581 M00S06433.modval +++|* SYSTEM, SECURITY ADMINISTRATOR PRIVILEGES 07582 M00S06434.modval +++|* ARE REQUIRED. 07583 M00S06435.modval +++|* 07584 M00S06436.modval +++|* USES X - 1, 2. 07585 M00S06437.modval +++|* A - 1, 2. 07586 M00S06438.modval +++|* 07587 M00S06439.modval +++|* MACROS GETSSM, GETUSV. 07588 M00S06440.modval +++| 07589 M00S06441.modval +++| 07590 M00S06442.modval +++| CSM SUBR ENTRY/EXIT 07591 M00S06443.modval +++| GETSSM CSMA GET SECURITY MODE 07592 M00S06444.modval +++| SA1 CSMA 07593 M00S06445.modval +++| ZR X1,CSMX IF NOT A SECURE SYSTEM 07594 M00S06446.modval +++| GETUSV CSMB GET VALIDATION WORD *JSCW* 07595 M00S06447.modval +++| SA2 CSMB 07596 M00S06448.modval +++| SX1 B0+ 07597 M00S06449.modval +++| NG X2,CSMX IF SECURITY ADMINISTRATOR 07598 M00S06450.modval +++| SX1 B1+ 07599 M00S06451.modval +++| EQ CSMX RETURN 07600 M00S06452.modval +++| 07601 M00S06453.modval +++| CSMA CON 0 SECURITY MODE 07602 M00S06454.modval +++| CSMB CON 0 VALIDATION WORD *JSCW* 07603 M00S06455.modval +++| CUN SPACE 4,10 07604 M00S06456.modval +++|** CUN - COMPARE USER NAMES. 07605 M00S06457.modval +++|* 07606 M00S06458.modval +++|* *CUN* COMPARES THE CURRENT JOB USER NAME WITH THE 07607 M00S06459.modval +++|* USER NAME TO BE CHANGED. 07608 M00S06460.modval +++|* 07609 M00S06461.modval +++|* ENTRY *TANB* BLOCK SET. 07610 M00S06462.modval +++|* 07611 M00S06463.modval +++|* EXIT (X1) = 0 IF USER NAMES MATCH. 07612 M00S06464.modval +++|* 07613 M00S06465.modval +++|* USES X - 0, 1, 2. 07614 M00S06466.modval +++|* A - 1, 2. 07615 M00S06467.modval +++| 07616 M00S06468.modval +++| 07617 M00S06469.modval +++| CUN SUBR ENTRY/EXIT 07618 M00S06470.modval +++| SA1 SSJ=+UIDS GET USER NAME FOR JOB 07619 M00S06471.modval +++| SA2 TANB+ACCN GET USER NAME BEING ALTERED 07620 M00S06472.modval +++| MX0 42 07621 M00S06473.modval +++| BX1 X1-X2 07622 M00S06474.modval +++| BX1 X0*X1 COMPARE USER NAMES 07623 M00S06475.modval +++| EQ CUNX RETURN 07624 M00S06476.modval +++| EPW SPACE 4,10 07625 M00S06477.modval +++|** EPW - ENCRYPT PASSWORD. 07626 M00S06478.modval +++|* 07627 M00S06479.modval +++|* ENTRY (X5) = PASSWORD LEFT JUSTIFIED, BINARY ZERO FILLED. 07628 M00S06480.modval +++|* 07629 M00S06481.modval +++|* EXIT (X6) = ENCRYPTED PASSWORD IN BITS 59-18. 07630 M00S06482.modval +++|* 07631 M00S06483.modval +++|* USES X - 1, 6. 07632 M00S06484.modval +++|* A - 1, 6. 07633 M00S06485.modval +++|* 07634 M00S06486.modval +++|* MACROS SYSTEM. 07635 M00S06487.modval +++| 07636 M00S06488.modval +++| 07637 M00S06489.modval +++| EPW SUBR ENTRY/EXIT 07638 M00S06490.modval +++| BX6 X5 SAVE PASSWORD 07639 M00S06491.modval +++| SA6 EPWA 07640 M00S06492.modval +++| SYSTEM CPM,R,EPWA,122B*100B 07641 M00S06493.modval +++| SA1 EPWA GET ENCRYPTED PASSWORD 07642 M00S06494.modval +++| BX6 X1 07643 M00S06495.modval +++| EQ EPWX RETURN 07644 M00S06496.modval +++| 07645 M00S06497.modval +++| 07646 M00S06498.modval +++| EPWA CON 0 *CPM* PARAMETER BLOCK
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | modva21 |
Seq # *Modification Id* Act ----------------------------+ 07647 M01S00031.modva21 +++| IAM SPACE 4,20 07648 M01S00032.modva21 +++|** IAM - ISSUE ACCOUNT FILE MESSAGE. 07649 M01S00033.modva21 +++|* 07650 M01S00034.modva21 +++|* ENTRY (DANA) .NE. 0, IF USER NAME DELETE. 07651 M01S00035.modva21 +++|* (UUFG) .LT. 0, IF REFORMAT OPTION. 07652 M01S00036.modva21 +++|* .EQ. 0, IF USER NAME CREATE OR DELETE. 07653 M01S00037.modva21 +++|* .GT. 0, IF USER NAME UPDATE. 07654 M01S00038.modva21 +++|* 07655 M01S00039.modva21 +++|* EXIT ACCOUNT MESSAGE ISSUED IF FAST-ATTACHED MODE. 07656 M01S00040.modva21 +++|* 07657 M01S00041.modva21 +++|* USES X - 0, 1, 2, 6. 07658 M01S00042.modva21 +++|* A - 1, 2, 6. 07659 M01S00043.modva21 +++|* B - 2, 5. 07660 M01S00044.modva21 +++|* 07661 M01S00045.modva21 +++|* CALLS SNM. 07662 M01S00046.modva21 +++|* 07663 M01S00047.modva21 +++|* MACROS MESSAGE, MOVE. 07664 M01S00048.modva21 +++| 07665 M01S00049.modva21 +++| 07666 M01S00050.modva21 +++| IAM3 MESSAGE IAMD,5,R ISSUE MESSAGE TO ACCOUNT FILE 07667 M01S00051.modva21 +++| 07668 M01S00052.modva21 +++| IAM SUBR ENTRY/EXIT 07669 M01S00053.modva21 +++| SA1 RAPF 07670 M01S00054.modva21 +++| ZR X1,IAMX IF LOCAL VALIDATION FILE 07671 M01S00055.modva21 +++| SA2 UUFG 07672 M01S00056.modva21 +++| NG X2,IAMX IF REFORMAT OPTION 07673 M01S00057.modva21 +++| SA1 EF 07674 M01S00058.modva21 +++| NZ X1,IAMX IF ERRORS 07675 M01S00059.modva21 +++| SA2 TANB+ACCN GET MODIFIED USER NAME 07676 M01S00060.modva21 +++| BX6 X2 07677 M01S00061.modva21 +++| SA6 IAMA+2 07678 M01S00062.modva21 +++| SA1 DANA GET MODIFICATION TYPE 07679 M01S00063.modva21 +++| SX6 B0+ 07680 M01S00064.modva21 +++| NZ X1,IAM1 IF DELETE 07681 M01S00065.modva21 +++| SA1 UUFG 07682 M01S00066.modva21 +++| SX6 X6+1 07683 M01S00067.modva21 +++| NZ X1,IAM1 IF UPDATE 07684 M01S00068.modva21 +++| SX6 X6+1 07685 M01S00069.modva21 +++| IAM1 SA1 X6+IAMB SET MODIFICATION TYPE 07686 M01S00070.modva21 +++| BX6 X1 07687 M01S00071.modva21 +++| SA6 IAMA+4 07688 M01S00072.modva21 +++| MOVE IAMEL,IAME,IAMD SET MESSAGE FIELDS 07689 M01S00073.modva21 +++| SX0 4 07690 M01S00074.modva21 +++| IAM2 NG X0,IAM3 IF ALL FIELDS SET 07691 M01S00075.modva21 +++| SA1 X0+IAMC GET REPLACEMENT CHARACTER 07692 M01S00076.modva21 +++| SB2 X1 07693 M01S00077.modva21 +++| SA1 X0+IAMA GET FIELD 07694 M01S00078.modva21 +++| MX6 42 07695 M01S00079.modva21 +++| BX1 X6*X1 07696 M01S00080.modva21 +++| SB5 IAMD 07697 M01S00081.modva21 +++| RJ SNM SET NAME IN MESSAGE 07698 M01S00082.modva21 +++| SX0 X0-1 07699 M01S00083.modva21 +++| EQ IAM2 CHECK NEXT FIELD 07700 M01S00084.modva21 +++| 07701 M01S00085.modva21 +++| IAMA BSS 0 MESSAGE FIELD VALUES 07702 M01S00086.modva21 +++| CON 0 MODIFIED FAMILY NAME 07703 M01S00087.modva21 +++| BSS 1 ISSUING FAMILY NAME 07704 M01S00088.modva21 +++| BSS 1 MODIFIED USER NAME 07705 M01S00089.modva21 +++| BSS 1 ISSUING USER NAME 07706 M01S00090.modva21 +++| BSS 1 MODIFICATION TYPE 07707 M01S00091.modva21 +++| 07708 M01S00092.modva21 +++| IAMB BSS 0 MESSAGE IDENTIFIERS 07709 M01S00093.modva21 +++| DATA 4LMVDU USER NAME DELETE 07710 M01S00094.modva21 +++| DATA 4LMVUU USER NAME UPDATE 07711 M01S00095.modva21 +++| DATA 4LMVCU USER NAME CREATE 07712 M01S00096.modva21 +++| 07713 M01S00097.modva21 +++| IAMC BSS 0 REPLACEMENT CHARACTERS 07714 M01S00098.modva21 +++| CON 1R+ MODIFIED FAMILY NAME 07715 M01S00099.modva21 +++| CON 1R- ISSUING FAMILY NAME 07716 M01S00100.modva21 +++| CON 1R= MODIFIED USER NAME 07717 M01S00101.modva21 +++| CON 1R/ ISSUING USER NAME 07718 M01S00102.modva21 +++| CON 1R$ MODIFICATION TYPE 07719 M01S00103.modva21 +++| 07720 M01S00104.modva21 +++| IAMD DATA C*$$$$, -------, ///////, +++++++, =======.* 07721 M01S00105.modva21 +++| IAME DATA C*$$$$, -------, ///////, +++++++, =======.* 07722 M01S00106.modva21 +++| IAMEL EQU *-IAME LENGTH OF MESSAGE 07723 M00S06499.modval +++| ICE SPACE 4,10 07724 M00S06500.modval +++|** ICE - INDEXED CODE EXECUTION. 07725 M00S06501.modval +++|* 07726 M00S06502.modval +++|* ENTRY (B7) = SUBROUTINE ADDRESS. 07727 M00S06503.modval +++|* 07728 M00S06504.modval +++|* EXIT TO SUBROUTINE WITH RETURN ADDRESS SET. 07729 M00S06505.modval +++|* 07730 M00S06506.modval +++|* USES A - 2, 7. 07731 M00S06507.modval +++|* X - 2, 7. 07732 M00S06508.modval +++| 07733 M00S06509.modval +++| 07734 M00S06510.modval +++| ICE SUBR ENTRY/ EXIT 07735 M00S06511.modval +++| SA2 ICEX SET RETURN ADDRESS 07736 M00S06512.modval +++| BX7 X2 07737 M00S06513.modval +++| SA7 B7 07738 M00S06514.modval +++| JP B7+1 JUMP TO SUBROUTINE 07739 M00S06515.modval +++| LID SPACE 4,15 07740 M00S06516.modval +++|** LID - LIST INPUT DIRECTIVES. 07741 M00S06517.modval +++|* 07742 M00S06518.modval +++|* ENTRY FRESH DATA IN STRING BUFFER. 07743 M00S06519.modval +++|* 07744 M00S06520.modval +++|* EXIT NEW INPUT LINE WRITTEN TO OUTPUT. 07745 M00S06521.modval +++|* 07746 M00S06522.modval +++|* USES X - 1, 2, 3, 7. 07747 M00S06523.modval +++|* A - 1, 2, 3, 7. 07748 M00S06524.modval +++|* 07749 M00S06525.modval +++|* CALLS CLN. 07750 M00S06526.modval +++|* 07751 M00S06527.modval +++|* MACROS WRITES. 07752 M00S06528.modval +++| 07753 M00S06529.modval +++| 07754 M00S06530.modval +++| LID1 SX7 X1-1 COUNT INFORMATION SKIPPED 07755 M00S06531.modval +++| SA7 A1+ 07756 M00S06532.modval +++| 07757 M00S06533.modval +++| LID SUBR ENTRY/ EXIT 07758 M00S06534.modval +++| SA3 OP CHECK OPTION 07759 M00S06535.modval +++| ZR X3,LIDX IF K-DISPLAY
| Line S06536 Modification History | |
|---|---|
M01 (Removed by) | ns2170 |
Seq # *Modification Id* Act ----------------------------+ 07760 M01S06536.ns2170 ---| SA1 LIDA SKIP PRIVILEDGED INFORMATION
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | ns2170 |
Seq # *Modification Id* Act ----------------------------+ 07761 M01S00024.ns2170 +++| SA1 LIDA SKIP PRIVILEGED INFORMATION 07762 M00S06537.modval +++| SA2 EL CHECK LIST OPTION
| Line S06538 Modification History | |
|---|---|
M01 (Removed by) | ns2170 |
Seq # *Modification Id* Act ----------------------------+ 07763 M01S06538.ns2170 ---| NZ X1,LID1 IF PRIVILEDGED INFORMATION
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | ns2170 |
Seq # *Modification Id* Act ----------------------------+ 07764 M01S00025.ns2170 +++| NZ X1,LID1 IF PRIVILEGED INFORMATION 07765 M00S06539.modval +++| NZ X2,LIDX IF DIRECTIVES NOT LISTED 07766 M00S06540.modval +++| SX1 B1 CHECK FOR HEADER 07767 M00S06541.modval +++| SX2 5 07768 M00S06542.modval +++| LX1 30 07769 M00S06543.modval +++| BX1 X1+X2 07770 M00S06544.modval +++| RJ CLN 07771 M00S06545.modval +++| SA1 SB SET STRING BUFFER ADDRESS 07772 M00S06546.modval +++| SA3 SM GET BUFFER LENGTH 07773 M00S06547.modval +++| IX3 X3-X1 07774 M00S06548.modval +++| WRITES O,X1-1,X3+1 07775 M00S06549.modval +++| EQ LIDX RETURN 07776 M00S06550.modval +++| 07777 M00S06551.modval +++|
| Line S06552 Modification History | |
|---|---|
M01 (Removed by) | ns2170 |
Seq # *Modification Id* Act ----------------------------+ 07778 M01S06552.ns2170 ---| LIDA CON 0 PRIVILEDGED INFORMATION FLAG
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | ns2170 |
Seq # *Modification Id* Act ----------------------------+ 07779 M01S00026.ns2170 +++| LIDA CON 0 PRIVILEGED INFORMATION FLAG 07780 M00S06553.modval +++| PCE SPACE 4,15 07781 M00S06554.modval +++|** PCE - PURGE CATALOG ENTRIES. 07782 M00S06555.modval +++|* 07783 M00S06556.modval +++|* ENTRY USER INDEX SET. 07784 M00S06557.modval +++|* 07785 M00S06558.modval +++|* EXIT ALL CATALOG ENTRIES FOR SPECIFIC USER INDEX PURGED. 07786 M00S06559.modval +++|* 07787 M00S06560.modval +++|* USES X - 0, 1, 6. 07788 M00S06561.modval +++|* A - 1, 6. 07789 M00S06562.modval +++|* 07790 M00S06563.modval +++|* CALLS CEP, CER, CLN, SEP. 07791 M00S06564.modval +++|* 07792 M00S06565.modval +++|* MACROS CATLIST, PURGE, READW, WRITEC. 07793 M00S06566.modval +++| 07794 M00S06567.modval +++| 07795 M00S06568.modval +++| PCE3 SA1 I 07796 M00S06569.modval +++| LX1 -10 07797 M00S06570.modval +++| BX6 X6-X6 07798 M00S06571.modval +++| PL X1,PCE1 IF NOT END OF INFORMATION 07799 M00S06572.modval +++| SA1 I 07800 M00S06573.modval +++| SA6 A1+CFCN CLEAR CATLIST CONTINUATION DATA ADDRESS 07801 M00S06574.modval +++| RJ CEP CLEAR ERROR PROCESSING 07802 M00S06575.modval +++| SA1 S 07803 M00S06576.modval +++| RJ CEP CLEAR ERROR PROCESSING 07804 M00S06577.modval +++| 07805 M00S06578.modval +++| PCE SUBR ENTRY/ EXIT 07806 M00S06579.modval +++| SA1 I 07807 M00S06580.modval +++| RJ SEP SET ERROR PROCESSING 07808 M00S06581.modval +++| SA1 S 07809 M00S06582.modval +++| RJ SEP SET ERROR PROCESSING 07810 M00S06583.modval +++| PCE1 CATLIST I,,,,,,IP 07811 M00S06584.modval +++| SA1 I 07812 M00S06585.modval +++| RJ CER CHECK ERROR 07813 M00S06586.modval +++| PCE2 READW I,KBUF,NWCE 07814 M00S06587.modval +++| NG X1,PCE3 IF NO MORE FILES 07815 M00S06588.modval +++| SA1 KBUF+FCFN 07816 M00S06589.modval +++| MX0 42 07817 M00S06590.modval +++| SX6 B1 07818 M00S06591.modval +++| BX1 X0*X1 GET FILE NAME 07819 M00S06592.modval +++| BX6 X1+X6 SET BIT ZERO FOR PURGE CALL 07820 M00S06593.modval +++| SA6 S 07821 M00S06594.modval +++| BX6 X1 07822 M00S06595.modval +++| SA6 PCEA+1 07823 M00S06596.modval +++| PURGE S,,,,,IP 07824 M00S06597.modval +++| SA1 S 07825 M00S06598.modval +++| RJ CER CHECK ERROR 07826 M00S06599.modval +++| SX1 B1 07827 M00S06600.modval +++| RJ CLN CHECK LINE NUMBER 07828 M00S06601.modval +++| WRITEC O,PCEA DUMP FILE NAME TO OUTPUT 07829 M00S06602.modval +++| EQ PCE2 LOOP 07830 M00S06603.modval +++| 07831 M00S06604.modval +++| 07832 M00S06605.modval +++| PCEA DATA C* PURGE XXXXXXX* 07833 M00S06606.modval +++| SEP SPACE 4,10 07834 M00S06607.modval +++|** SEP - SET ERROR PROCESSING. 07835 M00S06608.modval +++|* 07836 M00S06609.modval +++|* ENTRY (A1) = FET ADDRESS. 07837 M00S06610.modval +++|* 07838 M00S06611.modval +++|* USES X - 0, 2, 6. 07839 M00S06612.modval +++|* A - 2, 6. 07840 M00S06613.modval +++| 07841 M00S06614.modval +++| 07842 M00S06615.modval +++| SEP SUBR ENTRY/EXIT 07843 M00S06616.modval +++| SA2 A1+B1 SET ERROR PROCESSING BIT 07844 M00S06617.modval +++| SX0 B1 07845 M00S06618.modval +++| LX0 44 07846 M00S06619.modval +++| BX6 -X0*X2 07847 M00S06620.modval +++| BX6 X0+X6 07848 M00S06621.modval +++| SA6 A2 07849 M00S06622.modval +++| EQ SEPX RETURN 07850 M00S06623.modval +++| SUI SPACE 4,10 07851 M00S06624.modval +++|** SUI - SAVE AVAILABLE USER INDEX TABLE. 07852 M00S06625.modval +++|* 07853 M00S06626.modval +++|* EXIT USER INDICES WRITTEN TO VALINDS. 07854 M00S06627.modval +++|* 07855 M00S06628.modval +++|* MACROS REWIND, SETFS, WRITER, WRITEW. 07856 M00S06629.modval +++| 07857 M00S06630.modval +++| 07858 M00S06631.modval +++| SUI SUBR ENTRY/ EXIT 07859 M00S06632.modval +++| REWIND U,R 07860 M00S06633.modval +++| WRITEW U,TAUI,TAUIL 07861 M00S06634.modval +++| WRITER U 07862 M00S06635.modval +++| SETFS U,0 CLEAR FILE STATUS 07863 M00S06636.modval +++| EQ SUIX RETURN
| Line S00406 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07864 M01S00406.v23l617 +++| SPB SPACE 4,15 07865 M01S00407.v23l617 +++|** SPB - SET PERMISSION BIT IN PERMISSION CONTROL WORD. 07866 M01S00408.v23l617 +++|* 07867 M01S00409.v23l617 +++|* ENTRY (A0) = ADDRESS OF *TPCW* ENTRY. 07868 M01S00410.v23l617 +++|* (X1) = PERMISSION IDENTIFIER. 07869 M01S00411.v23l617 +++|* (X4) = PERMISSION CONTROL WORD. 07870 M01S00412.v23l617 +++|* 07871 M01S00413.v23l617 +++|* EXIT (X4) = NEW PERMISSION CONTROL WORD. 07872 M01S00414.v23l617 +++|* (B3) .LT. 0 IF NO ERROR. 07873 M01S00415.v23l617 +++|* = ERROR MESSAGE ADDRESS IF ERROR. 07874 M01S00416.v23l617 +++|* 07875 M01S00417.v23l617 +++|* USES X - 1, 2, 3, 4. 07876 M01S00418.v23l617 +++|* A - 1, 3. 07877 M01S00419.v23l617 +++|* B - 2, 3, 4. 07878 M01S00420.v23l617 +++|* 07879 M01S00421.v23l617 +++|* CALLS CDP, STB. 07880 M01S00422.v23l617 +++| 07881 M01S00423.v23l617 +++| 07882 M01S00424.v23l617 +++| SPB SUBR ENTRY/EXIT 07883 M01S00425.v23l617 +++| SA3 A0 07884 M01S00426.v23l617 +++| MX2 42 07885 M01S00427.v23l617 +++| SB2 X3 07886 M01S00428.v23l617 +++| RJ STB SEARCH TABLE 07887 M01S00429.v23l617 +++| SB3 ERAD * ERROR IN ALPHANUMERIC DATA.* 07888 M01S00430.v23l617 +++| ZR X3,SPBX IF PERMISSION IDENTIFIER NOT FOUND 07889 M01S00431.v23l617 +++| MX2 -6 07890 M01S00432.v23l617 +++| BX3 -X2*X3 07891 M01S00433.v23l617 +++| SB4 X3 PERMISSION BIT NUMBER 07892 M01S00434.v23l617 +++| SB2 A0-TPCW CHECK IF DEFAULTS TO BE CLEARED 07893 M01S00435.v23l617 +++| SA1 PCDW 07894 M01S00436.v23l617 +++| AX1 B2 07895 M01S00437.v23l617 +++| LX1 59-0 07896 M01S00438.v23l617 +++| NG X1,SPB1 IF DEFAULT BITS NOT TO BE CLEARED 07897 M01S00439.v23l617 +++| RJ CDP CLEAR DEFAULT PERMISSION BITS 07898 M01S00440.v23l617 +++| SPB1 SX1 B1 SET/TOGGLE PERMISSION BIT 07899 M01S00441.v23l617 +++| LX1 B4 07900 M01S00442.v23l617 +++| BX4 X4-X1 07901 M01S00443.v23l617 +++| SB3 -1 SET NO ERROR 07902 M01S00444.v23l617 +++| EQ SPBX RETURN 07903 M00S06637.modval +++| CAF SPACE 4,15 07904 M00S06638.modval +++|** CAF - CHECK ALTERNATE FAMILY. 07905 M00S06639.modval +++|* 07906 M00S06640.modval +++|* EXIT (X6) .NE. 0, IF FAMILY NAME CHANGE NOT ALLOWED. 07907 M00S06641.modval +++|* FAMILY SET TO (FN), IF (FN) .NE. -1 AND JOB IS FROM 07908 M00S06642.modval +++|* SYSTEM ORIGIN. 07909 M00S06643.modval +++|*
| Line S06644 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07910 M01S06644.v23l617 ---|* ERROR TO *ABT* IF ILLEGAL FAMILY.
| Line S00445 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07911 M01S00445.v23l617 +++|* ERROR TO *ABT* IF INCORRECT FAMILY. 07912 M00S06645.modval +++|* 07913 M00S06646.modval +++|* USES X - 1, 2, 6. 07914 M00S06647.modval +++|* A - 1, 2, 6. 07915 M00S06648.modval +++|* 07916 M00S06649.modval +++|* MACROS ENFAM. 07917 M00S06650.modval +++| 07918 M00S06651.modval +++| 07919 M00S06652.modval +++| CAF SUBR ENTRY/EXIT 07920 M00S06653.modval +++| SA1 FN 07921 M00S06654.modval +++| MX6 59 07922 M00S06655.modval +++| BX6 X1-X6 07923 M00S06656.modval +++| ZR X6,CAFX IF FAMILY NOT SPECIFIED 07924 M00S06657.modval +++| SA1 OT CHECK FAMILY CHANGE ALLOWED 07925 M00S06658.modval +++| SX6 X1-SYOT 07926 M00S06659.modval +++| NZ X6,CAFX IF NOT SYSTEM ORIGIN 07927 M00S06660.modval +++| ENFAM FN 07928 M00S06661.modval +++| SA1 FN 07929 M00S06662.modval +++| MX6 -18 07930 M00S06663.modval +++| BX6 X6*X1 CLEAR STATUS 07931 M00S06664.modval +++| LX1 59-11 07932 M00S06665.modval +++| SX2 DMFM * FM NOT LEGAL FAMILY.* 07933 M00S06666.modval +++| PL X1,CAF1 IF FAMILY CHANGED 07934 M00S06667.modval +++| MX6 59 07935 M00S06668.modval +++| SA6 A1 07936 M00S06669.modval +++| EQ ABT ABORT 07937 M00S06670.modval +++| 07938 M00S06671.modval +++| CAF1 SA6 A1 SET OLD FAMILY NAME 07939 M00S06672.modval +++| BX6 X6-X6 07940 M00S06673.modval +++| EQ CAFX RETURN 07941 M00S06674.modval +++| TOV SPACE 4,15 07942 M00S06675.modval +++|** TOV - TABLE OVERFLOW PROCESSOR. 07943 M00S06676.modval +++|* 07944 M00S06677.modval +++|* ENTRY FROM *ATS* ONLY. 07945 M00S06678.modval +++|* (B6) = EXIT ADDRESS IN *COMCMTP* TO CONTINUE 07946 M00S06679.modval +++|* PROCESSING. 07947 M00S06680.modval +++|* 07948 M00S06681.modval +++|* EXIT TO (B6).
| Line S06682 Modification History | |
|---|---|
M01 (Removed by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 07949 M01S06682.ns2290 ---|* FIELD LENGTH INCREASED BY 1000B WORDS.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 07950 M01S00001.ns2290 +++|* FIELD LENGTH INCREASED BY *FLIN* WORDS. 07951 M00S06683.modval +++|* (TV) .NE. 0, IF FIELD LENGTH LIMIT REACHED. 07952 M00S06684.modval +++|* 07953 M00S06685.modval +++|* USES X - 3, 4, 6.
| Line S06686 Modification History | |
|---|---|
M01 (Removed by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 07954 M01S06686.ns2290 ---|* A - 3, 6.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 07955 M01S00002.ns2290 +++|* A - 3, 4, 6. 07956 M00S06687.modval +++|* 07957 M00S06688.modval +++|* MACROS MEMORY. 07958 M00S06689.modval +++| 07959 M00S06690.modval +++| 07960 M00S06691.modval +++| TOV BSS 0 ENTRY
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 07961 M01S00003.ns2290 +++| SA4 FLM MAXIMUM FIELD LENGTH 07962 M00S06692.modval +++| SA3 ML CURRENT FIELD LENGTH
| Line S06693 Modification History | |
|---|---|
M01 (Removed by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 07963 M01S06693.ns2290 ---| SX3 X3+1000B 07964 M01S06694.ns2290 ---| SX4 X3-FLLM LIMIT FIELD LENGTH
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 07965 M01S00004.ns2290 +++| SX3 X3+FLIN 07966 M01S00005.ns2290 +++| IX4 X3-X4 LIMIT FIELD LENGTH 07967 M00S06695.modval +++| NG X4,TOV1 IF ADEQUATE FIELD LENGTH 07968 M00S06696.modval +++| SX6 B1 INDICATE OVERFLOW 07969 M00S06697.modval +++| SA6 TV 07970 M00S06698.modval +++| TOV1 MEMORY CM,TOVB,R,X3 07971 M00S06699.modval +++| SA3 TOVB GET FIELD LENGTH ASSIGNED 07972 M00S06700.modval +++| AX3 30 07973 M00S06701.modval +++| BX6 X3 07974 M00S06702.modval +++| SA6 ML SET NEW FIELD LENGTH 07975 M00S06703.modval +++| SX6 X6-C.TAB2 07976 M00S06704.modval +++| SA6 F.TEND ADJUST TABLE LENGTH 07977 M00S06705.modval +++| JP B6 EXIT 07978 M00S06706.modval +++| 07979 M00S06707.modval +++| 07980 M00S06708.modval +++| TOVB CON 0 FIELD LENGTH STATUS RETURN 07981 M00S06709.modval +++| VPW SPACE 4,15 07982 M00S06710.modval +++|** VPW - VERIFY PASSWORD. 07983 M00S06711.modval +++|* 07984 M00S06712.modval +++|* ENTRY (X7) = PASSWORD, LEFT JUSTIFIED. 07985 M00S06713.modval +++|* 07986 M00S06714.modval +++|* EXIT (B2) = 0 IF PASSWORD AT LEAST REQUIRED LENGTH. 07987 M00S06715.modval +++|* = -1 IF PASSWORD NOT AT LEAST MINIMUM 07988 M00S06716.modval +++|* REQUIRED LENGTH. 07989 M00S06717.modval +++|* 07990 M00S06718.modval +++|* USES X - 0, 1, 3, 4. 07991 M00S06719.modval +++|* A - 3. 07992 M00S06720.modval +++|* B - 2, 3. 07993 M00S06721.modval +++| 07994 M00S06722.modval +++| 07995 M00S06723.modval +++| VPW SUBR ENTRY/EXIT 07996 M00S06724.modval +++| SB2 B0+ 07997 M00S06725.modval +++| SA3 RP CHECK IF PASSWORD REQUIRED 07998 M00S06726.modval +++| SX1 RPWL-1 CHECK REQUIRED PASSWORD LENGTH 07999 M00S06727.modval +++| NZ X3,VPWX IF NO PASSWORD REQUIRED 08000 M00S06728.modval +++| NG X1,VPWX IF NO PASSWORD REQUIRED 08001 M00S06729.modval +++| SX4 6 08002 M00S06730.modval +++| IX3 X1*X4 08003 M00S06731.modval +++| MX0 1 08004 M00S06732.modval +++| SB3 X3-1 BUILD MASK 08005 M00S06733.modval +++| AX0 B3 08006 M00S06734.modval +++| BX1 -X0*X7 CHECK PASSWORD 08007 M00S06735.modval +++| NZ X1,VPWX IF PASSWORD AT LEAST REQUIRED LENGTH 08008 M00S06736.modval +++| SB2 -B1 08009 M00S06737.modval +++| EQ VPWX RETURN 08010 M00S06738.modval +++| WCE SPACE 4,10 08011 M00S06739.modval +++|** WCE - WRITE CATALOG ENTRY TO OUTPUT. 08012 M00S06740.modval +++|* 08013 M00S06741.modval +++|* ENTRY (TANB) = 42/USER NAME ,18/USER INDEX. 08014 M00S06742.modval +++|* (TANB+1) = 24/ ,18/CREATION DATE ,18/LAST MOD DATE. 08015 M00S06743.modval +++|* 08016 M00S06744.modval +++|* EXIT CATALOG INFORMATION WRITTEN TO OUTPUT FILE. 08017 M00S06745.modval +++|* 08018 M00S06746.modval +++|* USES X - 0, 1, 2, 6. 08019 M00S06747.modval +++|* A - 1, 2, 6. 08020 M00S06748.modval +++|* 08021 M00S06749.modval +++|* CALLS CLN, COD, SFN. 08022 M00S06750.modval +++|* 08023 M00S06751.modval +++|* MACROS EDATE, WRITEC. 08024 M00S06752.modval +++| 08025 M00S06753.modval +++| 08026 M00S06754.modval +++| WCE SUBR ENTRY/EXIT 08027 M00S06755.modval +++| SA2 TANB SET USER NAME 08028 M00S06756.modval +++| MX0 42 08029 M00S06757.modval +++| BX1 X0*X2 08030 M00S06758.modval +++| BX0 -X0*X2 08031 M00S06759.modval +++| RJ SFN SET USER NAME 08032 M00S06760.modval +++| LX6 -6 08033 M00S06761.modval +++| SA6 WCEA 08034 M00S06762.modval +++| BX1 X0 SET USER INDEX 08035 M00S06763.modval +++| RJ COD 08036 M00S06764.modval +++| LX6 6*2 08037 M00S06765.modval +++| SA1 TANB+1 SET CREATION DATE 08038 M00S06766.modval +++| AX1 18 08039 M00S06767.modval +++| SA6 WCEB 08040 M00S06768.modval +++| SX1 X1+ 08041 M00S06769.modval +++| EDATE X1 08042 M00S06770.modval +++| SA6 WCEC 08043 M00S06771.modval +++| SA1 TANB+1 SET LAST MODIFICATION DATE 08044 M00S06772.modval +++| SX1 X1 08045 M00S06773.modval +++| EDATE X1 08046 M00S06774.modval +++| SA6 WCED 08047 M00S06775.modval +++| SX1 1 08048 M00S06776.modval +++| RJ CLN 08049 M00S06777.modval +++| WRITEC O,WCEA 08050 M00S06778.modval +++| EQ WCEX RETURN 08051 M00S06779.modval +++| 08052 M00S06780.modval +++| 08053 M00S06781.modval +++| WCEA CON 1H 08054 M00S06782.modval +++| WCEB CON 1H 08055 M00S06783.modval +++| WCEC CON 1H 08056 M00S06784.modval +++| WCED CON 1H 08057 M00S06785.modval +++| CON 0 08058 M00S06786.modval +++| COMMON SPACE 4,10 08059 M00S06787.modval +++|** COMMON DECKS. 08060 M00S06788.modval +++| 08061 M00S06789.modval +++| 08062 M00S06790.modval +++|*CALL COMCOVL 08063 M00S06791.modval +++|*CALL COMCPFM 08064 M00S06792.modval +++|*CALL COMCCDD 08065 M00S06793.modval +++|*CALL COMCCIO 08066 M00S06794.modval +++|*CALL COMCCOD 08067 M00S06795.modval +++|*CALL COMCCPM 08068 M00S06796.modval +++|*CALL COMCDXB 08069 M00S06797.modval +++|*CALL COMCEDT 08070 M00S06798.modval +++| LIST X 08071 M00S06799.modval +++|*CALL COMCCVI 08072 M00S06800.modval +++| LIST -X 08073 M00S06801.modval +++|*CALL COMCLFM 08074 M00S06802.modval +++|*CALL COMCMTP 08075 M00S06803.modval +++|*CALL COMCMVE 08076 M00S06804.modval +++|*CALL COMCRDO 08077 M00S06805.modval +++|*CALL COMCRDS 08078 M00S06806.modval +++|*CALL COMCRDW 08079 M00S06807.modval +++|*CALL COMCSFN 08080 M00S06808.modval +++|*CALL COMCSYS 08081 M00S06809.modval +++|*CALL COMCWOD 08082 M00S06810.modval +++|*CALL COMCSTF 08083 M00S06811.modval +++|*CALL COMCWTC 08084 M00S06812.modval +++|*CALL COMCWTH 08085 M00S06813.modval +++|*CALL COMCWTS 08086 M00S06814.modval +++|*CALL COMCWTW 08087 M00S06815.modval +++|*CALL COMCRDC 08088 M00S06816.modval +++|*CALL COMCSNM 08089 M00S06817.modval +++|*CALL COMCVDT 08090 M00S06818.modval +++| TITLE K-DISPLAY AREA. 08091 M00S06819.modval +++| INITIAL SPACE 4,10 08092 M00S06820.modval +++|** DISPLAY AREA DATA. 08093 M00S06821.modval +++| 08094 M00S06822.modval +++|
| Line S06823 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 08095 M01S06823.v23l617 ---| KIA VFD 6/4B,18/KBUF,18/DSA,18/DSA CONTROL WORD
Proceed to Part 5
cdc/nos2.source/opl.opl871/deck/modval.004.txt · Last modified: by 127.0.0.1