• Abstract / Synopsis of DMSROS
• Latest Source of DMSROS
• Fixes Applied : 5
• Latest Source Date : Tuesday, December 12, 1978
• Last Fix ID : [HRC004DS]

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

1. R09241DS 602 MSDMSFLD224E IF 2 OS DATASETS FILEDEF TO SAME DSN
2. R10090DS 605 OS NOTE AFTER POINT MAY RETURN WRONG ADDRESS
3. R11533DS 614 UV01625 INCORRECT RC FOR INVALID RECFM GIVEN FROM DMSROS
4. R13649DS 623 UV05075 OS DISK WITH INDEXED VTOC IS ACCESSED AS DOS DISK
5. HRC004DS V01 ADD SUPPORT FOR D/T3380

Date Friday Apr 20, 1979 04:19:00 AM
Loaded from MAINT(193)

       R09241DS: ./ I 297000 $ 297500 500
       R09241DS:          NI    ROSFLAG,255-DYNAMIC CLEAR DYNAMIC FLAG          @VA09241
       R09241DS: ./ I 327000 $ 327500 500
       R09241DS:          OI    ROSFLAG,DYNAMIC    DSN BLOCK CREATED            @VA09241
       R09241DS: ./ I 530000 $ 530100 100
       R09241DS:          TM    ROSFLAG,DYNAMIC    DSN BLOCK CREATED            @VA09241
       R09241DS:          BZ    ROSSTER1           NO , PROCEED                 @VA09241
       R09241DS:          L     R1,FCBOSDSN        ADDRESS OF DSN BLOCK         @VA09241
       R09241DS:          DMSFRET DWORDS=6,LOC=(1),TYPCALL=BALR                 @VA09241
       R09241DS:          XC    FCBOSDSN,FCBOSDSN  UNCHAIN THE DSN BLOCK        @VA09241
       R09241DS: ROSSTER1 DS    0H                                              @VA09241
       R09241DS: ./ R 639000 $ 638500 500
       R09241DS: ROSRET   EQU   *                                               @V201122
       R09241DS:          NI    ROSFLAG,255-DYNAMIC DSN BLOCK NOT CHAINED       @VA09241
       R09241DS:          LM    R0,R14,SAVEREGS    RESTORE REGS                 @V201122
       R09241DS: ./ I 1105000 $ 1105300 300
       R09241DS: ROSFLAG  DC    X'00'              CONTROL FLAGS                @VA09241
       R09241DS: DYNAMIC  EQU   X'80'              DSN BLOCK IS CHAINED         @VA09241
 BEGIN APPLY >>> ./ I 297000 $ 297500 500
   END APPLY >>> ./ I 297000 $ 297500 500
 BEGIN APPLY >>> ./ I 327000 $ 327500 500
   END APPLY >>> ./ I 327000 $ 327500 500
 BEGIN APPLY >>> ./ I 530000 $ 530100 100
   END APPLY >>> ./ I 530000 $ 530100 100
 BEGIN APPLY >>> ./ R 639000 $ 638500 500
   END APPLY >>> ./ R 639000 $ 638500 500
 BEGIN APPLY >>> ./ I 1105000 $ 1105300 300
   END APPLY >>> ./ I 1105000 $ 1105300 300
Update Succeeded
Update Execution Time 16 milliseconds.

Date Thursday Oct 11, 1979 09:21:00 AM
Loaded from MAINT(193)

       R10090DS: ./ D 837400 837800 $
       R10090DS: ./ I 839000 $ 839300 300
       R10090DS:          CLC   OSFSTCHR+2(2),OSFSTNTE+2 DID TRACK CHANGE ?     @VA10090
       R10090DS:          BNE   NEWTRK              YES, TAKE CARE OF IT        @VA10090
 BEGIN APPLY >>> ./ D 837400 837800 $
   END APPLY >>> ./ D 837400 837800 $
 BEGIN APPLY >>> ./ I 839000 $ 839300 300
   END APPLY >>> ./ I 839000 $ 839300 300
