User Tools

Site Tools


ibm:vm370-lib:cms:dmstpe.assemble_hst

DMSTPE History

References

Update History

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

Update Order

  1. R11305DS 613 UV01191 DMSTPE RC=28 NOT GIVEN ON 'TAPE SCAN FN FT'
  2. R11834DS 618 UV02018 TAPE MAP WRITTEN AS A1 INSTEAD OF A5
  3. R11948DS 618 UV02795 GET RC0 WHEN TAPE SCAN A BLANK TAPE
  4. R13090DS 620 UV04009 PE11305 TAPE SKIP RECEIVES RETURN CODE 28.
  5. R14196DS 625 UV05588 DMSTPE NO MSDMSTPE069E DISK NOT ACCESSED.
  6. R14821DS 628 UV06194 DMSTPE NO MSDMSSTT062E INVALID FN STARTS WITH *.
  7. HRC002DS V01 ADD MORE MINIDISKS & TAPES TO MATCH VM/SP - TAPE

R11305DS

Date Friday Jun 06, 1980 05:23:00 AM
Loaded from MAINT(193)
       R11305DS: ./ R 1061000 $ 1061000 100
       R11305DS:          TM   TPEFLG,MATCHFN+MATCHFT+MATCHFM    ANY MATCH ?    @VA11305
       R11305DS:          BZ   PRTFILID        NO MATCH, DON'T SET FLAG         @VA11305
       R11305DS:          OI   TPEFLG,INPUT    NOTE THAT A FILE WAS FOUND       @VA11305
       R11305DS: PRTFILID EQU  *                                                @VA11305
       R11305DS: ./ I 1211000 $ 1211100
       R11305DS:          TM   FLAGS,SCNSWT+LOADSWT SCAN/LOAD W/NO FILEID       @VA11305
       R11305DS:          BM   RETURN          WE DON"T CARE                    @VA11305
 BEGIN APPLY >>> ./ R 1061000 $ 1061000 100
   END APPLY >>> ./ R 1061000 $ 1061000 100
 BEGIN APPLY >>> ./ I 1211000 $ 1211100
   END APPLY >>> ./ I 1211000 $ 1211100
Update Succeeded
Update Execution Time 23 milliseconds.

R11834DS

Date Tuesday Dec 16, 1980 12:15:00 PM
Loaded from MAINT(193)
       R11834DS: ./ R 418000 $ 418000
       R11834DS:          LA    R1,PERASE      ERASE 'TAPE MAP A5' IF IT EXISTS @VA11834
       R11834DS: ./ R 1657000 $ 1657000
       R11834DS: OUTDISK  DS    0D             OUTPUT TO FILE TAPE MAP A5       @VA11834
       R11834DS: ./ R 1661000 $ 1661000
       R11834DS: OUTMODE  DC    CL2'A5'        FILE MODE                        @VA11834
       R11834DS: ./ R 1715000 $ 1715000
       R11834DS:          DC    CL2'A5'        A DISK ONLY                      @VA11834
 BEGIN APPLY >>> ./ R 418000 $ 418000
   END APPLY >>> ./ R 418000 $ 418000
 BEGIN APPLY >>> ./ R 1657000 $ 1657000
   END APPLY >>> ./ R 1657000 $ 1657000
 BEGIN APPLY >>> ./ R 1661000 $ 1661000
   END APPLY >>> ./ R 1661000 $ 1661000
 BEGIN APPLY >>> ./ R 1715000 $ 1715000
   END APPLY >>> ./ R 1715000 $ 1715000
Update Succeeded
Update Execution Time 23 milliseconds.

R11948DS

