• Abstract / Synopsis of DMSSQS
• Latest Source of DMSSQS
• Fixes Applied : 7
• Latest Source Date : Tuesday, December 12, 1978
• Last Fix ID : [R14923DS]

CMS File Input : DMSSQS ASSEMBLE
Date : 12/12/1978 8:34:00 AM
VM Context : MAINT(393)
File Name : DMSSQS.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:32 AM
Created : 1/16/2021 7:31:32 AM

1. R09791DS 605 GET MOVE DOES NOT RETURN ADDRESS OF USER WORKAREA IN REG1
2. R09591DS 605 PUT LOCATE RECFM=VB CREATES INVALID BDW AT CLOSE
3. R09543DS 605 PUT LOCATE TO DUMMY DATASET CAUSES MSDMSITP141T ABEND0C5
4. R10035DS 605 MSDMSMVE128S ON GET VARIABLE FILE FROM TAPE WITH BLOCK LT 18
5. R09696DS 607 DMSSQS EOF MISSED IN SHORT BLOCK IF FULL BLOCK WOULD WRAP 65K
6. R12285DS 618 UV02931 ELIMINATE EXTRA RECORD ON WRITE
7. R14923DS 628 UV06008 DMSSQS WRONG LENGTH ON LAST REC IF DCBLRECL CHANGED

Date Tuesday Oct 09, 1979 07:06:00 AM
Loaded from MAINT(193)

       R09791DS: ./ R 486500 $ 486500
       R09791DS:          LR    R1,R7               USER WORKAREA FOR MOVE MODE @VA09791
 BEGIN APPLY >>> ./ R 486500 $ 486500
   END APPLY >>> ./ R 486500 $ 486500
Update Succeeded
Update Execution Time 16 milliseconds.

Date Tuesday Oct 09, 1979 07:06:00 AM
Loaded from MAINT(193)

       R09591DS: ./ I 642400 $ 642550 150
       R09591DS: PUTLRET  EQU   *                                               @VA09591
       R09591DS:          SR    R5,R7           ADDRESS(END OF CURRENT RECORD)  @VA09591
       R09591DS:          XC    0(4,R5),0(R5)       CLEAR NEXT POSSIBLE RDW     @VA09591
       R09591DS: ./ R 662000 $ 662000
       R09591DS:          BNL   PUTLRET             YES, NEXT RECORD WILL FIT   @VA09591
 BEGIN APPLY >>> ./ I 642400 $ 642550 150
   END APPLY >>> ./ I 642400 $ 642550 150
 BEGIN APPLY >>> ./ R 662000 $ 662000
   END APPLY >>> ./ R 662000 $ 662000
Update Succeeded
Update Execution Time 16 milliseconds.

Date Tuesday Oct 09, 1979 07:06:00 AM
Loaded from MAINT(193)

       R09543DS: ./ D 284700 $
       R09543DS: ./ I 284740 $ 284750 10
       R09543DS:          AH    R1,DCBLRECL         UPDATE TO NEXT RECORD       @VA09543
 BEGIN APPLY >>> ./ D 284700 $
   END APPLY >>> ./ D 284700 $
 BEGIN APPLY >>> ./ I 284740 $ 284750 10
   END APPLY >>> ./ I 284740 $ 284750 10
Update Succeeded
Update Execution Time 16 milliseconds.

Date Tuesday Oct 09, 1979 09:06:00 AM
Loaded from MAINT(193)

       R10035DS: ./ R 429000 $ 429050 50
       R10035DS:          BNH   GET1C1           NO END OF BLOCK - ELSE BRANCH  @VA10035
       R10035DS:          TM    DCBRECFM,VAR        VARIABLE FILE ?             @VA10035
       R10035DS:          BNO   GOT                 NO , NOT EOB                @VA10035
       R10035DS:          CLC   FCBREAD+2(2),=XL2'0012'  MINIMUM BLKSIZE ?      @VA10035
       R10035DS:          BNE   GOT                 NO,CORRECT LENGTH           @VA10035
       R10035DS: GET1C1   EQU   *                   END OF BLOCK                @VA10035
 BEGIN APPLY >>> ./ R 429000 $ 429050 50
   END APPLY >>> ./ R 429000 $ 429050 50
Update Succeeded
Update Execution Time 8 milliseconds.

Date Monday Dec 17, 1979 11:15:00 AM
Loaded from MAINT(193)

       R09696DS: ./ I 448000 $ 448008 8
       R09696DS:          C     R6,=X'00010000'    DOES COUNT OVERFLOW HALFWORD @VA09696
       R09696DS:          BL    GET1E              NO, CONTINUE                 @VA09696
       R09696DS:          XR    R6,R6              CLEAR REGISTER FOR DIVIDE    @VA09696
       R09696DS:          L     R7,FCBREAD         GET ACTUAL NUM OF BYTES READ @VA09696
       R09696DS:          LH    R8,FCBRECL         GET LOGICAL RECORD LENGTH    @VA09696
       R09696DS:          N     R8,HALFWORD        CLEAR TOP OF REGISTER        @VA09696
       R09696DS:          DR    R6,R8              CALC ITEMS IN LAST BLOCK     @VA09696
       R09696DS:          LH    R6,FCBITEM         PICK UP ITEM COUNT           @VA09696
       R09696DS:          N     R6,HALFWORD        CLEAR TOP OF REGISTER        @VA09696
       R09696DS:          AR    R6,R7              ADD COUNT OF ITEMS JUST READ @VA09696
       R09696DS: GET1E    EQU   *                                               @VA09696
 BEGIN APPLY >>> ./ I 448000 $ 448008 8
   END APPLY >>> ./ I 448000 $ 448008 8
Update Succeeded
Update Execution Time 16 milliseconds.

Date Tuesday Dec 16, 1980 12:15:00 PM
Loaded from MAINT(193)

       R12285DS: ./ I 00543000          $ 543500 500                   11/01/80 09:51:46
       R12285DS:          XC    0(8,R5),0(R5)      CLEAR BDW AND RDW            @VA12285
 BEGIN APPLY >>> ./ I 00543000          $ 543500 500                   11/01/80 09:51:46
   END APPLY >>> ./ I 00543000          $ 543500 500                   11/01/80 09:51:46
Update Succeeded
Update Execution Time 16 milliseconds.

Date Monday Feb 15, 1982 09:30:00 AM
Loaded from MAINT(193)

       R14923DS: ./ R 00589100 $
       R14923DS:          BO    UNDSIZE            YES, WRITE RECORD            @VA14923
 BEGIN APPLY >>> ./ R 00589100 $
   END APPLY >>> ./ R 00589100 $
Update Succeeded
Update Execution Time 16 milliseconds.