DMSBWR History

• Abstract / Synopsis of DMSBWR
• Latest Source of DMSBWR
• Fixes Applied : 3
• Latest Source Date : Tuesday, December 12, 1978
• Last Fix ID : [HRC012DS]

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

1. R10561DS 610 DMSBWR REJECTS I/O WHEN BUFFERS ARE IN A DCSS
2. R09491DS 612 UV01001 MSDMSTYP104S VARIABLE FILE UPDATED DIFFERENT LENGTH
3. HRC012DS V01 ADD ADDITIONAL CHARACTERS FOR FILE NAME

Date Wednesday Feb 27, 1980 01:30:00 AM
Loaded from MAINT(193)

       R10561DS: ./ R 396000 $ 396000 200
       R10561DS:          BNH   BUFOK          GO TO IT                         @VA10561
       R10561DS:          CLC   VMSIZE+1(3),SVCOPSW+5  DCSS USER..??            @VA10561
       R10561DS:          BH    ERROR22        NO KILL HIM (RC=2)               @VA10561
       R10561DS: BUFOK    EQU   *                                               @VA10561
 BEGIN APPLY >>> ./ R 396000 $ 396000 200
   END APPLY >>> ./ R 396000 $ 396000 200
Update Succeeded
Update Execution Time 16 milliseconds.

