• Abstract / Synopsis of DMKBSC
• Latest Source of DMKBSC
• Fixes Applied : 10
• Latest Source Date : Thursday, December 7, 1978
• Last Fix ID : [R13797DK]

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

1. R09957DK - CORRECT IOBLOK CONFLICT IN MSS SUPPORT
2. R11394DK 614 UV01465 TIMEOUT ON READ RESPONSE TO TEXT R3270
3. R12506DK 618 UV03462 UNNECESSARY BRANCH INSTRUCTION REMOVED
4. R12565DK 619 UV03657 PEVM11394 FIELD RGFRVI IN DMKRGA IS OVERLAID
5. R13084DK 621 UV04406 BSC LINE TIME OUT DURING RVI OPERATION
6. R12941DK 622 UV04884 SYNC ERROR RECOV FOR INTERVENTION REQUIRED COND.
7. R13518DK 623 UV05138 ABENDPTR007 ENABLING REMOTE 3275 THAT DOESNT EXIST
8. R13970DK 624 UV05485 TIMEOUT ON READ MODIFY SHOULD ENQ NOT RESTART
9. R13944DK 625 UV05417 BISYNC ERROR RECOVERY IS NOT CORRECT
10. R13797DK 625 UV05722 MISSING OR BAD STX CAUSES REMOTE LINE TO BE DISABLD

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.

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.

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.

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.

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.

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.

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.

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.

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.

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.