• Abstract / Synopsis of DMSSTT
• Latest Source of DMSSTT
• Fixes Applied : 4
• Latest Source Date : Tuesday, December 12, 1978
• Last Fix ID : [HRC105DS]

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

1. R09015DS 601 DMSSTT WAS ISSUING MSG 069E EVEN WHEN CALLED AS CMS FUNCTION
2. R14295DS 624 UV05539 DMSSTT STATEW COMMAND ON OS R/O DISK
3. HRC002DS V01 ADD MORE MINIDISKS & TAPES TO MATCH VM/SP
4. HRC105DS H40 Extend FSTD / STATEFST for greater VM/SP compatibility

Date Tuesday Jan 30, 1979 01:04:00 AM
Loaded from MAINT(193)

       R09015DS: ./ R 87450 $ 87450 20                                                   DMS00010
       R09015DS: * |      AND THE "DISK NOT ACCESSED"  ERROR MESSAGES                    DMS00020
       R09015DS: *        ARE NOT ISSUED.   ALL OTHER MESSAGES                           DMS00030
       R09015DS: ./ R 320000 320200 $ 320000 20                                          DMS00040
       R09015DS: ERR069E  DS    0H             CMS "DSIK NOT ACCESSED"          @VA09015 DMS00050
       R09015DS:          CLI   REGSAV3+4,X'0C' COMMAND OR FUNCTION ?           @VA09015 DMS00060
       R09015DS:          BL    CODE36          FUNCTION: OMIT ERROR MESSAGE    @VA09015 DMS00070
       R09015DS:          CLI   REGSAV3+4,X'0D' CHECK FURTHER (0C/0D)...        @VA09015 DMS00080
       R09015DS:          BH    CODE36          FUNCTION: OMIT ERROR MESSAGE    @VA09015 DMS00090
 BEGIN APPLY >>> ./ R 87450 $ 87450 20                                                   DMS00010
   END APPLY >>> ./ R 87450 $ 87450 20                                                   DMS00010
 BEGIN APPLY >>> ./ R 320000 320200 $ 320000 20                                          DMS00040
   END APPLY >>> ./ R 320000 320200 $ 320000 20                                          DMS00040
Update Succeeded
Update Execution Time 16 milliseconds.

Date Wednesday Oct 14, 1981 09:58:00 AM
Loaded from MAINT(193)

       R14295DS: ./ I 00220100          $ 220120 20                    10/02/81 10:24:49
       R14295DS:          BZ    OK1B           TRF IF NOT                       @VA14295
       R14295DS:          CLM   R10,7,VCFSTLKW+1    WAS THIS A STATEW CALL?     @VA14295
       R14295DS:          BNE   OK2            TRF IF NOT                       @VA14295
       R14295DS:          TM    ADTFLG3,ADTFRWOS    READ/WRITE OS DISK?         @VA14295
       R14295DS: ./ R 00221000          $ 221000 300                   10/02/81 10:24:49
       R14295DS:          LR    R5,R3          ERROR - SET UP R5                @VA14295
       R14295DS:          B     ERR002E                                         @VA14295
       R14295DS: OK1B     TM    ADTFLG1,ADTFRO+ADTFRW IS DISK ACCESSED          @VA14295 00221000
 BEGIN APPLY >>> ./ I 00220100          $ 220120 20                    10/02/81 10:24:49
   END APPLY >>> ./ I 00220100          $ 220120 20                    10/02/81 10:24:49
 BEGIN APPLY >>> ./ R 00221000          $ 221000 300                   10/02/81 10:24:49
   END APPLY >>> ./ R 00221000          $ 221000 300                   10/02/81 10:24:49