Date Wednesday May 07, 1980 04:30:00 AM
Loaded from MAINT(193)

       R09491DS: ./ I 90000 $ 90100 100
       R09491DS: *
       R09491DS: * 27. ATTEMPT TO UPDATE VARIABLE LENGTH ITEM WITH ONE OF DIFFERENT
       R09491DS: *     LENGTH
       R09491DS: ./ I 610000 $ 610500
       R09491DS:          NI    AFTFLG2,255-SAMELEN INITIALIZE SAME LENGTH      @VA09491
       R09491DS: ./ R 837000 $ 836040 40
       R09491DS:          CLM   R4,B'0011',AFTWP  REPLACING LAST RECORD ?       @VA09491
       R09491DS:          BE    LASTREC             YES, OK                     @VA09491
       R09491DS:          BL    MAYADD             CHECK FOR ADDING NEXT RECORD @VA09491
       R09491DS:          TM    AFTFLG2,AFTNEW      CHECK NEW FILE              @VA09491
       R09491DS:          BO    LASTREC             YES, ALLOW DIFFERENT LENGTH @VA09491
       R09491DS:          TM    DOSFLAGS,DOSMODE    IN DOS MOD ?                @VA09491
       R09491DS:          BO    LASTREC             YES, SKIP LENGTH CHECK      @VA09491
       R09491DS:          OI    AFTFLG2,SAMELEN     CHECK SAME LENGTH           @VA09491
       R09491DS:          LH    R6,FCBNUM           COUNT OF FCB ENTRIES        @VA09491
       R09491DS:          LTR   R6,R6               ARE THERE ANY ?             @VA09491
       R09491DS:          BZ    LASTREC             NO , SKIP THE CHECK         @VA09491
       R09491DS:          LA    R3,0(,R11)          POINT TO WRBUF PLIST        @VA09491
       R09491DS:          S     R3,SIXTEEN          BACK UP 4 WORDS             @VA09491
       R09491DS:          L     R7,FCBFIRST         FCB ANCHOR                  @VA09491
       R09491DS:          USING FCBSECT,R7          FCB ADDRESSABILITY          @VA09491
       R09491DS: LOOPFCB  EQU   *                                               @VA09491
       R09491DS:          CLC   FCBDD,EIGHT(R3)     FCB DDNAME IN PLIST         @VA09491
       R09491DS:          BE    FOUNDFCB            YES, CHECK IT               @VA09491
       R09491DS:          L     R7,0(,R7)           BUMP TO NEXT FCB            @VA09491
       R09491DS:          BCT   R6,LOOPFCB          LOOP THRU ENTRIES           @VA09491
       R09491DS:          B     LASTREC             NOT FOUND                   @VA09491
       R09491DS: FOUNDFCB EQU   *                   CHECK RECORD FORMAT         @VA09491
       R09491DS:          NI    AFTFLG2,255-SAMELEN NO LENGTH CHECK             @VA09491
       R09491DS:          LA    R7,0(,R7)           CLEAR HIGH BYTE             @VA09491
       R09491DS:          CR    R7,R3               THE SAME FCB ?              @VA09491
       R09491DS:          BNE   LASTREC             NO, FORGET IT               @VA09491
       R09491DS:          ICM   R3,M7,DEBDCBAD+1    DCB POINTER IN FCB          @VA09491
       R09491DS:          BZ    LASTREC             NO , SKIP DCB CHECK         @VA09491
       R09491DS:          C     R3,VMSIZE           BEYOND ADDRESSABILITY       @VA09491
       R09491DS:          BNL   LASTREC             YES , SKIP IT               @VA09491
       R09491DS:          USING IHADCB,R3           DCB ADDRESSABILITY          @VA09491
       R09491DS:          TM    DCBRECFM,UND        RECFM = UNDEFINED           @VA09491
       R09491DS:          BO    LASTREC             YES , SKIP LENGTH CHECK     @VA09491
       R09491DS:          OI    AFTFLG2,SAMELEN ALL REPLACES MUST BE            @VA09491
       R09491DS: *                                  THE SAME LENGTH AS BEFORE   @VA09491
       R09491DS:          B     LASTREC             BYPASS NEXT CHECK           @VA09491
       R09491DS:          DROP  R3                  DROP DCB ADDRESSABILITY     @VA09491
       R09491DS:          DROP  R7                  DROP FCB ADDRESSABILITY     @VA09491
       R09491DS: MAYADD   DS    0H                                              @VA09491
       R09491DS:          LA    R4,1(,R4)           CHECK FOR ADDING ONE RECORD @VA09491
       R09491DS: ./ I 841000 $ 841500
       R09491DS: LASTREC  DS    0H                                              @VA09491
       R09491DS: ./ I 931000 $ 931100 100
       R09491DS:          TM    AFTFLG2,SAMELEN     MUST CHECK LENGTH ?         @VA09491
       R09491DS:          BZ    LAB1                NO,CONTINUE                 @VA09491
       R09491DS:          CLC   0(2,R5),PNOBY+2(R11) IS LENGTH OK               @VA09491
       R09491DS:          BNE   ERROR27             NO , WRONG LENGTH           @VA09491
       R09491DS: LAB1     DS    0H                                              @VA09491
       R09491DS: ./ I 939000 $ 939100 100
       R09491DS:          TM    AFTFLG2,SAMELEN     MUST CHECK LENGTH ?         @VA09491
       R09491DS:          BZ    LAB2                NO, CONTINUE                @VA09491
       R09491DS:          CLC   0(1,R5),PNOBY+2(R11) IS FIRST HALF OK ?         @VA09491
       R09491DS:          BNE   ERROR27             NOPE                        @VA09491
       R09491DS: LAB2     DS    0H                                              @VA09491
       R09491DS: ./ I 943000 $ 943100 100
       R09491DS:          TM    AFTFLG2,SAMELEN     MUST CHECK LENGTH           @VA09491
       R09491DS:          BZ    LAB3                NO, CONTINUE                @VA09491
       R09491DS:          CLC   0(1,R5),PNOBY+3(R11) IS SECOND HALF OK ?        @VA09491
       R09491DS:          BNE   ERROR27             NO, DIFFERENT LENGTH        @VA09491
       R09491DS: LAB3     DS    0H                                              @VA09491
       R09491DS: ./ I 953000 $ 953100 100
       R09491DS:          TM    AFTFLG2,SAMELEN     MUST CHECK LENGTH           @VA09491
       R09491DS:          BZ    LAB4                NO, CONTINUE                @VA09491
       R09491DS:          CLC   0(2,R5),PNOBY+2(R11) IS LENGTH OK               @VA09491
       R09491DS:          BNE   ERROR27             NO, DIFFERENT LENGTH        @VA09491
       R09491DS: LAB4     DS    0H                                              @VA09491
       R09491DS: ./ I 959000 $ 959200 200
       R09491DS: ERROR27  EQU   *                                               @VA09491
       R09491DS:          LA    R15,27              ERROR CODE 26               @VA09491
       R09491DS:          B     ERR                 RETURN WITH AN ERROR        @VA09491
       R09491DS: ./ I 1198000 $ 1198500
       R09491DS: SIXTEEN  DC    F'16'               FULLWORD SIXTEEN            @VA09491
       R09491DS: ./ I 1216000 $ 1216200 200
       R09491DS: M7       EQU   7                   MASK SEVEN                  @VA09491
       R09491DS: EIGHT    EQU   8                   MISCELLANEOUS 8             @VA09491
       R09491DS: ./ I 1427000 $ 1427200 200
       R09491DS:          DCBD  DSORG=(PS)
       R09491DS:          CMSCB
 BEGIN APPLY >>> ./ I 90000 $ 90100 100
   END APPLY >>> ./ I 90000 $ 90100 100
 BEGIN APPLY >>> ./ I 610000 $ 610500
   END APPLY >>> ./ I 610000 $ 610500
 BEGIN APPLY >>> ./ R 837000 $ 836040 40
   END APPLY >>> ./ R 837000 $ 836040 40
 BEGIN APPLY >>> ./ I 841000 $ 841500
   END APPLY >>> ./ I 841000 $ 841500
 BEGIN APPLY >>> ./ I 931000 $ 931100 100
   END APPLY >>> ./ I 931000 $ 931100 100
 BEGIN APPLY >>> ./ I 939000 $ 939100 100
   END APPLY >>> ./ I 939000 $ 939100 100
 BEGIN APPLY >>> ./ I 943000 $ 943100 100
   END APPLY >>> ./ I 943000 $ 943100 100
 BEGIN APPLY >>> ./ I 953000 $ 953100 100
   END APPLY >>> ./ I 953000 $ 953100 100
 BEGIN APPLY >>> ./ I 959000 $ 959200 200
   END APPLY >>> ./ I 959000 $ 959200 200
 BEGIN APPLY >>> ./ I 1198000 $ 1198500
   END APPLY >>> ./ I 1198000 $ 1198500
 BEGIN APPLY >>> ./ I 1216000 $ 1216200 200
   END APPLY >>> ./ I 1216000 $ 1216200 200
 BEGIN APPLY >>> ./ I 1427000 $ 1427200 200
   END APPLY >>> ./ I 1427000 $ 1427200 200
