• Abstract / Synopsis of DMSSET
• Latest Source of DMSSET
• Fixes Applied : 7
• Latest Source Date : Wednesday, December 20, 1978
• Last Fix ID : [HRC009DS]

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

1. R09013DS 601 DMSSET HAS EXTRANEOUS DC AFTER END CARD IN SOURCE FILE
2. R09121DS 601 DMSSET SHOULD CHECK VALIDITY OF PARMS FOR INPUT/OUTPUT FIRST
3. R09234DS 602 MSDMSABN150W STORAGE LOST WHEN HX OF VSAM JOB
4. R11692DS 614 UV01763 CMSVSAM FLAG VSAMRUN NOT RESET WHEN DOS IS SET OFF
5. R11938DS 617 UV02343 DMSSET SHOULD COUNT FOR LDRTBLS IN CALOC ROUTINE
6. R15001DS 628 UV06024 DMSSET NOW STORES ADDR OF CMSSEG AFTER SET SYSNAME
7. HRC009DS V01 IMPLEMENT SUPPORT FOR SET ABEND COMMAND

Date Tuesday Dec 19, 1978 12:19:00 PM
Loaded from MAINT(193)

       R09013DS: ./ D 1590000
 BEGIN APPLY >>> ./ D 1590000
   END APPLY >>> ./ D 1590000
Update Succeeded
Update Execution Time 16 milliseconds.

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

       R09121DS: ./ D 366000 374000 $
       R09121DS: ./ I 385000 $ 385100 100
       R09121DS: CHKTBL   EQU   *                   DOES INPUT TABLE EXIST?     @VA09121
       R09121DS:          LTR   R1,R1               DO WE HAVE A TABLE IN USE?  @VA09121
       R09121DS:          BP    HIN2                BRANCH IF YES               @VA09121
       R09121DS:          LA    R0,INTBLEN          INDIC. SIZE OF TRANSL.TBL   @VA09121
       R09121DS:          DMSFREE DWORDS=(0),TYPE=NUCLEUS,ERR=NOSTORE           @VA09121
       R09121DS:          ST    R1,AINTRTBL         STORE ITS ADDRESS           @VA09121
       R09121DS:          MVC   0(256,R1),ITRTABLE  MOVE IN STANDARD TR. TBL    @VA09121
       R09121DS:          MVC   256(256,R1),OTRTABLE ALSO A 1 FOR 1 TABLE       @VA09121
       R09121DS: HIN2     EQU   *                                               @VA09121
       R09121DS: ./ D 409000 415000 $
       R09121DS: ./ I 426000 $ 426100 100
       R09121DS:          LTR   R1,R1               DO WE HAVE A TABLE IN USE?  @VA09121
       R09121DS:          BP    HOUT2               BRANCH IF YES               @VA09121
       R09121DS:          LA    R0,OUTBLEN          INDIC. SIZE OF TRANSL.TBL   @VA09121
       R09121DS:          DMSFREE DWORDS=(0),TYPE=NUCLEUS,ERR=NOSTORE           @VA09121
       R09121DS:          ST    R1,AOUTRTBL         STORE ITS ADDRESS           @VA09121
       R09121DS:          MVC   0(256,R1),OTRTABLE  MOVE IN STANDARD TR. TBL    @VA09121
       R09121DS: HOUT2    EQU   *                                               @VA09121
       R09121DS: ./ R 1561000 1563000 $ 1561000 1000
       R09121DS: FORTY    EQU   40                  RETURN CODE                 @VA09121
       R09121DS: CON175   EQU   175                 SIZE OF LTA 1400 BYTES      @VA09121
       R09121DS: OPT      EQU   X'80'               LANGUAGE TRANSLATOR OPTIONS @VA09121
 BEGIN APPLY >>> ./ D 366000 374000 $
   END APPLY >>> ./ D 366000 374000 $
 BEGIN APPLY >>> ./ I 385000 $ 385100 100
   END APPLY >>> ./ I 385000 $ 385100 100
 BEGIN APPLY >>> ./ D 409000 415000 $
   END APPLY >>> ./ D 409000 415000 $
 BEGIN APPLY >>> ./ I 426000 $ 426100 100
   END APPLY >>> ./ I 426000 $ 426100 100
 BEGIN APPLY >>> ./ R 1561000 1563000 $ 1561000 1000
   END APPLY >>> ./ R 1561000 1563000 $ 1561000 1000
