Date Friday Jan 25, 1980 09:14:00 AM
Loaded from MAINT(294)
R09934DK: ./ I 307000 $ 307100 00001000
R09934DK: LINDON DS 0H @VA09934 00002000
R09934DK: TM RDEVTMCD,RDEVUSC8 IS IT ASCII TYPE ??? @VA09934 00003000
R09934DK: BZ NOTASC NO...BRANCH @VA09934 00004000
R09934DK: MVI VMTLDEL,BRACKET SET LINE DEL TO LEFT BRACKET @VA09934 00005000
R09934DK: B TONDONE @VA09934 00006000
R09934DK: ./ R 309000 $ 309100 00007000
R09934DK: NOTASC DS 0H @VA09934 00008000
R09934DK: MVC VMTLDEL(1),DMKSYSLD MOVE IN SYSTEM DEFAULT CHAR @VA09934 00009000
R09934DK: ./ I 522000 $ 522100 00010000
R09934DK: BRACKET EQU X'AD' LINE DEL CHARACTER FOR ASCII @VA09934 00011000
BEGIN APPLY >>> ./ I 307000 $ 307100 00001000
END APPLY >>> ./ I 307000 $ 307100 00001000
BEGIN APPLY >>> ./ R 309000 $ 309100 00007000
END APPLY >>> ./ R 309000 $ 309100 00007000
BEGIN APPLY >>> ./ I 522000 $ 522100 00010000
END APPLY >>> ./ I 522000 $ 522100 00010000
Update Succeeded
Update Execution Time 16 milliseconds.
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC101DK: ./ R 00069000 00070000 $ 69090 90 03/12/06 11:22:38
HRC101DK: * | | ATTN | HRC101DK 00069090
HRC101DK: * | | AUTOCR | HRC101DK 00069180
HRC101DK: * | | HILIGHT ON | HRC101DK 00069270
HRC101DK: * | | HOLD OFF | HRC101DK 00069360
HRC101DK: * | | MASK | HRC101DK 00069450
HRC101DK: ./ R 00071000 $ 71190 190 03/12/06 11:22:38
HRC101DK: * | | | HRC101DK 00071190
HRC101DK: * | | TIMESTMP ON|OFF | HRC101DK 00071380
HRC101DK: * | | TIMESTAMP ON|OFF | HRC101DK 00071570
HRC101DK: ./ I 00074000 $ 74300 300 03/12/06 11:22:38
HRC101DK: * | | MORE NNN NNN | HRC101DK 00074300
HRC101DK: * | | | HRC101DK 00074600
HRC101DK: ./ R 00221000 $ 221190 190 03/12/06 11:22:38
HRC101DK: TERMABRV EQU * HRC101DK 00221190
HRC101DK: SR R8,R8 HRC101DK 00221380
HRC101DK: IC R8,9(,R5) GET MINIMUM LENGTH HRC101DK 00221570
HRC101DK: ./ R 00236000 $ 236090 90 03/12/06 11:22:38
HRC101DK: DC C'AUTOCR ',H'2',AL2(AUTOCR-DMKCFT) HRC101DK 00236090
HRC101DK: DC C'HOLD ',H'2',AL2(HOLD-DMKCFT) HRC101DK 00236180
HRC101DK: DC C'MORE ',H'4',AL2(MORE-DMKCFT) HRC101DK 00236270
HRC101DK: DC C'TIMESTAMP',AL1(4),AL2(STAMP-DMKCFT) HRC101DK 00236360
HRC101DK: DC C'HILIGHT ',H'4',AL2(HIGHLITE-DMKCFT) HRC101DK 00236450
HRC101DK: DC C'CHARDEL ',H'2',AL2(CHARDEL-DMKCFT) HRC101DK 00236540
HRC101DK: ./ R 00244000 00245000 $ 244590 590 03/12/06 11:22:38
HRC101DK: DC C'MODE ',H'3',AL2(MODE-DMKCFT) HRC101DK 00244590
HRC101DK: TERMEND DC C'TIMESTMP',H'6',AL2(STAMP-DMKCFT) HRC101DK 00245180
HRC101DK: ./ I 00341760 $ 341762 2 03/12/06 11:22:38
HRC101DK: EJECT HRC101DK 00341762
HRC101DK: HIGHLITE EQU * HRC101DK 00341764
HRC101DK: LA R6,HILION RETURN FOR ON HRC101DK 00341766
HRC101DK: LA R7,HILIOFF SET UP FOR 'OFF' HRC101DK 00341768
HRC101DK: BAL R14,TSTONOFF GO CHECK ARGUMENT HRC101DK 00341770
HRC101DK: * HRC101DK 00341772
HRC101DK: * IF RETURN HERE - HAVE BAD ARGUMENT HRC101DK 00341774
HRC101DK: * HRC101DK 00341776
HRC101DK: B LOADARG2 G0 SEND ERROR MESSAGE HRC101DK 00341778
HRC101DK: SPACE , HRC101DK 00341780
HRC101DK: HILIOFF NI VMMLVL2,X'FF'-VMMHLITE SET FLAG OFF HRC101DK 00341782
HRC101DK: B TONDONE CONTINUE HRC101DK 00341784
HRC101DK: SPACE , HRC101DK 00341786
HRC101DK: HILION OI VMMLVL2,VMMHLITE FLAG FOR HILIGHT ON HRC101DK 00341788
HRC101DK: B TONDONE CONTINUE HRC101DK 00341790
HRC101DK: ./ R 00366000 $ 366020 20 03/12/06 11:22:38
HRC101DK: EJECT , HRC101DK 00366020
HRC101DK: MORE DS 0H HRC101DK 00366040
HRC101DK: ICM R2,B'0011',VMMORETM GET CURRENT VALUES HRC101DK 00366060
HRC101DK: CLI RDEVTYPC,CLASTERM ? HRC101DK 00366080
HRC101DK: BE CFT006 YES, ERROR HRC101DK 00366100
HRC101DK: LR R0,R4 HRC101DK 00366120
HRC101DK: LR R1,R5 HRC101DK 00366140
HRC101DK: CALL DMKCVTDB CONVERT TO BINARY HRC101DK 00366160
HRC101DK: BNZ LOADARG2 ....... HRC101DK 00366180
HRC101DK: CL R1,F255 <= 255 HRC101DK 00366200
HRC101DK: BH LOADARG2 ....... HRC101DK 00366220
HRC101DK: N R2,=X'000000FF' ZERO OUT OLD HRC101DK 00366240
HRC101DK: SLL R1,8 SHIFT INTO CORRECT POSITION HRC101DK 00366260
HRC101DK: OR R2,R1 INSERT IT HRC101DK 00366280
HRC101DK: CALL DMKSCNFD GET SECOND TIME VALUE HRC101DK 00366300
HRC101DK: LR R4,R0 HRC101DK 00366320
HRC101DK: LR R5,R1 HRC101DK 00366340
HRC101DK: CALL DMKCVTDB CONVERT TO BINARY HRC101DK 00366360
HRC101DK: BNZ LOADARG2 ....... HRC101DK 00366380
HRC101DK: CL R1,F255 <= 255 HRC101DK 00366400
HRC101DK: BH LOADARG2 ....... HRC101DK 00366420
HRC101DK: N R2,=X'0000FF00' ZERO OUT OLD HRC101DK 00366440
HRC101DK: OR R2,R1 INSERT IT HRC101DK 00366460
HRC101DK: STCM R2,B'0011',VMMORETM SAVE CURRENT VALUES HRC101DK 00366480
HRC101DK: B TONDONE HRC101DK 00366500
HRC101DK: EJECT , HRC101DK 00366520
HRC101DK: ./ R 00438000 00439000 $ 438040 40 03/12/06 11:22:38
HRC101DK: EJECT HRC101DK 00438030
HRC101DK: AUTOCR EQU * HRC101DK 00438060
HRC101DK: LA R6,AUTOON RETURN FOR ON HRC101DK 00438090
HRC101DK: LA R7,AUTOOFF SET UP FOR 'OFF' HRC101DK 00438120
HRC101DK: BAL R14,TSTONOFF GO CHECK ARGUMENT HRC101DK 00438150
HRC101DK: * HRC101DK 00438180
HRC101DK: * IF RETURN HERE - HAVE BAD ARGUMENT HRC101DK 00438210
HRC101DK: * HRC101DK 00438240
HRC101DK: B LOADARG2 G0 SEND ERROR MESSAGE HRC101DK 00438270
HRC101DK: SPACE , HRC101DK 00438300
HRC101DK: AUTOOFF NI VMMLVL2,X'FF'-VMMAUTCR SET FLAG OFF HRC101DK 00438330
HRC101DK: B TONDONE CONTINUE HRC101DK 00438360
HRC101DK: SPACE , HRC101DK 00438390
HRC101DK: AUTOON OI VMMLVL2,VMMAUTCR FLAG FOR AUTOCR ON HRC101DK 00438420
HRC101DK: B TONDONE CONTINUE HRC101DK 00438450
HRC101DK: EJECT HRC101DK 00438480
HRC101DK: HOLD EQU * HRC101DK 00438510
HRC101DK: LA R6,HOLDON RETURN FOR ON HRC101DK 00438540
HRC101DK: LA R7,HOLDOFF SET UP FOR 'OFF' HRC101DK 00438570
HRC101DK: BAL R14,TSTONOFF GO CHECK ARGUMENT HRC101DK 00438600
HRC101DK: * HRC101DK 00438630
HRC101DK: * IF RETURN HERE - HAVE BAD ARGUMENT HRC101DK 00438660
HRC101DK: * HRC101DK 00438690
HRC101DK: B LOADARG2 G0 SEND ERROR MESSAGE HRC101DK 00438720
HRC101DK: SPACE , HRC101DK 00438750
HRC101DK: HOLDON NI VMMLVL2,X'FF'-VMMNHOLD SET FLAG OFF HRC101DK 00438780
HRC101DK: B TONDONE CONTINUE HRC101DK 00438810
HRC101DK: SPACE , HRC101DK 00438840
HRC101DK: HOLDOFF OI VMMLVL2,VMMNHOLD FLAG FOR NO HOLD HRC101DK 00438870
HRC101DK: B TONDONE CONTINUE HRC101DK 00438900
HRC101DK: EJECT , HRC101DK 00438930
HRC101DK: STAMP EQU * HRC101DK 00439200
HRC101DK: LA R6,STMPON RETURN FOR ON HRC101DK 00439230
HRC101DK: ./ R 00442000 $ 442190 190 03/12/06 11:22:38
HRC101DK: * HRC101DK 00438630
HRC101DK: * IF RETURN HERE - HAVE BAD ARGUMENT HRC101DK 00438660
HRC101DK: * HRC101DK 00438690
HRC101DK: B LOADARG2 G0 SEND ERROR MESSAGE HRC101DK 00438720
BEGIN APPLY >>> ./ R 00069000 00070000 $ 69090 90 03/12/06 11:22:38
END APPLY >>> ./ R 00069000 00070000 $ 69090 90 03/12/06 11:22:38
BEGIN APPLY >>> ./ R 00071000 $ 71190 190 03/12/06 11:22:38
END APPLY >>> ./ R 00071000 $ 71190 190 03/12/06 11:22:38
BEGIN APPLY >>> ./ I 00074000 $ 74300 300 03/12/06 11:22:38
END APPLY >>> ./ I 00074000 $ 74300 300 03/12/06 11:22:38
BEGIN APPLY >>> ./ R 00221000 $ 221190 190 03/12/06 11:22:38
END APPLY >>> ./ R 00221000 $ 221190 190 03/12/06 11:22:38
BEGIN APPLY >>> ./ R 00236000 $ 236090 90 03/12/06 11:22:38
END APPLY >>> ./ R 00236000 $ 236090 90 03/12/06 11:22:38
BEGIN APPLY >>> ./ R 00244000 00245000 $ 244590 590 03/12/06 11:22:38
END APPLY >>> ./ R 00244000 00245000 $ 244590 590 03/12/06 11:22:38
BEGIN APPLY >>> ./ I 00341760 $ 341762 2 03/12/06 11:22:38
END APPLY >>> ./ I 00341760 $ 341762 2 03/12/06 11:22:38
BEGIN APPLY >>> ./ R 00366000 $ 366020 20 03/12/06 11:22:38
END APPLY >>> ./ R 00366000 $ 366020 20 03/12/06 11:22:38
BEGIN APPLY >>> ./ R 00438000 00439000 $ 438040 40 03/12/06 11:22:38
END APPLY >>> ./ R 00438000 00439000 $ 438040 40 03/12/06 11:22:38
BEGIN APPLY >>> ./ R 00442000 $ 442190 190 03/12/06 11:22:38
END APPLY >>> ./ R 00442000 $ 442190 190 03/12/06 11:22:38
Update Succeeded
Update Execution Time 31 milliseconds.