cdc:nos2.source:opl.opl871:deck:modval.003
Deck MODVAL Part 003
60 Modifications
Listing Sections
- Deck MODVAL Start
- Deck MODVAL Part 1 (Line 1332)
- Deck MODVAL Part 2 (Line 2833)
- Deck MODVAL Part 3 (Line 4452)
- Deck MODVAL Part 4 (Line 6271)
- Deck MODVAL Part 5 (Line 8150)
- Deck MODVAL Part 6 (Line 9559)
Source
Seq # *Modification Id* Act ----------------------------+
| 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
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 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*. 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
Figure
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 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.* 06226 M00S05218.modval +++| ZR X1,WDB7 IF ALREADY DISPLAYED 06227 M00S05219.modval +++| MESSAGE A1,3,R ISSUE MESSAGE 06228 M00S05220.modval +++| SX6 B0+ 06229 M00S05221.modval +++| SA6 DML1 06230 M00S05222.modval +++| WDB7 R= A0,TAB1 WRITE TABLE 06231 M00S05223.modval +++| MX0 0 06232 M00S05224.modval +++| SX5 N 06233 M00S05225.modval +++| FUNC WTBT 06234 M00S05226.modval +++| EQ WDB9 CLEAR RANDOM ADDRESS AND EXIT 06235 M00S05227.modval +++| 06236 M00S05228.modval +++| 06237 M00S05229.modval +++| WDBA BSS 1 USER TO UPDATE 06238 M00S05230.modval +++| 06239 M00S05231.modval +++| WDBB CON 0 AVAILABLE DATA BLOCK FLAG 06240 M00S05232.modval +++| TITLE SOURCE CONVERSION SUBROUTINES. 06241 M00S05233.modval +++| ADP SPACE 4,10 06242 M00S05234.modval +++|** ADP - ADD PARENS. 06243 M00S05235.modval +++|* 06244 M00S05236.modval +++|* ENTRY (X6) = 6 CHARACTERS, RIGHT-JUSTIFIED, TO BE 06245 M00S05237.modval +++|* ENCLOSED BY PARENS. 06246 M00S05238.modval +++|* 06247 M00S05239.modval +++|* EXIT (X7) = 6 CHARACTERS ENCLOSED BY PARENS. 06248 M00S05240.modval +++|* 06249 M00S05241.modval +++|* USES X - 1, 2, 7. 06250 M00S05242.modval +++|* A - 1. 06251 M00S05243.modval +++| 06252 M00S05244.modval +++| 06253 M00S05245.modval +++| ADP SUBR ENTRY/EXIT 06254 M00S05246.modval +++| BX2 X6 06255 M00S05247.modval +++| LX2 24 06256 M00S05248.modval +++| MX1 36 06257 M00S05249.modval +++| BX2 X1*X2 ISOLATE UPPER 6 CHARACTERS 06258 M00S05250.modval +++| SA1 =4R) ( 06259 M00S05251.modval +++| BX7 X1+X2 ADD PARENS 06260 M00S05252.modval +++| LX7 42 REPOSITION CHARACTERS 06261 M00S05253.modval +++| EQ ADPX RETURN 06262 M00S05254.modval +++| AOC SPACE 4,10 06263 M00S05255.modval +++|** AOC - ALTERNATE OCTAL CONVERSION. 06264 M00S05256.modval +++|* 06265 M00S05257.modval +++|* ENTRY (A0) = ADDRESS OF *TFR* ENTRY FIRST WORD. 06266 M00S05258.modval +++|* (X1) = DATA FIELD RIGHT JUSTIFIED. 06267 M00S05259.modval +++|* 06268 M00S05260.modval +++|* EXIT (X6) = FIRST WORD OF CONVERTED NUMBER. 06269 M00S05261.modval +++|* (X7) = SECOND WORD OF CONVERTED NUMBER. 06270 M00S05262.modval +++|*
Proceed to Part 4
cdc/nos2.source/opl.opl871/deck/modval.003.txt · Last modified: by 127.0.0.1