ibm:vm370-lib:cp:dmkwrm.assemble_hst
Table of Contents
DMKWRM History
References
- Fixes Applied : 8
- Latest Source Date : Saturday, December 9, 1978
- Last Fix ID : [HRC075DK]
Update History
CMS File Input : DMKWRM ASSEMBLE
Date : 12/9/1978 4:56:00 AM
VM Context : MAINT(394)
File Name : DMKWRM.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:48 AM
Created : 1/16/2021 7:31:48 AM
Update Order
- R09296DK 601 REASSEMBLE FOR V09296
- R09957DK - CORRECT IOBLOK CONFLICT IN MSS SUPPORT
- R11687DK 616 UV02118 MISSING ACTIVE SPOOL FILES AFTER CHKPT RESTART
- R12228DK 617 UV03026 SPOOL FILE IS INCOMPATIBLE BETWEEN R060 AND VM/SP
- HRC028DK V01 MAKE STARTUP MESSAGE MORE READABLE
- HRC032DK V01 ASK FOR CKPT RESTART IF WARM FAILS
- HRC106DK H40 SYSOWN support for 3375 & 3380 dasd
- HRC075DK V01 Alternate nucleus support
R09296DK
Date Monday Jan 29, 1979 02:39:00 PM
Loaded from MAINT(294)
R09296DK: ./ * REASSEMBLE FOR V09296 00001000
BEGIN APPLY >>> ./ * REASSEMBLE FOR V09296 00001000
Comment >>> ./ * REASSEMBLE FOR V09296 00001000
END APPLY >>> ./ * REASSEMBLE FOR V09296 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
R09957DK
Date Thursday Jul 12, 1979 09:55:00 AM
Loaded from MAINT(294)
R09957DK: ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
BEGIN APPLY >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
Comment >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
END APPLY >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
Update Succeeded
Update Execution Time 16 milliseconds.
R11687DK
Date Monday Oct 06, 1980 09:26:00 AM
Loaded from MAINT(294)
R11687DK: ./ I 160000 $ 160250 250 00001000
R11687DK: EXTRN DMKRIODV,DMKRIOPR,DMKRIOPU @VA11687 00002000
R11687DK: ./ R 666100 666100 $ 666100 50 00003000
R11687DK: BE CKPTRDVS IF SO,CKPT SFBLOKS CHAINED TO @VA11687 00004000
R11687DK: * RDEVBLOK 00005000
R11687DK: ./ I 666900 $ 666903 3 00006000
R11687DK: SPACE 3 00007000
R11687DK: * 00008000
R11687DK: * THE NEXT SECTION OF CODE CHECKPOINTS SFBLOKS WHICH 00009000
R11687DK: * WERE HUNG OFF OF RDEVBLOKS.FAILURE TO DO THIS COULD 00010000
R11687DK: * RESULT IN TWO FILES HAVING THE SAME SPOOL FILE ID AND 00011000
R11687DK: * COULD LEAD TO THE LOSS OF ONE OF THEM DURING A 00012000
R11687DK: * CHECKPOINT START. 00013000
R11687DK: * 00014000
R11687DK: CKPTRDVS EQU * @VA11687 00015000
R11687DK: LA R3,RDVANCHR ADDRESS OF FIRST RDEV LIST @VA11687 00016000
R11687DK: RDVCHNLP EQU * @VA11687 00017000
R11687DK: SLR R2,R2 SET PARM REG FOR THAT TYPE @VA11687 00018000
R11687DK: IC R2,0(,R3) OF DEVICE @VA11687 00019000
R11687DK: SLR R4,R4 POINT TO FIRST LIST ENTRY @VA11687 00020000
R11687DK: ICM R4,7,1(R3) @VA11687 00021000
R11687DK: ICM R5,15,0(R4) COUNT OF ENTRIES IS FIRST @VA11687 00022000
R11687DK: BZ ENDRDVCH NEXT LIST IF THIS ONE EMPTY @VA11687 00023000
R11687DK: NEXTRDV EQU * @VA11687 00024000
R11687DK: LA R4,4(,R4) ADDRESS OF NEXT LIST ENTRY @VA11687 00025000
R11687DK: SLR R8,R8 LOCATE ASSOCIATED RDEVBLOK @VA11687 00026000
R11687DK: ICM R8,3,0(R4) @VA11687 00027000
R11687DK: SLL R8,3 @VA11687 00028000
R11687DK: AL R8,=A(DMKRIODV) @VA11687 00029000
R11687DK: ICM R7,15,RDEVSPL ADDRESS OF ACTIVE SFBLOK (IF ANY)@VA11687 00030000
R11687DK: BZ ENDRDV NOTHING TO CHECKPOINT @VA11687 00031000
R11687DK: CALL DMKCKSPL CHKPT SFBLOK ON THIS RDEVBLOK @VA11687 00032000
R11687DK: ENDRDV EQU * @VA11687 00034000
R11687DK: BCT R5,NEXTRDV NEXT RDEVBLOK ON THE LIST @VA11687 00035000
R11687DK: ENDRDVCH EQU * @VA11687 00036000
R11687DK: LA R3,4(,R3) ADDRESS OF NEXT LIST @VA11687 00037000
R11687DK: CLC 0(4,R3),F0 END MARKER ? @VA11687 00038000
R11687DK: BNE RDVCHNLP NO...PROCESS NEW LIST @VA11687 00039000
R11687DK: SPACE 3 00040000
R11687DK: ./ I 861700 $ 861705 5
R11687DK: SPACE 2
R11687DK: RDVANCHR DS 0F @VA11687 00041000
R11687DK: DC AL1(ADDSFB+ACTSFB+PRTCHN),AL3(DMKRIOPR) @VA11687 00042000
R11687DK: DC AL1(ADDSFB+ACTSFB+PCHCHN),AL3(DMKRIOPU) @VA11687 00043000
R11687DK: DC A(0) END OF LIST @VA11687 00044000
BEGIN APPLY >>> ./ I 160000 $ 160250 250 00001000
END APPLY >>> ./ I 160000 $ 160250 250 00001000
BEGIN APPLY >>> ./ R 666100 666100 $ 666100 50 00003000
END APPLY >>> ./ R 666100 666100 $ 666100 50 00003000
BEGIN APPLY >>> ./ I 666900 $ 666903 3 00006000
END APPLY >>> ./ I 666900 $ 666903 3 00006000
BEGIN APPLY >>> ./ I 861700 $ 861705 5
END APPLY >>> ./ I 861700 $ 861705 5
Update Succeeded
Update Execution Time 8 milliseconds.
R12228DK
Date Friday Nov 21, 1980 02:26:00 PM
Loaded from MAINT(294)
R12228DK: ./ R 00220000 00222000 $ 220000 1000 10/22/80 09:34:54
R12228DK: * +--------+--------+--------+--------+---------+--------+ @VA12228 00220000
R12228DK: * | 4X'FF' | 4X'FF' | HASH | REC NO | VERSION | FFS....| @VA12228 00221000
R12228DK: * +--------+--------+--------+--------+---------+--------+ @VA12228 00222000
R12228DK: ./ I 00226000 $ 226500 500 10/22/80 09:34:54
R12228DK: MVC WRMVER,WRMVERD(R9) COPY VERSION CODE FOR DATA @VA12228 00226500
R12228DK: ./ R 00465000 $ 465000 100 10/22/80 09:34:54
R12228DK: MVI WRECSIZE+1,SFBSIZE*8 LENGTH FOR NULL VERSION@VA12228 00465000
R12228DK: CLI WRMVER,VERNULL IS IT NULL VERSION? @VA12228 00465100
R12228DK: BE GETSPLXX YES, SKIP @VA12228 00465200
R12228DK: MVI WRECSIZE+1,SPSFBSZ*8 SET NEW LOGICAL RECORD LEN @VA12228 00465300
R12228DK: * FOR VERSIONS 1 AND 2 @VA12228 00465400
R12228DK: GETSPLXX DS 0H @VA12228 00465500
R12228DK: ./ I 00498500 $ 498580 80 10/22/80 09:34:54
R12228DK: CLI RDEVTYPE,TYP3800 3800 PRINTER? @VA12228 00498580
R12228DK: BNE GETSPOOL NO, SKIP 3800 STUFF @VA12228 00498660
R12228DK: ./ I 00541000 $ 541100 100 10/22/80 09:34:54
R12228DK: TM SFBRSVD,X'E0' IS IT A VM/SP UNIQUE FILE? @VA12228 00541100
R12228DK: * (LIKE VIRTUAL 3800, OR 3211 WITH IMBEDDED FCBS) @VA12228 00541200
R12228DK: BZ FILEOK NO, WE MAY CONTINUE @VA12228 00541300
R12228DK: OI SFBFLAG,SFBSHOLD PUT IN SYSTEM HOLD @VA12228 00541400
R12228DK: FILEOK DS 0H @VA12228 00541500
R12228DK: ./ R 00560000 $ 560000 100 10/22/80 09:34:54
R12228DK: MVI WRECSIZE+1,RECSIZE*8 LENGTH FOR NULL VERSION@VA12228 00560000
R12228DK: CLI WRMVER,VERNULL IS IT NULL VERSION? @VA12228 00560100
R12228DK: BE GETRECXX YES, SKIP @VA12228 00560200
R12228DK: MVI WRECSIZE+1,SPRCSZ*8 SET LENGTH OF RECBLOK @VA12228 00560300
R12228DK: * FOR VERSIONS 1 AND 2 @VA12228 00560400
R12228DK: GETRECXX DS 0H @VA12228 00560500
R12228DK: ./ R 00597000 $ 597000 100 10/22/80 09:34:54
R12228DK: CLI WRMVER,VERNULL IS IT NULL VERSION? @VA12228 00597000
R12228DK: BNE GETRECYY NO, SKIP @VA12228 00597100
R12228DK: MVC 0(RECSIZE*8,R1),0(R9) MOVE NULL-VERSION BLOK @VA12228 00597200
R12228DK: B GETRECZZ AND SKIP VERSION 1/2 CODE @VA12228 00597300
R12228DK: GETRECYY DS 0H @VA12228 00597400
R12228DK: MVC 0(8,R1),0(R9) MOVE VERSION 1/2 HEADER @VA12228 00597500
R12228DK: MVC RECMAP-RECBLOK(L'RECMAP,R1),16(R9) AND DATA @VA12228 00597600
R12228DK: GETRECZZ DS 0H @VA12228 00597700
R12228DK: ./ I 00834000 $ 834100 100 10/22/80 09:34:54
R12228DK: WRMVERD EQU 16 DISPLACEMENT OF VERSION IN REC @VA12228 00834100
R12228DK: WRMVER DC X'00' WARM START DATA VERSION NUMBER @VA12228 00834200
R12228DK: VERNULL EQU X'FF' NULL VERSION NUMBER @VA12228 00834300
R12228DK: VERR6 EQU X'01' RELEASE 6 VERSION OF WARM START @VA12228 00834400
R12228DK: VERSP1 EQU X'02' VM/SP VERSION OF WARM START @VA12228 00834500
R12228DK: ./ I 00889000 $ 889070 70 10/22/80 09:34:54
R12228DK: SFBLOK DSECT , CONTINUATION OF SFBLOK @VA12228 00889070
R12228DK: ORG , WITH VM/SP SFBLOK DEFINITIONS @VA12228 00889140
R12228DK: SFBUFORM DS D USER FORM @VA12228 00889210
R12228DK: SFBOFORM DS D OPERATOR FORM @VA12228 00889280
R12228DK: SPSFBSZ EQU (*-SFBLOK+7)/8 VM/SP SFBLOK IS 2 DWRDS LONGER @VA12228 00889350
R12228DK: SPRCSZ EQU 8 VM/SP RECBLOK SIZE @VA12228 00889420
BEGIN APPLY >>> ./ R 00220000 00222000 $ 220000 1000 10/22/80 09:34:54
END APPLY >>> ./ R 00220000 00222000 $ 220000 1000 10/22/80 09:34:54
BEGIN APPLY >>> ./ I 00226000 $ 226500 500 10/22/80 09:34:54
END APPLY >>> ./ I 00226000 $ 226500 500 10/22/80 09:34:54
BEGIN APPLY >>> ./ R 00465000 $ 465000 100 10/22/80 09:34:54
END APPLY >>> ./ R 00465000 $ 465000 100 10/22/80 09:34:54
BEGIN APPLY >>> ./ I 00498500 $ 498580 80 10/22/80 09:34:54
END APPLY >>> ./ I 00498500 $ 498580 80 10/22/80 09:34:54
BEGIN APPLY >>> ./ I 00541000 $ 541100 100 10/22/80 09:34:54
END APPLY >>> ./ I 00541000 $ 541100 100 10/22/80 09:34:54
BEGIN APPLY >>> ./ R 00560000 $ 560000 100 10/22/80 09:34:54
END APPLY >>> ./ R 00560000 $ 560000 100 10/22/80 09:34:54
BEGIN APPLY >>> ./ R 00597000 $ 597000 100 10/22/80 09:34:54
END APPLY >>> ./ R 00597000 $ 597000 100 10/22/80 09:34:54
BEGIN APPLY >>> ./ I 00834000 $ 834100 100 10/22/80 09:34:54
END APPLY >>> ./ I 00834000 $ 834100 100 10/22/80 09:34:54
BEGIN APPLY >>> ./ I 00889000 $ 889070 70 10/22/80 09:34:54
END APPLY >>> ./ I 00889000 $ 889070 70 10/22/80 09:34:54
Update Succeeded
Update Execution Time 23 milliseconds.
HRC028DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC028DK: ./ R 00171000 $ 171290 290 02/23/06 08:39:46
HRC028DK: STCM R2,B'0001',SAVEWRK1 SAVE START TYPE CODE HRC028DK 00171000
HRC028DK: STCM R2,B'0010',SAVEWRK1+1 SAVE OTHER DMKCPI FLG HRC028DK 00171000
HRC028DK: ./ R 00175000 $ 175490 490 02/23/06 08:39:46
HRC028DK: * X'02' = DRAIN OPTION SPECIFIED IN FLAG BYTE HRC028DK 00175000
HRC028DK: ./ R 00508000 $ 508490 490 02/23/06 08:39:46
HRC028DK: TM SAVEWRK1+1,X'02' DRAIN REQUIRED BY OPERATOR ?HRC028DK 00508000
BEGIN APPLY >>> ./ R 00171000 $ 171290 290 02/23/06 08:39:46
END APPLY >>> ./ R 00171000 $ 171290 290 02/23/06 08:39:46
BEGIN APPLY >>> ./ R 00175000 $ 175490 490 02/23/06 08:39:46
END APPLY >>> ./ R 00175000 $ 175490 490 02/23/06 08:39:46
BEGIN APPLY >>> ./ R 00508000 $ 508490 490 02/23/06 08:39:46
END APPLY >>> ./ R 00508000 $ 508490 490 02/23/06 08:39:46
Update Succeeded
Update Execution Time 23 milliseconds.
HRC032DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC032DK: ./ I 00235000 $ 235300 300 03/02/06 16:20:43
HRC032DK: TM SAVEWRK1+1,X'01' DISABLE ? HRC032DK 00235300
HRC032DK: BNO ENABWARM YES, SET ENABLE DEVICES HRC032DK 00235600
HRC032DK: ./ I 00237000 $ 237500 500 03/02/06 16:20:43
HRC032DK: ENABWARM EQU * HRC032DK 00237500
HRC032DK: ./ R 00664700 $ 664710 10 03/02/06 16:20:43
HRC032DK: CH R2,=H'8' RETRY MESSAGE HRC032DK 00664710
HRC032DK: BNE WARMCLR HRC032DK 00664720
HRC032DK: ST R2,SAVER2 PUSH TO NEXT LEVEL HRC032DK
HRC032DK: EXIT , GET OUT OF HERE HRC032DK 00664730
HRC032DK: ./ R 00787000 $ 787490 490 03/02/06 16:20:43
HRC032DK: B PUTMSG WRITE ERROR MSG HRC032DK 00787490
HRC032DK: ./ R 00799000 $ 799490 490 03/02/06 16:20:43
HRC032DK: B PUTMSG2 HRC032DK 00799490
HRC032DK: ./ I 00808000 $ 808500 500 03/02/06 16:20:43
HRC032DK: PUTMSG2 EQU * HERE TO CALL DMKERMSG TO HRC032DK 00808500
HRC032DK: ./ R 00814000 00815000 $ 814490 490 03/02/06 16:20:43
HRC032DK: LA R2,8 RETURN TO DMKCPI FOR HELP HRC032DK 00814490
HRC032DK: ST R2,SAVER2 HRC032DK 00814980
HRC032DK: EXIT , HRC032DK 00815470
BEGIN APPLY >>> ./ I 00235000 $ 235300 300 03/02/06 16:20:43
END APPLY >>> ./ I 00235000 $ 235300 300 03/02/06 16:20:43
BEGIN APPLY >>> ./ I 00237000 $ 237500 500 03/02/06 16:20:43
END APPLY >>> ./ I 00237000 $ 237500 500 03/02/06 16:20:43
BEGIN APPLY >>> ./ R 00664700 $ 664710 10 03/02/06 16:20:43
END APPLY >>> ./ R 00664700 $ 664710 10 03/02/06 16:20:43
BEGIN APPLY >>> ./ R 00787000 $ 787490 490 03/02/06 16:20:43
END APPLY >>> ./ R 00787000 $ 787490 490 03/02/06 16:20:43
BEGIN APPLY >>> ./ R 00799000 $ 799490 490 03/02/06 16:20:43
END APPLY >>> ./ R 00799000 $ 799490 490 03/02/06 16:20:43
BEGIN APPLY >>> ./ I 00808000 $ 808500 500 03/02/06 16:20:43
END APPLY >>> ./ I 00808000 $ 808500 500 03/02/06 16:20:43
BEGIN APPLY >>> ./ R 00814000 00815000 $ 814490 490 03/02/06 16:20:43
END APPLY >>> ./ R 00814000 00815000 $ 814490 490 03/02/06 16:20:43
Update Succeeded
Update Execution Time 31 milliseconds.
HRC106DK
Date Tuesday Feb 16, 2016 04:18:00 PM
Loaded from MAINT(094)
HRC106DK: ./ I 00192000 $ 00192100 100
HRC106DK: MVI PAGECYL,96 96 pages/cyl 3375 HRC106DK
HRC106DK: TM RDEVTYPE,TYP3375 Is device a 3375 ? HRC106DK
HRC106DK: BO MVCTYPE Yes - HRC106DK
HRC106DK: MVI PAGECYL,150 150 pages/cyl 3380 HRC106DK
HRC106DK: TM RDEVTYPE,TYP3380 Is device a 3380 ? HRC106DK
HRC106DK: BO MVCTYPE Yes - HRC106DK
BEGIN APPLY >>> ./ I 00192000 $ 00192100 100
END APPLY >>> ./ I 00192000 $ 00192100 100
Update Succeeded
Update Execution Time 16 milliseconds.
HRC075DK
Date Sunday Feb 25, 2018 10:19:00 AM
Loaded from MAINT(094)
HRC075DK: ./ I 00048000 $ 00048500 100
HRC075DK: * DMKSCNVS - TO LOCATE THE RDEVBLOK OF WRM AREA VOLUME HRC075DK
HRC075DK: ./ I 00156000 $ 00156500 100
HRC075DK: EXTRN DMKSCNVS HRC075DK
HRC075DK: ./ R 00182000 00183000 $ 00182000 200
HRC075DK: LA R0,6 Length of volume name HRC075DK
HRC075DK: LA R1,8(,R1) -> name of WRM volume HRC075DK
HRC075DK: CALL DMKSCNVS Get the RDEVBLOK HRC075DK
HRC075DK: LR R8,R1 RDEVBLOK to R8 HRC075DK
BEGIN APPLY >>> ./ I 00048000 $ 00048500 100
END APPLY >>> ./ I 00048000 $ 00048500 100
BEGIN APPLY >>> ./ I 00156000 $ 00156500 100
END APPLY >>> ./ I 00156000 $ 00156500 100
BEGIN APPLY >>> ./ R 00182000 00183000 $ 00182000 200
END APPLY >>> ./ R 00182000 00183000 $ 00182000 200
Update Succeeded
Update Execution Time 23 milliseconds.
ibm/vm370-lib/cp/dmkwrm.assemble_hst.txt · Last modified: 2023/08/06 13:37 by Site Administrator