Update Succeeded
Update Execution Time 16 milliseconds.

Date Monday Jun 30, 1980 06:30:00 AM
Loaded from MAINT(193)

       R11533DS: ./ I 414200 $ 414300
       R11533DS: ERR82    EQU   *                                               @VA11533
       R11533DS: ./ R 423000  $ 423000
       R11533DS:          BZ    ERR82          ERROR IF NOT RECFM F, V OR UND   @VA11533
       R11533DS: ./ R 434000 $ 434000
       R11533DS:          BNP   ERR83          INVALID EXTENTS  - ERROR RC83    @VA11533
       R11533DS: ./ R 442000 443000 $ 442000
       R11533DS: ERR83    EQU   *                                               @VA11533
       R11533DS: ./ R 454000 $ 454000
       R11533DS:          B     ERR80          INVALID FORMAT 3 - ERROR RC80    @VA11533
       R11533DS: ./ R 497000  $ 497000
       R11533DS:          BNO   ERR82          INVALID BLKSIZE FOR OS D.S. RC82 @VA11533
       R11533DS: ./ R 547000  $ 547000
       R11533DS:          BZ    FCBNTFND       YES, FCB NOT FOUND - ERROR RC88  @VA11533
 BEGIN APPLY >>> ./ I 414200 $ 414300
   END APPLY >>> ./ I 414200 $ 414300
 BEGIN APPLY >>> ./ R 423000  $ 423000
   END APPLY >>> ./ R 423000  $ 423000
 BEGIN APPLY >>> ./ R 434000 $ 434000
   END APPLY >>> ./ R 434000 $ 434000
 BEGIN APPLY >>> ./ R 442000 443000 $ 442000
   END APPLY >>> ./ R 442000 443000 $ 442000
 BEGIN APPLY >>> ./ R 454000 $ 454000
   END APPLY >>> ./ R 454000 $ 454000
 BEGIN APPLY >>> ./ R 497000  $ 497000
   END APPLY >>> ./ R 497000  $ 497000
 BEGIN APPLY >>> ./ R 547000  $ 547000
   END APPLY >>> ./ R 547000  $ 547000
Update Succeeded
Update Execution Time 31 milliseconds.

Date Tuesday Sep 08, 1981 08:05:00 AM
Loaded from MAINT(193)

       R13649DS: ./ I 243300 $ 243500 200
       R13649DS:          TM    DS4VTOCI,DOSDASD+DS4VTOCX  INDEXED VTOC ?       @VA13649
       R13649DS:          BO    GETCYLS                    YES, OS DISK         @VA13649
       R13649DS: ./ I 1135300  $ 1135500 200
       R13649DS: DOSDASD  EQU   X'80'                      DOS PACK             @VA13649
       R13649DS: DS4VTOCX EQU   X'01'                      DSCB4 INDEXED VTOC   @VA13649
 BEGIN APPLY >>> ./ I 243300 $ 243500 200
   END APPLY >>> ./ I 243300 $ 243500 200
 BEGIN APPLY >>> ./ I 1135300  $ 1135500 200
   END APPLY >>> ./ I 1135300  $ 1135500 200
Update Succeeded
Update Execution Time 16 milliseconds.

Date Thursday Feb 09, 2006 09:26:00 PM
Loaded from MAINT(093)

       HRC004DS: ./ I 00364260          $ 364270 10                    01/28/06 13:40:03
       HRC004DS:          MVI   OSFSTTRK+3,X'0F' 3380 15 TRACKS PER CYLINDER    HRC004DS 00364270
       HRC004DS:          CLI   OSFSTTYP+1,X'0E'   IS THIS A 3380 ?             HRC004DS 00364280
       HRC004DS:          BE    GOTDSN           YES, READ FORMAT 1 DSCB        HRC004DS 00364290
 BEGIN APPLY >>> ./ I 00364260          $ 364270 10                    01/28/06 13:40:03
   END APPLY >>> ./ I 00364260          $ 364270 10                    01/28/06 13:40:03
Update Succeeded
Update Execution Time 23 milliseconds.