Date Wednesday Nov 04, 1981 01:36:00 PM
Loaded from MAINT(294)
R14280DK: ./ R 929000 $ 929000 500
R14280DK: L R15,PREFIXA POINT TO ABSOLUTE PSA @VA14280
R14280DK: MVC MICEVMA,PSAEVMA-PSA(R15) COPY EVMA CONTROLS @VA14280
BEGIN APPLY >>> ./ R 929000 $ 929000 500
END APPLY >>> ./ R 929000 $ 929000 500
Update Succeeded
Update Execution Time 8 milliseconds.
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC018DK: ./ I 00087000
HRC018DK: * | | PRIV CCCCCCC| 00087100
HRC018DK: ./ I 00428000
HRC018DK: B SETPRIV SET PRIV HRC018DK 00428100
HRC018DK: ./ I 00854000
HRC018DK: ***** 00854010
HRC018DK: * 00854020
HRC018DK: * SET PRIV C ON|OFF COMMAND 00854030
HRC018DK: * 00854040
HRC018DK: ***** 00854050
HRC018DK: SPACE 1 HRC018DK 00854060
HRC018DK: SETPRIV TM SAVEWRK1,NARGTWO CLASS SPECIFIED? HRC018DK 00854070
HRC018DK: BO CFS026 NO. HRC018DK 00854080
HRC018DK: LR R2,R0 SAVE ACROSS CALL TO SCNFD HRC018DK 00854090
HRC018DK: MVC SAVEWRK2(8),BLANKS INITIALIZE BLANK HRC018DK 00854100
HRC018DK: MVC SAVEWRK2(8),SAVEWRK5 SAVE CLASSES HERE HRC018DK 00854110
HRC018DK: MVC SAVEWRK5(8),BLANKS INITIALIZE BLANK HRC018DK 00854120
HRC018DK: CALL DMKSCNFD GET NEXT PARM HRC018DK 00854130
HRC018DK: BNZ CFS026 ERROR IF NONE GIVEN HRC018DK 00854140
HRC018DK: LR R4,R0 GET LENGTH IN GPR4 HRC018DK 00854150
HRC018DK: BCTR R4,0 DECREMENT FOR EXECUTE HRC018DK 00854160
HRC018DK: EX R4,MOVEARG2 ON|OFF TO SAVEWRK5 HRC018DK 00854170
HRC018DK: LA R1,SAVEWRK2 ADDR CLASS FOR GETCLASS ROUTINE HRC018DK 00854180
HRC018DK: LR R0,R2 AND LENGTH HRC018DK 00854190
HRC018DK: SR R7,R7 INDICATE ON|OFF ONLY HRC018DK 00854200
HRC018DK: LA R8,SETCLON HERE TO TURN ON HRC018DK 00854210
HRC018DK: BAL R10,TSTONOFF RETURN TO NEXT FOR TURN OFF HRC018DK 00854220
HRC018DK: SETCLOFF BAL R10,GETCLASS GO GET A CLASS HRC018DK 00854230
HRC018DK: X R3,F255 SET UP FOR AND HRC018DK 00854240
HRC018DK: EX R3,PRIVOFF TURN THIS ONE OFF HRC018DK 00854250
HRC018DK: BCT R0,SETCLOFF DO THEM ALL HRC018DK 00854260
HRC018DK: B SETCOMP DONE FOR NOW. HRC018DK 00854270
HRC018DK: SETCLON BAL R10,GETCLASS GO GET A CLASS HRC018DK 00854280
HRC018DK: EX R3,PRIVON TURN THIS ONE ON HRC018DK 00854290
HRC018DK: BCT R0,SETCLON DO ANOTHER HRC018DK 00854300
HRC018DK: B SETCOMP ALL DONE HRC018DK 00854310
HRC018DK: SPACE , HRC018DK 00854320
HRC018DK: GETCLASS SR R2,R2 GET THE PRIV CLASS HRC018DK 00854330
HRC018DK: IC R2,0(R1) GET A PRIV CLASS HRC018DK 00854340
HRC018DK: SH R2,=X'00C0' IS IT GT A X'C0'? HRC018DK 00854350
HRC018DK: BNP BADPRIV NO... HRC018DK 00854360
HRC018DK: CL R2,F8 IS IT GREATER THAN "H"? HRC018DK 00854370
HRC018DK: BH BADPRIV NO... HRC018DK 00854380
HRC018DK: L R3,F256 CONVERT TO CLASS CODE. HRC018DK 00854390
HRC018DK: SRL R3,0(R2) HRC018DK 00854400
HRC018DK: EX R3,TESTPRIV DOES USER REALLY HAVE THIS PRIV? HRC018DK 00854410
HRC018DK: BNO BADPRIV NO... SHOOT HIM DOWN. HRC018DK 00854420
HRC018DK: LA R1,1(,R1) POSSIBLE NEXT PARM HRC018DK 00854430
HRC018DK: BR R10 RETURN TO CALLER HRC018DK 00854440
HRC018DK: BADPRIV LA R1,0(,R1) ADDRESS BAD PRIV HRC018DK 00854450
HRC018DK: LA R0,1(,R0) RE-ADJUST LENGTH HRC018DK 00854460
HRC018DK: B CFS003 REMAINING CLASSES INVALID HRC018DK 00854470
HRC018DK: SPACE , HRC018DK 00854480
HRC018DK: PRIVON OI VMCLEVEL,X'00' EXECUTED OR HRC018DK 00854490
HRC018DK: PRIVOFF NI VMCLEVEL,X'00' EXECUTED AND HRC018DK 00854500
HRC018DK: TESTPRIV TM VMHRCPRV,X'00' EXECUTED TEST HRC018DK 00854510
HRC018DK: EJECT , HRC018DK 00854520
BEGIN APPLY >>> ./ I 00087000
***WARNING*** >>> Automatic Resequencing Suppressed
END APPLY >>> ./ I 00087000
BEGIN APPLY >>> ./ I 00428000
***WARNING*** >>> Automatic Resequencing Suppressed
END APPLY >>> ./ I 00428000
BEGIN APPLY >>> ./ I 00854000
***WARNING*** >>> Automatic Resequencing Suppressed
END APPLY >>> ./ I 00854000
Update Succeeded
Update Execution Time 31 milliseconds.
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC029DK: ./ R 00468000 $ 468490 490 02/13/06 16:09:54
HRC029DK: C R1,=F'24' CAN'T BE BIGGER THAN 24 HRC029DK 00468000
HRC029DK: ./ R 00476000 $ 476490 490 02/13/06 16:09:54
HRC029DK: LA R0,24 SIZE OF TABLE HRC029DK 00476000
HRC029DK: ./ R 00479000 $ 479490 490 02/13/06 16:09:54
HRC029DK: XC 0(24*8,R1),0(R1) CLEAR HRC029DK 00479000
HRC029DK: ./ R 00607000 $ 607490 490 02/13/06 16:09:54
HRC029DK: LA R0,24 12 ENTRIES IN TABLE HRC029DK 00607000
HRC029DK: ./ R 00614000 $ 614490 490 02/13/06 16:09:54
HRC029DK: LA R0,24 SIZE OF TABLE HRC029DK 00614000
BEGIN APPLY >>> ./ R 00468000 $ 468490 490 02/13/06 16:09:54
END APPLY >>> ./ R 00468000 $ 468490 490 02/13/06 16:09:54
BEGIN APPLY >>> ./ R 00476000 $ 476490 490 02/13/06 16:09:54
END APPLY >>> ./ R 00476000 $ 476490 490 02/13/06 16:09:54
BEGIN APPLY >>> ./ R 00479000 $ 479490 490 02/13/06 16:09:54
END APPLY >>> ./ R 00479000 $ 479490 490 02/13/06 16:09:54
BEGIN APPLY >>> ./ R 00607000 $ 607490 490 02/13/06 16:09:54
END APPLY >>> ./ R 00607000 $ 607490 490 02/13/06 16:09:54
BEGIN APPLY >>> ./ R 00614000 $ 614490 490 02/13/06 16:09:54
END APPLY >>> ./ R 00614000 $ 614490 490 02/13/06 16:09:54
Update Succeeded
Update Execution Time 23 milliseconds.