Update Succeeded
Update Execution Time 31 milliseconds.

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

       R09234DS: ./ R 1039000 $ 1039500 500
       R09234DS:          LA    R0,CON175          $$B (LTA) SIZE               @VA09234
 BEGIN APPLY >>> ./ R 1039000 $ 1039500 500
   END APPLY >>> ./ R 1039000 $ 1039500 500
Update Succeeded
Update Execution Time 16 milliseconds.

Date Friday Jun 27, 1980 06:20:00 AM
Loaded from MAINT(193)

       R11692DS: ./ I 1013000 $ 1013500
       R11692DS:          NI    VSAMFLG1,X'FF'-VSAMRUN  RESET VSAM LOAD FLAG    @VA11692
 BEGIN APPLY >>> ./ I 1013000 $ 1013500
   END APPLY >>> ./ I 1013000 $ 1013500
Update Succeeded
Update Execution Time 16 milliseconds.

Date Thursday Oct 09, 1980 10:29:00 AM
Loaded from MAINT(193)

       R11938DS: ./ I 00603000          $ 603200 200                   09/23/80 19:52:06
       R11938DS: *                   DEFAULT : 2 PAGES FOR VIRTUAL MACHINES OF  @VA11938 00603200
       R11938DS: *                             LESS THAN OR EQUAL TO 384K, OR   @VA11938 00603400
       R11938DS: *                             3 PAGES FOR "LARGE MACHINES".    @VA11938 00603600
       R11938DS: ./ R 00621000 00622000 $ 621000 1000                  09/23/80 19:52:06
       R11938DS:          CLC   SMALLM,VMSIZE  IS MACHINE SIZE GT THAN  384K.?  @VA11938 00621000
       R11938DS:          BL    BIGM           IF NOT A "LARGE MACHINE"         @VA11938 00622000
       R11938DS: ./ R 00625000          $ 625000 1000                  09/23/80 19:52:06
       R11938DS: BIGM     EQU   *              FOR MACHINE GT 384K              @VA11938 00625000
       R11938DS: ./ D 00706000                                         09/23/80 19:52:06
       R11938DS: ./ R 01463000          $ 1463000 1000                 09/23/80 19:52:06
       R11938DS: SMALLM   DC    X'00060000'    SIZE OF MACHINE  HAVING 2 LDRTBLS@VA11938 01463000
 BEGIN APPLY >>> ./ I 00603000          $ 603200 200                   09/23/80 19:52:06
   END APPLY >>> ./ I 00603000          $ 603200 200                   09/23/80 19:52:06
 BEGIN APPLY >>> ./ R 00621000 00622000 $ 621000 1000                  09/23/80 19:52:06
   END APPLY >>> ./ R 00621000 00622000 $ 621000 1000                  09/23/80 19:52:06
 BEGIN APPLY >>> ./ R 00625000          $ 625000 1000                  09/23/80 19:52:06
   END APPLY >>> ./ R 00625000          $ 625000 1000                  09/23/80 19:52:06
 BEGIN APPLY >>> ./ D 00706000                                         09/23/80 19:52:06
   END APPLY >>> ./ D 00706000                                         09/23/80 19:52:06
 BEGIN APPLY >>> ./ R 01463000          $ 1463000 1000                 09/23/80 19:52:06
   END APPLY >>> ./ R 01463000          $ 1463000 1000                 09/23/80 19:52:06
Update Succeeded
Update Execution Time 23 milliseconds.

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

       R15001DS: ./ I 01245000          $ 01245500 500                01/13/82 15:05:57
       R15001DS:          ST    R3,ACMSSEG     SAVE SEGMENT ADDRESS IN NUCON    @VA15001
 BEGIN APPLY >>> ./ I 01245000          $ 01245500 500                01/13/82 15:05:57
   END APPLY >>> ./ I 01245000          $ 01245500 500                01/13/82 15:05:57
Update Succeeded
Update Execution Time 23 milliseconds.