Update Succeeded
Update Execution Time 16 milliseconds.

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

       HRC002DS: ./ R 00193000 00200000 $ 193690 690                   03/19/06 12:33:29
       HRC002DS:          CLI   24(R3),C'I'    COMPARE MODE LETTER WITH 'I'     HRC002DS 00193690
       HRC002DS:          BNH   OK1            MODE OK (A-I)                    HRC002DS 00194380
       HRC002DS:          CLI   24(R3),C'J'    COMPARE MODE LETTER WITH 'J'     HRC002DS 00195070
       HRC002DS:          BL    ERR048E        MODE BAD(< J)                    HRC002DS 00195760
       HRC002DS:          CLI   24(R3),C'R'    COMPARE MODE LETTER WITH 'R'     HRC002DS 00196450
       HRC002DS:          BNH   OK1            MODE OK (J-R)                    HRC002DS 00197140
       HRC002DS:          CLI   24(R3),C'S'    COMPARE MODE LETTER WITH 'S'     HRC002DS 00197830
       HRC002DS:          BL    ERR048E        MODE BAD(< S)                    HRC002DS 00198520
       HRC002DS:          CLI   24(R3),C'Z'    COMPARE WITH 'Z'                 HRC002DS 00199210
       HRC002DS:          BNH   OK1            MODE OK IF BTWEEN A AND Z        HRC002DS 00199900
       HRC002DS: ./ I 00202000          $ 202500 500                   03/19/06 12:33:29
       HRC002DS:          B     ERR048E        ANYTHING ELSE IS AN ERROR        HRC002DS 00202500
 BEGIN APPLY >>> ./ R 00193000 00200000 $ 193690 690                   03/19/06 12:33:29
   END APPLY >>> ./ R 00193000 00200000 $ 193690 690                   03/19/06 12:33:29
 BEGIN APPLY >>> ./ I 00202000          $ 202500 500                   03/19/06 12:33:29
   END APPLY >>> ./ I 00202000          $ 202500 500                   03/19/06 12:33:29
Update Succeeded
Update Execution Time 23 milliseconds.

Date Sunday Mar 11, 2018 06:48:00 PM
Loaded from MAINT(093)

       HRC105DS: ./ I 00141000          $ 00141100 100
       HRC105DS: *        Also fill in various members in an extended STATEFST. HRC105DS
       HRC105DS: *        This is done for compatibility with later software    HRC105DS
       HRC105DS: *        which targets VM/SP, however, it is not possible to   HRC105DS
       HRC105DS: *        use the greater capacity of some of these counters    HRC105DS
       HRC105DS: *        with 800 byte disk blocks which are limited to 40     HRC105DS
       HRC105DS: *        byte FSTs and cannot accomodate the larger values.    HRC105DS
       HRC105DS: ./ I 00260000          $ 00260005 5
       HRC105DS:          XC    FVSFSTAB+0(2),FVSFSTAB Clear top half of word   HRC105DS
       HRC105DS:          MVC   FVSFSTAB+2(2),FVSFSTDB Store alt. block count   HRC105DS
       HRC105DS:          XC    FVSFSTAI+0(2),FVSFSTAI Clear top half of word   HRC105DS
       HRC105DS:          MVC   FVSFSTAI+2(2),FVSFSTIC Store alt. item count    HRC105DS
       HRC105DS:          PACK  FVSFSTAT(2),FVSFSTYR(3) Put year into 1st byte  HRC105DS
       HRC105DS:          MVC   FVSFSTAT+1(4),FVSFSTDT Rest of date and time    HRC105DS
       HRC105DS:          MVI   FVSFSTAT+5,X'29' Pull seconds from thin air     HRC105DS
       HRC105DS: *        Somebody fix this properly before 2070.               HRC105DS
       HRC105DS:          CLI   FVSFSTAT,X'69' Is year greater than 69?         HRC105DS
       HRC105DS:          BH    LASTCENT       Year is probably 1970-1999 then  HRC105DS
       HRC105DS:          O     R15,=F'8'      Set flag bit for 21st century    HRC105DS
       HRC105DS: LASTCENT EQU   *                                               HRC105DS
 BEGIN APPLY >>> ./ I 00141000          $ 00141100 100
   END APPLY >>> ./ I 00141000          $ 00141100 100
 BEGIN APPLY >>> ./ I 00260000          $ 00260005 5
   END APPLY >>> ./ I 00260000          $ 00260005 5
Update Succeeded
Update Execution Time 16 milliseconds.