ibm:vm370-lib:macro:dmsabn.macro_hst
Table of Contents
DMSABN History
References
- Fixes Applied : 11
- Latest Source Date : Saturday, December 9, 1978
- Last Fix ID : [HRC015DS]
Update History
CMS File Input : DMSABN MACRO
Date : 12/9/1978 4:28:00 AM
VM Context : MAINT(393)
File Name : DMSABN.MACRO.Z1.txt
Modified : 1/16/2021 7:31:30 AM
Created : 1/16/2021 7:31:30 AM
Update Order
- R08985DS 601 DMSABN SHOULD TURN OFF THE MODFLAGS IN A HX COMMAND
- R09234DS 602 MSDMSABN150W STORAGE LOST WHEN HX OF VSAM JOB
- R10071DS 604 CMS SUPPORT FOR IPCS EXTENSION PP
- R10359DS 608 DMSABN INCORRECTLY ISSUES SVC INSTEAD OF BALR
- R11938DS 617 UV02343 DMSABN SHOULD COUNT FOR LDRTBLS IN CALOC ROUTINE
- R12058DS 618 UV02814 FORCE REASSEMBLE DUE TO CHANGE IN SUBSECT MACRO
- R11336DS 618 UV02357 VMCF NOT DISABLED AFTER ABEND OR HX
- R13114DS 620 UV04217 DMSABN DISABLE WAIT ON 16M MACHINE IF 'HX' IS USED
- R14612DS 625 UV05724 DMSABN LOAD CORRECT COMMAND LENGTH
- HRC009DS V01 IMPLEMENT SUPPORT FOR SET ABEND COMMAND
- HRC015DS H40 Replace hardcoded constants in STATEFST with symbolic offsets
R08985DS
Date Monday Jan 29, 1979 11:26:00 AM
Loaded from MAINT(193)
R08985DS: ./ I 362000 $ 362100 100
R08985DS: * ZERO OUT MOD5 IN MODFLGS FOR THE USE OF DMSMOD (LOADMOD)
R08985DS: NI MODFLGS,X'FF'-MDPCALL NO LOAD MAP @VA08985
BEGIN APPLY >>> ./ I 362000 $ 362100 100
VMFApply WARNING - Error 0x80040009 Source Update2/Insert Description Requested Sequence Number (00362000) not found.
Loaded Update: DMSABN R09234DS 4/20/1979 4:19:00 AM from MAINT(193)
R09234DS: ./ R 384200 $ 384200
R09234DS: CON175 EQU 175 $$B (LTA) SIZE @VA09234
R09234DS: ./ R 406450 $ 406450
R09234DS: LA R1,CON175 $$B (LTA) SIZE @VA09234
BEGIN APPLY >>> ./ R 384200 $ 384200
VMFApply WARNING - Error 0x80040012 Source Update2/Replace Description Requested Sequence Number (00384200) not found.
Loaded Update: DMSABN R10071DS 7/6/1979 3:52:00 PM from MAINT(193)
R10071DS: ./ I 00236500 $ 236700 200
R10071DS: BAL RR,CONSAVE SAVE LAST CONSOLE MSG FOR IPCS @V67CBE4 00236700
R10071DS: ./ I 00288000 $ 288005 5
R10071DS: BAL RR,CONSAVE SAVE LAST CONSOLE MSG FOR IPCS @V67CBE4 00288005
R10071DS: ./ I 00318500 $ 318515 15
R10071DS: CLC CMNDLINE(3),DUMPPARM VMDUMP COMMAND? @V67CBE4 00318520
R10071DS: BE TAKEDMP GO SCHEDULE THE DUMP CALL @V67CBE4 00318540
R10071DS: CLC CMNDLINE(2),CPPARM MAY BE VMDUMP PREFACED @V67CBE4 00318560
R10071DS: BNE CLRSAVE IF NOT GO CLEAR SAVED MESSAGE AREA @V67CBE4 00318580
R10071DS: LA R7,CMNDLINE+1 BETTER LOOK AT NEXT FIELD @V67CBE4 00318600
R10071DS: VMDLOOP EQU * @V67CBE4
R10071DS: LA R7,1(R7) INCREMENT COMMAND LINE POINTER @V67CBE4 00318620
R10071DS: CLI 0(R7),C' ' AT NEXT FIELD @V67CBE4 00318640
R10071DS: BNE VMDLOOP NO--LOOK AT NEXT CHARACTER @V67CBE4 00318660
R10071DS: CLC 0(3,R7),DUMPPARM VMDUMP COMMAND? @V67CBE4 00318680
R10071DS: BNE CLRSAVE SKIP CP DIAGNOSE IF NOT @V67CBE4 00318700
R10071DS: SPACE 1 @V67CBE4 00318720
R10071DS: * BUILD DIAGNOSE INTERFACE AND PASS VMDUMP COMMAND TO CP @V67CBE4 00318740
R10071DS: TAKEDMP EQU * @V67CBE4
R10071DS: L R1,AOPSECT POINT TO OPSECT @V67CBE4 00318760
R10071DS: USING OPSECT,R1 @V67CBE4 00318780
R10071DS: LH R7,CONRDCNT PICK UP COMMAND LENGTH @V67CBE4 00318800
R10071DS: DROP R1 @V67CBE4 00318820
R10071DS: LA R1,CMNDLINE POINT TO COMMAND @V67CBE4 00318840
R10071DS: DC X'83120008' PASS COMMAND TO CP VIA DIAGNOSE @V67CBE4 00318860
R10071DS: B TCMS LETS GET NEXT USER INPUT LINE @V67CBE4 00318880
R10071DS: CLRSAVE EQU * @V67CBE4
R10071DS: MVI ABNCMSG,C' ' CLEAR IPCS MSG SAVE AREA @V67CBE4 00318900
R10071DS: MVC ABNCMSG+1(95),ABNCMSG @V67CBE4 00318920
R10071DS: ./ R 592100 592300 $ 592015 15
R10071DS: * SAVE LAST CONSOLE MSG LINE IN ABWSECT FOR SUBSEQUENT ANALYSIS@V67CBE4 00592101
R10071DS: * BY IPCS IN THE EVENT A VMDUMP IS SCHEDULED--FIRST BYTE OF @V67CBE4 00592102
R10071DS: * SAVE AREA IS MSG LENGTH-REMAINDER IS MSG UP TO 95 CHARS @V67CBE4 00592103
R10071DS: CONSAVE EQU * @V67CBE4 00592104
R10071DS: SR R6,R6 CLEAR WORKING REGISTER @V67CBE4 00592105
R10071DS: TM CONSTACK,LONGOP CONSOLE MSG LINE IN LONG BUFR @V67CBE4 00592106
R10071DS: BO LONGMSG YES-HANDLE IT FROM THERE @V67CBE4 00592107
R10071DS: ICM R6,B'0001',CONSTACK+1 SHORT MSG-PICK UP LENGTH @V67CBE4 00592108
R10071DS: CH R6,MAXLEN LENGTH EXCEED MAX ALLOWED @V67CBE4 00592109
R10071DS: BNH EXMOVE1 NO--SO DON'T TRUNCATE @V67CBE4 00592110
R10071DS: LH R6,MAXLEN YES-TRUNCATE TO MAX ALLOWED @V67CBE4 00592111
R10071DS: EXMOVE1 EQU * @V67CBE4 00592112
R10071DS: STCM R6,B'0001',ABNCMSG STORE MSG LENGTH IN SAVE FLD @V67CBE4 00592113
R10071DS: BCT R6,*+4 DECREMENT FOR EXECUTE MOVE @V67CBE4 00592114
R10071DS: EX R6,MOVESHOR EXECUTE MOVE INST TO SAVE MSG @V67CBE4 00592115
R10071DS: B CONEXIT NOW LETS EXIT FROM SUBROUTINE @V67CBE4 00592116
R10071DS: * SINCE CONSOLE MSG LINE IS IN LONG MSG BUFFER WE MUST NOW @V67CBE4 00592117
R10071DS: * LOCATE LAST MSG LINE AND SAVE IT FOR IPCS @V67CBE4 00592118
R10071DS: LONGMSG EQU * @V67CBE4 00592119
R10071DS: SR R7,R7 CLEAR WORKING REGISTER @V67CBE4 00592120
R10071DS: ICM R6,B'0111',CONSTACK+1 GET LONG MSG BUFFER ADDR @V67CBE4 00592121
R10071DS: ICM R7,B'0011',CONSTACK+4 GET BUFFER LENGTH @V67CBE4 00592122
R10071DS: AR R7,R6 POINT TO END OF LAST LINE +1 BYTE @V67CBE4 00592123
R10071DS: BCT R7,*+4 DECREMENT POINTER TO END OF LINE CHAR@V67CBE4 00592124
R10071DS: CLI 0(R7),EOL TEST IF END OF LINE CHAR @V67CBE4 00592125
R10071DS: BNE CONEXIT LEAVE(BETTER TO SAVE NOTHING) @V67CBE4 00592126
R10071DS: LR R8,R7 SET SCAN POINTER @V67CBE4 00592127
R10071DS: EOLSCAN EQU * SCAN TO BEGINNING OF LINE @V67CBE4 00592128
R10071DS: BCT R8,*+4 DECREMENT SCAN POINTER @V67CBE4 00592129
R10071DS: CLI 0(R8),EOL AT PRECEDING END OF LINE CHAR@V67CBE4 00592130
R10071DS: BE GETLEN YES-SCAN OVER @V67CBE4 00592131
R10071DS: CR R8,R6 MAYBE WE'RE AT START OF LONG BUFFER@V67CBE4 00592132
R10071DS: BNE EOLSCAN IF NOT CONTINUE SCANNING @V67CBE4 00592133
R10071DS: BCT R8,GETLEN NOW DECREMENT SCAN PTR TO GET LENGTH@V67CBE4 00592134
R10071DS: GETLEN EQU * @V67CBE4 00592135
R10071DS: SR R7,R8 COMPUTE CONSOLE MSG LINE LENGTH @V67CBE4 00592136
R10071DS: LA R8,1(R8) GET BEGINNING OF CONSOLE MSG LINE @V67CBE4 00592137
R10071DS: CH R7,MAXLEN EXCEED MAX MSG LINE ALLOWED @V67CBE4 00592138
R10071DS: BNH EXMOVE2 NO-OK TO SAVE FULL LENGTH @V67CBE4 00592139
R10071DS: LH R7,MAXLEN EXCEEDS MAX-THEREFORE TRUNCATE TO MAX@V67CBE4 00592140
R10071DS: EXMOVE2 EQU * @V67CBE4 00592141
R10071DS: STCM R7,B'0001',ABNCMSG STORE LENGTH IN SAVE FIELD @V67CBE4 00592142
R10071DS: BCT R7,*+4 DECREMENT FOR EXECUTE MOVE INST @V67CBE4 00592143
R10071DS: EX R7,MOVELONG SAVE LAST CONSOLE MSG LINE @V67CBE4 00592144
R10071DS: CONEXIT EQU * EXIT FOR CONSOLE MSG SAVE SUBROUTINE @V67CBE4 00592145
R10071DS: BR RR RETURN TO INTERNAL CALLER @V67CBE4 00592146
R10071DS: DS 0H @V67CBE4 00592147
R10071DS: MOVESHOR MVC ABNCMSG+1(*-*),CONSTACK+2 SAVE SHORT CONSOLE MSG@V67CBE4 00592148
R10071DS: MOVELONG MVC ABNCMSG+1(*-*),0(R8) SAVE LONG CONSOLE MSG LINE@V67CBE4 00592149
R10071DS: DS 0H @V67CBE4 00592150
R10071DS: MAXLEN DC H'95' MAX CONSOLE MSG LINE SAVE LENGTH @V67CBE4 00592151
R10071DS: DUMPPARM DC C'VMD' VMDUMP COMMAND PARM @V67CBE4 00592152
R10071DS: CPPARM DC C'CP' @V67CBE4 00592153
R10071DS: EOL EQU X'15' CONSOLE MSG END OF LINE CHAR @V67CBE4 00592154
R10071DS: LONGOP EQU X'10' MASK FOR LONG MSG INDICATOR @V67CBE4 00592155
R10071DS: USERKEY DC X'E0' USER STORAGE KEY @V67CBE4
BEGIN APPLY >>> ./ I 00236500 $ 236700 200
VMFApply WARNING - Error 0x80040009 Source Update2/Insert Description Requested Sequence Number (00236500) not found.
Loaded Update: DMSABN R10359DS 12/28/1979 12:18:00 PM from MAINT(193)
R10359DS: ./ R 343000 344000 $ 343000 1000
R10359DS: L R15,AFINIS POINT TO FINIS ROUTINE @VA10359
R10359DS: BAL RR,NUCCALL CLOSE ALL FILE AND UPDATE DIRECT @VA10359
BEGIN APPLY >>> ./ R 343000 344000 $ 343000 1000
VMFApply WARNING - Error 0x80040012 Source Update2/Replace Description Requested Sequence Number (00343000) not found.
Loaded Update: DMSABN R11938DS 11/13/1980 11:13:00 AM from MAINT(193)
R11938DS: ./ R 00421000 $ 421000 40 09/23/80 20:48:09
R11938DS: SPACE 1 @VA11938 00421000
R11938DS: * COME HERE TO CHECK IF THE DEFAULT LOADER TABLES HAVE CHANGED.@VA11938 00421040
R11938DS: * IF THEY HAVE, THE STORAGE OCCUPIED BY THEM SHOULD BE TAKEN @VA11938 00421080
R11938DS: * INTO CONSIDERATION. @VA11938 00421120
R11938DS: SPACE 1 @VA11938 00421160
R11938DS: SR R1,R1 CLEAR A REGISTER, @VA11938 00421200
R11938DS: ICM R1,B'0111',ALDRTBLS+1 GET ADDRESS OF TABLES @VA11938 00421240
R11938DS: C R1,VMSIZE ARE WE AT THE TOP.? @VA11938 00421280
R11938DS: BE DOCALOC NOTHING TO DO,GOTO FREE @VA11938 00421320
R11938DS: L XR,F8192 ASSUME 2 PAGES OF TABLES@VA11938 00421360
R11938DS: L R1,VMSIZE GET VMSIZE IN BYTES @VA11938 00421400
R11938DS: C R1,MINSIZE IS IT A "LARGE MACHINE"?@VA11938 00421440
R11938DS: BNH JUST2 IF NOT WE HAD 2 PAGES @VA11938 00421480
R11938DS: AH XR,H4096 ELSE WE HAD 3 AT IPL @VA11938 00421520
R11938DS: JUST2 DS 0H @VA11938 00421560
R11938DS: SR R1,R1 CLEAR A REGISTER, @VA11938 00421200
R11938DS: IC R1,ALDRTBLS GET CURRENT NO. OF TABLS@VA11938 00421600
R11938DS: SLL R1,12 TIMES X'1000' FOR PAGES @VA11938 00421640
R11938DS: AR R1,XR GET TOTAL NO.TO SUBTRACT@VA11938 00421680
R11938DS: SRL R1,3 INTO DOUBLEWORDS @VA11938 00421720
R11938DS: AR SUM,R1 ACCOUNT FOR IT @VA11938 00421760
R11938DS: EJECT @VA11938 00421800
R11938DS: * @VA11938 00421840
R11938DS: ./ I 00424000 $ 424300 300 09/23/80 20:48:09
R11938DS: * @VA11938 00424300
R11938DS: DOCALOC DS 0H @VA11938 00424600
R11938DS: ./ I 00593000 $ 593200 200 09/23/80 20:48:09
R11938DS: H4096 DC H'4096' PAGE SIZE AS HALFWORD @VA11938 00592988
R11938DS: F8192 DC A(8192) STANDARD LOADER TABLE ALLOCATION @VA11938*00592991
R11938DS: FOR MACHINE LESS THAN 384K @VA11938 00592994
R11938DS: MINSIZE DC A(393216) MINIMUM CMS MACHINE ... 384K ... @VA11938 00592997
BEGIN APPLY >>> ./ R 00421000 $ 421000 40 09/23/80 20:48:09
VMFApply WARNING - Error 0x80040012 Source Update2/Replace Description Requested Sequence Number (00421000) not found.
Loaded Update: DMSABN R12058DS 12/16/1980 12:15:00 PM from MAINT(193)
R12058DS: ./ * FORCE REASSEMBLE DUE TO CHANGE IN SUBSECT MACRO
BEGIN APPLY >>> ./ * FORCE REASSEMBLE DUE TO CHANGE IN SUBSECT MACRO
Comment >>> ./ * FORCE REASSEMBLE DUE TO CHANGE IN SUBSECT MACRO
END APPLY >>> ./ * FORCE REASSEMBLE DUE TO CHANGE IN SUBSECT MACRO
Update Succeeded
Update Execution Time 8 milliseconds.
R11336DS
Date Tuesday Dec 16, 1980 12:15:00 PM
Loaded from MAINT(193)
R11336DS: ./ R 338000 339000 $ 338000 100
R11336DS: SPACE 1
R11336DS: * FIRST, WE DE-AUTHORIZE VMCF
R11336DS: STCTL C0,C0,ABNRR TURN OFF VMCF ENABLE BIT-- @VA11336
R11336DS: NI ABNRR+3,X'FE' BIT 31 IN CONTROL REG 0 @VA11336
R11336DS: LCTL C0,C0,ABNRR @VA11336
R11336DS: LA R1,ABNERLST+7 SET UP VMCF PARM BLOCK @VA11336
R11336DS: SRL R1,3 MUST BE ON A DBLWORD BDY @VA11336
R11336DS: SLL R1,3 @VA11336
R11336DS: XC 0(40,R1),0(R1) ZERO IT OUT @VA11336
R11336DS: MVI 3(R1),X'01' DEAUTHORIZE SUBFUNCTION @VA11336
R11336DS: DC X'83120068' DIAGNOSE TO CALL VMCF @VA11336
R11336DS: SPACE 1
R11336DS: * NEXT, WE RE-INITIALIZE THE SVC HANDLER, SO THAT WE CAN CALL SVCS
BEGIN APPLY >>> ./ R 338000 339000 $ 338000 100
VMFApply WARNING - Error 0x80040012 Source Update2/Replace Description Requested Sequence Number (00338000) not found.
Loaded Update: DMSABN R13114DS 5/8/1981 4:15:00 AM from MAINT(193)
R13114DS: ./ R 00407000 $ 407000 1000 04/01/81 10:25:26
R13114DS: EJECT @VA13114 00407000
R13114DS: ./ R 00421200 00421280 $ 421200 100 04/01/81 10:25:26
R13114DS: CLC ALDRTBLS+1(3),VMSIZE+1 ARE WE AT THE TOP.? @VA13114 05992800
BEGIN APPLY >>> ./ R 00407000 $ 407000 1000 04/01/81 10:25:26
VMFApply WARNING - Error 0x80040012 Source Update2/Replace Description Requested Sequence Number (00407000) not found.
Loaded Update: DMSABN R14612DS 11/10/1981 4:00:00 PM from MAINT(193)
R14612DS: ./ R 00318755 $ 0318755 10 11/06/81 10:14:48
R14612DS: XR R2,R2 CLEAR FOR INSERT @VA14612
R14612DS: ICM R2,B'0011',CONRDCNT PICK UP COMMAND LENGTH @VA14612
BEGIN APPLY >>> ./ R 00318755 $ 0318755 10 11/06/81 10:14:48
VMFApply WARNING - Error 0x80040012 Source Update2/Replace Description Requested Sequence Number (00318755) not found.
Loaded Update: DMSABN HRC009DS 2/10/2006 11:02:00 AM from MAINT(093)
HRC009DS: ./ I 00307000 $ 307200 200 02/10/06 10:46:03
HRC009DS: L R1,ABNCOMND ADDR ABEND COMMAND HRC009DS
HRC009DS: LTR R1,R1 ANYTHIN THERE? HRC009DS
HRC009DS: BNZ TCMS1 YES, DONT TYPE THIS GARBAGE THEN HRC009DS
HRC009DS: ./ I 00308000 $ 308500 500 02/10/06 10:46:03
HRC009DS: TCMS1 EQU * HRC009DS
HRC009DS: ./ I 00309800 $ 309810 10 02/10/06 10:46:03
HRC009DS: L R1,ABNCOMND ADDR ABEND COMMAND HRC009DS
HRC009DS: LTR R1,R1 SOMETHIN THERE HRC009DS
HRC009DS: BZ READSTK NO, DON'T STACK ABEND COMMAND HRC009DS
HRC009DS: MVC ABNPAS13(16),ATTNLIST A SKELETON PLIST HRC009DS
HRC009DS: MVC ABNPAS13+12,0(R1) LENGTH TO PLIST HRC009DS
HRC009DS: LA R1,1(,R1) BUMP PAST LENGTH HRC009DS
HRC009DS: STCM R1,B'0111',ABNPAS13+13 ADDRESS TO BUFFER HRC009DS
HRC009DS: LA R1,ABNPAS13 ADDR PLIST HRC009DS
HRC009DS: L R15,=V(DMSCAT) ADDR STACK ROUTINE HRC009DS
HRC009DS: BAL RR,NUCCALL CALL STACK HRC009DS
HRC009DS: L R1,ABNCOMND ADDR BUFFER AGAIN HRC009DS
HRC009DS: LA R0,17 NUMBER OF DWORDS HRC009DS
HRC009DS: DMSFRET DWORDS=(0),LOC=(1),TYPCALL=BALR HRC009DS
HRC009DS: ST R15,ABNCOMND CKEAR IT NOW HRC009DS
HRC009DS: READSTK EQU * HRC009DS
BEGIN APPLY >>> ./ I 00307000 $ 307200 200 02/10/06 10:46:03
VMFApply WARNING - Error 0x80040009 Source Update2/Insert Description Requested Sequence Number (00307000) not found.
Loaded Update: DMSABN HRC015DS 3/11/2018 6:54:00 PM from MAINT(093)
HRC015DS: ./ R 00351400 $ 00351410 10
HRC015DS: LA R0,STFSTSDW Free STATEFST doubleword size HRC015DS
BEGIN APPLY >>> ./ R 00351400 $ 00351410 10
VMFApply WARNING - Error 0x80040012 Source Update2/Replace Description Requested Sequence Number (00351400) not found.
Output Written to 'C:\Users\sjzop\AppData\Local\Temp\dmsabn.macro.maint(393).latest.txt'
>>>>> VMFApply COMPLETE - Execution Time 148 milliseconds.
ibm/vm370-lib/macro/dmsabn.macro_hst.txt · Last modified: 2023/08/06 13:38 by Site Administrator