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
0 5 6 11 12 29 FBP LBP TPI 30 35 36 41 42 59 0 UBO SA
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
0 5 6 11 12 23 24 29 NPB UBO LHR TLM 30 41 42 59 TLM TBP
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