Update Succeeded
Update Execution Time 31 milliseconds.

Date Sunday Mar 19, 2006 12:47:00 PM
Loaded from MAINT(093)

       HRC012DS: ./ R 00441000          $ 441490 490                   03/19/06 12:47:52
       HRC012DS: CK       LA    R1,8(,R11)     POINT TO FILE NAME               HRC012DS 00441490
       HRC012DS: ./ R 00446000          $ 446490 490                   03/19/06 12:47:52
       HRC012DS: CKTYP    LA    R1,16(,R11)    POINT TO FILE TYPE               HRC012DS 00446490
       HRC012DS: ./ R 00512000 00524000 $ 512690 690                   03/19/06 12:47:52
       HRC012DS: PTEST    DS    0H             CHECK CHARACTER VALIDITY         HRC012DS 00512690
       HRC012DS:          LA    R5,7(,R1)      PNT AT LAST BYTE OF NAME         HRC012DS 00513380
       HRC012DS:          LR    R0,R1          SAVE POINTER BEFORE  TRT         HRC012DS 00514070
       HRC012DS:          TRT   0(8,R1),INVTBL CHECK FOR INVALID CHARACTER      HRC012DS 00514760
       HRC012DS:          BZR   R15            IF ALL OK, EXIT WITH CC = 0.     HRC012DS 00515450
       HRC012DS:          CR    R0,R1          DID TRT ERROR AT FIRST CHAR      HRC012DS 00516140
       HRC012DS:          BE    SETCODE        ERROR ON FIRST CHARACTER         HRC012DS 00516830
       HRC012DS:          SR    R5,R1          CHECK IF FIRST CHAR INVALID      HRC012DS 00517520
       HRC012DS: *                             SIZE IS -1 FOR EXECUTE INST      HRC012DS 00518210
       HRC012DS:          BMR   R15            TSK! TSK! BAD LIST               HRC012DS 00518900
       HRC012DS:          EX    R5,CLC         CHECK THE REST FOR BLANKS        HRC012DS 00519590
       HRC012DS:          BR    R15            EXIT WITH CC SET 0 OR ¬0         HRC012DS 00520280
       HRC012DS: SETCODE  DS    0H             SET A NON ZERO CONDITION CODE    HRC012DS 00520970
       HRC012DS:          CR    R15,R1         R15 = RETURN, R1 = PRAM LIST     HRC012DS 00521660
       HRC012DS:          BR    R15            RETURN TO CALLER WITH CC = 2     HRC012DS 00522350
       HRC012DS: CLC      CLC   0(0,R1),INVTBL CHECK FOR BLANKS IN NAME         HRC012DS 00523040
       HRC012DS: ./ R 01358000          $ 1358490 490                  03/19/06 12:47:52
       HRC012DS: ERROR22   DMSERR    TEXT='Virtual Storage capacity exceeded',  @VA02525X01358490
       HRC012DS: ./ R 01371000          $ 1371290 290                  03/19/06 12:47:52
       HRC012DS: BUSTMSG  DC    C'Disk ''..(....)'' has maximum number of files'        *01371490
       HRC012DS:                                                                HRC012DS
       HRC012DS: ./ R 01374000          $ 1374490 490                  03/19/06 12:47:52
       HRC012DS: FULLMSG  DC    C'Disk ''..(....)'' is full'                    HRC012DS 01374490
       HRC012DS: ./ R 01377000 01379000 $ 1377190 190                  03/19/06 12:47:52
       HRC012DS: INVTBL   DC    256X'40'       X'40' MEANS "INVALID"            HRC012DS 01377190
       HRC012DS:          ORG   INVTBL+78                                       HRC012DS 01377380
       HRC012DS:          DC    X'00'         '+' IS VALID PLUS                 HRC012DS 01377570
       HRC012DS:          ORG   INVTBL+91                                       HRC012DS 01377760
       HRC012DS:          DC    X'00'         '$' IS VALID DOLLAR               HRC012DS 01377950
       HRC012DS:          ORG   INVTBL+96                                       HRC012DS 01378140
       HRC012DS:          DC    X'00'         '-' IS VALID DASH/HYPHEN          HRC012DS 01378330
       HRC012DS:          ORG   INVTBL+109                                      HRC012DS 01378520
       HRC012DS:          DC    X'00'         '_' IS VALID UNDERSCORE           HRC012DS 01378710
       HRC012DS:          ORG   INVTBL+122                                      HRC012DS 01378900
       HRC012DS:          DC    X'00'         ':' IS VALID COLON                HRC012DS 01379090
       HRC012DS: ./ R 01396000          $ 1396490 490                  03/19/06 12:47:52
       HRC012DS:          ORG   ,                                               HRC012DS 01396490
 BEGIN APPLY >>> ./ R 00441000          $ 441490 490                   03/19/06 12:47:52
   END APPLY >>> ./ R 00441000          $ 441490 490                   03/19/06 12:47:52
 BEGIN APPLY >>> ./ R 00446000          $ 446490 490                   03/19/06 12:47:52
   END APPLY >>> ./ R 00446000          $ 446490 490                   03/19/06 12:47:52
 BEGIN APPLY >>> ./ R 00512000 00524000 $ 512690 690                   03/19/06 12:47:52
   END APPLY >>> ./ R 00512000 00524000 $ 512690 690                   03/19/06 12:47:52
 BEGIN APPLY >>> ./ R 01358000          $ 1358490 490                  03/19/06 12:47:52
   END APPLY >>> ./ R 01358000          $ 1358490 490                  03/19/06 12:47:52
 BEGIN APPLY >>> ./ R 01371000          $ 1371290 290                  03/19/06 12:47:52
   END APPLY >>> ./ R 01371000          $ 1371290 290                  03/19/06 12:47:52
 BEGIN APPLY >>> ./ R 01374000          $ 1374490 490                  03/19/06 12:47:52
   END APPLY >>> ./ R 01374000          $ 1374490 490                  03/19/06 12:47:52
 BEGIN APPLY >>> ./ R 01377000 01379000 $ 1377190 190                  03/19/06 12:47:52
   END APPLY >>> ./ R 01377000 01379000 $ 1377190 190                  03/19/06 12:47:52
 BEGIN APPLY >>> ./ R 01396000          $ 1396490 490                  03/19/06 12:47:52
   END APPLY >>> ./ R 01396000          $ 1396490 490                  03/19/06 12:47:52
Update Succeeded
Update Execution Time 31 milliseconds.