DMKBSC History
References
-
-
Fixes Applied : 10
-
Last Fix ID : [R13797DK]
Update History
CMS File Input : DMKBSC ASSEMBLE
Date : 12/7/1978 4:54:00 PM
VM Context : MAINT(394)
File Name : DMKBSC.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
R11394DK 614 UV01465 TIMEOUT ON READ RESPONSE TO TEXT R3270
R12506DK 618 UV03462 UNNECESSARY BRANCH INSTRUCTION REMOVED
R12565DK 619 UV03657 PEVM11394 FIELD RGFRVI IN DMKRGA IS OVERLAID
R13084DK 621 UV04406 BSC LINE TIME OUT DURING RVI OPERATION
R12941DK 622 UV04884 SYNC ERROR RECOV FOR INTERVENTION REQUIRED COND.
R13518DK 623 UV05138 ABENDPTR007 ENABLING REMOTE 3275 THAT DOESNT EXIST
R13970DK 624 UV05485 TIMEOUT ON READ MODIFY SHOULD ENQ NOT RESTART
R13944DK 625 UV05417 BISYNC ERROR RECOVERY IS NOT CORRECT
R13797DK 625 UV05722 MISSING OR BAD STX CAUSES REMOTE LINE TO BE DISABLD
R09957DK
Date Thursday Jul 12, 1979 09:51: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 8 milliseconds.
R11394DK
Date Monday Jun 30, 1980 06:06:00 AM
Loaded from MAINT(294)
R11394DK: ./ I 306000 $ 306100 100 00001000
R11394DK: CLC RDEVTYPC(2),=AL1(CLASTERM,TYPBSC) 3270 REMOTE? @VA11394 00002000
R11394DK: BNE SETRETA NO, CONTINUE NORMALLY @VA11394 00003000
R11394DK: CLI 5(R4),X'0B' READ RESPONSE TO TEXT @VA11394 00004000
R11394DK: BNE SETRETA NO, CONTINUE NORMALLY @VA11394 00005000
R11394DK: LA R5,BSCSCCW1 GET ADDRESSING CCW'S @VA11394 00006000
R11394DK: ST R5,IOBRCAW RESTART CCW STRING @VA11394 00007000
R11394DK: B SETFLAG GO SET RESTART FLAG @VA11394 00008000
R11394DK: SETRETA DS 0H @VA11394 00009000
BEGIN APPLY >>> ./ I 306000 $ 306100 100 00001000
END APPLY >>> ./ I 306000 $ 306100 100 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
R12506DK
Date Friday Jan 16, 1981 01:16:00 AM
Loaded from MAINT(294)
R12506DK: ./ D 347000
BEGIN APPLY >>> ./ D 347000
END APPLY >>> ./ D 347000
Update Succeeded
Update Execution Time 16 milliseconds.
R12565DK
Date Thursday Feb 12, 1981 02:12:00 AM
Loaded from MAINT(294)
R12565DK: ./ I 306400 $ 306410 10 00001000
R12565DK: TM BSCFLAG,BSCRVI IS THIS A RVI CHANNEL PGM? @VA12565 00002000
R12565DK: BO SETRETA YES, NO NEED TO RESELECT @VA12565 00003000
BEGIN APPLY >>> ./ I 306400 $ 306410 10 00001000
END APPLY >>> ./ I 306400 $ 306410 10 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
R13084DK
Date Wednesday Jun 03, 1981 05:08:00 AM
Loaded from MAINT(294)
R13084DK: ./ I 00284550 $ 284650 100 04/08/81 14:00:45
R13084DK: TM BSCFLAG,BSCRVI EXPECT EOT FROM RVI? @VA13084
R13084DK: BO CORRECT YES -- LET RGA HANDLE @VA13084
BEGIN APPLY >>> ./ I 00284550 $ 284650 100 04/08/81 14:00:45
END APPLY >>> ./ I 00284550 $ 284650 100 04/08/81 14:00:45
Update Succeeded
Update Execution Time 8 milliseconds.
R12941DK
Date Tuesday Jul 07, 1981 01:26:00 PM
Loaded from MAINT(294)
R12941DK: ./ *
BEGIN APPLY >>> ./ *
Comment >>> ./ *
END APPLY >>> ./ *
Update Succeeded
Update Execution Time 16 milliseconds.
R13518DK
Date Friday Aug 14, 1981 08:07:00 AM
Loaded from MAINT(294)
R13518DK: ./ I 00343000 $ 343300 300 06/29/81 14:11:32
R13518DK: MVC IOBMISC2+3(1),IOERDATA MOVE IN SENSE DATA FOR @VA13518
R13518DK: * COMMAND REJECT
BEGIN APPLY >>> ./ I 00343000 $ 343300 300 06/29/81 14:11:32
END APPLY >>> ./ I 00343000 $ 343300 300 06/29/81 14:11:32
Update Succeeded
Update Execution Time 8 milliseconds.
R13970DK
Date Wednesday Sep 23, 1981 04:36:00 PM
Loaded from MAINT(294)
R13970DK: ./ R 284750 $ 284850 100 00001000
R13970DK: BO NOREST @VA13970 00002000
R13970DK: ./ I 361000 $ 361100 50 00003000
R13970DK: L R7,IOBRCAW POINT AT RESTART CCW @VA13970 00004000
R13970DK: L R7,0(R7) GET RESTART CCW @VA13970 00005000
R13970DK: CLI 0(R7),ENQ IS IT AN ENQ?? @VA13970 00006000
R13970DK: BNE NOREST NO, CONTINUE @VA13970 00007000
R13970DK: CLC BSCRESP(2),BSCRCVD RESPONSE AN ACK0/ACK1? @VA13970 00008000
R13970DK: BE SETRETA YES, RESTART FAILING CCW'S @VA13970 00009000
R13970DK: CLC BSCRESP(2),BSCSEND RESPONSE AN ACK1/ACK0? @VA13970 00010000
R13970DK: BE SETRETA YES, RESTART FAILING CCW'S @VA13970 00011000
R13970DK: NOREST DS 0H CONTINUE AS BEFORE @VA13970 00012000
R13970DK: L R7,RDEVIOER GET IOERBLOK BACK IN REG7 @VA13970
R13970DK: ./ R 432000 $ 432010 10 00013000
R13970DK: BNO NOTIMOUT NO, GO CHECK FOR FIRST ERROR @VA13970 00014000
R13970DK: CLI 5(R4),X'0B' READ RESP TO TEXT CCW? @VA13970 00015000
R13970DK: BE SENDENQ YES, THEN GO SEND AN ENQ @VA13970 00016000
R13970DK: CLI 5(R4),X'0C' IS IT A BLOCK READ CCW? @VA13970 00017000
R13970DK: BE SENDENQ YES, THEN GO SEND AN ENQ @VA13970 00018000
R13970DK: B SETRETA NO, GO RETRY FAILING CCW @VA13970 00019000
R13970DK: NOTIMOUT DS 0H @VA13970 00020000
BEGIN APPLY >>> ./ R 284750 $ 284850 100 00001000
END APPLY >>> ./ R 284750 $ 284850 100 00001000
BEGIN APPLY >>> ./ I 361000 $ 361100 50 00003000
END APPLY >>> ./ I 361000 $ 361100 50 00003000
BEGIN APPLY >>> ./ R 432000 $ 432010 10 00013000
END APPLY >>> ./ R 432000 $ 432010 10 00013000
Update Succeeded
Update Execution Time 23 milliseconds.
R13944DK
Date Wednesday Oct 14, 1981 10:08:00 AM
Loaded from MAINT(294)
R13944DK: ./ I 430000 $ 430100 100 00009000
R13944DK: CLI 5(R4),X'08' ARE WE CLEARING UNIT EXCEPTION @VA13944 00009000
R13944DK: BNE READSUB1 NO, USE STANDARD RECOVERY @VA13944 00009000
R13944DK: MVC IOBCAW+1(3),IOBMISC2+1 ELSE, SETUP TO RETRY @VA13944 00009000
R13944DK: B SETRETA ORIGINAL FAILING CCWS @VA13944 00009000
R13944DK: READSUB1 DS 0H RETRY FAILING READ CCW STRINGS @VA13944 00009000
R13944DK: ./ R 446000 $ 446100 100 00001000
R13944DK: BE SETRET YES, GO RESTART CCW STRING @VA13944 00002000
R13944DK: ./ R 491000 $ 491100 100 00003000
R13944DK: WRITNAK DC X'01',AL3(RGANAK),AL1(SILI+CC,X'06'),AL2(1) @VA13944 00004000
BEGIN APPLY >>> ./ I 430000 $ 430100 100 00009000
END APPLY >>> ./ I 430000 $ 430100 100 00009000
BEGIN APPLY >>> ./ R 446000 $ 446100 100 00001000
END APPLY >>> ./ R 446000 $ 446100 100 00001000
BEGIN APPLY >>> ./ R 491000 $ 491100 100 00003000
END APPLY >>> ./ R 491000 $ 491100 100 00003000
Update Succeeded
Update Execution Time 8 milliseconds.
R13797DK
Date Friday Nov 06, 1981 03:34:00 PM
Loaded from MAINT(294)
R13797DK: ./ I 00306420 $ 306424 4
R13797DK: TM IOBMISC2,IBBREAD ARE WE DOING A DATA WRITE? @VA13797 00306460
R13797DK: BO SETRETB YES, SEE IF WE CAN RECOVER @VA13797 00306468
R13797DK: SETRETC DS 0H @VA13797 00306472
R13797DK: * THE RESELECT CODE RELIES ON THE FACT THAT THE SETCAW 00306476
R13797DK: * SUBROUTINE IN DMKRGA HAS SAVED THE ADDRESS OF THE 00306480
R13797DK: * CHANNEL PROGRAM CONTAINING THE WRITE DATA IN BSCSPTR. 00306484
R13797DK: * THIS CHANNEL PROGRAM WILL BE USED WHEN THE POLL 00306488
R13797DK: * SUCCEEDS. 00306492
R13797DK: ./ I 00308000 $ 308070 70
R13797DK: SETRETB CLC IOBRCNT,F7+2 RESELECT AFTER SEVEN RETRIES @VA13797 00308070
R13797DK: BE SETRETA NO, TRY I/O AGAIN @VA13797 00308210
R13797DK: * CHECK FOR EQUAL IS USED SO THAT ONLY ONE RESELECT 00308280
R13797DK: * IS ATTEMPTED. 00308350
R13797DK: TM RDEVFTR,FTRDIAL IS DIAL FEATURE INDICATED? @VA13797 00308420
R13797DK: BO SETRETC YES, THEN SELECTION DATA VALID. @VA13797 00308490
R13797DK: L R5,BSCAUSER GET ADDRESS OF CURRENT NICK BLOCK@VA13797 00308560
R13797DK: ICM R0,10,NICSELT-NICBLOK(R5) GET DOUBLE ADDRESSING @VA13797 00308630
R13797DK: ICM R0,5,NICSELT-NICBLOK(R5) CHARACTERS @VA13797 00308700
R13797DK: STCM R0,15,BSCSEL SAVE ADDRESS OF REMOTE STATION @VA13797 00308770
R13797DK: MVI BSCSEL+4,ENQ SET UP ADDRESSING ENTRY @VA13797 00308840
R13797DK: B SETRETC TRY TO SELECT TERMINAL @VA13797 00308910
R13797DK: ./ I 00467000 $ 467100 100
R13797DK: SPACE 2 @VA13797 00467100
R13797DK: * READ/WRITE OPERATION TYPES 00467200
R13797DK: IBBSELA EQU X'80' ADDRESSING/SELECTING A STATION @VA13797 00467300
R13797DK: IBBWRITE EQU X'40' WRITE DATA TO A REMOTE STATION @VA13797 00467400
R13797DK: IBBREAD EQU X'20' GENERAL POLLING OF STATIONS @VA13797 00467500
R13797DK: IBBSPOLL EQU X'10' SPECIFIC POLLING TO A STATION @VA13797 00467600
R13797DK: ./ I 00507000 $ 507500 500
R13797DK: COPY NETWORK 00507500
BEGIN APPLY >>> ./ I 00306420 $ 306424 4
END APPLY >>> ./ I 00306420 $ 306424 4
BEGIN APPLY >>> ./ I 00308000 $ 308070 70
END APPLY >>> ./ I 00308000 $ 308070 70
BEGIN APPLY >>> ./ I 00467000 $ 467100 100
END APPLY >>> ./ I 00467000 $ 467100 100
BEGIN APPLY >>> ./ I 00507000 $ 507500 500
END APPLY >>> ./ I 00507000 $ 507500 500
Update Succeeded
Update Execution Time 16 milliseconds.