Date Friday Feb 10, 2006 10:21:00 AM
Loaded from MAINT(093)

       HRC009DS: ./ I 00264000          $ 264300 300                   02/10/06 10:21:24
       HRC009DS:          DC    CL8'ABEND'     ABEND                            HRC009DS
       HRC009DS:          B     ABEND                                           HRC009DS
       HRC009DS: ./ I 00468000          $ 468020 20                    02/10/06 10:21:24
       HRC009DS:          EJECT ,                                               HRC009DS
       HRC009DS: *                                                              HRC009DS
       HRC009DS: * SET ABEND COMMAND LINE                                       HRC009DS
       HRC009DS: *                                                              HRC009DS
       HRC009DS: ABEND    EQU   *                                               HRC009DS
       HRC009DS:          L     R1,ABNCOMND    ADDR ABEND COMMAND               HRC009DS
       HRC009DS:          LTR   R1,R1          ANY THERE?                       HRC009DS
       HRC009DS:          BNP   CHKRES         NO, SKIP FRET CALL               HRC009DS
       HRC009DS:          LA    R0,17          ALWAYS 16 DWORDS                 HRC009DS
       HRC009DS:          DMSFRET LOC=(1),DWORDS=(0)                            HRC009DS
       HRC009DS:          ST    R15,ABNCOMND   ZERO OUT BUFFER                  HRC009DS
       HRC009DS: CHKRES   CLI   0(R3),X'FF'    REQUEST TO RESET?                HRC009DS
       HRC009DS:          BE    SR1515         DONE THAT ALREADY                HRC009DS
       HRC009DS:          LA    R0,17          GET A BUFFER                     HRC009DS
       HRC009DS:          DMSFREE DWORDS=(0),ERR=NOSTORE                        HRC009DS
       HRC009DS:          ST    R1,ABNCOMND    SAVE ADDRESS                     HRC009DS
       HRC009DS:          MVI   0(R1),C' '     TO BLANK BUFFER                  HRC009DS
       HRC009DS:          MVC   1(135,R1),0(R1)     BLANK REST OF IT            HRC009DS
       HRC009DS:          LA    R10,14         LOOP COUNT                       HRC009DS
       HRC009DS:          LA    R1,1(,R1)      LENGTH GOES IN FIRST BYTE        HRC009DS
       HRC009DS: ABNLOOP  CLI   0(R3),X'FF'    LAST PARM?                       HRC009DS
       HRC009DS:          BE    LOOPND         YES                              HRC009DS
       HRC009DS:          MVC   0(8,R1),0(R3)  MOVE IN PARM                     HRC009DS
       HRC009DS:          MVI   8(R1),C' '     SEPERATE PARMS                   HRC009DS
       HRC009DS:          LA    R3,8(,R3)      NEXT PARM IN SET PLIST           HRC009DS
       HRC009DS:          LA    R1,9(,R1)      NEXT POSITION IN BUFFER          HRC009DS
       HRC009DS:          BCT   R10,ABNLOOP    GET SOME MORE                    HRC009DS
       HRC009DS: LOOPND   BCTR  R1,0           NO BLANK AFTER LAST PARM         HRC009DS
       HRC009DS:          L     R3,ABNCOMND    START OF BUFFER                  HRC009DS
       HRC009DS:          SR    R1,R3          GET LENGTH OF COMMAND            HRC009DS
       HRC009DS:          BCTR  R1,0           MINUS ONE FOR LENGTH BYTE        HRC009DS
       HRC009DS:          STC   R1,0(R3)       SAVE LENGTH IN FIRST BYTE        HRC009DS
       HRC009DS:          B     SR1515         RETURN                           HRC009DS
 BEGIN APPLY >>> ./ I 00264000          $ 264300 300                   02/10/06 10:21:24
   END APPLY >>> ./ I 00264000          $ 264300 300                   02/10/06 10:21:24
 BEGIN APPLY >>> ./ I 00468000          $ 468020 20                    02/10/06 10:21:24
   END APPLY >>> ./ I 00468000          $ 468020 20                    02/10/06 10:21:24
Update Succeeded
Update Execution Time 31 milliseconds.