Date Tuesday Dec 16, 1980 12:15:00 PM
Loaded from MAINT(193)
       R11948DS: ./ I 1060000 $ 1060500                                         @VA11948 00003000
       R11948DS:          OI    FLAGS2,NOTBLANK TAPE IS NOT A BLANK.            @VA11948 00004000
       R11948DS: ./ R 1208000 $ 1207500 100                                     @VA11948 00007000
       R11948DS: CHKINPUT EQU    *                                              @VA11948
       R11948DS:          TM    FLAGS2,NOTBLANK IS TAPE A BLANK TAPE?           @VA11948 00008000
       R11948DS:          BNO   ERR2RC         GIVE RETURN CODE.                @VA11948 00009000
       R11948DS:          TM    TPEFLG,INPUT   ANYTHING LOADED?                 @VA11948 00009000
       R11948DS: ./ I 1746000 $ 1746100 100                                     @VA11948 00011000
       R11948DS: FLAGS2   DC    X'00'          SECOND INTERNAL FLAG BYTE.       @VA11948 00012000
       R11948DS: NOTBLANK EQU   X'40'          TAPE IS NOT BLANK.               @VA11948 00012000
 BEGIN APPLY >>> ./ I 1060000 $ 1060500                                         @VA11948 00003000
   END APPLY >>> ./ I 1060000 $ 1060500                                         @VA11948 00003000
 BEGIN APPLY >>> ./ R 1208000 $ 1207500 100                                     @VA11948 00007000
   END APPLY >>> ./ R 1208000 $ 1207500 100                                     @VA11948 00007000
 BEGIN APPLY >>> ./ I 1746000 $ 1746100 100                                     @VA11948 00011000
   END APPLY >>> ./ I 1746000 $ 1746100 100                                     @VA11948 00011000
Update Succeeded
Update Execution Time 16 milliseconds.

R13090DS

Date Friday Apr 10, 1981 04:10:00 AM
Loaded from MAINT(193)
       R13090DS: ./ R 1211100 $ 1211100 5
       R13090DS:          TM    FLAGS,SCNSWT+LOADSWT+SKPSWT   WITH NO FILEID    @VA13090
 BEGIN APPLY >>> ./ R 1211100 $ 1211100 5
   END APPLY >>> ./ R 1211100 $ 1211100 5
Update Succeeded
Update Execution Time 23 milliseconds.

R14196DS

Date Thursday Oct 15, 1981 05:01:00 PM
Loaded from MAINT(193)
       R14196DS: ./ I 00067000 $ 00067500 100
       R14196DS: *                36 : TARGET DISK NOT ACCESSED                 @VA14196
       R14196DS: ./ I 00753000 $ 00753500 50
       R14196DS:          CH    R15,=H'36'          DISK NOT ACCESSED           @VA14196
       R14196DS:          BE    ERROR069            YES, ISSUE ERROR MSG        @VA14196
       R14196DS: ./ I 00981000 $ 00981500 50
       R14196DS:          CH    R15,=H'36'          DISK NOT ACCESSED           @VA14196
       R14196DS:          BE    ERROR069            YES, ISSUE ERROR MSG        @VA14196
       R14196DS: ./ I 01400000 $ 01400500 20
       R14196DS: *                                                              @VA14196
       R14196DS: ERROR069 EQU   *                                               @VA14196
       R14196DS:          DMSERR TEXT='DISK ''..'' NOT ACCESSED',NUM=69,                X
       R14196DS:                LET=E,SUB=(CHARA,(STATFM,1))                    @VA14196
       R14196DS:          LA    R15,36            RETURN CODE = 36              @VA14196
       R14196DS:          B     ERRET30                                         @VA14196
 BEGIN APPLY >>> ./ I 00067000 $ 00067500 100
   END APPLY >>> ./ I 00067000 $ 00067500 100
 BEGIN APPLY >>> ./ I 00753000 $ 00753500 50
   END APPLY >>> ./ I 00753000 $ 00753500 50
 BEGIN APPLY >>> ./ I 00981000 $ 00981500 50
   END APPLY >>> ./ I 00981000 $ 00981500 50
 BEGIN APPLY >>> ./ I 01400000 $ 01400500 20
   END APPLY >>> ./ I 01400000 $ 01400500 20
Update Succeeded
Update Execution Time 23 milliseconds.

R14821DS

Date Monday Feb 15, 1982 09:30:00 AM
Loaded from MAINT(193)
       R14821DS: ./ I 00745000          $ 745500  100
       R14821DS:          MVC   STATFN(16),SAVEFN HAVE STATE CHECK FN AND FT    @VA14821
       R14821DS: ./ I 00975000          $ 975500  100
       R14821DS:          MVC   STATFN(16),SAVEFN HAVE STATE CHECK FN AND FT    @VA14821
       R14821DS: ./ R 01709000          $ 1709500 100
       R14821DS: STATFN   DC    CL8' '                                          @VA14821
 BEGIN APPLY >>> ./ I 00745000          $ 745500  100
   END APPLY >>> ./ I 00745000          $ 745500  100
 BEGIN APPLY >>> ./ I 00975000          $ 975500  100
   END APPLY >>> ./ I 00975000          $ 975500  100
 BEGIN APPLY >>> ./ R 01709000          $ 1709500 100
   END APPLY >>> ./ R 01709000          $ 1709500 100
