DMKDIR History
References
-
-
Fixes Applied : 13
-
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.