Seq # *Modification Id* Act
----------------------------+
Line S00219 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
04431 M01S00219.v23l617 +++| BX2 X2-X5
04432 M01S00220.v23l617 +++| NZ X2,ACW6 IF NOT *NUL*
04433 M01S00221.v23l617 +++| LX3 59-31
04434 M01S00222.v23l617 +++| PL X3,ACW7 IF *NUL* NOT ALLOWED
04435 M01S00223.v23l617 +++| RJ CDP CLEAR DEFAULT PERMISSION BITS
04436 M01S00224.v23l617 +++| SB3 -B1 SET NO ERROR
04437 M01S00225.v23l617 +++| SX1 A0-TPCW-PCAW
04438 M01S00226.v23l617 +++| NZ X1,ACW7 IF NOT *AACW* UPDATE
04439 M01S00227.v23l617 +++| SA1 CVC
04440 M01S00228.v23l617 +++| ZR X1,ACW4 IF *C* CONVERSION NOT SPECIFIED
04441 M01S00229.v23l617 +++| SA1 =4LCNRD
04442 M01S00230.v23l617 +++| RJ SPB SET PERMISSION BIT
04443 M01S00231.v23l617 +++| PL B3,ACW7 IF ERROR
04444 M01S00232.v23l617 +++| ACW4 SA1 CVD
04445 M01S00233.v23l617 +++| ZR X1,ACW5 IF *D* CONVERSION NOT SPECIFIED
04446 M01S00234.v23l617 +++| SA1 =4LCOPR
04447 M01S00235.v23l617 +++| RJ SPB SET PERMISSION BIT
04448 M01S00236.v23l617 +++| PL B3,ACW7 IF ERROR
04449 M01S00237.v23l617 +++| ACW5 SA1 CVF
Line S00238 Modification History
M01 (Added by) v23l617
M02 (Removed by) 251l664
Seq # *Modification Id* Act
----------------------------+
04450 M02S00238.251l664 ---| ZR X1,ACW7 IF *F* CONVERSION NOT SPECIFIED
Line S00043 Modification History
M01 (Added by) 251l664
Seq # *Modification Id* Act
----------------------------+
04451 M01S00043.251l664 +++| ZR X1,ACW5.1 IF *F* CONVERSION NOT SPECIFIED
Line S00239 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
04452 M01S00239.v23l617 +++| SA1 =4LCSAF
Line S00044 Modification History
M01 (Added by) 251l664
Seq # *Modification Id* Act
----------------------------+
04453 M01S00044.251l664 +++| RJ SPB SET PERMISSION BIT
04454 M01S00045.251l664 +++| PL B3,ACW7 IF ERROR
Line S00069 Modification History
M01 (Added by) ns2734
Seq # *Modification Id* Act
----------------------------+
04455 M01S00069.ns2734 +++| SA1 CVK
04456 M01S00070.ns2734 +++| ZR X1,ACW5.1 IF *K* CONVERSION NOT SPECIFIED
04457 M01S00071.ns2734 +++| SA1 =4LCRAF
04458 M01S00072.ns2734 +++| RJ SPB SET PERMISSION BIT
04459 M01S00073.ns2734 +++| PL B3,ACW7 IF ERROR
Line S00046 Modification History
M01 (Added by) 251l664
Seq # *Modification Id* Act
----------------------------+
04460 M01S00046.251l664 +++| ACW5.1 SA1 CVG
04461 M01S00047.251l664 +++| ZR X1,ACW5.2 IF *G* CONVERSION NOT SPECIFIED
04462 M01S00048.251l664 +++| SA1 =4LCOPI
04463 M01S00049.251l664 +++| RJ SPB SET PERMISSION BIT
04464 M01S00050.251l664 +++| PL B3,ACW7 IF ERROR
04465 M01S00051.251l664 +++| ACW5.2 SA1 CVH
Line S00052 Modification History
M01 (Added by) 251l664
M02 (Removed by) ns2734
Seq # *Modification Id* Act
----------------------------+
04466 M02S00052.ns2734 ---| ZR X1,ACW7 IF *H* CONVERSION NOT SPECIFIED
Line S00074 Modification History
M01 (Added by) ns2734
Seq # *Modification Id* Act
----------------------------+
04467 M01S00074.ns2734 +++| ZR X1,ACW5.3 IF *H* CONVERSION NOT SPECIFIED
Line S00053 Modification History
M01 (Added by) 251l664
Seq # *Modification Id* Act
----------------------------+
04468 M01S00053.251l664 +++| SA1 =4LCACA
Line S00075 Modification History
M01 (Added by) ns2734
Seq # *Modification Id* Act
----------------------------+
04469 M01S00075.ns2734 +++| RJ SPB SET PERMISSION BIT
04470 M01S00076.ns2734 +++| PL B3,ACW7 IF ERROR
04471 M01S00077.ns2734 +++| ACW5.3 SA1 CVK
04472 M01S00078.ns2734 +++| ZR X1,ACW7 IF *K* CONVERSION NOT SPECIFIED
04473 M01S00079.ns2734 +++| SA1 =4LCSAU
04474 M01S00080.ns2734 +++| RJ SPB SET PERMISSION BIT
04475 M01S00081.ns2734 +++| PL B3,ACW7 IF ERROR
04476 M01S00082.ns2734 +++| SA1 =4LCRAU
Line S00240 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
04477 M01S00240.v23l617 +++| ACW6 RJ SPB SET PERMISSION BIT
04478 M01S00241.v23l617 +++| ACW7 BX7 X4 WRITE PERMISSION CONTROL WORD
04479 M01S00242.v23l617 +++| SA7 A4
04480 M01S00243.v23l617 +++| EQ ACWX RETURN
04481 M00S03648.modval +++| PCDW SPACE 4,10
04482 M00S03649.modval +++|** PCDW - PERMISSION BIT WORD TO CONTROL USE OF DEFAULT.
04483 M00S03650.modval +++|*
04484 M00S03651.modval +++|* BITS APPLY TO PERMISSION CONTROL DIRECTIVES DEFINED
04485 M00S03652.modval +++|* BY POSITION IN *TPCW* (BIT 0 = TABLE ENTRY 0,
04486 M00S03653.modval +++|* BIT 1 = TABLE ENTRY 1, ETC.). BIT CLEAR IMPLIES
04487 M00S03654.modval +++|* FIRST OCCURANCE OF DIRECTIVE WILL CLEAR DEFAULT
04488 M00S03655.modval +++|* SELECTION. BIT SET IMPLIES DIRECTIVE SHOULD TOGGLE
04489 M00S03656.modval +++|* SPECIFIED BIT ONLY.
04490 M00S03657.modval +++|
04491 M00S03658.modval +++|
04492 M00S03659.modval +++| PCDM EQU 0 PERMISSION CONTROL DEFAULT MASK
04493 M00S03660.modval +++|
04494 M00S03661.modval +++| PCDW CON PCDM PERMISSION CONTROL DEFAULT WORD
04495 M00S03662.modval +++| TPCW SPACE 4,15
04496 M00S03663.modval +++|** TPCW - TABLE OF PERMISSION CONTROL WORDS.
04497 M00S03664.modval +++|*
04498 M00S03665.modval +++|*T 18/ID,12/OPT,6/SHF,6/NB,18/TPB
Figure
0 17 18 23 24 29 TPB NB SHF 30 41 42 59 OPT ID
04499 M00S03666.modval +++|* ID DIRECTIVE IDENTIFIER.
04500 M00S03667.modval +++|* OPT OPTIONS = 9/0, 1/ALL, 1/NUL, 1/SPF.
04501 M00S03668.modval +++|* ALL = SET IF *ID=ALL* DIRECTIVE ALLOWED.
04502 M00S03669.modval +++|* NUL = SET IF *ID=NUL* DIRECTIVE ALLOWED.
04503 M00S03670.modval +++|* SPF = SET IF SPACE FILL NEEDED FOR PERMISSION
04504 M00S03671.modval +++|* IDENTIFIER.
04505 M00S03672.modval +++|* SHF SHIFT FOR MASK.
04506 M00S03673.modval +++|* NB NUMBER OF PERMISSION BITS.
04507 M00S03674.modval +++|* TPB FWA TABLE OF PERMISSION IDENTIFIERS.
04508 M00S03675.modval +++|
04509 M00S03676.modval +++|
04510 M00S03677.modval +++| TPCW BSS 0
04511 M00S03678.modval +++| LOC 0
Line S03679 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
04512 M01S03679.v23l617 ---| DTPC AW,TAWI,TAWIL,TAWIL,(ALL,NUL) ACCESS WORD
04513 M01S03680.v23l617 ---| DTPC AP,TNAV,NNAB,ALAB+1,(ALL,NUL,SPF) APPLICATIONS
04514 M01S03681.v23l617 ---| DTPC SO,TRTP,TRTPL,TRTPL,(NUL) SHELL PROGRAM
04515 M01S03682.v23l617 ---| DTPC SAV,TAPV,TAPVL-TAPVS,0,(ALL,NUL) SECURITY CONTROL
04516 M01S03683.v23l617 ---| DTPC SAL,TALB,TALBL,TALBS,(ALL,NUL) ACCESS LEVEL
04517 M01S03684.v23l617 ---| DTPC SAC,TACC,TACCL,TACCS,(ALL,NUL) ACCESS CATEGORIES
04518 M01S03685.v23l617 ---| DTPC VM,TSVM,TSVML,TSVML,(ALL,NUL) SERVICE CLASS
Line S00244 Modification History
M01 (Added by) v23l617
M02 (Removed by) modva23
Seq # *Modification Id* Act
----------------------------+
04519 M02S00244.modva23 ---| PCAW DTPC AW,TAWI,TAWIL,TAWIL,(ALL,NUL) ACCESS WORD
Line S00013 Modification History
M01 (Added by) modva23
Seq # *Modification Id* Act
----------------------------+
04520 M01S00013.modva23 +++| PCAW DTPC AW,TAWI,60D,0,(ALL,NUL) ACCESS WORD
Line S00245 Modification History
M01 (Added by) v23l617
M02 (Removed by) ns2427
Seq # *Modification Id* Act
----------------------------+
04521 M02S00245.ns2427 ---| DTPC AP,TNAV,NNAB,ALAB+1,(ALL,NUL,SPF) APPLICATIONS
Line S00028 Modification History
M01 (Added by) ns2427
Seq # *Modification Id* Act
----------------------------+
04522 M01S00028.ns2427 +++| PCAP DTPC AP,TNAV,NNAB,ALAB+1,(ALL,NUL,SPF) APPLICATIONS
Line S00246 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
04523 M01S00246.v23l617 +++| DTPC SO,TRTP,TRTPL,TRTPL,(NUL) SHELL PROGRAM
04524 M01S00247.v23l617 +++| DTPC SAV,TAPV,TAPVL-TAPVS,0,(ALL,NUL) SECURITY CONTROL
04525 M01S00248.v23l617 +++| DTPC SAL,TALB,TALBL,TALBS,(ALL,NUL) ACCESS LEVEL
04526 M01S00249.v23l617 +++| DTPC SAC,TACC,TACCL,TACCS,(ALL,NUL) ACCESS CATEGORIES
04527 M01S00250.v23l617 +++| DTPC VM,TSVM,TSVML,TSVML,(ALL,NUL) SERVICE CLASS
04528 M00S03686.modval +++| LOC *O
04529 M00S03687.modval +++| TPCWL EQU *-TPCW TABLE LENGTH
04530 M00S03688.modval +++| CON 0 END OF TABLE
04531 M00S03689.modval +++| ADS SPACE 4,15
04532 M00S03690.modval +++|** ADS - ASSEMBLE USER DEFAULT SERVICE CLASS.
04533 M00S03691.modval +++|*
04534 M00S03692.modval +++|* ENTRY (CBUF) = ASSEMBED CHARACTERS FOR INPUT DIRECTIVE.
04535 M00S03693.modval +++|* (CHVB) = DATA IF *CHVAL* COMMAND.
04536 M00S03694.modval +++|*
04537 M00S03695.modval +++|* EXIT USER DEFAULT SERVICE CLASS IN *TANB* ALTERED.
04538 M00S03696.modval +++|* (B3) .LT. 0.
04539 M00S03697.modval +++|*
04540 M00S03698.modval +++|* ERROR (B3) = ERROR MESSAGE ADDRESS, IF PROCESSING
04541 M00S03699.modval +++|* INPUT DIRECTIVE.
04542 M00S03700.modval +++|* IF *CHVAL* COMMAND, EXIT TO *ABT* WITH (X2) = ERROR
04543 M00S03701.modval +++|* MESSAGE ADDRESS.
04544 M00S03702.modval +++|*
04545 M00S03703.modval +++|* USES X - 0, 1, 2, 3, 4, 5, 6.
04546 M00S03704.modval +++|* A - 1, 2, 4, 5, 6.
04547 M00S03705.modval +++|* B - 2, 3, 4, 5.
04548 M00S03706.modval +++|*
04549 M00S03707.modval +++|* CALLS STB.
04550 M00S03708.modval +++|
04551 M00S03709.modval +++|
04552 M00S03710.modval +++| ADS SUBR ENTRY/EXIT
04553 M00S03711.modval +++| SB3 CBUF SET ADDRESS OF DATA
04554 M00S03712.modval +++| SA1 CHFG
04555 M00S03713.modval +++| ZR X1,ADS1 IF NOT *CHVAL* COMMAND
04556 M00S03714.modval +++| SB3 CHVB SET ADDRESS OF DATA
04557 M00S03715.modval +++| MX0 -36
04558 M00S03716.modval +++| SA1 B3+ CHECK NUMBER OF CHARACTERS
04559 M00S03717.modval +++| BX3 -X0*X1
04560 M00S03718.modval +++| SX2 DMCA * ERROR IN CHVAL ARGUMENTS.*
04561 M00S03719.modval +++| NZ X3,ABT IF TOO MANY CHARACTERS
04562 M00S03720.modval +++| ADS1 SA1 B3 CHECK FOR VALID ORIGIN TYPE
04563 M00S03721.modval +++| MX2 12
04564 M00S03722.modval +++| SB2 TOSC
04565 M00S03723.modval +++| BX1 X2*X1
04566 M00S03724.modval +++| RJ STB SEARCH FOR VALID ORIGIN TYPE
04567 M00S03725.modval +++| SB4 A3-TOSC SET ORIGIN TYPE INDEX
04568 M00S03726.modval +++| NZ X3,ADS2 IF FOUND
04569 M00S03727.modval +++| SB2 TSOT
04570 M00S03728.modval +++| RJ STB SEARCH FOR VALID ORIGIN TYPE
04571 M00S03729.modval +++| SB4 A3-TSOT SET ORIGIN TYPE INDEX
04572 M00S03730.modval +++| NZ X3,ADS2 IF FOUND
04573 M00S03731.modval +++| SX2 DMOT * UNDEFINED ORIGIN TYPE.*
04574 M00S03732.modval +++| SA1 CHFG
04575 M00S03733.modval +++| NZ X1,ABT IF *CHVAL* COMMAND
04576 M00S03734.modval +++| SB3 EROT **** INCORRECT ORIGIN TYPE.
04577 M00S03735.modval +++| EQ ADSX RETURN
04578 M00S03736.modval +++|
04579 M00S03737.modval +++| ADS2 SB4 B4+B4 CALCULATE SHIFT FOR ORIGIN TYPE
04580 M00S03738.modval +++| SB2 B4+B4
04581 M00S03739.modval +++| SB4 B4+B2
04582 M00S03740.modval +++| SA1 B3 CHECK FOR VALID SERVICE CLASS
04583 M00S03741.modval +++| LX1 12
04584 M00S03742.modval +++| BX1 X2*X1
04585 M00S03743.modval +++| NZ X1,ADS3 IF SERVICE CLASS SPECIFIED
04586 M00S03744.modval +++| LX3 12
04587 M00S03745.modval +++| BX1 X2*X3 USE DEFAULT SERVICE CLASS FOR ORIGIN
04588 M00S03746.modval +++| ADS3 SB2 TSVM
04589 M00S03747.modval +++| RJ STB SEARCH FOR VALID SERVICE CLASS
04590 M00S03748.modval +++| NZ X3,ADS4 IF FOUND
04591 M00S03749.modval +++| SX2 DMUS * UNDEFINED SERVICE CLASS.*
04592 M00S03750.modval +++| SA1 CHFG
04593 M00S03751.modval +++| NZ X1,ABT IF *CHVAL* COMMAND
04594 M00S03752.modval +++| SB3 ERSC **** INCORRECT SERVICE CLASS.
04595 M00S03753.modval +++| EQ ADSX RETURN
04596 M00S03754.modval +++|
04597 M00S03755.modval +++| ADS4 SA4 TANB+ASCV GET VALIDATION WORD
04598 M00S03756.modval +++| SA1 CHFG
04599 M00S03757.modval +++| ZR X1,ADS5 IF NOT *CHVAL* COMMAND
04600 M00S03758.modval +++| SB5 A3-TSVM CHECK IF USER VALIDATED
04601 M00S03759.modval +++| SA5 TSCV+B5
04602 M00S03760.modval +++| BX1 X4*X5
Line S03761 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
04603 M01S03761.v23l617 ---| SX2 DMVC * INVALID SERVICE CLASS.*
Line S00251 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
04604 M01S00251.v23l617 +++| SX2 DMVC * INCORRECT SERVICE CLASS.*
04605 M00S03762.modval +++| ZR X1,ABT IF NOT VALIDATED
04606 M00S03763.modval +++| ADS5 MX0 6 SET NEW USER DEFAULT
04607 M00S03764.modval +++| SA4 TANB+ASC1
04608 M00S03765.modval +++| LX3 -18
04609 M00S03766.modval +++| BX3 X0*X3 GET SUFFIX FOR SERVICE CLASS
04610 M00S03767.modval +++| LX4 B4
04611 M00S03768.modval +++| SB4 -B4 RESET SHIFT COUNT
04612 M00S03769.modval +++| SB4 B4+60
04613 M00S03770.modval +++| BX4 -X0*X4
04614 M00S03771.modval +++| BX6 X4+X3
04615 M00S03772.modval +++| LX6 B4
04616 M00S03773.modval +++| SA6 A4
04617 M00S03774.modval +++| SB3 -B1 SET NO ERROR, DATA ALREADY SET IN FIELD
04618 M00S03775.modval +++| EQ ADSX RETURN
04619 M00S03776.modval +++| AEA SPACE 4,15
04620 M00S03777.modval +++|** AEA - ASSEMBLE EQUIVALENCED ARGUMENTS.
04621 M00S03778.modval +++|*
04622 M00S03779.modval +++|* ENTRY (DF - DF+4) = *M*, *U*, *S*, *F*, *I*
04623 M00S03780.modval +++|* PARAMETERS FROM *TINE* TABLE.
04624 M00S03781.modval +++|* (X5) = (CBUF) = ASSEMBLED DATA.
04625 M00S03782.modval +++|*
04626 M00S03783.modval +++|* EXIT (B3) = 0.
04627 M00S03784.modval +++|*
04628 M00S03785.modval +++|* USES A - 1, 2.
04629 M00S03786.modval +++|* B - 2, 3.
04630 M00S03787.modval +++|* X - 1, 2, 6.
04631 M00S03788.modval +++|*
04632 M00S03789.modval +++|* CALLS STB.
04633 M00S03790.modval +++|
04634 M00S03791.modval +++|
04635 M00S03792.modval +++| AEA SUBR ENTRY/ EXIT
04636 M00S03793.modval +++| SA1 DF
04637 M00S03794.modval +++| BX1 -X1
04638 M00S03795.modval +++| SB2 X1+B1
04639 M00S03796.modval +++| MX2 60
04640 M00S03797.modval +++| BX1 X5
04641 M00S03798.modval +++| RJ STB SEARCH FOR IDENTIFIER
04642 M00S03799.modval +++| SB3 ERAD **** ERROR IN ALPHANUMERIC DATA.
04643 M00S03800.modval +++| ZR X3,AEAX IF NOT FOUND
04644 M00S03801.modval +++| SA2 DF SET EQUIVALENCED VALUE
04645 M00S03802.modval +++| SX6 A3-B1
04646 M00S03803.modval +++| IX6 X2+X6
04647 M00S03804.modval +++| SB3 B0 SET DATA FIELD
04648 M00S03805.modval +++| EQ AEAX RETURN
04649 M00S03806.modval +++| AEP SPACE 4,15
04650 M00S03807.modval +++|** AEP - ASSEMBLE ENCRYPTED PASSWORD.
04651 M00S03808.modval +++|*
04652 M00S03809.modval +++|* ENTRY (DF - DF+4) = *M*, *U*, *S*, *F*, *I*
04653 M00S03810.modval +++|* PARAMETERS FROM *TINE* TABLE.
04654 M00S03811.modval +++|* (X5) = (CBUF) = ASSEMBLED DATA.
04655 M00S03812.modval +++|* (X1) = 0 IF EXACT CHARACTER COUNT ASSEMBLED.
04656 M00S03813.modval +++|*
04657 M00S03814.modval +++|* EXIT (X6) = DATA TO BE STORED IN *TANB*.
04658 M00S03815.modval +++|* (B3) = 0.
04659 M00S03816.modval +++|*
04660 M00S03817.modval +++|* ERROR (B3) = ERROR MESSAGE ADDRESS.
04661 M00S03818.modval +++|*
04662 M00S03819.modval +++|* USES A - 5.
04663 M00S03820.modval +++|* B - 3, 4.
04664 M00S03821.modval +++|* X - 0, 2, 3, 5, 6.
04665 M00S03822.modval +++|
04666 M00S03823.modval +++|
04667 M00S03824.modval +++| AEP SUBR ENTRY/EXIT
04668 M00S03825.modval +++| SB4 10
04669 M00S03826.modval +++| SB3 ERND **** ERROR IN NUMERIC DATA.
04670 M00S03827.modval +++| NZ X1,AEPX IF NOT EXACT CHARACTER COUNT
04671 M00S03828.modval +++| MX0 -6
04672 M00S03829.modval +++| BX6 X6-X6
04673 M00S03830.modval +++| AEP1 LX5 6
04674 M00S03831.modval +++| BX2 -X0*X5
04675 M00S03832.modval +++| SX3 X2-1R0
04676 M00S03833.modval +++| NG X3,AEPX IF ALPHA CHARACTER
04677 M00S03834.modval +++| SX2 X2-1R8
04678 M00S03835.modval +++| PL X2,AEPX IF NOT OCTAL DIGIT
04679 M00S03836.modval +++| LX6 3
04680 M00S03837.modval +++| BX6 X6+X3
04681 M00S03838.modval +++| SB4 B4-B1
04682 M00S03839.modval +++| NZ B4,AEP1 IF MORE CHARACTERS TO PROCESS
04683 M00S03840.modval +++| SA5 A5+B1 GET SECOND WORD TO BE PROCESSED
04684 M00S03841.modval +++| SB4 4
04685 M00S03842.modval +++| SX2 A5-CBUF-1
04686 M00S03843.modval +++| ZR X2,AEP1 IF SECOND WORD TO BE PROCESSED
04687 M00S03844.modval +++| SB3 B0
04688 M00S03845.modval +++| EQ AEPX RETURN
04689 M00S03846.modval +++| AMX SPACE 4,15
04690 M00S03847.modval +++|** AMX - ASSEMBLE MAXIMUM RESOURCE LIMITS.
04691 M00S03848.modval +++|*
04692 M00S03849.modval +++|* ENTRY (X5) = (CBUF) = ASSEMBLED DATA.
04693 M00S03850.modval +++|*
04694 M00S03851.modval +++|* EXIT ALL RESOURCE LIMITS SET TO MAXIMUM VALUES.
04695 M00S03852.modval +++|* (B3) = -1, IF NO ERROR.
04696 M00S03853.modval +++|* (B3) = ERROR MESSAGE ADDRESS IF *ALL* NOT SPECIFIED.
04697 M00S03854.modval +++|*
04698 M00S03855.modval +++|* USES X - 0, 1, 2, 5, 6, 7.
04699 M00S03856.modval +++|* A - 1, 5, 6, 7.
04700 M00S03857.modval +++|* B - 3.
04701 M00S03858.modval +++|*
04702 M00S03859.modval +++|* MACROS FUNC.
04703 M00S03860.modval +++|
04704 M00S03861.modval +++|
04705 M00S03862.modval +++| AMX SUBR ENTRY/EXIT
04706 M00S03863.modval +++| SA1 =3LALL
04707 M00S03864.modval +++| BX2 X5-X1
04708 M00S03865.modval +++| SA5 TINE-1 INITIALIZE TABLE SEARCH
04709 M00S03866.modval +++| SB3 ERAD **** ERROR IN ALPHANUMERIC DATA.
04710 M00S03867.modval +++| NZ X2,AMXX IF *ALL* NOT ENTERED
04711 M00S03868.modval +++| SB3 -1
04712 M00S03869.modval +++| AMX1 SA5 A5+B1 GET NEXT TABLE ENTRY
04713 M00S03870.modval +++| MX0 18
04714 M00S03871.modval +++| SA1 =2LRL
04715 M00S03872.modval +++| BX2 X0*X5
04716 M00S03873.modval +++| BX2 X1-X2
04717 M00S03874.modval +++| ZR X2,AMXX IF END OF ENTRIES TO PROCESS
04718 M00S03875.modval +++| LX5 36
04719 M00S03876.modval +++| BX6 -X0*X5 ADDRESS OF MAXIMUM VALUE
04720 M00S03877.modval +++| SA2 X6
04721 M00S03878.modval +++| BX6 X2 MAXIMUM VALUE
04722 M00S03879.modval +++| MX0 -6
04723 M00S03880.modval +++| LX5 6
04724 M00S03881.modval +++| BX7 -X0*X5 UPPER BIT OF FIELD
04725 M00S03882.modval +++| SA7 DF+1
04726 M00S03883.modval +++| LX5 6
04727 M00S03884.modval +++| BX7 -X0*X5 SIZE OF FIELD
04728 M00S03885.modval +++| SA7 A7+B1
04729 M00S03886.modval +++| LX5 6
04730 M00S03887.modval +++| BX7 -X0*X5 FIRST WORD ADDRESS OF FIELD
04731 M00S03888.modval +++| SA7 A7+B1
04732 M00S03889.modval +++| SX3 TANB
04733 M00S03890.modval +++| FUNC SDFT SET DATA IN FIELD
04734 M00S03891.modval +++| EQ AMX1 CHECK NEXT ENTRY
04735 M00S03892.modval +++| AND SPACE 4,20
04736 M00S03893.modval +++|** AND - ASSEMBLE NUMERIC DATA.
04737 M00S03894.modval +++|*
04738 M00S03895.modval +++|* ENTRY (DF - DF+4) = *M*, *U*, *S*, *F*, *I*
04739 M00S03896.modval +++|* PARAMETERS FROM *TINE* TABLE.
04740 M00S03897.modval +++|* (X5) = (CBUF) = ASSEMBLED DATA.
04741 M00S03898.modval +++|*
04742 M00S03899.modval +++|* EXIT (X6) = DATA TO BE STORED IN *TANB*.
04743 M00S03900.modval +++|* (B3) = 0.
04744 M00S03901.modval +++|*
04745 M00S03902.modval +++|* ERROR (B3) = ERROR MESSAGE ADDRESS.
04746 M00S03903.modval +++|*
04747 M00S03904.modval +++|* USES A - 1.
04748 M00S03905.modval +++|* B - 3, 7.
04749 M00S03906.modval +++|* X - 1.
04750 M00S03907.modval +++|*
04751 M00S03908.modval +++|* CALLS DXB.
04752 M00S03909.modval +++|
04753 M00S03910.modval +++|
04754 M00S03911.modval +++| AND SUBR ENTRY/EXIT
04755 M00S03912.modval +++| SB7 B1 BASE DECIMAL
04756 M00S03913.modval +++| RJ DXB CONVERT DIGITS
04757 M00S03914.modval +++| NZ X4,AND1 IF ERROR IN ASSEMBLY
04758 M00S03915.modval +++| SA1 DF GET MAXIMUM VALUE
04759 M00S03916.modval +++| SB3 B0
04760 M00S03917.modval +++| ZR X1,ANDX IF INFINITE
04761 M00S03918.modval +++| IX1 X1-X6
04762 M00S03919.modval +++| PL X1,ANDX IF WITHIN MAXIMUM
04763 M00S03920.modval +++| AND1 SB3 ERND **** ERROR IN NUMERIC DATA.
04764 M00S03921.modval +++| EQ ANDX RETURN
Line S00054 Modification History
M01 (Added by) 251l664
Seq # *Modification Id* Act
----------------------------+
04765 M01S00054.251l664 +++| API SPACE 4,15
04766 M01S00055.251l664 +++|** API - ASSEMBLE PERSONAL IDENTIFICATION.
04767 M01S00056.251l664 +++|*
04768 M01S00057.251l664 +++|* ENTRY (DF - DF+4) = *M*, *U*, *S*, *F*, *I*
04769 M01S00058.251l664 +++|* PARAMETERS FROM *TINE* TABLE.
04770 M01S00059.251l664 +++|* (A5) = CBUF.
04771 M01S00060.251l664 +++|* (X5) = (CBUF) = ASSEMBLED DATA.
04772 M01S00061.251l664 +++|*
04773 M01S00062.251l664 +++|* EXIT (B3) .LT. 0.
04774 M01S00063.251l664 +++|*
04775 M01S00064.251l664 +++|* USES A - 1, 6.
04776 M01S00065.251l664 +++|* B - 3.
04777 M01S00066.251l664 +++|* X - 1, 6.
04778 M01S00067.251l664 +++|
04779 M01S00068.251l664 +++|
04780 M01S00069.251l664 +++| API SUBR ENTRY/EXIT
04781 M01S00070.251l664 +++| BX6 X5
04782 M01S00071.251l664 +++| SA6 TANB+APID
04783 M01S00072.251l664 +++| SA1 A5+B1
04784 M01S00073.251l664 +++| SB3 -B1
04785 M01S00074.251l664 +++| BX6 X1
04786 M01S00075.251l664 +++| SA6 TANB+API2
04787 M01S00076.251l664 +++| EQ APIX RETURN
04788 M00S03922.modval +++| APN SPACE 4,15
04789 M00S03923.modval +++|** APN - ASSEMBLE PROJECT NUMBER.
04790 M00S03924.modval +++|*
04791 M00S03925.modval +++|* ENTRY (DF - DF+4) = *M*, *U*, *S*, *F*, *I*
04792 M00S03926.modval +++|* PARAMETERS FROM *TINE* TABLE.
04793 M00S03927.modval +++|* (X5) = (CBUF) = ASSEMBLED DATA.
04794 M00S03928.modval +++|*
04795 M00S03929.modval +++|* EXIT (B3) .LT. 0.
04796 M00S03930.modval +++|*
04797 M00S03931.modval +++|* USES A - 1, 6.
04798 M00S03932.modval +++|* B - 3.
04799 M00S03933.modval +++|* X - 1, 6.
04800 M00S03934.modval +++|
04801 M00S03935.modval +++|
04802 M00S03936.modval +++| APN SUBR ENTRY/EXIT
04803 M00S03937.modval +++| BX6 X5
04804 M00S03938.modval +++| SA6 TANB+APJN
04805 M00S03939.modval +++| SA1 A5+B1
04806 M00S03940.modval +++| SB3 -B1
04807 M00S03941.modval +++| BX6 X1
04808 M00S03942.modval +++| SA6 TANB+APJ1
04809 M00S03943.modval +++| EQ APNX RETURN
04810 M00S03944.modval +++| APW SPACE 4,15
04811 M00S03945.modval +++|** APW - ASSEMBLE PASS WORD.
04812 M00S03946.modval +++|*
04813 M00S03947.modval +++|* ENTRY (DF - DF+4) = *M*, *U*, *S*, *F*, *I*
04814 M00S03948.modval +++|* PARAMETERS FROM *TINE* TABLE.
04815 M00S03949.modval +++|* (X5) = (CBUF) = ASSEMBLED DATA.
04816 M00S03950.modval +++|*
04817 M00S03951.modval +++|* EXIT (B3) .LT. 0.
04818 M00S03952.modval +++|*
04819 M00S03953.modval +++|* ERROR (B3) = ERROR MESSAGE ADDRESS.
04820 M00S03954.modval +++|*
04821 M00S03955.modval +++|* USES A - 1, 2, 3, 4, 6, 7.
04822 M00S03956.modval +++|* B - 3.
04823 M00S03957.modval +++|* X - ALL.
04824 M00S03958.modval +++|*
04825 M00S03959.modval +++|* CALLS ADT, EPW, VPW.
04826 M00S03960.modval +++|
04827 M00S03961.modval +++|
04828 M00S03962.modval +++| APW5 SA1 OP
04829 M00S03963.modval +++| NZ X1,APWX IF NOT K-DISPLAY
04830 M00S03964.modval +++| SA1 DF+4
04831 M00S03965.modval +++| SB3 ERPU **** PASSWORDS UPDATED.
04832 M00S03966.modval +++| ZR X1,APWX IF BOTH PASSWORDS UPDATED
04833 M00S03967.modval +++| LX1 12
04834 M00S03968.modval +++| SX2 X1-2RPB
04835 M00S03969.modval +++| SB3 ERBU **** BATCH PASSWORD UPDATED.
04836 M00S03970.modval +++| ZR X2,APWX IF ONLY BATCH PASSWORD UPDATED
04837 M00S03971.modval +++| SB3 ERIU **** INTERACTIVE PASSWORD UPDATED.
04838 M00S03972.modval +++|
04839 M00S03973.modval +++| APW SUBR ENTRY/ EXIT
04840 M00S03974.modval +++| BX7 X5
04841 M00S03975.modval +++| RJ VPW VERIFY PASSWORD
04842 M00S03976.modval +++| ZR B2,APW1 IF PASSWORD IS OF REQUIRED LENGTH
04843 M00S03977.modval +++| SA1 RDBA CHECK IF OLD USER NAME
Line S03978 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
04844 M01S03978.v23l617 ---| SB3 ERIP **** ILLEGAL PASSWORD.
Line S00252 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
04845 M01S00252.v23l617 +++| SB3 ERIP **** INCORRECT PASSWORD.
04846 M00S03979.modval +++| NZ X1,APWX IF NEW USER NAME
Line S03980 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
04847 M01S03980.v23l617 ---| SB3 ERPI **** ILLEGAL PASSWORD IGNORED.
Line S00253 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
04848 M01S00253.v23l617 +++| SB3 ERPI **** INCORRECT PASSWORD IGNORED.
04849 M00S03981.modval +++| EQ APWX RETURN
04850 M00S03982.modval +++|
04851 M00S03983.modval +++|* ENCRYPT PASSWORD.
04852 M00S03984.modval +++|
04853 M00S03985.modval +++| APW1 RJ EPW ENCRYPT PASSWORD
04854 M00S03986.modval +++| BX5 X6
04855 M00S03987.modval +++|
04856 M00S03988.modval +++|* SAVE ENCRYPTED PASSWORD. SET EXPIRATION DATE TO
04857 M00S03989.modval +++|* DEFAULT WHEN CREATING PASSWORD FOR A NEW USER.
04858 M00S03990.modval +++|
04859 M00S03991.modval +++| APW2 SA3 DF+3 GET PREVIOUS VALUE
04860 M00S03992.modval +++| SA4 X3+TANB
Line S03993 Modification History
M01 (Removed by) modva12
Seq # *Modification Id* Act
----------------------------+
04861 M01S03993.modva12 ---| MX0 42
04862 M01S03994.modva12 ---| BX3 X0*X4 PREVIOUS PASSWORD
04863 M01S03995.modva12 ---| BX2 -X0*X4 PREVIOUS EXPIRATION DATE
04864 M01S03996.modva12 ---| NZ X3,APW3 IF NOT PASSWORD CREATION
04865 M00S03997.modval +++| SX2 B0+
04866 M00S03998.modval +++| SX1 APXT-7777B DEFAULT PASSWORD EXPIRATION TERM
04867 M00S03999.modval +++| ZR X1,APW3 IF NON-EXPIRING DEFAULT EXPIRATION TERM
04868 M00S04000.modval +++| SA3 ASVW+TANB SECURITY VALIDATION WORD
04869 M00S04001.modval +++| NG X3,APW3 IF SECURITY ADMINISTRATOR
04870 M00S04002.modval +++| SA2 PD GET PACKED DATE
04871 M00S04003.modval +++| SX1 APXT DEFAULT PASSWORD EXPIRATION TERM
04872 M00S04004.modval +++| ZR X1,APW3 IF NO DEFAULT EXPIRATION TERM
04873 M00S04005.modval +++| RJ ADT ADD TERM TO DATE
04874 M00S04006.modval +++| APW3 BX6 X5+X2 COMBINE PASSWORD WITH EXPIRATION DATE
04875 M00S04007.modval +++| SA6 A4+
04876 M00S04008.modval +++| APW4 SA1 DF+4 FUNCTION IDENTIFIER
04877 M00S04009.modval +++| SA2 =2LPW
04878 M00S04010.modval +++| IX7 X1-X2
04879 M00S04011.modval +++| SB3 -B1
04880 M00S04012.modval +++| NZ X7,APW5 IF NOT *PW* FUNCTION IDENTIFIER
04881 M00S04013.modval +++| SA7 A1+ CLEAR FUNCTION IDENTIFIER
04882 M00S04014.modval +++| SX7 APWI
04883 M00S04015.modval +++| SA7 DF+3 SET ADDRESS
04884 M00S04016.modval +++| EQ APW2 PROCESS INTERACTIVE PASSWORD
04885 M00S04017.modval +++| AED SPACE 4,10
04886 M00S04018.modval +++|** AED - ASSEMBLE EXPIRATION DATE.
04887 M00S04019.modval +++|*
04888 M00S04020.modval +++|* ENTRY (DF - DF+4) = *M*, *U*, *S*, *F*, *I*
04889 M00S04021.modval +++|* (PARAMETERS FROM *TINE* TABLE).
04890 M00S04022.modval +++|* (X5) = (CBUF) = ASSEMBLED DATA.
04891 M00S04023.modval +++|* (X1) = 0 IF EXACT CHARACTER COUNT ASSEMBLED.
04892 M00S04024.modval +++|*
04893 M00S04025.modval +++|* EXIT (B3) .LT. 0.
04894 M00S04026.modval +++|*
04895 M00S04027.modval +++|* ERROR (B3) = ERROR MESSAGE ADDRESS.
04896 M00S04028.modval +++|*
04897 M00S04029.modval +++|* USES X - 1, 2, 3, 6, 7.
04898 M00S04030.modval +++|* A - 1, 2, 3, 6, 7.
04899 M00S04031.modval +++|* B - 3.
04900 M00S04032.modval +++|*
04901 M00S04033.modval +++|* CALLS VDT.
04902 M00S04034.modval +++|*
04903 M00S04035.modval +++|* MACROS FUNC.
04904 M00S04036.modval +++|
04905 M00S04037.modval +++|
04906 M00S04038.modval +++| AED SUBR ENTRY / EXIT
04907 M00S04039.modval +++| BX2 X2-X2
04908 M00S04040.modval +++| SA3 =1L* CHECK FOR NONEXPIRING PASSWORD
04909 M00S04041.modval +++| IX6 X3-X5
04910 M00S04042.modval +++| ZR X6,AED1 IF NONEXPIRING PASSWORD
04911 M00S04043.modval +++| SB3 ERND **** ERROR IN NUMERIC DATA.
04912 M00S04044.modval +++| NZ X1,AEDX IF NOT EXACT CHARACTER COUNT
04913 M00S04045.modval +++| BX1 X5
04914 M00S04046.modval +++| RJ VDT DATE TIME CHECK
04915 M00S04047.modval +++| SB3 ERND **** ERROR IN NUMERIC DATA.
04916 M00S04048.modval +++| NG X6,AEDX IF ERROR IN CONVERSION
04917 M00S04049.modval +++| SA2 TANB+ASVW SECURITY VALIDATION WORD
04918 M00S04050.modval +++| SB3 ERXD **** CANNOT ALTER XD/XT OF *CSAP*
04919 M00S04051.modval +++| NG X2,AEDX IF SECURITY ADMINISTRATOR
04920 M00S04052.modval +++| AED1 SA6 AEDA SAVE EXPIRATION DATE
04921 M00S04053.modval +++| SX3 TANB
04922 M00S04054.modval +++| FUNC SDFT SET DATA IN FIELD
04923 M00S04055.modval +++| SA1 DF+4 FUNCTION IDENTIFIER
04924 M00S04056.modval +++| SA2 =2LXD
04925 M00S04057.modval +++| IX6 X1-X2
04926 M00S04058.modval +++| SB3 -B1
04927 M00S04059.modval +++| NZ X6,AEDX IF NOT *XD* IDENTIFIER
04928 M00S04060.modval +++| SA6 A1 CLEAR IDENTIFIER
04929 M00S04061.modval +++| SX7 APWI
04930 M00S04062.modval +++| SA7 DF+3 ADDRESS FOR INTERACTIVE PASSWORD
04931 M00S04063.modval +++| SA1 AEDA
04932 M00S04064.modval +++| BX6 X1
04933 M00S04065.modval +++| EQ AED1 ALSO SET INTERACTIVE PASSWORD EXPIRATION
04934 M00S04066.modval +++|
04935 M00S04067.modval +++|
04936 M00S04068.modval +++| AEDA CON 0 EXPIRATION DATE
04937 M00S04069.modval +++| ASC SPACE 4,15
04938 M00S04070.modval +++|** ASC - ASSEMBLE SECURITY COUNT.
04939 M00S04071.modval +++|*
04940 M00S04072.modval +++|* ENTRY (DF - DF+4) = *M*, *U*, *S*, *F*, *I*
04941 M00S04073.modval +++|* PARAMETERS FROM *TINE* TABLE.
04942 M00S04074.modval +++|* (X5) = (CBUF) = ASSEMBLED DATA.
04943 M00S04075.modval +++|*
04944 M00S04076.modval +++|* EXIT (X6) = DATA TO BE STORED IN TABLE.
04945 M00S04077.modval +++|* (B3) = 0.
04946 M00S04078.modval +++|*
04947 M00S04079.modval +++|* ERROR (B3) = ERROR MESSAGE ADDRESS.
04948 M00S04080.modval +++|*
04949 M00S04081.modval +++|* CALLS AND.
04950 M00S04082.modval +++|
04951 M00S04083.modval +++| ASC SUBR ENTRY/EXIT
04952 M00S04084.modval +++| RJ AND ASSEMBLE NUMERIC DATA
04953 M00S04085.modval +++| GT B0,B3,ASCX IF ERROR
04954 M00S04086.modval +++| SA1 ASVW+TANB
04955 M00S04087.modval +++| PL X1,ASCX IF NOT SECURITY ADMINISTRATOR
04956 M00S04088.modval +++| SB3 ERCS **** CANNOT ALTER SEC. COUNT OF *CSAP*.
04957 M00S04089.modval +++| EQ ASCX RETURN
04958 M00S04090.modval +++| ATE SPACE 4,10
04959 M00S04091.modval +++|** ATE - ASSEMBLE EXPIRATION TERM.
04960 M00S04092.modval +++|*
04961 M00S04093.modval +++|* ENTRY (DF - DF+4) = *M*, *U*, *S*, *F*, *I*
04962 M00S04094.modval +++|* PARAMETERS FROM *TINE* TABLE.
04963 M00S04095.modval +++|* (X5) = (CBUF) = ASSEMBLED DATA.
04964 M00S04096.modval +++|*
04965 M00S04097.modval +++|* EXIT (B3) .LT. 0.
04966 M00S04098.modval +++|*
04967 M00S04099.modval +++|* ERROR (B3) = ERROR MESSAGE ADDRESS.
04968 M00S04100.modval +++|*
04969 M00S04101.modval +++|* USES X - 1, 2, 3, 6, 7.
04970 M00S04102.modval +++|* A - 1, 2, 6, 7.
04971 M00S04103.modval +++|* B - 3, 7.
04972 M00S04104.modval +++|*
04973 M00S04105.modval +++|* CALLS ADT, DXB.
04974 M00S04106.modval +++|*
04975 M00S04107.modval +++|* MACROS FUNC.
04976 M00S04108.modval +++|
04977 M00S04109.modval +++|
04978 M00S04110.modval +++|
04979 M00S04111.modval +++| ATE3 SB3 ERAD **** ERROR IN NUMERIC DATA.
04980 M00S04112.modval +++|
04981 M00S04113.modval +++| ATE SUBR ENTRY/EXIT
04982 M00S04114.modval +++| SA1 =1L*
04983 M00S04115.modval +++| IX6 X1-X5
04984 M00S04116.modval +++| ZR X6,ATE1 IF NON-EXPIRING PASSWORD
04985 M00S04117.modval +++| SB7 B1 SET DECIMAL BASE
04986 M00S04118.modval +++| RJ DXB DISPLAY TO BINARY CONVERSION
04987 M00S04119.modval +++| NZ X4,ATE3 IF ERROR IN CONVERSION
04988 M00S04120.modval +++| SA2 DF MAXIMUM VALUE ALLOWED
04989 M00S04121.modval +++| IX2 X2-X6
04990 M00S04122.modval +++| BX1 X6
04991 M00S04123.modval +++| NG X2,ATE3 IF VALUE OUT OF RANGE
04992 M00S04124.modval +++| SX6 X6-7777B
04993 M00S04125.modval +++| ZR X6,ATE1 IF NON-EXPIRING PASSWORD
04994 M00S04126.modval +++| SA2 TANB+ASVW SECURITY VALIDATION PRIVILEGES
04995 M00S04127.modval +++| SB3 ERXD **** CANNOT ALTER XD/XT OF *CSAP*
04996 M00S04128.modval +++| NG X2,ATEX IF SECURITY ADMINISTRATOR
04997 M00S04129.modval +++| SA2 PD GET PACKED DATE
04998 M00S04130.modval +++| BX6 X2
04999 M00S04131.modval +++| ZR X1,ATE1 IF IMMEDIATELY EXPIRING PASSWORD
05000 M00S04132.modval +++| RJ ADT ADD TERM VALUE TO PACKED DATE
05001 M00S04133.modval +++| ATE1 SX3 TANB SET DATA FIELD
05002 M00S04134.modval +++| SA6 ATEA SAVE EXPIRATION DATE
05003 M00S04135.modval +++| FUNC SDFT SET DATA IN FIELD
05004 M00S04136.modval +++| SA1 DF+4 FUNCTION IDENTIFIER
05005 M00S04137.modval +++| SA2 =2LXT
05006 M00S04138.modval +++| IX6 X1-X2
05007 M00S04139.modval +++| SB3 -B1
05008 M00S04140.modval +++| NZ X6,ATEX IF NOT *XT* IDENTIFIER
05009 M00S04141.modval +++| SA6 A1+ CLEAR IDENTIFIER
05010 M00S04142.modval +++| SX7 APWI
05011 M00S04143.modval +++| SA7 DF+3 INTERACTIVE PASSWORD ADDRESS
05012 M00S04144.modval +++| SA2 ATEA GET EXPIRATION DATE
05013 M00S04145.modval +++| BX6 X2
05014 M00S04146.modval +++| EQ ATE1 ALSO SET INTERACTIVE PASSWORD EXPIRATION
05015 M00S04147.modval +++|
05016 M00S04148.modval +++|
05017 M00S04149.modval +++| ATEA CON 0 EXPIRATION DATE
05018 M00S04150.modval +++| AUX SPACE 4,15
05019 M00S04151.modval +++|** AUX - ASSEMBLE USER INDEX.
05020 M00S04152.modval +++|*
05021 M00S04153.modval +++|* EXIT (B3) = 0.
05022 M00S04154.modval +++|* (X6) = DATA TO BE STORED IN *TANB*.
05023 M00S04155.modval +++|*
05024 M00S04156.modval +++|* ERROR (B3) = ERROR MESSAGE ADDRESS.
05025 M00S04157.modval +++|*
05026 M00S04158.modval +++|* USES A - 2, 3.
05027 M00S04159.modval +++|* B - 3.
05028 M00S04160.modval +++|* X - 0, 2, 3.
05029 M00S04161.modval +++|*
05030 M00S04162.modval +++|* CALLS AND, CUI.
05031 M00S04163.modval +++|
05032 M00S04164.modval +++|
05033 M00S04165.modval +++| AUX1 SB3 ERND **** ERROR IN NUMERIC DATA.
05034 M00S04166.modval +++|
05035 M00S04167.modval +++| AUX SUBR ENTRY/EXIT
05036 M00S04168.modval +++| RJ AND ASSEMBLE NUMERIC DATA
05037 M00S04169.modval +++| GT B3,AUXX IF ERROR
05038 M00S04170.modval +++| ZR X6,AUX1 IF USER INDEX ZERO
05039 M00S04171.modval +++| SA2 DF+4
05040 M00S04172.modval +++| SA3 =2LUI
05041 M00S04173.modval +++| BX3 X2-X3
05042 M00S04174.modval +++| NZ X3,AUXX IF NOT *UI* DIRECTIVE
Line S00033 Modification History
M01 (Added by) 241l630
Seq # *Modification Id* Act
----------------------------+
05043 M01S00033.241l630 +++| SA3 SI
05044 M01S00034.241l630 +++| NZ X3,AUXX IF *SI* SELECTED
05045 M00S04175.modval +++| SX0 B1 CHECK FOR DUPLICATE USER INDEX
05046 M00S04176.modval +++| RJ CUI
05047 M00S04177.modval +++| PL X7,AUXX IF NOT DUPLICATE
05048 M00S04178.modval +++| SB3 ERUI **** DUPLICATE USER INDEX
05049 M00S04179.modval +++| EQ AUXX RETURN
05050 M00S04180.modval +++| CUI SPACE 4,20
05051 M00S04181.modval +++|** CUI - CHECK USER INDEX.
05052 M00S04182.modval +++|*
05053 M00S04183.modval +++|* ENTRY (X6) = USER INDEX.
05054 M00S04184.modval +++|* (TAUI) = ASSIGNED USER INDICES.
05055 M00S04185.modval +++|* (X0) = 0, IF USER INDEX TO BE SET IN TAUI.
05056 M00S04186.modval +++|* (X0) .NE. 0, IF USER INDEX TO BE CHECKED FOR
05057 M00S04187.modval +++|* DUPLICATION.
05058 M00S04188.modval +++|*
05059 M00S04189.modval +++|* EXIT (X7) .LT. 0, IF DUPLICATE USER INDEX FOUND FOR
05060 M00S04190.modval +++|* CHECK USER INDEX REQUEST.
05061 M00S04191.modval +++|*
05062 M00S04192.modval +++|* USES X - 0, 1, 2, 3, 7.
05063 M00S04193.modval +++|* A - 1, 7.
05064 M00S04194.modval +++|* B - 2, 7.
05065 M00S04195.modval +++|
05066 M00S04196.modval +++|
05067 M00S04197.modval +++| CUI SUBR ENTRY/ EXIT
05068 M00S04198.modval +++| SX7 X6-AUIMX
05069 M00S04199.modval +++| PL X7,CUIX IF SPECIAL USER INDEX (SYSTEM/LIBRARY)
05070 M00S04200.modval +++| SX1 60 FIND UI BIT
05071 M00S04201.modval +++| SX2 X6-1
05072 M00S04202.modval +++| IX2 X2/X1 (X2) = WORD
05073 M00S04203.modval +++| SX1 60
05074 M00S04204.modval +++| BX3 X2
05075 M00S04205.modval +++| IX1 X1*X3
05076 M00S04206.modval +++| IX3 X6-X1
05077 M00S04207.modval +++| SB2 X3-1 (B2) = SHIFT COUNT
05078 M00S04208.modval +++| SA1 X2+TAUI
05079 M00S04209.modval +++| LX7 X1,B2
05080 M00S04210.modval +++| NZ X0,CUIX IF USER INDEX NOT TO BE SET
05081 M00S04211.modval +++| MX0 1 SET USER INDEX IN TAUI
05082 M00S04212.modval +++| SB7 -60
05083 M00S04213.modval +++| BX1 X0+X7
05084 M00S04214.modval +++| SB2 B2+B7
05085 M00S04215.modval +++| AX7 X1,B2
05086 M00S04216.modval +++| SA7 A1+
05087 M00S04217.modval +++| EQ CUIX RETURN
05088 M00S04218.modval +++| DAN SPACE 4,15
05089 M00S04219.modval +++|** DAN - DELETE USER NAME.
05090 M00S04220.modval +++|*
05091 M00S04221.modval +++|* ENTRY (DF - DF+4) = *M*, *U*, *S*, *F*, *I*
05092 M00S04222.modval +++|* PARAMETERS FROM *TINE* TABLE.
05093 M00S04223.modval +++|* (X5) = (CBUF) = ASSEMBLED DATA.
05094 M00S04224.modval +++|*
05095 M00S04225.modval +++|* EXIT (B3) .LT. 0.
05096 M00S04226.modval +++|*
05097 M00S04227.modval +++|* ERROR (B3) = ERROR MESSAGE ADDRESS.
05098 M00S04228.modval +++|*
05099 M00S04229.modval +++|* USES A - 1, 3, 6, 7.
05100 M00S04230.modval +++|* B - 3.
05101 M00S04231.modval +++|* X - 0, 1, 2, 3, 6, 7.
05102 M00S04232.modval +++|*
05103 M00S04233.modval +++|* CALLS CUN.
05104 M00S04234.modval +++|*
05105 M00S04235.modval +++|* MACROS MESSAGE, SEARCH.
05106 M00S04236.modval +++|
05107 M00S04237.modval +++|
05108 M00S04238.modval +++| DAN1 RJ CUN CHECK USER NAMES
05109 M00S04239.modval +++| SB3 ERDU **** CANNOT DELETE USER RUNNING MODVAL.
05110 M00S04240.modval +++| ZR X1,DANX IF USER NAMES MATCH
05111 M00S04241.modval +++| SA3 OP CHECK OPTION
05112 M00S04242.modval +++| SA1 EF
05113 M00S04243.modval +++| NZ X3,DAN2 IF NOT K-DISPLAY
05114 M00S04244.modval +++| NZ X1,DAN2 IF ERROR FLAG SET
05115 M00S04245.modval +++| SA1 =10H DELETING
05116 M00S04246.modval +++| BX7 X1
05117 M00S04247.modval +++| SA7 MSGA
05118 M00S04248.modval +++| MESSAGE A7,1
05119 M00S04249.modval +++| DAN2 SX6 B1 SET DELETE FLAG
05120 M00S04250.modval +++| SB3 -B1
05121 M00S04251.modval +++| SA6 DANA
05122 M00S04252.modval +++|
05123 M00S04253.modval +++| DAN SUBR ENTRY / EXIT
05124 M00S04254.modval +++| SA1 OP CHECK OPTION
05125 M00S04255.modval +++| SX2 DMSE * SYSTEM ERROR.*
05126 M00S04256.modval +++| SX1 X1-COPT
05127 M00S04257.modval +++| ZR X1,ABT IF CREATE
05128 M00S04258.modval +++| SB3 ERAD **** ERROR IN ALPHANUMERIC DATA.
05129 M00S04259.modval +++| SA1 AN
05130 M00S04260.modval +++| BX2 X5-X1
05131 M00S04261.modval +++| NZ X2,DANX IF INCORRECT USER NAME
05132 M00S04262.modval +++| MX0 42
05133 M00S04263.modval +++| SEARCH TAB1,X1,M
05134 M00S04264.modval +++| NZ X2,DAN1 IF MATCH
05135 M00S04265.modval +++| SA1 =10H NAME
05136 M00S04266.modval +++| MX7 0
05137 M00S04267.modval +++| BX6 X1
05138 M00S04268.modval +++| SA7 DANA
05139 M00S04269.modval +++| SA6 ERNF+2
05140 M00S04270.modval +++| SB3 ERNF **** USER NAME NOT FOUND.
05141 M00S04271.modval +++| EQ DANX RETURN
05142 M00S04272.modval +++|
05143 M00S04273.modval +++|
05144 M00S04274.modval +++| DANA CON 0
05145 M00S04275.modval +++| DIP SPACE 4,15
05146 M00S04276.modval +++|** DIP - DIRECTIVE INPUT PROCESSOR.
05147 M00S04277.modval +++|*
05148 M00S04278.modval +++|* EXIT IF END OF INPUT DIRECTIVES OR OVERFLOW.
05149 M00S04279.modval +++|*
05150 M00S04280.modval +++|* USES X - ALL.
05151 M00S04281.modval +++|* A - 1, 2, 3, 5, 6, 7.
Line S04282 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
05152 M01S04282.v23l617 ---|* B - 2, 3, 7.
Line S00254 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
05153 M01S00254.v23l617 +++|* B - 3, 6, 7.
05154 M00S04283.modval +++|*
Line S04284 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
05155 M01S04284.v23l617 ---|* CALLS AAN, ACI, FFA, IDE, PAG, PDD, RDB, SFN, SRD.
Line S00255 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
05156 M01S00255.v23l617 +++|* CALLS AAN, ACI, CUN, CPR, FFA, IDE, PAG, RDB, SFN, SRD.
05157 M00S04285.modval +++|*
05158 M00S04286.modval +++|* MACROS FUNC, MESSAGE, MOVE, SEARCH.
05159 M00S04287.modval +++|
05160 M00S04288.modval +++|
05161 M00S04289.modval +++| DIP SUBR ENTRY/ EXIT
05162 M00S04290.modval +++| SA1 ET CHECK ENTRY TERMINATION
05163 M00S04291.modval +++| NZ X1,DIP10 IF SET (CREATE PERFORMED)
05164 M00S04292.modval +++|
05165 M00S04293.modval +++|* FIND NEXT -/-.
05166 M00S04294.modval +++|
05167 M00S04295.modval +++| DIP1 SA1 KIA SET INITIAL SCREENS
05168 M00S04296.modval +++| SX7 MSGA CLEAR MESSAGE LINE AFTER INPUT
05169 M00S04297.modval +++| SA7 M1
Line S00256 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
05170 M01S00256.v23l617 +++| SX7 INPA SET KEYBOARD INPUT LINE
05171 M01S00257.v23l617 +++| SA7 IL
Line S04298 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
05172 M01S04298.v23l617 ---| MX0 42
Line S00258 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
05173 M01S00258.v23l617 +++| MX0 24
05174 M00S04299.modval +++| BX6 X0*X1
05175 M00S04300.modval +++| SX5 DSA
05176 M00S04301.modval +++| BX6 X5+X6
05177 M00S04302.modval +++| SA6 A1
05178 M00S04303.modval +++| SA2 CS SUPPRESS BLANKS
05179 M00S04304.modval +++| MX1 0
05180 M00S04305.modval +++| BX6 X2
05181 M00S04306.modval +++| RJ ACI ASSEMBLE CHARACTERS
05182 M00S04307.modval +++| SB3 ERAN **** ERROR IN USER NAME.
05183 M00S04308.modval +++| ZR B6,DIP10 IF ENTRY TERMINATION
05184 M00S04309.modval +++| SA1 OP CHECK OPTION
05185 M00S04310.modval +++| NZ X1,DIP5 IF NOT K-DISPLAY
05186 M00S04311.modval +++| DIP2 SX7 B0 CLEAR COMMAND FLAGS
05187 M00S04312.modval +++| MX0 42
05188 M00S04313.modval +++| SA7 DIPC
05189 M00S04314.modval +++| SA7 DIPD
05190 M00S04315.modval +++| SA7 ET
05191 M00S04316.modval +++| SA7 EF
05192 M00S04317.modval +++| SA7 DANA
05193 M00S04318.modval +++| ZR X4,DIP1 IF NO CHARACTERS ASSEMBLED
05194 M00S04319.modval +++| SA1 CBUF
05195 M00S04320.modval +++| BX6 X1
05196 M00S04321.modval +++|
05197 M00S04322.modval +++|* FIND NEXT COMMAND FROM K-DISPLAY.
05198 M00S04323.modval +++|
05199 M00S04324.modval +++| SA1 DIPB-1 COMMAND TABLE
05200 M00S04325.modval +++| DIP3 SA1 A1+B1
05201 M00S04326.modval +++| BX2 X1*X0
05202 M00S04327.modval +++| ZR X1,DIP4 IF END OF TABLE
05203 M00S04328.modval +++| BX2 X2-X6
05204 M00S04329.modval +++| NZ X2,DIP3 IF NO MATCH
05205 M00S04330.modval +++| SX7 B1 SET FLAG
05206 M00S04331.modval +++| SA7 X1
05207 M00S04332.modval +++| EQ DIP10 PROCESS USER NAME
05208 M00S04333.modval +++|
05209 M00S04334.modval +++| DIP4 SA1 =0LEND CHECK FOR K-DISPLAY TERMINATION COMMANDS
05210 M00S04335.modval +++| SA2 =0LSTOP
05211 M00S04336.modval +++| BX1 X1-X6
05212 M00S04337.modval +++| BX2 X2-X6
05213 M00S04338.modval +++| ZR X1,DIPX IF *END*
05214 M00S04339.modval +++| ZR X2,DIPX IF *STOP*
05215 M00S04340.modval +++| SB3 ERFE **** FORMAT ERROR.
05216 M00S04341.modval +++| DIP5 RJ IDE INPUT DATA ERROR
05217 M00S04342.modval +++| EQ DIP1 SEARCH FOR -/-
05218 M00S04343.modval +++|
05219 M00S04344.modval +++|* CLEAN UP CURRENT USER ENTRY.
05220 M00S04345.modval +++|
05221 M00S04346.modval +++| DIP6 SA2 OP CHECK FOR K-DISPLAY INHIBITORS
05222 M00S04347.modval +++| NZ X2,DIP21 IF NOT K-DISPLAY
Line S04348 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
05223 M01S04348.v23l617 ---| SX6 B7+1
05224 M01S04349.v23l617 ---| NZ X6,DIP7 IF NO PAGING
Line S00259 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
05225 M01S00259.v23l617 +++| SB6 B7+5
05226 M01S00260.v23l617 +++| PL B6,DIP7 IF NOT PAGING COMMAND
05227 M01S00261.v23l617 +++| SX3 -B7
05228 M00S04350.modval +++| RJ PAG
05229 M00S04351.modval +++| EQ DIP22 PROCESS NEXT DIRECTIVE
05230 M00S04352.modval +++|
05231 M00S04353.modval +++| DIP7 SX6 2
05232 M00S04354.modval +++| SB7 B7+4
05233 M00S04355.modval +++| SA6 ET
05234 M00S04356.modval +++| NG B7,DIPX IF *STOP*
05235 M00S04357.modval +++| SA1 EF INQUIRE ONLY FLAG
05236 M00S04358.modval +++| SX6 B7
05237 M00S04359.modval +++| BX6 X1+X6
05238 M00S04360.modval +++| SA6 EF INHIBIT USER UPDATE IF *DROP*
05239 M00S04361.modval +++| ZR B7,DIP8 IF NOT *DROP*
05240 M00S04362.modval +++| SA1 =10HINQUIRING
05241 M00S04363.modval +++| BX6 X1
05242 M00S04364.modval +++| SA6 MSGA
05243 M00S04365.modval +++| EQ DIP9 FINISH FORMER USER NAME
05244 M00S04366.modval +++|
05245 M00S04367.modval +++| DIP8 SA5 APSW+TANB CHECK BATCH PASSWORD
05246 M00S04368.modval +++| RJ CPR
05247 M00S04369.modval +++| NZ B3,DIP8.1 IF REQUIRED AND NOT ENTERED
05248 M00S04370.modval +++| SA5 APWI+TANB CHECK INTERACTIVE PASSWORD
05249 M00S04371.modval +++| RJ CPR
05250 M00S04372.modval +++| ZR B3,DIP9 IF ENTERED
05251 M00S04373.modval +++| DIP8.1 RJ IDE PROCESS ERROR
05252 M00S04374.modval +++| SA1 OP
05253 M00S04375.modval +++| ZR X1,DIP22 IF K-DISPLAY
05254 M00S04376.modval +++| DIP9 RJ FFA FINISH FORMER USER ENTRY
05255 M00S04377.modval +++| SA1 TV
05256 M00S04378.modval +++| NZ X1,DIPX IF OVERFLOW
05257 M00S04379.modval +++| SA1 MSGA+1 SET COMPLETED MESSAGE
05258 M00S04380.modval +++| SA2 A1-B1
05259 M00S04381.modval +++| BX6 X1
05260 M00S04382.modval +++| SA1 DIPF
05261 M00S04383.modval +++| SA6 A2
05262 M00S04384.modval +++| BX7 X1-X2
05263 M00S04385.modval +++| SA7 A6+1
05264 M00S04386.modval +++| DIP10 SA2 ET
05265 M00S04387.modval +++| NG X2,DIPX IF EOF
05266 M00S04388.modval +++| SX2 X2-2
05267 M00S04389.modval +++| ZR X2,DIP1 IF K-DISPLAY *END* OR *DROP*
05268 M00S04390.modval +++| SX6 B0+ CLEAR FILE POINTERS
05269 M00S04391.modval +++| SA6 ET ENTRY TERMINATION
05270 M00S04392.modval +++| SA6 AN USER NAME
05271 M00S04393.modval +++| SA6 M1 RETAIN K-DISPLAY STATUS MESSAGE
05272 M00S04394.modval +++| RJ AAN ASSEMBLE USER NAME
05273 M00S04395.modval +++| GT B3,DIP20 IF ERROR
05274 M00S04396.modval +++| NZ X1,DIP20 IF ENTRY TERMINATION
05275 M00S04397.modval +++| SA6 DIPA+1 SET NAME IN MESSAGES
05276 M00S04398.modval +++| BX1 X6
05277 M00S04399.modval +++| RJ SFN
05278 M00S04400.modval +++| SA6 DSAN
05279 M00S04401.modval +++| SA1 =10H CREATING PRESET MESSAGE
05280 M00S04402.modval +++| BX6 X1
05281 M00S04403.modval +++| SA6 DIPA
05282 M00S04404.modval +++| R= X6,PCDM CLEAR DEFAULT PERMISSION BITS IF SPECIFIED
05283 M00S04405.modval +++| SX7 B1+ INDICATE NEW USER
05284 M00S04406.modval +++| SA6 PCDW
05285 M00S04407.modval +++|
05286 M00S04408.modval +++|* PRESET USER NAME ENTRY.
05287 M00S04409.modval +++|
05288 M00S04410.modval +++| MOVE ARBS,TODV,TANB SET DEFAULT VALUES
05289 M00S04411.modval +++| SA2 UF CHECK MODE
05290 M00S04412.modval +++| ZR X2,DIP17 IF NOT UPDATE
05291 M00S04413.modval +++| SX1 AN SET PRIMARY BLOCK
05292 M00S04414.modval +++| SX0 N
05293 M00S04415.modval +++| FUNC SPBT
05294 M00S04416.modval +++| NZ X6,ABT IF ERROR, AND (X2) = MESSAGE
05295 M00S04417.modval +++| BX6 X4 SET ENTRY FOUND FLAG
05296 M00S04418.modval +++| SA6 RDBA
05297 M00S04419.modval +++| ZR X4,DIP13 IF EXACT HIT
05298 M00S04420.modval +++| SA1 OP CHECK K DISPLAY COMMANDS
05299 M00S04421.modval +++| SA2 DIPD *U* K-OPTION
05300 M00S04422.modval +++| NZ X1,DIP12 IF NOT K-DISPLAY
05301 M00S04423.modval +++| SA1 EF *I* K-OPTION
05302 M00S04424.modval +++| SA3 DANA *D* K-OPTION
05303 M00S04425.modval +++| BX2 X1+X2
05304 M00S04426.modval +++| BX2 X2+X3
05305 M00S04427.modval +++| ZR X2,DIP12 IF NOT UPDATE ONLY
05306 M00S04428.modval +++| SB3 ERNF **** USER NAME NOT FOUND.
05307 M00S04429.modval +++| DIP11 SA1 AN PROCESS *U* OR *C* K-COMMAND ERROR
05308 M00S04430.modval +++| RJ SFN
05309 M00S04431.modval +++| LX6 -6
05310 M00S04432.modval +++| SA6 B3+2
05311 M00S04433.modval +++| RJ IDE
05312 M00S04434.modval +++| MX4 0
05313 M00S04435.modval +++| EQ DIP2 FIND NEXT COMMAND
05314 M00S04436.modval +++|
05315 M00S04437.modval +++| DIP12 SA5 RAND CHECK AVAILABLE ROOM IN CHAINED BLOCK
05316 M00S04438.modval +++| ZR X5,DIP19 IF NONE
05317 M00S04439.modval +++| EQ DIP15 READ BLOCK
05318 M00S04440.modval +++|
05319 M00S04441.modval +++|* READ LEVEL-2 BLOCK TO TABLE.
05320 M00S04442.modval +++|
05321 M00S04443.modval +++| DIP13 SA1 OP
05322 M00S04444.modval +++| SA2 DIPC *C* K-OPTION
05323 M00S04445.modval +++| NZ X1,DIP14 IF NOT K-DISPLAY
05324 M00S04446.modval +++| SB3 ERFD **** USER NAME ALREADY EXISTS.
05325 M00S04447.modval +++| NZ X2,DIP11 IF CREATE ONLY
05326 M00S04448.modval +++| DIP14 SA2 OP CHECK OPTION
05327 M00S04449.modval +++| SB3 ERDA **** DUPLICATE USER NAME.
05328 M00S04450.modval +++| SX2 X2-COPT
05329 M00S04451.modval +++| ZR X2,DIP21 IF CREATE
05330 M00S04452.modval +++| DIP15 RJ RDB READ LEVEL-2 BLOCK
05331 M00S04453.modval +++| SA2 =10H UPDATING
05332 M00S04454.modval +++| NZ X1,DIP19 IF NOT EXACT HIT
Line S00022 Modification History
M01 (Added by) modva21
Seq # *Modification Id* Act
----------------------------+
05333 M01S00022.modva21 +++| SX6 B1+ SET USER NAME UPDATE FLAG
05334 M01S00023.modva21 +++| SA6 UUFG
05335 M00S04455.modval +++| SA1 EF CHECK ERROR FLAG FOR INQUIRE
05336 M00S04456.modval +++| ZR X1,DIP16 IF NOT INQUIRE
05337 M00S04457.modval +++| SA2 =10HINQUIRING
05338 M00S04458.modval +++| DIP16 BX6 X2
05339 M00S04459.modval +++| SA1 DANA CHECK FOR *D* K-OPTION
05340 M00S04460.modval +++| SX7 B1+B1
05341 M00S04461.modval +++| SA6 DIPA
05342 M00S04462.modval +++| MX6 TPCWL PREVENT CLEARING OF PERMISSION BITS
05343 M00S04463.modval +++| LX6 TPCWL
05344 M00S04464.modval +++| SA6 PCDW
05345 M00S04465.modval +++| ZR X1,DIP19 IF NOT PRESENT
05346 M00S04466.modval +++| RJ CUN CHECK USER NAME
05347 M00S04467.modval +++| SB3 ERDU **** CANNOT DELETE USER RUNNING MODVAL.
05348 M00S04468.modval +++| ZR X1,DIP5 IF SAME USER
05349 M00S04469.modval +++| SA7 ET SET K-DISPLAY ENTRY TERMINATION
05350 M00S04470.modval +++| SA1 =10H DELETING SET STATUS MESSAGE
05351 M00S04471.modval +++| BX6 X1
05352 M00S04472.modval +++| SA6 DIPA
05353 M00S04473.modval +++| MOVE 2,DIPA,MSGA
05354 M00S04474.modval +++| EQ DIP9 DELETE USER NAME
05355 M00S04475.modval +++|
05356 M00S04476.modval +++|* CHECK DUPLICATE USER NAME.
05357 M00S04477.modval +++|
05358 M00S04478.modval +++| DIP17 SA1 AN
05359 M00S04479.modval +++| MX0 42
05360 M00S04480.modval +++| SEARCH TAB1,X1,M
05361 M00S04481.modval +++| NZ X2,DIP18 IF MATCH
05362 M00S04482.modval +++| SEARCH TAB2,X6,M SEARCH FOR DUPLICATE USER IN LEVEL-2
05363 M00S04483.modval +++| ZR X2,DIP19 IF NO MATCH
05364 M00S04484.modval +++| DIP18 SB3 ERDA **** DUPLICATE USER NAME.
05365 M00S04485.modval +++| RJ IDE
05366 M00S04486.modval +++| DIP19 MESSAGE DIPA,1 SET MESSAGES
05367 M00S04487.modval +++| MOVE 2,DIPA,MSGA
Line S04488 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
05368 M01S04488.v23l617 ---| SA1 KIA SET DISPLAYS
Line S00262 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
05369 M01S00262.v23l617 +++| SA1 KIA SET DISPLAY CONTROL WORD
Line S04489 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
05370 M01S04489.v23l617 ---| MX0 42
Line S00263 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
05371 M01S00263.v23l617 +++| MX0 24
05372 M00S04490.modval +++| BX6 X0*X1
Line S04491 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
05373 M01S04491.v23l617 ---| SX5 DSB
Line S00264 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
05374 M01S00264.v23l617 +++| SX5 DSB SET PAGE ONE LEFT
05375 M01S00265.v23l617 +++| BX6 X5+X6
05376 M01S00266.v23l617 +++| SX5 DSG SET PAGE ONE RIGHT
05377 M01S00267.v23l617 +++| LX5 18
05378 M00S04492.modval +++| BX6 X5+X6
Line S04493 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
05379 M01S04493.v23l617 ---| SA6 A1
Line S00268 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
05380 M01S00268.v23l617 +++| SA6 A1+
05381 M01S00269.v23l617 +++| SX6 INPB SET KEYBOARD INPUT LINE
05382 M01S00270.v23l617 +++| SA6 IL
05383 M01S00271.v23l617 +++| SA1 PAGA RESET PAGE TABLE HEADER
05384 M01S00272.v23l617 +++| LX1 30
05385 M01S00273.v23l617 +++| MX0 42
05386 M01S00274.v23l617 +++| BX1 X0*X1
05387 M01S00275.v23l617 +++| SX6 B1
05388 M01S00276.v23l617 +++| BX1 X1+X6 SET PAGE ONE LEFT
05389 M01S00277.v23l617 +++| LX1 30
05390 M01S00278.v23l617 +++| BX1 X0*X1
05391 M01S00279.v23l617 +++| BX6 X1+X6 SET PAGE ONE RIGHT
05392 M01S00280.v23l617 +++| SA6 A1
05393 M00S04494.modval +++| EQ DIP22 PROCESS CODE IDENTIFIERS
05394 M00S04495.modval +++|
05395 M00S04496.modval +++| DIP20 SA1 OP
05396 M00S04497.modval +++| ZR X1,DIP5 IF K-DISPLAY
05397 M00S04498.modval +++| DIP21 RJ IDE INPUT DATA ERROR
05398 M00S04499.modval +++| SA1 ET
05399 M00S04500.modval +++| NZ X1,DIP8 IF ENTRY TERMINATION
05400 M00S04501.modval +++|
05401 M00S04502.modval +++|* PROCESS CODE IDENTIFIERS.
05402 M00S04503.modval +++|
05403 M00S04504.modval +++| DIP22 SA1 OP CHECK OPTION
05404 M00S04505.modval +++| NZ X1,DIP23 IF NOT K-DISPLAY
05405 M00S04506.modval +++| RJ SRD SET RECORD DISPLAY FOR K-DISPLAY
05406 M00S04507.modval +++| DIP23 SX0 I SCAN FOR CODE IDENTIFIER
Line S04508 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
05407 M01S04508.v23l617 ---| SA1 CK ALLOW *+* CHARACTER
Line S00281 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
05408 M01S00281.v23l617 +++| SA1 CK ALLOW K-DISPLAY PAGING CHARACTERS
05409 M00S04509.modval +++| SX3 TKDE
05410 M00S04510.modval +++| SX6 TINE
05411 M00S04511.modval +++| FUNC SCIT
05412 M00S04512.modval +++| NZ X1,DIP24 IF NO ERROR IN IDENTIFIER
05413 M00S04513.modval +++| SB3 ERID **** ERROR IN IDENTIFIER.
05414 M00S04514.modval +++| NZ B5,DIP25 IF SEPARATOR NOT *=*
05415 M00S04515.modval +++| MX1 0
05416 M00S04516.modval +++| BX6 X6-X6
05417 M00S04517.modval +++| RJ ACI SKIP OVER PARAMETER
05418 M00S04518.modval +++| SB3 ERID **** ERROR IN IDENTIFIER.
05419 M00S04519.modval +++| SX1 B0+
05420 M00S04520.modval +++| EQ DIP25 DISPLAY ERROR
05421 M00S04521.modval +++|
05422 M00S04522.modval +++| DIP24 ZR B6,DIP8 IF ENTRY TERMINATION
05423 M00S04523.modval +++| NG B7,DIP6 IF K-DISPLAY COMMAND ENTERED
05424 M00S04524.modval +++| DIP25 SA3 OP
05425 M00S04525.modval +++| NZ X3,DIP26 IF NOT K-DISPLAY
05426 M00S04526.modval +++| SA2 EF
05427 M00S04527.modval +++| ZR X2,DIP26 IF NOT INQUIRE OPTION
05428 M00S04528.modval +++| SB3 ERIQ **** UPDATE NOT ALLOWED BY INQUIRE.
05429 M00S04529.modval +++| EQ DIP21 DISPLAY ERROR MESSAGE
05430 M00S04530.modval +++|
05431 M00S04531.modval +++| DIP26 ZR X1,DIP21 IF ERROR IN IDENTIFIER
05432 M00S04532.modval +++| RJ PDD PROCESS DIRECTIVE DATA
05433 M00S04533.modval +++| GT B3,DIP21 IF ERROR
05434 M00S04534.modval +++| SA1 ET CHECK FOR ENTRY TERMINATION
05435 M00S04535.modval +++| ZR X1,DIP22 IF NONE
05436 M00S04536.modval +++| EQ DIP8 CLEAN UP USER NAME
05437 M00S04537.modval +++|
05438 M00S04538.modval +++|
05439 M00S04539.modval +++| DIPA DIS ,* CREATING USER.*
05440 M00S04540.modval +++| DIPB CON 0LI+EF K-DIPLAY OPTION TABLE
05441 M00S04541.modval +++| CON 0LC+DIPC
05442 M00S04542.modval +++| CON 0LU+DIPD
Line S04543 Modification History
M01 (Removed by) modva34
Seq # *Modification Id* Act
----------------------------+
05443 M01S04543.modva34 ---| CON 0LD+DANA
Line S00001 Modification History
M01 (Added by) modva34
Seq # *Modification Id* Act
----------------------------+
05444 M01S00001.modva34 +++| CON 0LDEL+DANA
05445 M00S04544.modval +++| CON 0
05446 M00S04545.modval +++| DIPC CON 0 K-CREATE ONLY FLAG
05447 M00S04546.modval +++| DIPD CON 0 K-UPDATE ONLY FLAG
05448 M00S04547.modval +++| DIPF CON 4RING &4RED. CONSTANT
05449 M00S04548.modval +++| IDE SPACE 4,10
05450 M00S04549.modval +++|** IDE - INPUT DATA ERROR.
05451 M00S04550.modval +++|*
05452 M00S04551.modval +++|* ENTRY (B3) = ERROR MESSAGE ADDRESS.
05453 M00S04552.modval +++|*
05454 M00S04553.modval +++|* EXIT ERROR MESSAGE WRITTEN.
05455 M00S04554.modval +++|*
Line S04555 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
05456 M01S04555.v23l617 ---|* USES A - 1, 2, 3, 6, 7.
05457 M01S04556.v23l617 ---|* X - 1, 2, 3, 5, 6, 7.
Line S00282 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
05458 M01S00282.v23l617 +++|* USES X - 1, 2, 3, 5, 6, 7.
05459 M01S00283.v23l617 +++|* A - 1, 2, 3, 6, 7.
05460 M01S00284.v23l617 +++|* B - 2.
05461 M00S04557.modval +++|*
05462 M00S04558.modval +++|* CALLS CLN.
05463 M00S04559.modval +++|*
05464 M00S04560.modval +++|* MACROS MOVE, WRITEC, WRITEH, WRITES, WRITEW.
05465 M00S04561.modval +++|
05466 M00S04562.modval +++|
05467 M00S04563.modval +++| IDE4 SA2 KIA GET K-DISPLAY STATUS WORD
05468 M00S04564.modval +++| SX6 MSGA
05469 M00S04565.modval +++| SX3 X2-DSA
Line S04566 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
05470 M01S04566.v23l617 ---| ZR X3,IDE6 IF INITIAL SCREEN
05471 M01S04567.v23l617 ---| SX6 MSGB
05472 M01S04568.v23l617 ---| SX3 X2-DSB
05473 M01S04569.v23l617 ---| ZR X3,IDE5 IF FIRST USER SCREEN
05474 M01S04570.v23l617 ---| SX6 MSGC
05475 M01S04571.v23l617 ---| SX3 X2-DSC
05476 M01S04572.v23l617 ---| ZR X3,IDE5 IF SECOND USER SCREEN
05477 M01S04573.v23l617 ---| SX6 MSGD THIRD USER SCREEN
05478 M01S04574.v23l617 ---| SX3 X2-DSD
05479 M01S04575.v23l617 ---| ZR X3,IDE5 IF THIRD SCREEN
05480 M01S04576.v23l617 ---| SX6 MSGE FOURTH USER SCREEN
05481 M01S04577.v23l617 ---| IDE5 SA6 M2
05482 M01S04578.v23l617 ---| IDE6 MOVE 4,X5,X6
Line S00285 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
05483 M01S00285.v23l617 +++| ZR X3,IDE5 IF INITIAL SCREEN
05484 M01S00286.v23l617 +++| SA2 PAGA GET MESSAGE AREA FROM PAGE TABLE
05485 M01S00287.v23l617 +++| LX2 30
05486 M01S00288.v23l617 +++| SB2 X2
05487 M01S00289.v23l617 +++| SA2 A2+B2 CURRENT LEFT PAGE
05488 M01S00290.v23l617 +++| AX2 18
05489 M01S00291.v23l617 +++| SX6 X2+ MESSAGE AREA
05490 M01S00292.v23l617 +++| SA6 M2
05491 M01S00293.v23l617 +++| IDE5 MOVE 4,X5,X6
05492 M00S04579.modval +++|
05493 M00S04580.modval +++| IDE SUBR ENTRY/ EXIT
05494 M00S04581.modval +++| SA2 OP CHECK OPTION
05495 M00S04582.modval +++| SX5 B3+B1
05496 M00S04583.modval +++| SA1 B3 SET ERROR FLAG
05497 M00S04584.modval +++| ZR X2,IDE4 IF K-DISPLAY
05498 M00S04585.modval +++| SA3 EF UPDATE ERROR FLAG
05499 M00S04586.modval +++| SA2 EMSF
05500 M00S04587.modval +++| BX6 X1+X3
05501 M00S04588.modval +++| BX7 X1+X2
05502 M00S04589.modval +++| SA6 A3
05503 M00S04590.modval +++| SA7 A2
05504 M00S04591.modval +++| NZ X1,IDE1 IF ERROR FLAG SET
05505 M00S04592.modval +++| SX6 B1+ SET WARNING MESSAGE FLAG
05506 M00S04593.modval +++| SA6 WMSF
05507 M00S04594.modval +++| IDE1 SA3 EL CHECK ERROR LIST FLAG
05508 M00S04595.modval +++| SX1 3
05509 M00S04596.modval +++| ZR X3,IDE2 IF DIRECTIVES LISTED
05510 M00S04597.modval +++| SX1 4
05511 M00S04598.modval +++| IDE2 RJ CLN CHECK LINE AVAILABLE
05512 M00S04599.modval +++| SA1 EL CHECK ERROR LIST FLAG
05513 M00S04600.modval +++| ZR X1,IDE3 IF DIRECTIVES LISTED
05514 M00S04601.modval +++| SA1 SB LIST ERRONEOUS DIRECTIVE
05515 M00S04602.modval +++| SA3 SM GET BUFFER LENGTH
05516 M00S04603.modval +++| IX3 X3-X1
05517 M00S04604.modval +++| WRITES O,X1-1,X3+1
05518 M00S04605.modval +++| IDE3 WRITEH O,X5,4 WRITE ERROR MESSAGE
05519 M00S04606.modval +++| WRITEW O,(=10H USER ),1
05520 M00S04607.modval +++| WRITEC O,AN,1 WRITE USER NAME
05521 M00S04608.modval +++| WRITEH O,(=1H ),1
05522 M00S04609.modval +++| EQ IDEX RETURN
05523 M00S04610.modval +++|
05524 M00S04611.modval +++|
05525 M00S04612.modval +++|* ERROR MESSAGES TO OUTPUT FILE OR K-DISPLAY.
05526 M00S04613.modval +++|
05527 M00S04614.modval +++| ERAN CON 1
05528 M00S04615.modval +++| DIS 4, **** ERROR IN USER NAME.
05529 M00S04616.modval +++| ERDA CON 1
05530 M00S04617.modval +++| DIS 4, **** DUPLICATE USER NAME.
05531 M00S04618.modval +++| ERFD CON 1
05532 M00S04619.modval +++| DIS 4, **** USER NAME ALREADY EXISTS.
05533 M00S04620.modval +++| ERFE CON 1
05534 M00S04621.modval +++| DIS 4, **** FORMAT ERROR.
05535 M00S04622.modval +++| ERID CON 1
05536 M00S04623.modval +++| DIS 4, **** ERROR IN IDENTIFIER.
05537 M00S04624.modval +++| ERIQ CON 0
05538 M00S04625.modval +++| DIS 4, **** UPDATE NOT ALLOWED BY INQUIRE.
05539 M00S04626.modval +++| ERND CON 1
05540 M00S04627.modval +++| DIS 4, **** ERROR IN NUMERIC DATA.
05541 M00S04628.modval +++| ERNF CON 1
05542 M00S04629.modval +++| DIS 4, **** USER NAME NOT FOUND.
05543 M00S04630.modval +++| ERAD CON 1
05544 M00S04631.modval +++| DIS 4, **** ERROR IN ALPHANUMERIC DATA.
05545 M00S04632.modval +++| ERUI CON 1
05546 M00S04633.modval +++| DIS 4, **** USER INDEX PREVIOUSLY DEFINED.
05547 M00S04634.modval +++| ERUN CON 1
05548 M00S04635.modval +++| DIS 4, **** NO USER INDICES AVAILABLE.
05549 M00S04636.modval +++| ERIP CON 1
Line S04637 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
05550 M01S04637.v23l617 ---| DIS 4, **** ILLEGAL PASSWORD.
Line S00294 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
05551 M01S00294.v23l617 +++| DIS 4, **** INCORRECT PASSWORD.
05552 M00S04638.modval +++| ERPI CON 0
Line S04639 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
05553 M01S04639.v23l617 ---| DIS 4, **** ILLEGAL PASSWORD IGNORED.
Line S00295 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
05554 M01S00295.v23l617 +++| DIS 4, **** INCORRECT PASSWORD IGNORED.
05555 M00S04640.modval +++| ERPR CON 1
05556 M00S04641.modval +++| DIS 4, **** PASSWORD REQUIRED.
05557 M00S04642.modval +++| EROD CON 0
Line S04643 Modification History
M01 (Removed by) 241l630
Seq # *Modification Id* Act
----------------------------+
05558 M01S04643.241l630 ---| DIS 4, **** OBSOLETE DIRECTIVE IGNORED.
Line S00035 Modification History
M01 (Added by) 241l630
Seq # *Modification Id* Act
----------------------------+
05559 M01S00035.241l630 +++| CUE$ IFEQ CUE$,2
05560 M01S00036.241l630 +++| DIS 4, **** DIRECTIVE IGNORED.
05561 M01S00037.241l630 +++| CUE$ ELSE
05562 M01S00038.241l630 +++| DIS 4, **** OBSOLETE DIRECTIVE IGNORED.
05563 M01S00039.241l630 +++| CUE$ ENDIF
05564 M00S04644.modval +++| ERDU CON 1
05565 M00S04645.modval +++| DIS 4, **** CANNOT DELETE USER RUNNING MODVAL.
05566 M00S04646.modval +++| ERSP CON 1
05567 M00S04647.modval +++| DIS 4, **** CANNOT DELETE *CSAP* PRIVILEGE.
05568 M00S04648.modval +++| ERXD CON 1
05569 M00S04649.modval +++| DIS 4, **** CANNOT ALTER XD/XT OF *CSAP*.
05570 M00S04650.modval +++| EROT CON 0
05571 M00S04651.modval +++| DIS 4, **** INCORRECT ORIGIN TYPE.
05572 M00S04652.modval +++| ERSC CON 0
05573 M00S04653.modval +++| DIS 4, **** INCORRECT SERVICE CLASS.
05574 M00S04654.modval +++| ERPU CON 0
05575 M00S04655.modval +++| DIS 4, **** PASSWORDS UPDATED.
05576 M00S04656.modval +++| ERBU CON 0
05577 M00S04657.modval +++| DIS 4, **** BATCH PASSWORD UPDATED.
05578 M00S04658.modval +++| ERIU CON 0
05579 M00S04659.modval +++| DIS 4, **** INTERACTIVE PASSWORD UPDATED.
05580 M00S04660.modval +++| ERCS CON 0
05581 M00S04661.modval +++| DIS 4, **** CANNOT ALTER SEC. COUNT OF *CSAP*.
05582 M00S04662.modval +++| OBS SPACE 4,10
05583 M00S04663.modval +++|** OBS - PROCESS OBSOLETE DIRECTIVE.
05584 M00S04664.modval +++|*
05585 M00S04665.modval +++|* RETURNS ERROR STATUS TO ISSUE INFORMATIVE DIAGNOSTIC
05586 M00S04666.modval +++|* MESSAGE FOR OBSOLETE DIRECTIVE.
05587 M00S04667.modval +++|*
05588 M00S04668.modval +++|* EXIT (B3) = ERROR MESSAGE ADDRESS.
05589 M00S04669.modval +++|
05590 M00S04670.modval +++|
05591 M00S04671.modval +++| OBS SUBR ENTRY/EXIT
Line S04672 Modification History
M01 (Removed by) 241l630
Seq # *Modification Id* Act
----------------------------+
05592 M01S04672.241l630 ---| SB3 EROD **** OBSOLETE DIRECTIVE IGNORED
Line S00040 Modification History
M01 (Added by) 241l630
Seq # *Modification Id* Act
----------------------------+
05593 M01S00040.241l630 +++| CUE$ IFEQ CUE$,2
05594 M01S00041.241l630 +++| SB3 EROD **** DIRECTIVE IGNORED.
05595 M01S00042.241l630 +++| CUE$ ELSE
05596 M01S00043.241l630 +++| SB3 EROD **** OBSOLETE DIRECTIVE IGNORED.
05597 M01S00044.241l630 +++| CUE$ ENDIF
05598 M00S04673.modval +++| EQ OBSX RETURN
05599 M00S04674.modval +++| PAG SPACE 4,10
05600 M00S04675.modval +++|** PAG - PAGE K-DISPLAY.
05601 M00S04676.modval +++|*
Line S00296 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
05602 M01S00296.v23l617 +++|* ENTRY (X3) = RIGHT JUSTIFIED PAGING CHARACTER.
05603 M01S00297.v23l617 +++|*
05604 M00S04677.modval +++|* EXIT FWA OF NEXT DISPLAY SET IN *KIA*.
Line S00298 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
05605 M01S00298.v23l617 +++|* (IL) = KEYBOARD INPUT DISPLAY LINE OF CURRENT PAGE.
05606 M00S04678.modval +++|*
Line S04679 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
05607 M01S04679.v23l617 ---|* USES X - 0, 1, 3, 6.
05608 M01S04680.v23l617 ---|* A - 1, 3, 6.
Line S00299 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
05609 M01S00299.v23l617 +++|* USES X - 1, 2, 3, 4, 6.
05610 M01S00300.v23l617 +++|* A - 1, 2, 6.
05611 M01S00301.v23l617 +++|* B - 2.
05612 M01S00302.v23l617 +++|*
05613 M01S00303.v23l617 +++|* CALLS PGD.
05614 M01S00304.v23l617 +++|*
05615 M01S00305.v23l617 +++|* MACROS PAGT.
05616 M00S04681.modval +++|
05617 M00S04682.modval +++|
05618 M00S04683.modval +++| PAG SUBR ENTRY/EXIT
Line S04684 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
05619 M01S04684.v23l617 ---| MX0 42
05620 M01S04685.v23l617 ---| SA3 KIA
05621 M01S04686.v23l617 ---| BX6 X0*X3
05622 M01S04687.v23l617 ---| BX0 -X0*X3 CURRENT PAGE
05623 M01S04688.v23l617 ---| SA1 PAGA-1
05624 M01S04689.v23l617 ---| PAG1 SA1 A1+B1
05625 M01S04690.v23l617 ---| BX3 X1-X0
05626 M01S04691.v23l617 ---| NZ X3,PAG1 IF NOT THIS PAGE
05627 M01S04692.v23l617 ---| SA1 A1+1
05628 M01S04693.v23l617 ---| NZ X1,PAG2 IF NOT END OF TABLE
05629 M01S04694.v23l617 ---| SA1 PAGA
05630 M01S04695.v23l617 ---| PAG2 BX6 X6+X1
05631 M01S04696.v23l617 ---| SA6 A3
Line S00306 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
05632 M01S00306.v23l617 +++| SA1 KIA
05633 M01S00307.v23l617 +++| SX2 X1-DSA
Line S04697 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
05634 M01S04697.v23l617 ---| EQ PAGX RETURN
Line S00308 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
05635 M01S00308.v23l617 +++| ZR X2,PAGX IF INITIAL DISPLAY
05636 M01S00309.v23l617 +++| SX2 PAGA SET ENTRY CONDITIONS FOR *PGD*
05637 M01S00310.v23l617 +++| BX4 X4-X4
05638 M01S00311.v23l617 +++| LX3 54
05639 M01S00312.v23l617 +++| SX1 KIA
05640 M01S00313.v23l617 +++| RJ PGD PAGE DISPLAY
05641 M01S00314.v23l617 +++| SA2 PAGA UPDATE INPUT LINE
05642 M01S00315.v23l617 +++| AX2 30
05643 M01S00316.v23l617 +++| SB2 X2
05644 M01S00317.v23l617 +++| SA2 A2+B2 CURRENT PAGE ENTRY
05645 M01S00318.v23l617 +++| AX2 36
05646 M01S00319.v23l617 +++| SX6 X2+
05647 M01S00320.v23l617 +++| SA6 IL
05648 M01S00321.v23l617 +++| EQ PAGX RETURN
05649 M00S04698.modval +++|
05650 M00S04699.modval +++|
Line S04700 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
05651 M01S04700.v23l617 ---| PAGA CON DSB PAGE 1
05652 M01S04701.v23l617 ---| CON DSC PAGE 2
05653 M01S04702.v23l617 ---| CON DSD PAGE 3
05654 M01S04703.v23l617 ---| CON DSE PAGE 4
05655 M01S04704.v23l617 ---| CON 0
Line S00322 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
05656 M01S00322.v23l617 +++| PAGA PAGT DSB,MSGB,INPB LEFT SCREEN PAGE 1
05657 M01S00323.v23l617 +++| PAGT DSC,MSGC,INPC LEFT SCREEN PAGE 2
05658 M01S00324.v23l617 +++| PAGT DSD,MSGD,INPD LEFT SCREEN PAGE 3
05659 M01S00325.v23l617 +++| PAGT DSE,MSGE,INPE LEFT SCREEN PAGE 4
05660 M01S00326.v23l617 +++| PAGT DSF,MSGF,INPF LEFT SCREEN PAGE 5
05661 M01S00327.v23l617 +++| PAGT
05662 M01S00328.v23l617 +++| PAGT DSG RIGHT SCREEN PAGE 1
05663 M01S00329.v23l617 +++| PAGT DSH RIGHT SCREEN PAGE 2
05664 M01S00330.v23l617 +++| PAGT DSJ RIGHT SCREEN PAGE 3
05665 M01S00331.v23l617 +++| PAGT *
05666 M01S00332.v23l617 +++|
05667 M01S00333.v23l617 +++| PGD HERE REMOTE BLOCK FROM *COMCDCP*
05668 M01S00334.v23l617 +++|
05669 M00S04705.modval +++| PDD SPACE 4,15
05670 M00S04706.modval +++|** PDD - PROCESS DIRECTIVE DATA.
05671 M00S04707.modval +++|*
05672 M00S04708.modval +++|* ENTRY (B7) = PROCESSING ROUTINE INDEX INTO *TOPS*.
05673 M00S04709.modval +++|*
05674 M00S04710.modval +++|* EXIT (B3) = 0.
05675 M00S04711.modval +++|*
05676 M00S04712.modval +++|* ERROR (B3) = ERROR MESSAGE ADDRESS.
05677 M00S04713.modval +++|*
05678 M00S04714.modval +++|* USES A - 0, 1, 2, 3, 5.
05679 M00S04715.modval +++|* B - 3, 5, 7.
05680 M00S04716.modval +++|* X - 1, 2, 3, 5.
05681 M00S04717.modval +++|*
05682 M00S04718.modval +++|* CALLS ACI, ICE.
05683 M00S04719.modval +++|*
05684 M00S04720.modval +++|* MACROS FUNC.
05685 M00S04721.modval +++|
05686 M00S04722.modval +++|
05687 M00S04723.modval +++| PDD SUBR ENTRY/EXIT
05688 M00S04724.modval +++| SA0 TOPS+B7 SET TABLE ENTRY ADDRESS
05689 M00S04725.modval +++| SA3 A0
05690 M00S04726.modval +++| BX1 X1-X1
05691 M00S04727.modval +++| PL X3,PDD1 IF NO SPECIAL CHARACTERS
05692 M00S04728.modval +++| SA1 CA ALLOW ASTERISK IN DATA
05693 M00S04729.modval +++| PDD1 SA2 CS SUPPRESS BLANKS
05694 M00S04730.modval +++| BX6 X2
05695 M00S04731.modval +++| RJ ACI ASSEMBLE DATA
05696 M00S04732.modval +++| SB3 ERAD **** ERROR IN ALPHANUMERIC DATA.
05697 M00S04733.modval +++| ZR B6,PDDX IF EOF OR NEW USER NAME
05698 M00S04734.modval +++| SB5 B5-1R=
Line S04735 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
05699 M01S04735.v23l617 ---| ZR B5,PDDX IF ILLEGAL SEPARATOR
Line S00335 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
05700 M01S00335.v23l617 +++| ZR B5,PDDX IF INCORRECT SEPARATOR
05701 M00S04736.modval +++| SA3 A0 GET *TOPS* ENTRY
05702 M00S04737.modval +++| SB7 X3 PROCESSOR ADDRESS
05703 M00S04738.modval +++| SX1 10 CHECK FOR MAXIMUM OF 10 CHARACTERS
05704 M00S04739.modval +++| LX3 59-58
05705 M00S04740.modval +++| NG X3,PDD2 IF DEFAULT CHARACTER COUNT
05706 M00S04741.modval +++| SA1 DF ALLOW ONLY *M* CHARACTERS
05707 M00S04742.modval +++| ZR X1,PDD3 IF UNLIMITED CHARACTER COUNT
05708 M00S04743.modval +++| PDD2 IX1 X1-X4
Line S04744 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
05709 M01S04744.v23l617 ---| NG X1,PDDX IF ILLEGAL CHARACTER COUNT
Line S00336 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
05710 M01S00336.v23l617 +++| NG X1,PDDX IF INCORRECT CHARACTER COUNT
05711 M00S04745.modval +++| PDD3 SA5 CBUF GET ASSEMBLED CHARACTERS
05712 M00S04746.modval +++| RJ ICE EXECUTE PROCESSOR
05713 M00S04747.modval +++| NZ B3,PDDX IF ERROR OR DATA ALREADY SET
05714 M00S04748.modval +++| SX3 TANB SET DATA IN FIELD
05715 M00S04749.modval +++| FUNC SDFT
05716 M00S04750.modval +++| SB3 B0 NO ERROR
05717 M00S04751.modval +++| EQ PDDX RETURN
05718 M00S04752.modval +++| TOPS SPACE 4,10
05719 M00S04753.modval +++|** TOPS - TABLE OF PROCESSING SUBROUTINES FOR INPUT DATA.
05720 M00S04754.modval +++|*
05721 M00S04755.modval +++|*T 1/A,1/D,40/0,18/PROC
05722 M00S04756.modval +++|* A SET IF ASTERISK ALLOWED IN IDENTIFIER.
05723 M00S04757.modval +++|* D SET IF VALIDATE WITH DEFAULT CHARACTER COUNT (10D).
05724 M00S04758.modval +++|* PROC INPUT DATA PROCESSING ROUTINE ADDRESS.
05725 M00S04759.modval +++|
05726 M00S04760.modval +++|
05727 M00S04761.modval +++| TOPS BSS 0
05728 M00S04762.modval +++| LOC 0
05729 M00S04763.modval +++| PMX DTPS AMX ASSEMBLE MAXIMUM RESOURCE LIMITS
05730 M00S04764.modval +++| PPW DTPS APW ASSEMBLE PASSWORD
05731 M00S04765.modval +++| PEP DTPS AEP ASSEMBLE ENCRYPTED PASSWORD
05732 M00S04766.modval +++| PAD DTPS AAD ASSEMBLE ALPHANUMERIC DATA
05733 M00S04767.modval +++| POB DTPS OBS PROCESS OBSOLETE DIRECTIVE
05734 M00S04768.modval +++| PND DTPS AND,(DCC) ASSEMBLE NUMERIC DATA
05735 M00S04769.modval +++| PUI DTPS AUX,(DCC) ASSEMBLE USER INDEX
05736 M00S04770.modval +++| PPC DTPS ACW ASSEMBLE PERMISSION CONTROL
05737 M00S04771.modval +++| PDA DTPS DAN,(ASK) DELETE USER NAME
05738 M00S04772.modval +++| PEA DTPS AEA,(DCC) ASSEMBLE EQUIVALENCED ARGUMENTS
Line S00021 Modification History
M01 (Added by) modva15
Seq # *Modification Id* Act
----------------------------+
05739 M01S00021.modva15 +++| PCN DTPS ACN,(ASK) ASSEMBLE CHARGE NUMBER
05740 M00S04773.modval +++| PPN DTPS APN,(ASK) ASSEMBLE PROJECT NUMBER
05741 M00S04774.modval +++| PDS DTPS ADS ASSEMBLE USER DEFAULT SERVICE CLASS
05742 M00S04775.modval +++| PTE DTPS ATE,(ASK,DCC) ASSEMBLE EXPIRATION TERM
05743 M00S04776.modval +++| PED DTPS AED,(ASK) ASSEMBLE EXPIRATION DATE
05744 M00S04777.modval +++| PAV DTPS AAV ASSEMBLE ACCESS PRIVILEGES
05745 M00S04778.modval +++| PSC DTPS ASC ASSEMBLE SECURITY COUNT
Line S00077 Modification History
M01 (Added by) 251l664
Seq # *Modification Id* Act
----------------------------+
05746 M01S00077.251l664 +++| PIW DTPS API ASSEMBLE PERSONAL IDENTIFICATION
05747 M00S04779.modval +++| LOC *O
05748 M00S04780.modval +++| TITLE VALIDATION FILE MANIPULATION.
05749 M00S04781.modval +++| FFA SPACE 4,15
05750 M00S04782.modval +++|** FFA - FINISH FORMER USER NAME.
05751 M00S04783.modval +++|*
05752 M00S04784.modval +++|* ENTRY USER NAME BLOCK ENTERED.
05753 M00S04785.modval +++|* (TANB) = DATA BLOCK INFORMATION.
Line S00024 Modification History
M01 (Added by) modva21
Seq # *Modification Id* Act
----------------------------+
05754 M01S00024.modva21 +++|* (UUFG) .LT. 0, IF REFORMAT OPTION.
05755 M01S00025.modva21 +++|* .EQ. 0, IF USER NAME CREATE OR DELETE.
05756 M01S00026.modva21 +++|* .GT. 0, IF USER NAME UPDATE.
05757 M00S04786.modval +++|*
05758 M00S04787.modval +++|* EXIT NO ACTION IS TAKEN IF ERRORS EXIST. OTHERWISE -
05759 M00S04788.modval +++|* LEVEL-2 ENTRY MADE IN FILE.
05760 M00S04789.modval +++|* RANDOM INDEX SET IN LEVEL-1 ENTRY (TAB1).
05761 M00S04790.modval +++|* TAB2 RESET.
05762 M00S04791.modval +++|*
05763 M00S04792.modval +++|* USES X - ALL.
05764 M00S04793.modval +++|* A - 1, 2, 3, 4, 5, 6, 7.
05765 M00S04794.modval +++|* B - 2, 3.
05766 M00S04795.modval +++|*
Line S04796 Modification History
M01 (Removed by) modva21
Seq # *Modification Id* Act
----------------------------+
05767 M01S04796.modva21 ---|* CALLS AUI, CUI, IDE, WDB.
Line S00027 Modification History
M01 (Added by) modva21
Seq # *Modification Id* Act
----------------------------+
05768 M01S00027.modva21 +++|* CALLS AUI, CUI, IAM, IDE, WDB.
05769 M00S04797.modval +++|*
05770 M00S04798.modval +++|* MACROS ALLOC, MOVE, SEARCH.
05771 M00S04799.modval +++|
05772 M00S04800.modval +++|
05773 M00S04801.modval +++| FFA9 SA2 UF CHECK MODE
05774 M00S04802.modval +++| SX6 B0+
05775 M00S04803.modval +++| SA6 RA2
05776 M00S04804.modval +++| ZR X2,FFA10 IF NOT UPDATE
05777 M00S04805.modval +++| SA6 L.TAB1 CLEAR TABLES
05778 M00S04806.modval +++| SA6 L.TAB2
05779 M00S04807.modval +++| SA6 FFAB
Line S04808 Modification History
M01 (Removed by) modva21
Seq # *Modification Id* Act
----------------------------+
05780 M01S04808.modva21 ---| FFA10 MX6 0 CLEAR KEY LOCATIONS -
Line S00028 Modification History
M01 (Added by) modva21
Seq # *Modification Id* Act
----------------------------+
05781 M01S00028.modva21 +++| FFA10 RJ IAM ISSUE ACCOUNT FILE MESSAGE
05782 M01S00029.modva21 +++| BX6 X6-X6 CLEAR KEY LOCATIONS
05783 M00S04809.modval +++| BX7 X7-X7
05784 M00S04810.modval +++| SA6 CW CONTROL WORD AREA
05785 M00S04811.modval +++| SA6 A6+B1
05786 M00S04812.modval +++| SA7 A6+B1
05787 M00S04813.modval +++| SA6 DANA DELETE FLAG
05788 M00S04814.modval +++| SA7 EF ERROR FLAG
05789 M00S04815.modval +++| SA6 RA2+1 LEVEL-2 LINKAGE
05790 M00S04816.modval +++| SA7 DIPC K-CREATE ONLY FLAG
05791 M00S04817.modval +++| SA6 A7+1 K-UPDATE ONLY FLAG
Line S00030 Modification History
M01 (Added by) modva21
Seq # *Modification Id* Act
----------------------------+
05792 M01S00030.modva21 +++| SA6 UUFG USER NAME UPDATE FLAG
05793 M00S04818.modval +++|
05794 M00S04819.modval +++| FFA SUBR ENTRY/EXIT
05795 M00S04820.modval +++| SA3 EF CHECK INPUT ERRORS
05796 M00S04821.modval +++| NZ X3,FFA9 IF ERRORS
Line S00045 Modification History
M01 (Added by) 241l630
Seq # *Modification Id* Act
----------------------------+
05797 M01S00045.241l630 +++| CUE$ IFEQ CUE$,2
05798 M01S00046.241l630 +++|
05799 M01S00047.241l630 +++|* ENSURE THAT THE CORRECT SHELL PROGRAM NAME AND THE CORRECT
05800 M01S00048.241l630 +++|* SHELL OPTIONS ARE SET FOR THE CD2000 USER ENVIRONMENT.
05801 M01S00049.241l630 +++|
05802 M01S00050.241l630 +++| SA1 AN GET USER NAME
05803 M01S00051.241l630 +++| MX0 42
05804 M01S00052.241l630 +++| BX1 X0*X1
05805 M01S00053.241l630 +++| SA2 =6LCDCCHS
05806 M01S00054.241l630 +++| BX5 X1-X2
05807 M01S00055.241l630 +++| NZ X5,FFA11 IF USER NAME IS NOT *CDCCHS*
05808 M01S00056.241l630 +++| SA1 FFAE
05809 M01S00057.241l630 +++| EQ FFA13 SET *RMSHELL* AS SHELL PROGRAM NAME
05810 M01S00058.241l630 +++|
05811 M01S00059.241l630 +++| FFA11 SA1 TANB+AUIN GET USER INDEX
05812 M01S00060.241l630 +++| MX0 -18
05813 M01S00061.241l630 +++| BX5 -X0*X1
05814 M01S00062.241l630 +++| SX1 X5-AUIMX
05815 M01S00063.241l630 +++| PL X1,FFA12 IF USER INDEX ABOVE *AUIMX*
05816 M01S00064.241l630 +++| SA1 FFAF
05817 M01S00065.241l630 +++| EQ FFA13 SET *CDSHELL* AS SHELL PROGRAM NAME
05818 M01S00066.241l630 +++|
05819 M01S00067.241l630 +++| FFA12 SA1 FFAG SET NULL SHELL PROGRAM NAME
05820 M01S00068.241l630 +++| FFA13 BX6 X1 SET SHELL PROGRAM NAME AND OPTIONS
05821 M01S00069.241l630 +++| SA6 TANB+ASHN
05822 M01S00070.241l630 +++| CUE$ ENDIF
05823 M00S04822.modval +++| SA1 TANB+ACCN
05824 M00S04823.modval +++| MX0 -18
05825 M00S04824.modval +++| BX5 -X0*X1
05826 M00S04825.modval +++| SX1 X5-AUIMX
05827 M00S04826.modval +++| NG X1,FFA0 IF USER INDEX NOT ABOVE *AUIMX*
05828 M00S04827.modval +++| SA1 FFAC SET ALL SERVICE CLASS VALIDATION FLAGS
05829 M00S04828.modval +++| BX6 X1
05830 M00S04829.modval +++| SA6 TANB+ASCV
05831 M00S04830.modval +++| EQ FFA0.5 CHECK FOR DELETES
05832 M00S04831.modval +++|
05833 M00S04832.modval +++|* ENSURE THAT THE VALIDATION BITS FOR THE USER DEFAULT SERVICE
05834 M00S04833.modval +++|* CLASSES ARE SET IN THE VALIDATION MASK.
05835 M00S04834.modval +++|
05836 M00S04835.modval +++| FFA0 SA3 CHFG
05837 M00S04836.modval +++| SA1 TANB+ASCV
05838 M00S04837.modval +++| NZ X3,FFA0.3 IF NO CHECK TO BE MADE
05839 M00S04838.modval +++| SA5 TANB+ASC1 GET SERVICE CLASS VALIDATION WORDS
05840 M00S04839.modval +++| LX5 11-59
05841 M00S04840.modval +++| SA3 TOSC-1
05842 M00S04841.modval +++| MX0 6 SEARCH TABLE FOR SERVICE CLASS ENTRY
05843 M00S04842.modval +++| LX0 18
05844 M00S04843.modval +++| FFA0.1 SB7 B0 INITIALIZE TABLE INDEX
05845 M00S04844.modval +++| SA3 A3+B1
05846 M00S04845.modval +++| LX5 6
05847 M00S04846.modval +++| SB3 X3
05848 M00S04847.modval +++| ZR X3,FFA0.3 IF END OF TABLE
05849 M00S04848.modval +++| NG B3,FFA0.1 IF ORIGIN TYPE NOT ALLOWED
05850 M00S04849.modval +++| FFA0.2 SA2 TSVM+B7
05851 M00S04850.modval +++| ZR X2,FFA0.1 IF END OF TABLE
05852 M00S04851.modval +++| SA4 TSCV+B7 GET MASK BIT
05853 M00S04852.modval +++| SB7 B7+B1 INCREMENT TABLE INDEX
05854 M00S04853.modval +++| BX3 X2-X5
05855 M00S04854.modval +++| BX3 X0*X3
05856 M00S04855.modval +++| NZ X3,FFA0.2 IF NO MATCH
05857 M00S04856.modval +++| BX1 X4+X1 SET BIT IN VALIDATION MASK
05858 M00S04857.modval +++| EQ FFA0.1 PROCESS NEXT USER DEFAULT
05859 M00S04858.modval +++|
Line S04859 Modification History
M01 (Removed by) modva27
Seq # *Modification Id* Act
----------------------------+
05860 M01S04859.modva27 ---| FFA0.3 SA2 FFAD
05861 M01S04860.modva27 ---| ZR X2,FFA0.4 IF NOT CREATION RUN
Line S00004 Modification History
M01 (Added by) modva27
Seq # *Modification Id* Act
----------------------------+
05862 M01S00004.modva27 +++| FFA0.3 SA2 UUFG
05863 M01S00005.modva27 +++| NZ X2,FFA0.4 IF NOT NEW USER NAME
05864 M00S04861.modval +++| SA3 TANB+AHDT CHECK IF *DI* SERVICE CLASS SHOULD BE SET
05865 M00S04862.modval +++| MX0 -6
05866 M00S04863.modval +++| LX3 -18
05867 M00S04864.modval +++| BX4 -X0*X3
05868 M00S04865.modval +++| ZR X4,FFA0.4 IF NO DETACHED JOBS ALLOWED
05869 M00S04866.modval +++| SX2 DIMK SET *DI* SERVICE CLASS VALID
05870 M00S04867.modval +++| BX1 X1+X2
05871 M00S04868.modval +++| FFA0.4 BX7 X1 UPDATE VALIDATION MASK
05872 M00S04869.modval +++| SA7 A1+
05873 M00S04870.modval +++|
05874 M00S04871.modval +++|* PROCESS DELETES.
05875 M00S04872.modval +++|
05876 M00S04873.modval +++| FFA0.5 SA1 AN CHECK BLOCK IN LEVEL-2 TABLE
05877 M00S04874.modval +++| MX0 42
05878 M00S04875.modval +++| SEARCH TAB2,X1,M
05879 M00S04876.modval +++| SA1 F.TAB2 SAVE RELATIVE POSITION IN TABLE
05880 M00S04877.modval +++| BX5 X2
05881 M00S04878.modval +++| IX7 X7-X1
05882 M00S04879.modval +++| SA3 DANA CHECK DELETED USER NAME
05883 M00S04880.modval +++| SA7 FFAA
05884 M00S04881.modval +++| ZR X3,FFA2 IF NO DELETE
05885 M00S04882.modval +++| ZR X2,FFA1 IF NO MATCH
05886 M00S04883.modval +++| MX6 0 CLEAR LEVEL-2 ENTRY
05887 M00S04884.modval +++| BX7 X2 SAVE USER NAME IN PASSWORD AREA
05888 M00S04885.modval +++| SA6 A2
05889 M00S04886.modval +++| SA7 A2+B1
05890 M00S04887.modval +++| SA1 AN
05891 M00S04888.modval +++| MX0 42
05892 M00S04889.modval +++| SEARCH TAB1,X1,M
05893 M00S04890.modval +++| FFA1 BX1 X2
05894 M00S04891.modval +++| SX2 DMSE * SYSTEM ERROR.*
05895 M00S04892.modval +++| MX6 0
05896 M00S04893.modval +++| ZR X1,ABT IF NO MATCH
05897 M00S04894.modval +++| SA6 X7+
05898 M00S04895.modval +++| EQ FFA8 COMPLETE DELETE
05899 M00S04896.modval +++|
05900 M00S04897.modval +++|* SET DATA BLOCK IN LEVEL-2 TABLE.
05901 M00S04898.modval +++|
05902 M00S04899.modval +++| FFA2 SA4 OP CHECK OPTION
05903 M00S04900.modval +++| SX4 X4-ROPT
05904 M00S04901.modval +++| SA1 TANB+AUIN SET USER NAME AND USER INDEX
05905 M00S04902.modval +++| ZR X4,FFA3 IF REFORMAT
05906 M00S04903.modval +++| SA3 AN
05907 M00S04904.modval +++| MX0 42
05908 M00S04905.modval +++| BX1 -X0*X1
05909 M00S04906.modval +++| BX3 X0*X3
05910 M00S04907.modval +++| IX6 X1+X3
05911 M00S04908.modval +++| SA3 TANB+ACMD SET LAST MOD DATE
05912 M00S04909.modval +++| SA4 PD
05913 M00S04910.modval +++| BX3 X0*X3
05914 M00S04911.modval +++| BX7 X3+X4
05915 M00S04912.modval +++| SA7 A3
05916 M00S04913.modval +++| SA6 A1
05917 M00S04914.modval +++| NZ X1,FFA3 IF USER INDEX ALREADY ASSIGNED
05918 M00S04915.modval +++| RJ AUI
05919 M00S04916.modval +++| NG X0,FFA4 IF USER INDEX ASSIGNED
05920 M00S04917.modval +++| RJ IDE
05921 M00S04918.modval +++| EQ FFA10 RETURN
05922 M00S04919.modval +++|
05923 M00S04920.modval +++| FFA3 BX0 X0-X0 SET USER INDEX
05924 M00S04921.modval +++| SX6 X1
05925 M00S04922.modval +++| RJ CUI
05926 M00S04923.modval +++| FFA4 NZ X5,FFA6 IF MATCH
05927 M00S04924.modval +++| SA2 L.TAB2
05928 M00S04925.modval +++| SX2 X2-ABLB
05929 M00S04926.modval +++| NG X2,FFA5 IF BLOCK NOT FULL
05930 M00S04927.modval +++| BX6 X6-X6
05931 M00S04928.modval +++| SA6 A2 CLEAR TABLE
05932 M00S04929.modval +++| FFA5 ALLOC TAB2,C.TAB2
05933 M00S04930.modval +++| FFA6 SA3 FFAA SET UPDATED BLOCK
05934 M00S04931.modval +++| SA1 F.TAB2
05935 M00S04932.modval +++| IX3 X3+X1
05936 M00S04933.modval +++| MOVE ARBS,TANB,X3
05937 M00S04934.modval +++|
05938 M00S04935.modval +++|* SET USER NAME.
05939 M00S04936.modval +++|
05940 M00S04937.modval +++| SA1 AN SET FOR LEVEL-1 UPDATE
05941 M00S04938.modval +++| SX2 DMSE * SYSTEM ERROR.*
05942 M00S04939.modval +++| SA3 FFAB-1
05943 M00S04940.modval +++| SB3 ARBB
05944 M00S04941.modval +++| SB2 B0+
05945 M00S04942.modval +++| BX6 X1
05946 M00S04943.modval +++| FFA7 SB2 B2+B1
05947 M00S04944.modval +++| SA3 A3+B1
05948 M00S04945.modval +++| GT B2,B3,ABT IF TABLE OVERFLOWED
05949 M00S04946.modval +++| NZ X3,FFA7 IF ENTRY USED
05950 M00S04947.modval +++| SA6 A3+
05951 M00S04948.modval +++| EQ B2,B3,FFA8 IF TABLE FULL
05952 M00S04949.modval +++| SA1 UF CHECK MODE
05953 M00S04950.modval +++| ZR X1,FFA10 IF NOT UPDATE
05954 M00S04951.modval +++| FFA8 RJ WDB WRITE DATA BLOCK
05955 M00S04952.modval +++| EQ FFA10 RETURN
05956 M00S04953.modval +++|
05957 M00S04954.modval +++|
05958 M00S04955.modval +++| FFAA CON 0 HOLD TAB2 ENTRY
05959 M00S04956.modval +++| FFAB BSSZ ARBB+1 HOLD USER NAMES FOR RANDOM ADDRESS
05960 M00S04957.modval +++| FFAC VFD 36/0,12/A2MK,12/A1MK VALIDATION MASK FOR *ALL*
05961 M00S04958.modval +++| FFAD CON 0 CREATION RUN FLAG
Line S00071 Modification History
M01 (Added by) 241l630
Seq # *Modification Id* Act
----------------------------+
05962 M01S00071.241l630 +++| CUE$ IFEQ CUE$,2
05963 M01S00072.241l630 +++| FFAE VFD 42/0LRMSHELL,11/0,7/13B
05964 M01S00073.241l630 +++| FFAF VFD 42/0LCDSHELL,11/0,7/13B
05965 M01S00074.241l630 +++| FFAG VFD 42/0,11/0,7/12B
05966 M01S00075.241l630 +++| CUE$ ENDIF
05967 M00S04959.modval +++| GAE SPACE 4,15
05968 M00S04960.modval +++|** GAE - GET USER ENTRY.
05969 M00S04961.modval +++|*
05970 M00S04962.modval +++|* ENTRY (X4) = USER TO BE SEARCHED FOR.
05971 M00S04963.modval +++|* (A0) = ADDRESS TO START SEARCH.
05972 M00S04964.modval +++|* (GAEA) = ENTRY COUNT.
05973 M00S04965.modval +++|*
05974 M00S04966.modval +++|* EXIT IF ENTRY FOUND.
05975 M00S04967.modval +++|* TO *ABT* IF NOT.
05976 M00S04968.modval +++|*
05977 M00S04969.modval +++|* USES X - 1, 2, 3, 5, 6.
05978 M00S04970.modval +++|* A - 1, 3, 5, 6.
05979 M00S04971.modval +++|* B - 3, 4, 5, 7.
05980 M00S04972.modval +++|
05981 M00S04973.modval +++|
05982 M00S04974.modval +++| GAE3 SA3 B3+B7 MOVE LOOP
05983 M00S04975.modval +++| BX6 X3
05984 M00S04976.modval +++| SA6 TANB+B7
05985 M00S04977.modval +++| SB7 B7+1
05986 M00S04978.modval +++| LT B7,B4,GAE3 IF NOT ALL MOVED
05987 M00S04979.modval +++|
05988 M00S04980.modval +++| GAE SUBR ENTRY/ EXIT
05989 M00S04981.modval +++| SA1 GAEA GET ENTRY COUNT
05990 M00S04982.modval +++| ZR X1,GAE2 IF NO ENTRIES
05991 M00S04983.modval +++| SX2 ARBS WORDS/ ENTRY
05992 M00S04984.modval +++| SB3 A0 FWA
05993 M00S04985.modval +++| SB4 X2 INCREMENT
05994 M00S04986.modval +++| IX2 X2*X1 WORDS IN BLOCK
05995 M00S04987.modval +++| SB7 B0
05996 M00S04988.modval +++| SB5 X2+B3 LIMIT
05997 M00S04989.modval +++| MX1 42 MASK
05998 M00S04990.modval +++| SA5 B3 FIRST WORD
05999 M00S04991.modval +++| GAE1 BX5 X1*X5
06000 M00S04992.modval +++| BX6 X5-X4
06001 M00S04993.modval +++| ZR X6,GAE3 IF HIT
06002 M00S04994.modval +++| SB3 B3+B4
06003 M00S04995.modval +++| SA5 B3
06004 M00S04996.modval +++| LT B3,B5,GAE1 IF MORE TO SEARCH
06005 M00S04997.modval +++| GAE2 SX2 DML2 * LEVEL-2 DATA BASE ERROR.*
06006 M00S04998.modval +++| EQ ABT
06007 M00S04999.modval +++|
06008 M00S05000.modval +++|
06009 M00S05001.modval +++| GAEA BSS 1 ENTRY COUNT
06010 M00S05002.modval +++| GNB SPACE 4,15
06011 M00S05003.modval +++|** GNB - GET NEXT DATA BLOCK.
06012 M00S05004.modval +++|*
06013 M00S05005.modval +++|* ENTRY (X6) = 1 IF INITIAL CALL.
06014 M00S05006.modval +++|* (X6) = 0 IF NOT INITIAL CALL.
06015 M00S05007.modval +++|* (GNBA) = LEVEL-1 BLOCK FUNCTION IN BITS 0-17 AND
06016 M00S05008.modval +++|* BIT 59 SET IF TO CLEAR LEVEL-1 TABLE.
06017 M00S05009.modval +++|*
06018 M00S05010.modval +++|* EXIT (X6) = 0 IF END OF USER ENTRIES.
06019 M00S05011.modval +++|* (TANB) = LEVEL-2 DATA BLOCK USER ENTRY.
06020 M00S05012.modval +++|*
06021 M00S05013.modval +++|* USES X - 0, 1, 2, 3, 5, 6, 7.
06022 M00S05014.modval +++|* A - 0, 1, 2, 6, 7.
06023 M00S05015.modval +++|* B - 4.
06024 M00S05016.modval +++|*
06025 M00S05017.modval +++|* MACROS FUNC, MESSAGE, READ, READW, RECALL.
06026 M00S05018.modval +++|
06027 M00S05019.modval +++|
06028 M00S05020.modval +++| GNB5 SA1 AN CHECK USER NAME
06029 M00S05021.modval +++| SA2 TANB+AUIN
06030 M00S05022.modval +++| MX0 42
06031 M00S05023.modval +++| BX3 X0*X2
06032 M00S05024.modval +++| BX1 X1-X3
06033 M00S05025.modval +++| SX6 X2
06034 M00S05026.modval +++| NZ X1,GNB3 IF NO MATCH
06035 M00S05027.modval +++| ZR X6,GNB4 IF NO USER INDEX
06036 M00S05028.modval +++|
06037 M00S05029.modval +++| GNB SUBR ENTRY/EXIT
06038 M00S05030.modval +++| ZR X6,GNB2 IF NOT INITIAL CALL
06039 M00S05031.modval +++| SA6 RA0+1 SET INITIAL LEVEL-0 RANDOM ADDRESS
06040 M00S05032.modval +++| GNB1 SX0 P
06041 M00S05033.modval +++| SA0 B0+
06042 M00S05034.modval +++| FUNC PNAT PICK NEXT LEVEL-0 BLOCK
06043 M00S05035.modval +++| ZR X6,GNBX IF END OF USER ENTRIES
06044 M00S05036.modval +++| LX6 X3
06045 M00S05037.modval +++| BX7 X7-X7
06046 M00S05038.modval +++| SA1 GNBA
06047 M00S05039.modval +++| SA6 RA1+1
06048 M00S05040.modval +++| PL X1,GNB2 IF NOT TO CLEAR LEVEL-1 TABLE
06049 M00S05041.modval +++| SA7 L.TAB1 CLEAR LEVEL-1 TABLE
06050 M00S05042.modval +++| GNB2 RECALL P
06051 M00S05043.modval +++| SA1 P+1
06052 M00S05044.modval +++| SX6 X1
06053 M00S05045.modval +++| SA6 A1+B1
06054 M00S05046.modval +++| SA6 A6+B1
06055 M00S05047.modval +++| SA0 B1
06056 M00S05048.modval +++| SX0 P
06057 M00S05049.modval +++| SX5 N
06058 M00S05050.modval +++| SA1 GNBA GET LEVEL-1 BLOCK FUNCTION
06059 M00S05051.modval +++| FUNC X1
06060 M00S05052.modval +++| ZR X6,GNB1 IF END OF BLOCK
06061 M00S05053.modval +++| RECALL P
06062 M00S05054.modval +++| SA2 A3-B1 SET LEVEL-2 ENTRY USER NAME
06063 M00S05055.modval +++| BX6 X2
06064 M00S05056.modval +++| SA6 AN
06065 M00S05057.modval +++| SX6 B1+ SET LEVEL-2 RANDOM ADDRESS
06066 M00S05058.modval +++| LX6 29
06067 M00S05059.modval +++| BX6 X3+X6
06068 M00S05060.modval +++| SA6 P+6
06069 M00S05061.modval +++| READ P
06070 M00S05062.modval +++| READW P,CW,1
06071 M00S05063.modval +++| FUNC CCWT CRACK CONTROL WORD
06072 M00S05064.modval +++| SB4 B4-2
06073 M00S05065.modval +++| NZ B4,GNB4 IF LEVEL NUMBER WRONG
06074 M00S05066.modval +++| READW P,TANB,B2-B1
06075 M00S05067.modval +++| GNB3 READW P,TANB,ARBS
06076 M00S05068.modval +++| ZR X1,GNB5 IF TRANSFER COMPLETE
06077 M00S05069.modval +++| GNB4 MESSAGE DML2,3 * LEVEL-2 DATA BASE ERROR.*
06078 M00S05070.modval +++| EQ GNB2 LOOP FOR NEXT BLOCK
06079 M00S05071.modval +++|
06080 M00S05072.modval +++|
06081 M00S05073.modval +++| GNBA CON 0 LEVEL-1 BLOCK FUNCTION AND CLEAR FLAG
06082 M00S05074.modval +++| RDB SPACE 4,15
06083 M00S05075.modval +++|** RDB - READ DATA BLOCK.
06084 M00S05076.modval +++|*
06085 M00S05077.modval +++|* ENTRY (X5) = RANDOM ADDRESS OF DATA BLOCK.
06086 M00S05078.modval +++|* (RDBA) .NE. 0, IF NOT EXACT HIT.
06087 M00S05079.modval +++|*
06088 M00S05080.modval +++|* EXIT DATA BLOCK READ.
06089 M00S05081.modval +++|* USER ENTRY SET IN *TANB* IF EXACT HIT.
06090 M00S05082.modval +++|* (X1) .NE. 0, IF NOT EXACT HIT.
06091 M00S05083.modval +++|* (X2) = ERROR MESSAGE.
06092 M00S05084.modval +++|*
06093 M00S05085.modval +++|* USES A - ALL.
06094 M00S05086.modval +++|* B - 4.
06095 M00S05087.modval +++|* X - 1, 2, 3, 4, 5, 6, 7.
06096 M00S05088.modval +++|*
06097 M00S05089.modval +++|* CALLS GAE.
06098 M00S05090.modval +++|*
06099 M00S05091.modval +++|* MACROS ALLOC, FUNC, READ, READO, READW, RECALL.
06100 M00S05092.modval +++|
06101 M00S05093.modval +++|
06102 M00S05094.modval +++| RDB SUBR ENTRY/ EXIT
06103 M00S05095.modval +++| RECALL P
06104 M00S05096.modval +++| RECALL N
06105 M00S05097.modval +++| SX7 B1 READ LEVEL-2 BLOCK
06106 M00S05098.modval +++| LX7 29
06107 M00S05099.modval +++| BX6 X7+X5
06108 M00S05100.modval +++| BX7 X5
06109 M00S05101.modval +++| SA6 N+6
06110 M00S05102.modval +++| SA7 RA2
06111 M00S05103.modval +++| MX6 0
06112 M00S05104.modval +++| SA6 A7+B1
06113 M00S05105.modval +++| READ N
06114 M00S05106.modval +++| READO N GET CONTROL WORD
06115 M00S05107.modval +++| SA6 CW
06116 M00S05108.modval +++| FUNC CCWT
06117 M00S05109.modval +++| SB4 B4-B1 CHECK LEVEL NUMBER
06118 M00S05110.modval +++| SX6 B5
06119 M00S05111.modval +++| SA6 GAEA
06120 M00S05112.modval +++| SX2 DML2 * LEVEL-2 DATA BASE ERROR.*
06121 M00S05113.modval +++| NE B1,B4,ABT IF NOT 2
06122 M00S05114.modval +++| ALLOC TAB2,B3
06123 M00S05115.modval +++| READO N
06124 M00S05116.modval +++| READO N
06125 M00S05117.modval +++| SA2 F.TAB2
06126 M00S05118.modval +++| READW N,X2,B3 GET BLOCK
06127 M00S05119.modval +++| SX2 DML2 * LEVEL-2 DATA BASE ERROR.*
06128 M00S05120.modval +++| NZ X1,ABT IF TRANSFER INCOMPLETE
06129 M00S05121.modval +++| SA4 AN
06130 M00S05122.modval +++| SA1 N+2 CHECK WORDS LEFT IN BUFFER
06131 M00S05123.modval +++| SA3 F.TAB2
06132 M00S05124.modval +++| SA5 A1+B1
06133 M00S05125.modval +++| SA0 X3
06134 M00S05126.modval +++| BX1 X1-X5
06135 M00S05127.modval +++| NZ X1,ABT IF WORD COUNT NOT EXACT
06136 M00S05128.modval +++|
06137 M00S05129.modval +++|* SET DATA BLOCK.
06138 M00S05130.modval +++|
06139 M00S05131.modval +++| SA1 RDBA CHECK HIT
06140 M00S05132.modval +++| NZ X1,RDBX IF NOT EXACT
06141 M00S05133.modval +++| RJ GAE GET USER ENTRY
06142 M00S05134.modval +++| MX1 0 SET STATUS
06143 M00S05135.modval +++| EQ RDBX RETURN
06144 M00S05136.modval +++|
06145 M00S05137.modval +++|
06146 M00S05138.modval +++| RDBA CON 1 BLOCK FOUND FLAG
06147 M00S05139.modval +++| WDB SPACE 4,15
06148 M00S05140.modval +++|** WDB - WRITE DATA BLOCK.
06149 M00S05141.modval +++|*
06150 M00S05142.modval +++|* ENTRY (TAB2) = USER ENTRIES IN LEVEL-2 BLOCK.
06151 M00S05143.modval +++|* (FFAB) = USER NAMES IN LEVEL-2 BLOCK.
06152 M00S05144.modval +++|*
06153 M00S05145.modval +++|* EXIT LEVEL-2 BLOCK WRITTEN TO FILE.
06154 M00S05146.modval +++|* *TAB2*, *FFAB*, *RAND*, *RA2*, UPDATED APPROPRIATELY.
06155 M00S05147.modval +++|*
06156 M00S05148.modval +++|* USES X - 0, 1, 4, 5, 6, 7.
06157 M00S05149.modval +++|* A - 0, 1, 4, 5, 6, 7.
06158 M00S05150.modval +++|* B - 5, 7.
06159 M00S05151.modval +++|*
06160 M00S05152.modval +++|* MACROS ALLOC, FUNC, MESSAGE, SEARCH.
06161 M00S05153.modval +++|
06162 M00S05154.modval +++|
06163 M00S05155.modval +++| WDBBE EQU ARBB*ARBS DATA WORDS IN FULL LEVEL-2 BLOCK
06164 M00S05156.modval +++|
06165 M00S05157.modval +++| WDB8 MX6 0 CLEAR USER ENTRY
06166 M00S05158.modval +++| SA6 A4
06167 M00S05159.modval +++| SA6 FFAB CLEAR LEVEL-1 USER NAME
06168 M00S05160.modval +++| WDB9 SX6 B0+ CLEAR RANDOM ADDRESS POINTER
06169 M00S05161.modval +++| SA6 RA2+1
06170 M00S05162.modval +++|
06171 M00S05163.modval +++| WDB SUBR ENTRY/ EXIT
06172 M00S05164.modval +++| SA1 L.TAB2 SET FULL BLOCK FLAG
06173 M00S05165.modval +++| SX6 X1-WDBBE
06174 M00S05166.modval +++| SA6 WDBB
06175 M00S05167.modval +++| MX0 0 WRITE LEVEL-2 BLOCK
06176 M00S05168.modval +++| R= A0,TAB2
06177 M00S05169.modval +++| SX5 N
06178 M00S05170.modval +++| FUNC WTBT
06179 M00S05171.modval +++|
06180 M00S05172.modval +++|* UPDATE LEVEL-1.
06181 M00S05173.modval +++|
06182 M00S05174.modval +++| SA4 FFAB INITIALIZE SEARCH
06183 M00S05175.modval +++| WDB1 MX0 42
06184 M00S05176.modval +++| ZR X4,WDB4 IF NO USER NAME
06185 M00S05177.modval +++| SEARCH TAB1,X4,M
06186 M00S05178.modval +++| MX6 0
06187 M00S05179.modval +++| SA4 A4
06188 M00S05180.modval +++| SA6 A4
06189 M00S05181.modval +++| BX6 X4
06190 M00S05182.modval +++| SA1 UF CHECK MODE
06191 M00S05183.modval +++| SA6 WDBA
06192 M00S05184.modval +++| ZR X1,WDB2 IF NOT UPDATE
06193 M00S05185.modval +++| NZ X2,WDB8 IF ENTRY ALREADY EXISTS EXIT
06194 M00S05186.modval +++| WDB2 SA1 F.TAB1 PRESERVE RELATIVE ADDRESS
06195 M00S05187.modval +++| IX7 X7-X1
06196 M00S05188.modval +++| SB7 X7
06197 M00S05189.modval +++| SB5 A4
06198 M00S05190.modval +++| NZ X2,WDB3 IF ENTRY ALREADY EXISTS
06199 M00S05191.modval +++| ALLOC TAB1,C.TAB1
06200 M00S05192.modval +++| WDB3 SA1 F.TAB1
06201 M00S05193.modval +++| SA4 WDBA
06202 M00S05194.modval +++| SA5 RA2+1
06203 M00S05195.modval +++| BX6 X4
06204 M00S05196.modval +++| LX7 X5
06205 M00S05197.modval +++| SA6 B7+X1
06206 M00S05198.modval +++| SA7 A6+B1
06207 M00S05199.modval +++| SA4 B5+1
06208 M00S05200.modval +++| EQ WDB1 LOOP FOR NEXT USER
06209 M00S05201.modval +++|
06210 M00S05202.modval +++| WDB4 SA1 WDBB SET CURRENT AVAILABLE DATA RECORD
06211 M00S05203.modval +++| SA4 RA2+1
06212 M00S05204.modval +++| MX6 0
06213 M00S05205.modval +++| ZR X1,WDB5 IF FULL
06214 M00S05206.modval +++| BX6 X4
06215 M00S05207.modval +++| WDB5 SA1 DANA CHECK DELETE
06216 M00S05208.modval +++| NZ X1,WDB6 IF DELETE
06217 M00S05209.modval +++| SA6 RAND
06218 M00S05210.modval +++| WDB6 SA1 UF CHECK MODE
06219 M00S05211.modval +++| ZR X1,WDBX IF NOT UPDATE
06220 M00S05212.modval +++| SA0 TAB1 TABLE NUMBER
06221 M00S05213.modval +++| FUNC STBT SORT TABLE
06222 M00S05214.modval +++| SA1 L.TAB1 CHECK INDEX BLOCK LINKAGE
06223 M00S05215.modval +++| SX1 X1-ABLI-1
06224 M00S05216.modval +++| NG X1,WDB7 IF NO LINKAGE
06225 M00S05217.modval +++| SA1 DML1 * LEVEL-1 INDEX BLOCKS LINKED.*