Update Succeeded
Update Execution Time 23 milliseconds.

HRC002DS

Date Thursday Feb 09, 2006 09:23:00 PM
Loaded from MAINT(093)
       HRC002DS: ./ R 00132000          $ 132490 490                   01/01/06 12:32:36
       HRC002DS: *        IN RANGE OF 180-187, 288-28F (TAP0-TAP7, TAP8-TAPF) ARHRC002DS 00132490
       HRC002DS: ./ R 00305000          $ 305190 190                   01/01/06 12:32:36
       HRC002DS:          DC    CL8'TAP0'      TAP0                             HRC002DS 00305190
       HRC002DS:          DC    AL1(4),AL3(TAPE50)                              HRC002DS 00305380
       HRC002DS: TAP1     DC    CL8'TAP1'      TAP1                             HRC002DS 00305570
       HRC002DS: ./ R 00312000          $ 312030 30                    01/01/06 12:32:36
       HRC002DS:          DC    AL1(4),AL3(TAPE50)                              HRC002DS 00312030
       HRC002DS:          DC    CL8'TAP5'      TAP5                             HRC002DS 00312060
       HRC002DS:          DC    AL1(4),AL3(TAPE50)                              HRC002DS 00312090
       HRC002DS:          DC    CL8'TAP6'      TAP6                             HRC002DS 00312120
       HRC002DS:          DC    AL1(4),AL3(TAPE50)                              HRC002DS 00312150
       HRC002DS:          DC    CL8'TAP7'      TAP7                             HRC002DS 00312180
       HRC002DS:          DC    AL1(4),AL3(TAPE50)                              HRC002DS 00312210
       HRC002DS:          DC    CL8'TAP8'      TAP8                             HRC002DS 00312240
       HRC002DS:          DC    AL1(4),AL3(TAPE50)                              HRC002DS 00312270
       HRC002DS:          DC    CL8'TAP9'      TAP9                             HRC002DS 00312300
       HRC002DS:          DC    AL1(4),AL3(TAPE50)                              HRC002DS 00312330
       HRC002DS:          DC    CL8'TAPA'      TAPA                             HRC002DS 00312360
       HRC002DS:          DC    AL1(4),AL3(TAPE50)                              HRC002DS 00312390
       HRC002DS:          DC    CL8'TAPB'      TAPB                             HRC002DS 00312420
       HRC002DS:          DC    AL1(4),AL3(TAPE50)                              HRC002DS 00312450
       HRC002DS:          DC    CL8'TAPC'      TAPC                             HRC002DS 00312480
       HRC002DS:          DC    AL1(4),AL3(TAPE50)                              HRC002DS 00312510
       HRC002DS:          DC    CL8'TAPD'      TAPD                             HRC002DS 00312540
       HRC002DS:          DC    AL1(4),AL3(TAPE50)                              HRC002DS 00312570
       HRC002DS:          DC    CL8'TAPE'      TAPE                             HRC002DS 00312600
       HRC002DS:          DC    AL1(4),AL3(TAPE50)                              HRC002DS 00312630
       HRC002DS:          DC    CL8'TAPF'      TAPF                             HRC002DS 00312660
       HRC002DS:          DC    AL1(4),AL3(TAPE50)                              HRC002DS 00312690
 BEGIN APPLY >>> ./ R 00132000          $ 132490 490                   01/01/06 12:32:36
   END APPLY >>> ./ R 00132000          $ 132490 490                   01/01/06 12:32:36
 BEGIN APPLY >>> ./ R 00305000          $ 305190 190                   01/01/06 12:32:36
   END APPLY >>> ./ R 00305000          $ 305190 190                   01/01/06 12:32:36
 BEGIN APPLY >>> ./ R 00312000          $ 312030 30                    01/01/06 12:32:36
   END APPLY >>> ./ R 00312000          $ 312030 30                    01/01/06 12:32:36
Update Succeeded
Update Execution Time 39 milliseconds.
ibm/vm370-lib/cms/dmstpe.assemble_hst.txt ยท Last modified: 2023/08/06 13:36 by Site Administrator