ibm:vm370-lib:cp:dmkdir.assemble_hst
Table of Contents
DMKDIR History
References
- Fixes Applied : 13
- Latest Source Date : Thursday, December 14, 1978
- Last Fix ID : [HRC077DK]
Update History
CMS File Input : DMKDIR ASSEMBLE
Date : 12/14/1978 8:53:00 AM
VM Context : MAINT(394)
File Name : DMKDIR.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:45 AM
Created : 1/16/2021 7:31:45 AM
Update Order
- R09957DK - CORRECT IOBLOK CONFLICT IN MSS SUPPORT
- R09980DK 609 SET SPOOL INPUT DEFAULT CLASS TO '*'
- R09965DK 609 FAST I/O SUPPORT CODE NOT IN DMKDIR
- R11411DK 613 UV00955 CHECK UDEVLINK SPECIFIED BY A NEGATIVE R1
- R11371DK 614 UV01006 MAKE A CLEANER COMPARE FOR DEDICATE R/O 3330V
- R11551DK 615 UV01648 NAM3138 AND NAM3148 ARE NOW PROCESSED IN DMKDIR
- R12689DK 618 UV03552 THE DIRECTORY PROGRAM SHOULD NOT ALLOW MDISKS WITH
- R12884DK 620 UV04033 DMKDIR CONVERTS SOURCE DIRRECTORY TO UPPER CASE
- HRC011DK V01 ADD 3380 MDISK/DEDICATED DEVICE SUPPORT
- HRC014DK V01 LNKNOPAS DIRECTORY OPTION
- HRC068DK V01 Shadow table bypass support
- HRC106DK H40 SYSOWN support for 3375 & 3380 dasd
- HRC077DK V01 Allow 4-digit cylinder numbers on MDISK for readability
R09957DK
Date Thursday Jul 12, 1979 09:52: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.
R09980DK
Date Wednesday Jan 23, 1980 09:24:00 AM
Loaded from MAINT(294)
R09980DK: ./ R 1567000 $ 1567000 100 00001000
R09980DK: DEFAULT8 DS 0H @VA09980 00002000
R09980DK: CLI UDEVTYPC,CLASURI TEST FOR INPUT @VA09980 00003000
R09980DK: BE DEFAUL14 GO TO INPUT DEFAULT @VA09980 00004000
R09980DK: MVI UDEVCLAS,C'A' DEFAULT TO CLASS A @VA09980 00005000
R09980DK: B CHAINDEV @VA09980 00006000
R09980DK: DEFAUL14 DS 0H @VA09980 00007000
R09980DK: MVI UDEVCLAS,C'*' DEFAULT TO CLASS * @VA09980 00008000
BEGIN APPLY >>> ./ R 1567000 $ 1567000 100 00001000
END APPLY >>> ./ R 1567000 $ 1567000 100 00001000
Update Succeeded
Update Execution Time 23 milliseconds.
R09965DK
Date Wednesday Jan 23, 1980 10:03:00 AM
Loaded from MAINT(294)
R09965DK: ./ R 2271000 2274000 $ 2271010 10 00001000
R09965DK: SPACE 1 00002000
R09965DK: * THIS UPDATE BUFFERS DIRECTORY READ OPERATIONS TO IMPROVE 00003000
R09965DK: * I/O PERFORMANCE. 00004000
R09965DK: CMS3 STM R2,R4,FIORSAV SAVE SOME REGISTERS @VA09965 00005000
R09965DK: LA R4,FIOFCB SET UP ADDRESSABILITY TO FCB @VA09965 00006000
R09965DK: USING FSCBD,R4 @VA09965 00007000
R09965DK: TM FIOFLAGS,FIOINIT SHOULD INITIALIZATION BE DONE @VA09965 00008000
R09965DK: BO FIONOM BR IF NOT @VA09965 00009000
R09965DK: * INITIALIZE FOR FAST I/O PROCESSING 00010000
R09965DK: OI FIOFLAGS,FIOINIT SET INIT. DONE @VA09965 00011000
R09965DK: LA R1,INFCB REFERENCE OLD FCB @VA09965 00012000
R09965DK: MVC FSCBFN(18),8(R1) MOVE FILEID TO NEW FCB @VA09965 00013000
R09965DK: * GET BUFFER FOR FAST I/O. USER VARIABLE REQUEST WITH MAX. 00014000
R09965DK: * OF 12,000 BYTES AND MINIMUM OF 800 BYTES. 00015000
R09965DK: GETMAIN VU,LA=FIOMNMX,A=FIOGMANS @VA09965 00016000
R09965DK: MVC FSCBBUFF(8),FIOGMANS BUFF ADDR & SIZE IN FCB @VA09965 00017000
R09965DK: * CALCULATE THE NUMBER OF BYTES TO READ AND PUT IN FCB 00018000
R09965DK: * (= BUFF. SIZE DIVIDED BY LOGICAL RECORD SIZE OF 80 BYTES) 00019000
R09965DK: SR R0,R0 ZERO FOR DIVIDE @VA09965 00020000
R09965DK: L R1,FIOGMSZ GET BUFF. SIZE @VA09965 00021000
R09965DK: D R0,=F'80' CALC. NO. OF RECORDS TO READ @VA09965 00022000
R09965DK: * IGNORE ANY REMAINDER...JUST DON'T USE IT 00023000
R09965DK: STH R1,FSCBNOIT STORE IN FCB @VA09965 00024000
R09965DK: SPACE 1 00025000
R09965DK: * PERFORM PHYSICAL READ VIA CMS RDBUF 00026000
R09965DK: FIOREAD FSREAD FSCB=FIOFCB,ERROR=FIOEREND @VA09965 00027000
R09965DK: LR R1,R0 GET CT. OF BYTES READ FROM FCB @VA09965 00028000
R09965DK: SR R0,R0 ZERO HIGH DIVIDEND @VA09965 00029000
R09965DK: D R0,=F'80' CALC. NO. OF 80 BYTE RECS. READ @VA09965 00030000
R09965DK: LTR R0,R0 ANY REMAINDER? @VA09965 00031000
R09965DK: BZ FIOOK BR IF NO REMAINDER @VA09965 00032000
R09965DK: * ERROR, THERE SHOULD BE NO REMAINDER 00033000
R09965DK: LA R15,8 SET UP WRONG LENGTH ERROR @VA09965 00034000
R09965DK: LA R1,FIOFCB RESTORE PLIST FOR USE BY ERR MSG @VA09965 00035000
R09965DK: B FIOEREND @VA09965 00036000
R09965DK: SPACE 1 00037000
R09965DK: FIOOK L R2,FIOGMAD GET ADDRESS OF FIO INPUT BUFFER @VA09965 00038000
R09965DK: LA R3,1 SET UP VALUE OF 1 @VA09965 00039000
R09965DK: STM R1,R3,FIORECCT STORE NEW REC CT, PTR, + CUR CT @VA09965 00040000
R09965DK: B FIOMOVE GO TO MOVE RECORD @VA09965 00041000
R09965DK: SPACE 1 00042000
R09965DK: * EXCEPTION ENDING 00043000
R09965DK: FIOEREND DS 0H @VA09965 00044000
R09965DK: LM R2,R4,FIORSAV RESTORE REGISTERS @VA09965 00045000
R09965DK: B TESTEOF GO CHECK OUT ERROR @VA09965 00046000
R09965DK: SPACE 1 00047000
R09965DK: * PROCESSING WHEN PHYSICAL READ NOT REQUIRED 00048000
R09965DK: * R1= FIORECCT, R2= FIOCURPT, R3= FIOCURCT 00049000
R09965DK: FIONOM LM R1,R3,FIORECCT SET UP REGISTERS @VA09965 00050000
R09965DK: LA R3,1(,R3) COUNT ONE MORE RECORD @VA09965 00051000
R09965DK: CR R3,R1 COMPARE NEW COUNT TO MAX. @VA09965 00052000
R09965DK: BH FIOREAD BR IF BUFF USED UP, NEED READ @VA09965 00053000
R09965DK: LA R2,80(,R2) POINT TO NEXT RECORD @VA09965 00054000
R09965DK: STM R1,R3,FIORECCT SAVE NEW VALUES IN CTL. BLOCK @VA09965 00055000
R09965DK: FIOMOVE LM R3,R4,FIORSAV+4 RESTORE R3 AND R4 @VA09965 00056000
R09965DK: MVC 0(80,R3),0(R2) MOVE DATA TO EXPECTED BUFFER @VA09965 00057000
R09965DK: L R2,FIORSAV RESTORE REGISTER @VA09965 00058000
R09965DK: SPACE 1 00059000
R09965DK: DROP R4 @VA09965 00060000
R09965DK: SPACE 1 00061000
R09965DK: ./ R 2756000 $ 2756050 50 00062000
R09965DK: * FREE THE FAST I/O BUFFER IN ALL CASES IF UNDER CMS 00063000
R09965DK: EXIT DS 0H @VA09965 00064000
R09965DK: CL R12,BAREMAC UNDER REAL OR VIRT. BARE MACH.? @VA09965 00065000
R09965DK: BE FIOBF BR IF YES, DON'T FREE BUFFER @VA09965 00066000
R09965DK: FREEMAIN V,A=FIOGMANS @VA09965 00067000
R09965DK: SPACE 1 00068000
R09965DK: FIOBF TM DIRFLAG,ERROR+EDITMODE ERROR OR EDIT FLAG ON @VA09965 00069000
R09965DK: ./ I 3153000 $ 3153040 40 00070000
R09965DK: SPACE 2 00071000
R09965DK: * CONTROL DATA FOR FAST I/O 00072000
R09965DK: SPACE 1 00073000
R09965DK: FIOMNMX DC F'800' MINIMUM BUFFER SIZE (BYTES) @VA09965 00074000
R09965DK: DC F'12000' MAXIMUM BUFFER SIZE (BYTES) @VA09965 00075000
R09965DK: FIOGMANS DS 0F @VA09965 00076000
R09965DK: FIOGMAD DC F'0' BUFFER ADDR RETURNED BY GETMAIN @VA09965 00077000
R09965DK: FIOGMSZ DC F'0' BUFFER SIZE ALLOCATED (BYTES) @VA09965 00078000
R09965DK: SPACE 1 00079000
R09965DK: FIORSAV DC 3F'0' SAVE AREA FOR R2 TO R4 @VA09965 00080000
R09965DK: FIORECCT DC F'0' RECORD COUNT (NO. RECORDS READ) @VA09965 00081000
R09965DK: FIOCURPT DC F'0' CURRENT RECORD POINTER @VA09965 00082000
R09965DK: FIOCURCT DC F'0' CURRENT RECORD COUNT @VA09965 00083000
R09965DK: SPACE 1 00084000
R09965DK: FIOFLAGS DC X'00' FAST I/O FLAGS @VA09965 00085000
R09965DK: FIOEOF EQU X'80' FAST I/O EOF @VA09965 00086000
R09965DK: FIOINIT EQU X'40' FAST I/O INIT. (DONE IF ON) @VA09965 00087000
R09965DK: SPACE 1 00088000
R09965DK: * FAST I/O FCB 00089000
R09965DK: FIOFCB FSCB 'USER DIRECT *' @VA09965 00090000
R09965DK: ./ I 3206000 $ 3206100 100 00091000
R09965DK: SPACE 1 00092000
R09965DK: FSCBD @VA09965 00093000
BEGIN APPLY >>> ./ R 2271000 2274000 $ 2271010 10 00001000
END APPLY >>> ./ R 2271000 2274000 $ 2271010 10 00001000
BEGIN APPLY >>> ./ R 2756000 $ 2756050 50 00062000
END APPLY >>> ./ R 2756000 $ 2756050 50 00062000
BEGIN APPLY >>> ./ I 3153000 $ 3153040 40 00070000
END APPLY >>> ./ I 3153000 $ 3153040 40 00070000
BEGIN APPLY >>> ./ I 3206000 $ 3206100 100 00091000
END APPLY >>> ./ I 3206000 $ 3206100 100 00091000
Update Succeeded
Update Execution Time 23 milliseconds.
R11411DK
Date Tuesday Jun 03, 1980 04:22:00 AM
Loaded from MAINT(294)
R11411DK: ./ I 1587000 $ 1587010 00001000
R11411DK: MVI UDEVLINK,UDEVNORA INITIALIZE TO 8000 @VA11411 00002000
BEGIN APPLY >>> ./ I 1587000 $ 1587010 00001000
END APPLY >>> ./ I 1587000 $ 1587010 00001000
Update Succeeded
Update Execution Time 23 milliseconds.
R11371DK
Date Monday Jun 30, 1980 04:25:00 AM
Loaded from MAINT(294)
R11371DK: ./ R 1598000 1599000 $ 1598010 10 00001000
R11371DK: CLC VOLID,0(R1) 'VOLID' SPECIFIED @VA11371 00002000
R11371DK: BNE SKIPVS1 NO SKIP GOING TO NEXT PARM @VA11371 00003000
R11371DK: ./ I 1600000 $ 1600010 00004000
R11371DK: SKIPVS1 DS 0H @VA11371 00005000
R11371DK: ./ R 1612000 $ 1612010 00006000
R11371DK: CLC RONLY,0(R1) WAS 'R/O' SPECIFIED @VA11371 00007000
R11371DK: ./ R 1623000 $ 1623010 00008000
R11371DK: CLC VIRTC,0(R1) WAS '3330V' SPECIFIED @VA11371 00009000
R11371DK: ./ R 1625000 $ 1625010 00010000
R11371DK: CLC RONLY,0(R1) WAS R/O SPECIFIED @VA11371 00011000
R11371DK: ./ R 1630000 1631000 $ 1630010 10 00012000
R11371DK: CLC VOLID,0(R1) WAS 'VOLID' SPECIFIED @VA11371 00013000
R11371DK: BNE SKIPVS2 NO SKIP SKIPPING TO NEXT PARM @VA11371 00014000
R11371DK: ./ I 1632000 $ 1632010 00015000
R11371DK: SKIPVS2 DS 0H @VA11371 00016000
R11371DK: ./ R 1643000 $ 1643010 00017000
R11371DK: CLC VIRTC,0(R1) WAS 3330V SPECIFIED @VA11371 00018000
R11371DK: ./ R 2888000 2889000 $ 2888010 10 00019000
R11371DK: VOLID DC CL6'VOLID ' @VA11371 00020000
R11371DK: RONLY DC CL4'R/O ' @VA11371 00021000
R11371DK: VIRTC DC CL6'3330V ' @VA11371 00022000
BEGIN APPLY >>> ./ R 1598000 1599000 $ 1598010 10 00001000
END APPLY >>> ./ R 1598000 1599000 $ 1598010 10 00001000
BEGIN APPLY >>> ./ I 1600000 $ 1600010 00004000
END APPLY >>> ./ I 1600000 $ 1600010 00004000
BEGIN APPLY >>> ./ R 1612000 $ 1612010 00006000
END APPLY >>> ./ R 1612000 $ 1612010 00006000
BEGIN APPLY >>> ./ R 1623000 $ 1623010 00008000
END APPLY >>> ./ R 1623000 $ 1623010 00008000
BEGIN APPLY >>> ./ R 1625000 $ 1625010 00010000
END APPLY >>> ./ R 1625000 $ 1625010 00010000
BEGIN APPLY >>> ./ R 1630000 1631000 $ 1630010 10 00012000
END APPLY >>> ./ R 1630000 1631000 $ 1630010 10 00012000
BEGIN APPLY >>> ./ I 1632000 $ 1632010 00015000
END APPLY >>> ./ I 1632000 $ 1632010 00015000
BEGIN APPLY >>> ./ R 1643000 $ 1643010 00017000
END APPLY >>> ./ R 1643000 $ 1643010 00017000
BEGIN APPLY >>> ./ R 2888000 2889000 $ 2888010 10 00019000
END APPLY >>> ./ R 2888000 2889000 $ 2888010 10 00019000
Update Succeeded
Update Execution Time 63 milliseconds.
R11551DK
Date Tuesday Jul 29, 1980 06:27:00 AM
Loaded from MAINT(294)
R11551DK: ./ I 3153000 $ 3153005 5 00001000
R11551DK: SPACE 00002000
R11551DK: * DEVICE NAMES 00003000
R11551DK: NAM3138 DC CL8'3138' GRAPHIC DISPLAY ==> 3138 @VA11551 00004000
R11551DK: NAM3148 DC CL8'3148' GRAPHIC DISPLAY ==> 3148 @VA11551 00005000
R11551DK: ./ D 3204000 3206000 $ 00006000
BEGIN APPLY >>> ./ I 3153000 $ 3153005 5 00001000
END APPLY >>> ./ I 3153000 $ 3153005 5 00001000
BEGIN APPLY >>> ./ D 3204000 3206000 $ 00006000
END APPLY >>> ./ D 3204000 3206000 $ 00006000
Update Succeeded
Update Execution Time 23 milliseconds.
R12689DK
Date Friday Jan 16, 1981 01:15:00 AM
Loaded from MAINT(294)
R12689DK: ./ I 1435000 $ 1435030 30 00001000
R12689DK: LTR R2,R2 IS IT 0 CYLINDERS? @VA12689 00002000
R12689DK: BNZ NOTZERO NO-CONTINUE @VA12689 00003000
R12689DK: L R2,SAVEREGS+4 RESTORE LENGTH @VA12689 00004000
R12689DK: B ERROR51 AND PRINT ERROR MESSAGE @VA12689 00005000
R12689DK: NOTZERO EQU * @VA12689 00006000
BEGIN APPLY >>> ./ I 1435000 $ 1435030 30 00001000
END APPLY >>> ./ I 1435000 $ 1435030 30 00001000
Update Succeeded
Update Execution Time 23 milliseconds.
R12884DK
Date Tuesday Apr 07, 1981 03:30:00 AM
Loaded from MAINT(294)
R12884DK: ./ R 2453000 $ 00001000
R12884DK: UPDATE4 TR 0(1,R1),UPCASE ALPHA TRANS - LOWER CASE => UPPER@VA12884 00002000
R12884DK: ./ R 2459000 $ 00003000
R12884DK: TR 0(1,R2),UPCASE ALPHA TRANS - LOWER CASE => UPPER@VA12884 00004000
R12884DK: ./ I 3154000 $ 3154040 40 00005000
R12884DK: SPACE 2 00006000
R12884DK: *********************************************************************** 00007000
R12884DK: * TRANSLATE LOWER CASE ALPHABET CHARACTERS TO UPPER CASE * 00008000
R12884DK: *********************************************************************** 00009000
R12884DK: UPCASE DC X'000102030405060708090A0B0C0D0E0F' X'00'-X'0F' @VA12884 00010000
R12884DK: DC X'101112131415161718191A1B1C1D1E1F' X'10'-X'1F' @VA12884 00011000
R12884DK: DC X'202122232425262728292A2B2C2D2E2F' X'20'-X'2F' @VA12884 00012000
R12884DK: DC X'303132333435363738393A3B3C3D3E3F' X'30'-X'3F' @VA12884 00013000
R12884DK: DC X'404142434445464748494A4B4C4D4E4F' X'40'-X'4F' @VA12884 00014000
R12884DK: DC X'505152535455565758595A5B5C5D5E5F' X'50'-X'5F' @VA12884 00015000
R12884DK: DC X'606162636465666768696A6B6C6D6E6F' X'60'-X'6F' @VA12884 00016000
R12884DK: DC X'707172737475767778797A7B7C7D7E7F' X'70'-X'7F' @VA12884 00017000
R12884DK: DC X'80C1C2C3C4C5C6C7C8C98A8B8C8D8E8F' X'80'-X'8F' @VA12884 00018000
R12884DK: DC X'90D1D2D3D4D5D6D7D8D99A9B9C9D9E9F' X'90'-X'9F' @VA12884 00019000
R12884DK: DC X'A0A1E2E3E4E5E6E7E8E9AAABACADAEAF' X'A0'-X'AF' @VA12884 00020000
R12884DK: DC X'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF' X'B0'-X'BF' @VA12884 00021000
R12884DK: DC X'C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF' X'C0'-X'CF' @VA12884 00022000
R12884DK: DC X'D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF' X'D0'-X'DF' @VA12884 00023000
R12884DK: DC X'E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEF' X'E0'-X'EF' @VA12884 00024000
R12884DK: DC X'F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF' X'F0'-X'FF' @VA12884 00025000
BEGIN APPLY >>> ./ R 2453000 $ 00001000
END APPLY >>> ./ R 2453000 $ 00001000
BEGIN APPLY >>> ./ R 2459000 $ 00003000
END APPLY >>> ./ R 2459000 $ 00003000
BEGIN APPLY >>> ./ I 3154000 $ 3154040 40 00005000
END APPLY >>> ./ I 3154000 $ 3154040 40 00005000
Update Succeeded
Update Execution Time 23 milliseconds.
HRC011DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC011DK: ./ I 00218000 $ 218500 500 01/26/06 16:44:51
HRC011DK: * 3380 HRC011DK 00218500
HRC011DK: ./ R 00496000 $ 496490 490 01/26/06 16:44:51
HRC011DK: * SENSE XX = UP TO 32 SENSE BYTES HRC011DK 00496490
HRC011DK: ./ I 00871000 $ 871500 500 01/26/06 16:44:51
HRC011DK: TABLE 3380,4,CLASDASD,TYP3380 HRC011DK 00871500
HRC011DK: ./ I 01422000 $ 1422300 300 01/26/06 16:44:51
HRC011DK: CLI UDEVTYPE,TYP3380 ? HRC011DK 01422300
HRC011DK: BE ERROR53 NO 3380 TDISK ! HRC011DK 01422600
HRC011DK: ./ R 01426000 $ 1426090 90 01/26/06 16:44:51
HRC011DK: CLI UDEVTYPE,TYP3380 IS THIS A 3380 ? HRC011DK 01426090
HRC011DK: BNE LONGCONT CONTINUE HRC011DK 01426180
HRC011DK: CL R2,=F'4' IS IT OVER 4 DIGITS? HRC011DK 01426270
HRC011DK: BH ERROR51 YES, ERROR HRC011DK 01426360
HRC011DK: B SAVESTRT CONTINUE, HRC011DK 01426450
HRC011DK: LONGCONT DS 0H HRC011DK 01426540
HRC011DK: CL R2,=F'3' IS IT OVER 3 HRC011DK 01426630
HRC011DK: ./ I 01427000 $ 1427500 500 01/26/06 16:44:51
HRC011DK: SAVESTRT DS 0H HRC011DK 01427500
HRC011DK: ./ R 01432000 $ 1432090 90 01/26/06 16:44:51
HRC011DK: CLI UDEVTYPE,TYP3380 HRC011DK 01432090
HRC011DK: BNE GETCYLSZ HRC011DK 01432180
HRC011DK: CL R2,=F'4' IS IT OVER 4 DIGITS? HRC011DK 01432270
HRC011DK: BH ERROR51 YES, ERROR HRC011DK 01432360
HRC011DK: B SAVESIZE CONTINUE, HRC011DK 01432450
HRC011DK: GETCYLSZ DS 0H HRC011DK 01432540
HRC011DK: CL R2,=F'3' IS IT OVER 3 HRC011DK 01432630
HRC011DK: ./ I 01433000 $ 1433500 500 01/26/06 16:44:51
HRC011DK: SAVESIZE DS 0H HRC011DK 01433500
HRC011DK: ./ R 01919000 $ 1919490 490 01/26/06 16:44:51
HRC011DK: LA R4,32 CAL THE NUMBER OF SENSE BYTES HRC011DK 01919490
HRC011DK: ./ R 02689000 02690000 $ 2689590 590 01/26/06 16:44:51
HRC011DK: LA R2,32 NUMBER OF SENSE BYTES HRC011DK 02689590
HRC011DK: MVC SNSWORK(32),SENSE MOVE IN SENSE DATA HRC011DK 02690180
HRC011DK: ./ R 02693000 $ 2693490 490 01/26/06 16:44:51
HRC011DK: MVC ERROR55B+6(52),SNSWORK+12 .. HRC011DK 02693490
HRC011DK: ./ R 02704000 $ 2704290 290 01/26/06 16:44:51
HRC011DK: ERROR55B MSG 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' ,*02704290
HRC011DK: ROOM FOR 32 SENSE BYTES HRC011DK 02704580
HRC011DK: ./ R 02906000 02907000 $ 2906590 590 01/26/06 16:44:51
HRC011DK: SENSE DC XL32'0' SENSE AREA HRC011DK 02906590
HRC011DK: SNSWORK DC XL67'0' SENSE WORK AREA HRC011DK 02907180
HRC011DK: ./ R 03077000 $ 3077490 490 01/26/06 16:44:51
HRC011DK: SENSECCW CCW 04,SENSE,SILI,32 HRC011DK 03077490
BEGIN APPLY >>> ./ I 00218000 $ 218500 500 01/26/06 16:44:51
END APPLY >>> ./ I 00218000 $ 218500 500 01/26/06 16:44:51
BEGIN APPLY >>> ./ R 00496000 $ 496490 490 01/26/06 16:44:51
END APPLY >>> ./ R 00496000 $ 496490 490 01/26/06 16:44:51
BEGIN APPLY >>> ./ I 00871000 $ 871500 500 01/26/06 16:44:51
END APPLY >>> ./ I 00871000 $ 871500 500 01/26/06 16:44:51
BEGIN APPLY >>> ./ I 01422000 $ 1422300 300 01/26/06 16:44:51
END APPLY >>> ./ I 01422000 $ 1422300 300 01/26/06 16:44:51
BEGIN APPLY >>> ./ R 01426000 $ 1426090 90 01/26/06 16:44:51
END APPLY >>> ./ R 01426000 $ 1426090 90 01/26/06 16:44:51
BEGIN APPLY >>> ./ I 01427000 $ 1427500 500 01/26/06 16:44:51
END APPLY >>> ./ I 01427000 $ 1427500 500 01/26/06 16:44:51
BEGIN APPLY >>> ./ R 01432000 $ 1432090 90 01/26/06 16:44:51
END APPLY >>> ./ R 01432000 $ 1432090 90 01/26/06 16:44:51
BEGIN APPLY >>> ./ I 01433000 $ 1433500 500 01/26/06 16:44:51
END APPLY >>> ./ I 01433000 $ 1433500 500 01/26/06 16:44:51
BEGIN APPLY >>> ./ R 01919000 $ 1919490 490 01/26/06 16:44:51
END APPLY >>> ./ R 01919000 $ 1919490 490 01/26/06 16:44:51
BEGIN APPLY >>> ./ R 02689000 02690000 $ 2689590 590 01/26/06 16:44:51
END APPLY >>> ./ R 02689000 02690000 $ 2689590 590 01/26/06 16:44:51
BEGIN APPLY >>> ./ R 02693000 $ 2693490 490 01/26/06 16:44:51
END APPLY >>> ./ R 02693000 $ 2693490 490 01/26/06 16:44:51
BEGIN APPLY >>> ./ R 02704000 $ 2704290 290 01/26/06 16:44:51
END APPLY >>> ./ R 02704000 $ 2704290 290 01/26/06 16:44:51
BEGIN APPLY >>> ./ R 02906000 02907000 $ 2906590 590 01/26/06 16:44:51
END APPLY >>> ./ R 02906000 02907000 $ 2906590 590 01/26/06 16:44:51
BEGIN APPLY >>> ./ R 03077000 $ 3077490 490 01/26/06 16:44:51
END APPLY >>> ./ R 03077000 $ 3077490 490 01/26/06 16:44:51
Update Succeeded
Update Execution Time 86 milliseconds.
HRC014DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC014DK: ./ R 00160000 00161000 $ 160590 590 02/13/06 09:45:45
HRC014DK: * |OPTION AFFINITY AA LNKNOPAS HRC011DK 00160590
HRC014DK: * |O AF L HRC011DK 00161180
HRC014DK: ./ R 01296000 $ 1296490 490 02/13/06 09:45:45
HRC014DK: BNE OPT10 NO HRC011DK 01296490
HRC014DK: ./ I 01308000 $ 1308200 200 02/13/06 09:45:45
HRC014DK: OPT10 COMP =C'LNKNOPAS ' HRC011DK 01308200
HRC014DK: BNE ERROR51 NO,INVALID KEYWORD HRC011DK 01308400
HRC014DK: OI UMACOPT2,UMADLNKN TURN BIT ON IN UMACBLOK HRC011DK 01308600
HRC014DK: B OPT1 GET NEXT INPUT CARD HRC011DK 01308800
BEGIN APPLY >>> ./ R 00160000 00161000 $ 160590 590 02/13/06 09:45:45
END APPLY >>> ./ R 00160000 00161000 $ 160590 590 02/13/06 09:45:45
BEGIN APPLY >>> ./ R 01296000 $ 1296490 490 02/13/06 09:45:45
END APPLY >>> ./ R 01296000 $ 1296490 490 02/13/06 09:45:45
BEGIN APPLY >>> ./ I 01308000 $ 1308200 200 02/13/06 09:45:45
END APPLY >>> ./ I 01308000 $ 1308200 200 02/13/06 09:45:45
Update Succeeded
Update Execution Time 47 milliseconds.
HRC068DK
Date Thursday Mar 16, 2017 12:08:00 PM
Loaded from MAINT(094)
HRC068DK: ./ R 00160590 00161180 $ 160590 590
HRC068DK: * |OPTION AFFINITY AA LNKNOPAS STFIRST HRC068DK 00160590
HRC068DK: * |O AF L ST HRC068DK 00161180
HRC068DK: ./ R 01308400 $
HRC068DK: BNE OPT11 NO HRC068DK 01296490
HRC068DK: ./ I 01308800 $ 1308900 10
HRC068DK: OPT11 COMP =C'STFIRST ' HRC068DK 01308200
HRC068DK: BNE ERROR51 NO,INVALID KEYWORD HRC068DK 01308400
HRC068DK: OI UMACOPT2,UMAST1ST TURN BIT ON IN UMACBLOK HRC068DK 01308600
HRC068DK: B OPT1 GET NEXT INPUT CARD HRC068DK 01308800
BEGIN APPLY >>> ./ R 00160590 00161180 $ 160590 590
END APPLY >>> ./ R 00160590 00161180 $ 160590 590
BEGIN APPLY >>> ./ R 01308400 $
END APPLY >>> ./ R 01308400 $
BEGIN APPLY >>> ./ I 01308800 $ 1308900 10
END APPLY >>> ./ I 01308800 $ 1308900 10
Update Succeeded
Update Execution Time 47 milliseconds.
HRC106DK
Date Wednesday Feb 17, 2016 01:29:00 PM
Loaded from MAINT(094)
HRC106DK: ./ I 00076000 $ 00076100 100
HRC106DK: * 3375 HRC106DK
HRC106DK: * 3380 HRC106DK
HRC106DK: ./ I 00218000 $ 00218100 100
HRC106DK: * 3375 HRC106DK
HRC106DK: ./ I 00871000 $ 00871100 100
HRC106DK: TABLE 3375,4,CLASDASD,TYP3375 HRC106DK
HRC106DK: ./ I 00922000 $ 00922100 100
HRC106DK: COMP CON3375 Is it a 3375 ? HRC106DK
HRC106DK: LA R4,96 Set up the max record count HRC106DK
HRC106DK: BE FLAG3375 Yes, set 3375 flag HRC106DK
HRC106DK: COMP CON3380 Is it a 3380 ? HRC106DK
HRC106DK: LA R4,150 Set up the max record count HRC106DK
HRC106DK: BE FLAG3380 Yes, set 3380 flag HRC106DK
HRC106DK: ./ I 00929000 $ 00929100 100
HRC106DK: FLAG3375 OI DIRFLAG1,OUT3375 Indicate 3375 HRC106DK
HRC106DK: B SAVEMAX .. HRC106DK
HRC106DK: FLAG3380 OI DIRFLAG1,OUT3380 Indicate 3380 HRC106DK
HRC106DK: B SAVEMAX .. HRC106DK
HRC106DK: ./ D 00941000
HRC106DK: ./ I 00943000 $ 00943010 10
HRC106DK: TM DIRFLAG1,OUT3380 Is this a 3380? HRC106DK
HRC106DK: BZ SKIP3380 Some other device HRC106DK
HRC106DK: L R3,IOB Get device address HRC106DK
HRC106DK: LA R2,SNSE4CCW Point to sense CCW HRC106DK
HRC106DK: CLI CPUID,X'FF' Is this a virtual machine? HRC106DK
HRC106DK: BNE SKIPDIAG Running standalone - use SIO HRC106DK
HRC106DK: SSM *+1 Lock out CMS HRC106DK
HRC106DK: DC X'83320020' Diagnose call to to VM/370 HRC106DK
HRC106DK: BNE SKIP3380 Error - give up on sense HRC106DK
HRC106DK: B SKIPSIO Skip over SIO/TIO HRC106DK
HRC106DK: SKIPDIAG EQU * HRC106DK
HRC106DK: ST R2,CAW Store in CAW HRC106DK
HRC106DK: XC SENSE,SENSE Zero out sense HRC106DK
HRC106DK: SIO 0(R3) Do sense HRC106DK
HRC106DK: TIO3380 TIO 0(R3) Clear any interrupt HRC106DK
HRC106DK: BC 2,TIO3380 Loop if channel is busy HRC106DK
HRC106DK: SKIPSIO EQU * HRC106DK
HRC106DK: CLC CSW+6(2),=H'0' Got all sense bytes wanted? HRC106DK
HRC106DK: BNE SKIP3380 No, something wrong here HRC106DK
HRC106DK: CLC SENSE+4(2),=X'3380' Is this really a 3380? HRC106DK
HRC106DK: BNE SKIP3380 No, continue HRC106DK
HRC106DK: TM SENSE+6,RDEVMD82 Is it a 3380E or 3380K? HRC106DK
HRC106DK: BZ SKIP3380 No - 1024 byte allocation map HRC106DK
HRC106DK: MVC RCCW7+6,=H'2048' 3380E - 2048 byte alloc map HRC106DK
HRC106DK: TM SENSE+6,RDEVMD83 Is it a 3380K? HRC106DK
HRC106DK: BNO SKIP3380 No, leave it at 2048 bytes HRC106DK
HRC106DK: MVC RCCW7+6,=H'4096' 3380K - 4096 byte alloc map HRC106DK
HRC106DK: SKIP3380 EQU * HRC106DK
HRC106DK: LA R2,RCCW1 Address of CCW string HRC106DK
HRC106DK: ./ * Remove restriction of no 3380 T-DISK imposed by HRC011DK
HRC106DK: ./ D 01422300 01422600
HRC106DK: ./ I 02311000 $ 02311100 100
HRC106DK: LA R1,8*256 Set up to divide by 8.0 (3375) HRC106DK
HRC106DK: TM DIRFLAG1,OUT3375 Is this a 3375 HRC106DK
HRC106DK: BO DEVIDE Yes - branch HRC106DK
HRC106DK: LA R1,10*256 Set up to divide by 10.0 (3380) HRC106DK
HRC106DK: TM DIRFLAG1,OUT3380 Is this a 3380 HRC106DK
HRC106DK: BO DEVIDE Yes - branch HRC106DK
HRC106DK: ./ R 02400000 $ 02400100 100
HRC106DK: LH R4,RCCW7+6 Set up max size of the table HRC106DK
HRC106DK: ./ R 02406000 $ 02406100 100
HRC106DK: BCT R4,LOOP8 Loop up to 4096 times HRC106DK
HRC106DK: ./ R 02414000 02415000 $ 02414100 100
HRC106DK: TM DIRFLAG1,OUT3350+OUT3375+OUT3380 3350/75/80? HRC106DK
HRC106DK: BZ SETON5 No, bypass 3350/3375/3380 init. HRC106DK
HRC106DK: ./ I 02871000 $ 02871100 100
HRC106DK: OUT3375 EQU X'20' Output unit is a 3375 HRC106DK
HRC106DK: OUT3380 EQU X'10' Output unit is a 3380 HRC106DK
HRC106DK: ./ I 03076000 $ 03076100 100
HRC106DK: SNSE4CCW CCW X'E4',SENSE,SILI,7 HRC106DK
HRC106DK: ./ R 03166000 $ 03166100 100
HRC106DK: ALLOCBUF DS XL4096 HRC106DK
HRC106DK: ./ I 03210000 $ 03210100 100
HRC106DK: COPY RBLOKS HRC106DK
BEGIN APPLY >>> ./ I 00076000 $ 00076100 100
END APPLY >>> ./ I 00076000 $ 00076100 100
BEGIN APPLY >>> ./ I 00218000 $ 00218100 100
END APPLY >>> ./ I 00218000 $ 00218100 100
BEGIN APPLY >>> ./ I 00871000 $ 00871100 100
END APPLY >>> ./ I 00871000 $ 00871100 100
BEGIN APPLY >>> ./ I 00922000 $ 00922100 100
END APPLY >>> ./ I 00922000 $ 00922100 100
BEGIN APPLY >>> ./ I 00929000 $ 00929100 100
END APPLY >>> ./ I 00929000 $ 00929100 100
BEGIN APPLY >>> ./ D 00941000
END APPLY >>> ./ D 00941000
BEGIN APPLY >>> ./ I 00943000 $ 00943010 10
END APPLY >>> ./ I 00943000 $ 00943010 10
BEGIN APPLY >>> ./ * Remove restriction of no 3380 T-DISK imposed by HRC011DK
Comment >>> ./ * Remove restriction of no 3380 T-DISK imposed by HRC011DK
END APPLY >>> ./ * Remove restriction of no 3380 T-DISK imposed by HRC011DK
BEGIN APPLY >>> ./ D 01422300 01422600
END APPLY >>> ./ D 01422300 01422600
BEGIN APPLY >>> ./ I 02311000 $ 02311100 100
END APPLY >>> ./ I 02311000 $ 02311100 100
BEGIN APPLY >>> ./ R 02400000 $ 02400100 100
END APPLY >>> ./ R 02400000 $ 02400100 100
BEGIN APPLY >>> ./ R 02406000 $ 02406100 100
END APPLY >>> ./ R 02406000 $ 02406100 100
BEGIN APPLY >>> ./ R 02414000 02415000 $ 02414100 100
END APPLY >>> ./ R 02414000 02415000 $ 02414100 100
BEGIN APPLY >>> ./ I 02871000 $ 02871100 100
END APPLY >>> ./ I 02871000 $ 02871100 100
BEGIN APPLY >>> ./ I 03076000 $ 03076100 100
END APPLY >>> ./ I 03076000 $ 03076100 100
BEGIN APPLY >>> ./ R 03166000 $ 03166100 100
END APPLY >>> ./ R 03166000 $ 03166100 100
BEGIN APPLY >>> ./ I 03210000 $ 03210100 100
END APPLY >>> ./ I 03210000 $ 03210100 100
Update Succeeded
Update Execution Time 86 milliseconds.
HRC077DK
Date Tuesday Mar 06, 2018 06:20:00 PM
Loaded from MAINT(094)
HRC077DK: ./ * Remove the checks for devtype 3380 to be the only type to
HRC077DK: ./ * allow 4-digit cylinder numbers and 4-digit size. This
HRC077DK: ./ * modification allows for 4-digits on any MDISK to improve
HRC077DK: ./ * readability by having everything in consisent sized columns.
HRC077DK: ./ D 01426090 01426180
HRC077DK: ./ D 01426360 01426630
HRC077DK: ./ D 01432090 01432180
HRC077DK: ./ D 01432360 01432630
BEGIN APPLY >>> ./ * Remove the checks for devtype 3380 to be the only type to
Comment >>> ./ * Remove the checks for devtype 3380 to be the only type to
END APPLY >>> ./ * Remove the checks for devtype 3380 to be the only type to
BEGIN APPLY >>> ./ * allow 4-digit cylinder numbers and 4-digit size. This
Comment >>> ./ * allow 4-digit cylinder numbers and 4-digit size. This
END APPLY >>> ./ * allow 4-digit cylinder numbers and 4-digit size. This
BEGIN APPLY >>> ./ * modification allows for 4-digits on any MDISK to improve
Comment >>> ./ * modification allows for 4-digits on any MDISK to improve
END APPLY >>> ./ * modification allows for 4-digits on any MDISK to improve
BEGIN APPLY >>> ./ * readability by having everything in consisent sized columns.
Comment >>> ./ * readability by having everything in consisent sized columns.
END APPLY >>> ./ * readability by having everything in consisent sized columns.
BEGIN APPLY >>> ./ D 01426090 01426180
END APPLY >>> ./ D 01426090 01426180
BEGIN APPLY >>> ./ D 01426360 01426630
END APPLY >>> ./ D 01426360 01426630
BEGIN APPLY >>> ./ D 01432090 01432180
END APPLY >>> ./ D 01432090 01432180
BEGIN APPLY >>> ./ D 01432360 01432630
END APPLY >>> ./ D 01432360 01432630
Update Succeeded
Update Execution Time 39 milliseconds.
ibm/vm370-lib/cp/dmkdir.assemble_hst.txt · Last modified: 2023/08/06 13:36 by Site Administrator