Table of Contents

DMKDAS History

References

Update History

CMS File Input : DMKDAS ASSEMBLE
Date : 12/7/1978 5:01:00 PM
VM Context : MAINT(394)
File Name : DMKDAS.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:45 AM
Created : 1/16/2021 7:31:45 AM

Update Order

  1. R09106DK 601 CORRECT CORRECTABLE DATA CHECKS, PREVENT RANDOM OVERLAYS
  2. R09957DK - CORRECT IOBLOK CONFLICT IN MSS SUPPORT
  3. R09516DK 607 UPDATE CSW RESIDUAL COUNT FOR CORRECTABLE DATA CHECKS
  4. R11674DK 615 UV01654 DMKDAS LEAVES IOBRCAW UNINITIALIZED
  5. R11702DK 616 ERRORS FOR PREFERRED PAGING PACKS WILL BE SPOOLED
  6. R09736DK 621 UV04472 CLEAN UP FOR 2305 BUFFER DATA
  7. R13021DK 622 UV04716 FIX CORRECTABLE DATA CHECK ERROR CAUSED BY V11674
  8. R12941DK 622 UV04884 SYNC ERROR RECOV FOR INTERVENTION REQUIRED COND.
  9. R12071DK 624 UV05295 RESTART PROPER CCW AFTER CORRECTABLE DATA CHECK
  10. R13424DK 624 UV05476 DMKDAS LEAVES IOBRCAW UNINITIALIZED
  11. R14597DK 629 UV06302 PRESENT COMMAND REJECT IF WRITE TO R/O DASD
  12. HRC011DK V01 ADD 3380 MDISK/DEDICATED DEVICE SUPPORT
  13. HRC202DK V03 GENERAL MESSAGE CLEAN UP

R09106DK

Date Monday Dec 18, 1978 12:11:00 PM
Loaded from MAINT(294)
       R09106DK: ./ R 1072000 $ 1072100 100                                              00001000
       R09106DK: NXTBYTE  EQU   *                                               @VA09106 00002000
       R09106DK:          XC    0(1,R2),0(ERREG2) OR IN CORRECTION BYTE         @VA09106 00003000
 BEGIN APPLY >>> ./ R 1072000 $ 1072100 100                                              00001000
   END APPLY >>> ./ R 1072000 $ 1072100 100                                              00001000
Update Succeeded
Update Execution Time 8 milliseconds.

R09957DK

Date Thursday Jul 12, 1979 09:51:00 AM
Loaded from MAINT(294)
       R09957DK: ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
 BEGIN APPLY >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
     Comment >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
   END APPLY >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
Update Succeeded
Update Execution Time 16 milliseconds.

R09516DK

Date Monday Dec 03, 1979 10:16:00 AM
Loaded from MAINT(294)
       R09516DK: ./ R 1120000 1121000 $ 1120100 200                                      00001000
       R09516DK:          XC    IOBCSW+6(2),IOBCSW+6 CLEAR CSW RESIDUAL COUNT   @VA09516 00002000
       R09516DK:          NI    IOBCSW+5,255-IL TURN OFF INCORRECT LENGTH       @VA09516 00003000
       R09516DK:          CLC   TOTALCNT(4),ECFCNT WAS FULL BLOCK TRANSFERRED   @VA09516 00004000
       R09516DK:          BE    ECFOVCK        YES, LENGTH OK                   @VA09516 00005000
       R09516DK:          L     ERREG2,ECFCNT  GET ORIGINAL LENGTH              @VA09516 00006000
       R09516DK:          S     ERREG2,TOTALCNT SUBTRACT ACTUAL BYTES READ      @VA09516 00007000
       R09516DK:          BM    SETLEN         INCORRECT LENGTH IF NEGATIVE     @VA09516 00008000
       R09516DK:          STH   ERREG2,IOBCSW+6 UPDATE CSW                      @VA09516 00009000
       R09516DK: ./ *           THIS LINE CHANGED JUST FOR STANDARDS                     00010000
       R09516DK: ./ R 1125000 $ 1125100                                                  00011000
       R09516DK:          OI    IOBCSW+5,IL    SET INCORRECT LENGTH BIT IN CSW  @VA09516 00012000
       R09516DK: ./ R 1303000 $ 1303100                                                  00013000
       R09516DK: ECFCNT   DS    F              CSW BYTE COUNT                   @VA09516 00014000
       R09516DK: ./ R 1312000 $ 1312100                                                  00015000
       R09516DK: TOTALCNT DS    F              NUMBER OF BYTES PROCESSED        @VA09516 00016000
 BEGIN APPLY >>> ./ R 1120000 1121000 $ 1120100 200                                      00001000
   END APPLY >>> ./ R 1120000 1121000 $ 1120100 200                                      00001000
 BEGIN APPLY >>> ./ *           THIS LINE CHANGED JUST FOR STANDARDS                     00010000
     Comment >>> ./ *           THIS LINE CHANGED JUST FOR STANDARDS                     00010000
   END APPLY >>> ./ *           THIS LINE CHANGED JUST FOR STANDARDS                     00010000
 BEGIN APPLY >>> ./ R 1125000 $ 1125100                                                  00011000
   END APPLY >>> ./ R 1125000 $ 1125100                                                  00011000
 BEGIN APPLY >>> ./ R 1303000 $ 1303100                                                  00013000
   END APPLY >>> ./ R 1303000 $ 1303100                                                  00013000
 BEGIN APPLY >>> ./ R 1312000 $ 1312100                                                  00015000
   END APPLY >>> ./ R 1312000 $ 1312100                                                  00015000
Update Succeeded
Update Execution Time 16 milliseconds.

R11674DK

Date Tuesday Jul 29, 1980 06:30:00 AM
Loaded from MAINT(294)
       R11674DK: ./ R 871300 $ 871310                                                    00001000
       R11674DK:          BZ    BYMVCAW        BRANCH IF ZERO                   @VA11674 00002000
 BEGIN APPLY >>> ./ R 871300 $ 871310                                                    00001000
   END APPLY >>> ./ R 871300 $ 871310                                                    00001000
Update Succeeded
Update Execution Time 16 milliseconds.

R11702DK

Date Friday Sep 26, 1980 09:04:00 AM
Loaded from MAINT(294)
       R11702DK: ./ I 00807090 $ 00807092 2                                              00001000
       R11702DK:          TM    RDEVFLAG,RDEVPREF IS IT PREFERRED FOR PAGING?   @VA11702 00002000
       R11702DK:          BO    CALLMSW        YES,CONSOLE SPOOLING OK          @VA11702 00003000
 BEGIN APPLY >>> ./ I 00807090 $ 00807092 2                                              00001000
   END APPLY >>> ./ I 00807090 $ 00807092 2                                              00001000
Update Succeeded
Update Execution Time 8 milliseconds.

R09736DK

Date Wednesday Jun 03, 1981 05:15:00 AM
Loaded from MAINT(294)
       R09736DK: ./ R 851000 $ 851010 10                                                 00001000
       R09736DK: ***********************************************************************
       R09736DK: * FOR CLARITY... SIZE OF THE EXTENSION HAS TO BE CALCULATED AS WHATS
       R09736DK: * LEFT OF THE BUFFERED DATA SIZE (E.G. 128 FOR THIS 2305) AFTER TAKING
       R09736DK: * OUT THAT PORTION PLACED FROM IOERDATA TO THE END OF THE IOERBLOK.
       R09736DK: * AS THIS IS VARIABLE IT SHOULD BE CALCULATED AS THE OVERALL SIZE LESS
       R09736DK: * THE AREA PRECEDING IOERDATA... ALL OF COURSE IN NUMBER OF DOUBLEWORDS
       R09736DK: ***********************************************************************
       R09736DK:          LA    R0,IOERSIZE+(128/8-(IOERSIZE-(IOERDATA-IOERBLOK)/8))     00002000
       R09736DK: *                     PUT IN THE SIZE PLUS EXTENSION RESIDUAL  @VA09736
       R09736DK: ./ I 852000 $ 852010 10                                                 00003000
       R09736DK:          MVI   0(R1),X'00'       INIT TO ZERO                  @VA09736 00004000
       R09736DK: ***********************************************************************
       R09736DK: * NOW TO CLEAR THE IOERBLOK PLUS THE RESIDUAL EXTENSION OF THE 2305'S
       R09736DK: * 128 BYTES OF BUFFER DATA
       R09736DK: ***********************************************************************
       R09736DK:          MVC   1(((IOERSIZE*8)+(128-((IOERSIZE*8)-(IOERDATA-IOERBLOK)))*00005000
       R09736DK:                -1),R1),0(R1) CLEAR IT OUT                      @VA09736
       R09736DK: ./ R 854000 855000 $ 854010 10                                          00006000
       R09736DK:          MVI   IOEREXT+1-IOERBLOK(R1),128/8-(IOERSIZE-(IOERDATA-IOERBLO*00007000
       R09736DK:                K)/8) PUT IN THE SIZE OF THE EXTENSION          @VA09736
       R09736DK: ./ R 882000 $ 882010 10                                                 00008000
       R09736DK: ***********************************************************************
       R09736DK: * FOR CLARITY... SIZE OF THE EXTENSION HAS TO BE CALCULATED AS WHATS
       R09736DK: * LEFT OF THE BUFFERED DATA SIZE (E.G. 128 FOR THIS 2305) AFTER TAKING
       R09736DK: * OUT THAT PORTION PLACED FROM IOERDATA TO THE END OF THE IOERBLOK.
       R09736DK: * AS THIS IS VARIABLE IT SHOULD BE CALCULATED AS THE OVERALL SIZE LESS
       R09736DK: * THE AREA PRECEDING IOERDATA... ALL OF COURSE IN NUMBER OF DOUBLEWORDS
       R09736DK: ***********************************************************************
       R09736DK:          LA    R0,IOERSIZE+(128/8-(IOERSIZE-(IOERDATA-IOERBLOK)/8))     00009000
       R09736DK: *                     PUT IN THE SIZE PLUS EXTENSION RESIDUAL  @VA09736
       R09736DK: ./ I 883000 $ 883010 10                                                 00010000
       R09736DK:          MVI   0(R1),X'00'       INIT TO ZERO                  @VA09736 00011000
       R09736DK: ***********************************************************************
       R09736DK: * NOW TO CLEAR THE IOERBLOK PLUS THE RESIDUAL EXTENSION OF THE 2305'S
       R09736DK: * 128 BYTES OF BUFFER DATA
       R09736DK: ***********************************************************************
       R09736DK:          MVC   1(((IOERSIZE*8)+(128-((IOERSIZE*8)-(IOERDATA-IOERBLOK)))*00012000
       R09736DK:                -1),R1),0(R1) CLEAR IT OUT                      @VA09736
       R09736DK: ./ R 885000 886000 $ 885010 10                                          00013000
       R09736DK:          MVI   IOEREXT+1-IOERBLOK(R1),128/8-(IOERSIZE-(IOERDATA-IOERBLO*00014000
       R09736DK:                K)/8) PUT IN THE SIZE OF THE EXTENSION          @VA09736
       R09736DK: ./ R 901000 $ 901010                                                    00015000
       R09736DK:          LA    R4,IOERDATA-IOERBLOK(R4) PUT IT WHERE IT GOES   @VA09736 00016000
 BEGIN APPLY >>> ./ R 851000 $ 851010 10                                                 00001000
   END APPLY >>> ./ R 851000 $ 851010 10                                                 00001000
 BEGIN APPLY >>> ./ I 852000 $ 852010 10                                                 00003000
   END APPLY >>> ./ I 852000 $ 852010 10                                                 00003000
 BEGIN APPLY >>> ./ R 854000 855000 $ 854010 10                                          00006000
   END APPLY >>> ./ R 854000 855000 $ 854010 10                                          00006000
 BEGIN APPLY >>> ./ R 882000 $ 882010 10                                                 00008000
   END APPLY >>> ./ R 882000 $ 882010 10                                                 00008000
 BEGIN APPLY >>> ./ I 883000 $ 883010 10                                                 00010000
   END APPLY >>> ./ I 883000 $ 883010 10                                                 00010000
 BEGIN APPLY >>> ./ R 885000 886000 $ 885010 10                                          00013000
   END APPLY >>> ./ R 885000 886000 $ 885010 10                                          00013000
 BEGIN APPLY >>> ./ R 901000 $ 901010                                                    00015000
   END APPLY >>> ./ R 901000 $ 901010                                                    00015000
Update Succeeded
Update Execution Time 31 milliseconds.

R13021DK

Date Wednesday Jun 24, 1981 06:19:00 AM
Loaded from MAINT(294)
       R13021DK: ./ R 00871100 00872000 $ 871100 200                   04/28/81 15:02:59
       R13021DK:          L     R4,IOBRCAW     LOOK FOR ZERO RESTART CAW        @VA13021 07810000
       R13021DK:          LTR   R4,R4          TEST FOR IT                      @VA13021 07820000
       R13021DK:          BNZ   BYMVCAW        NON-ZERO ... O.K.                @VA13021 07830000
       R13021DK:          MVC   IOBRCAW,IOBCAW ZERO ... USE THE ORIGINAL CAW    @VA13021 07840000
 BEGIN APPLY >>> ./ R 00871100 00872000 $ 871100 200                   04/28/81 15:02:59
   END APPLY >>> ./ R 00871100 00872000 $ 871100 200                   04/28/81 15:02:59
Update Succeeded
Update Execution Time 16 milliseconds.

R12941DK

Date Thursday Jul 16, 1981 11:34:00 AM
Loaded from MAINT(294)
       R12941DK: ./ I 153200 $ 153400 200
       R12941DK:          EXTRN DMKSTKCP                                        @VA12941
       R12941DK: ./ R 486000 486000 $ 486000 100
       R12941DK: PENDING  TM    IOERFLG2,IOERMSW MESSAGE WRITER IN PROGRESS     @VA12941
       R12941DK:          BO    BLDCPEX        WAIT FOR MSW TO FINISH           @VA12941
       R12941DK:          NI    IOERFLG1,X'FF'-IOERPEND TURN OFF PEND DE BIT    @VA12941
       R12941DK: ./ R 494000 494000 $ 493150 050
       R12941DK:          SPACE 1
       R12941DK: BLDCPEX  LA    R0,CPEXSIZE    SIZE OF CPEXBLOK                 @VA12941
       R12941DK:          CALL  DMKFREE        GET STORAGE FOR CPEXBLOK         @VA12941
       R12941DK:          USING CPEXBLOK,R1    CPEXBLOK ADDRESSABILIY           @VA12941
       R12941DK:          XC    CPEXBLOK(CPEXSIZE*8),CPEXBLOK CLEAR BLOCK       @VA12941
       R12941DK:          MVC   CPEXR0(CPEXR12-CPEXR0),SAVER0 SETUP CPEXBLOK    @VA12941
       R12941DK:          STM   R12,R13,CPEXR12 ...                             @VA12941
       R12941DK:          L     R15,=A(DMKDASER) CPEXBLOK WILL RETURN TO DASER  @VA12941
       R12941DK:          ST    R15,CPEXADD    CPEXBLOK RETURN ADDRESS          @VA12941
       R12941DK:          DROP  R1             ...                              @VA12941
       R12941DK:          L     R5,IOERCPEX    ANCHOR FOR CPEXBLOKS             @VA12941
       R12941DK:          USING CPEXBLOK,R5    ADDRESSABILITY                   @VA12941
       R12941DK:          LTR   R5,R5          ANY CPEXBLOKS ON QUEUE           @VA12941
       R12941DK:          BNZ   NEXTCPEX       YES, FIND END OF CHAIN           @VA12941
       R12941DK:          ST    R1,IOERCPEX    ADD TO THE CHAIN                 @VA12941
       R12941DK:          B     GOTODSP        GOTO THE DISPATCHER              @VA12941
       R12941DK:          SPACE 1
       R12941DK: NEXTCPEX L     R14,CPEXFPNT   GET POINTER TO NEXT ONE ON CHAIN @VA12941
       R12941DK:          LTR   R14,R14        END OF QUEUE                     @VA12941
       R12941DK:          BZ    QUEUE          END OF QUEUE - ADD CPEXBLOK      @VA12941
       R12941DK:          LR    R5,R14         CONTINUE TO LOOK FOR END         @VA12941
       R12941DK:          B     NEXTCPEX       ...                              @VA12941
       R12941DK:          SPACE 2              ...                              @VA12941
       R12941DK: QUEUE    ST    R1,CPEXFPNT    ADD CPEXBLOK TO QUEUE AT END     @VA12941
       R12941DK: GOTODSP  GOTO  DMKDSPCH       EXIT TO DISPATCHER FOR NOW       @VA12941
       R12941DK:          DROP  R5             DROP CPEXBLOK ADDRESSABILITY     @VA12941
       R12941DK:          SPACE 1
       R12941DK: ./ R 814000 814000 $ 814000 050
       R12941DK:          L     R1,IOERCPEX    SEE IF DEVICE END I/O TO REDRIVE @VA12941
       R12941DK:          LTR   R1,R1          ANY CPEXBLOKS ON QUEUE           @VA12941
       R12941DK:          BZ    DASSDR         NO DE I/O TO REDRIVE             @VA12941
       R12941DK: UNSTKNXT L     R5,CPEXFPNT-CPEXBLOK(R1) NEXT CPEX ON CHAIN     @VA12941
       R12941DK:          CALL  DMKSTKCP       STACK CPEXBLOK                   @VA12941
       R12941DK:          LTR   R5,R5          ANY MORE ON CHAIN                @VA12941
       R12941DK:          BZ    CLEARPNT       NO, ZERO ANCHOR AND EXIT         @VA12941
       R12941DK:          LR    R1,R5          CPEXBLOK ADDRESS TO R5           @VA12941
       R12941DK:          B     UNSTKNXT       STACK THEM ALL                   @VA12941
       R12941DK: CLEARPNT ST    R5,IOERCPEX    CLEAR ANCHOR                     @VA12941
       R12941DK: DASSDR   B     SDRCOUNT       GO UPDATE COUNTERS, THEN EXIT    @VA12941
 BEGIN APPLY >>> ./ I 153200 $ 153400 200
   END APPLY >>> ./ I 153200 $ 153400 200
 BEGIN APPLY >>> ./ R 486000 486000 $ 486000 100
   END APPLY >>> ./ R 486000 486000 $ 486000 100
 BEGIN APPLY >>> ./ R 494000 494000 $ 493150 050
   END APPLY >>> ./ R 494000 494000 $ 493150 050
 BEGIN APPLY >>> ./ R 814000 814000 $ 814000 050
   END APPLY >>> ./ R 814000 814000 $ 814000 050
Update Succeeded
Update Execution Time 23 milliseconds.

R12071DK

Date Wednesday Sep 02, 1981 04:10:00 PM
Loaded from MAINT(294)
       R12071DK: ./ D 985725 $                                                           00001000
       R12071DK: ./ R 987450 990325 $ 988050 50                                          00002000
       R12071DK:          BNE   CHKCD          FIND VALID RESTART CCW           @VA12071 00003000
       R12071DK: ./ I 993200 $ 993250 50                                                 00004000
       R12071DK:          L     R0,FFS         FOR RCWHEAD COMPARE              @VA12071 00005000
       R12071DK:          CH    R0,12(,R1)     CCWREG REALLY FIRST IN RCWTASK?  @VA12071 00006000
       R12071DK:          BNE   BYPASSW        NO... FIND VALID RESTART CCW     @VA12071 00007000
       R12071DK: ./ I 00995500 $ 00995550 50                                             00008000
       R12071DK:          CLI   0(R1),X'0B'    IS CMD A SEEK?                   @VA12071 00009000
       R12071DK:          BE    UPDTSEEK       YES, REMEMBER IT                 @VA12071 00010000
       R12071DK:          CLI   0(R1),X'07'    IS IT THIS SEEK?                 @VA12071 00011000
       R12071DK:          BNE   NOTSEEK        CARRY ON                         @VA12071 00012000
       R12071DK: UPDTSEEK EQU   *                                               @VA12071 00013000
       R12071DK:          ST    R3,SAVEWRK4    SAVE R3                          @VA12071 00014000
       R12071DK:          L     R3,0(R1)       PICK UP ADDR. OF                 @VA12071 00015000
       R12071DK:          LA    R3,0(R3)       SEEK DATA AND                    @VA12071 00016000
       R12071DK:          MVC   IOERADR(4),2(R3) SAVE THE LAST SEEK DONE        @VA12071 00017000
       R12071DK:          L     R3,SAVEWRK4    RESTORE R3                       @VA12071 00018000
       R12071DK: NOTSEEK  EQU   *                                               @VA12071 00019000
 BEGIN APPLY >>> ./ D 985725 $                                                           00001000
   END APPLY >>> ./ D 985725 $                                                           00001000
 BEGIN APPLY >>> ./ R 987450 990325 $ 988050 50                                          00002000
   END APPLY >>> ./ R 987450 990325 $ 988050 50                                          00002000
 BEGIN APPLY >>> ./ I 993200 $ 993250 50                                                 00004000
   END APPLY >>> ./ I 993200 $ 993250 50                                                 00004000
 BEGIN APPLY >>> ./ I 00995500 $ 00995550 50                                             00008000
   END APPLY >>> ./ I 00995500 $ 00995550 50                                             00008000
Update Succeeded
Update Execution Time 16 milliseconds.

R13424DK

Date Wednesday Sep 23, 1981 12:42:00 PM
Loaded from MAINT(294)
       R13424DK: ./ I 516500 $ 516700                                                    00001000
       R13424DK:          ST    R4,IOBRCAW     INITIALIZE THE RESTART CAW       @VA13424 00002000
 BEGIN APPLY >>> ./ I 516500 $ 516700                                                    00001000
   END APPLY >>> ./ I 516500 $ 516700                                                    00001000
Update Succeeded
Update Execution Time 16 milliseconds.

R14597DK

Date Thursday Apr 01, 1982 02:48:00 PM
Loaded from MAINT(294)
       R14597DK: ./ I 663200 $ 663400 100                                                00001000
       R14597DK:          L     R2,IOERCSW     FAILING CSW+8                    @VA14597 00002000
       R14597DK:          LA    R2,0(,R2)      CLEAR HIGH ORDER BYTE            @VA14597 00003000
       R14597DK:          S     R2,F8          FAILING CCW                      @VA14597 00004000
       R14597DK:          CLI   0(R2),X'FE'    WRITE WITH R/O DASD              @VA14597 00005000
       R14597DK:          BNE   COMREJ         INVALID CMND                     @VA14597 00006000
       R14597DK:          MVI   IOERDATA+1,X'02' TURN ON WRITE INHIBIT SW.      @VA14597 00007000
 BEGIN APPLY >>> ./ I 663200 $ 663400 100                                                00001000
   END APPLY >>> ./ I 663200 $ 663400 100                                                00001000
Update Succeeded
Update Execution Time 8 milliseconds.

HRC011DK

Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
       HRC011DK: ./ R 00103000          $ 103490 490                   01/28/06 11:53:31
       HRC011DK: *                   3330/50/80 HAVE BEEN RETRIED ALREADY.      HRC011DK 00103490
       HRC011DK: ./ R 00106000          $ 106490 490                   01/28/06 11:53:31
       HRC011DK: *                   (3330/40/50/80) AND IF THE VOLUME WAS USED HRC011DK 00106490
       HRC011DK: ./ R 00112000          $ 112490 490                   01/28/06 11:53:31
       HRC011DK: *                   EXCEPTIONS ARE : (A) THE 3330/50/80 HAVE   HRC011DK 00112490
       HRC011DK: ./ R 00126000          $ 126290 290                   01/28/06 11:53:31
       HRC011DK: *               13. ENVIRONMENTAL DATA PRESENT                 HRC011DK 00126290
       HRC011DK: *                   (3330/3340/3350/3380/2305)                 HRC011DK 00126580
       HRC011DK: ./ R 00509000          $ 509490 490                   01/28/06 11:53:31
       HRC011DK:          TM    RDEVTYPE,TYP3330+TYP3340+TYP3350+TYP3380        HRC011DK 00509490
       HRC011DK: ./ R 01044000          $ 1044490 490                  01/28/06 11:53:31
       HRC011DK: *  CALCULATE FORWARD ERROR DISPLACEMENT FOR 3330/40/50/80      HRC011DK 01044490
       HRC011DK: ./ I 01200250          $ 1200260 10                   01/28/06 11:53:31
       HRC011DK:          CLC   STATVOL1,=C'CMS1' PACK HAVE CMS TYPE LABEL      HRC011DK 01200200
       HRC011DK:          BE    STANDLBL       YES -                            HRC011DK 01200250
 BEGIN APPLY >>> ./ R 00103000          $ 103490 490                   01/28/06 11:53:31
   END APPLY >>> ./ R 00103000          $ 103490 490                   01/28/06 11:53:31
 BEGIN APPLY >>> ./ R 00106000          $ 106490 490                   01/28/06 11:53:31
   END APPLY >>> ./ R 00106000          $ 106490 490                   01/28/06 11:53:31
 BEGIN APPLY >>> ./ R 00112000          $ 112490 490                   01/28/06 11:53:31
   END APPLY >>> ./ R 00112000          $ 112490 490                   01/28/06 11:53:31
 BEGIN APPLY >>> ./ R 00126000          $ 126290 290                   01/28/06 11:53:31
   END APPLY >>> ./ R 00126000          $ 126290 290                   01/28/06 11:53:31
 BEGIN APPLY >>> ./ R 00509000          $ 509490 490                   01/28/06 11:53:31
   END APPLY >>> ./ R 00509000          $ 509490 490                   01/28/06 11:53:31
 BEGIN APPLY >>> ./ R 01044000          $ 1044490 490                  01/28/06 11:53:31
   END APPLY >>> ./ R 01044000          $ 1044490 490                  01/28/06 11:53:31
 BEGIN APPLY >>> ./ I 01200250          $ 1200260 10                   01/28/06 11:53:31
   END APPLY >>> ./ I 01200250          $ 1200260 10                   01/28/06 11:53:31
Update Succeeded
Update Execution Time 47 milliseconds.

HRC202DK

Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
       HRC202DK: ./ R 01217000          $ 1217490 490                  03/30/06 20:14:15
       HRC202DK: DAS956   DC    C'DMKDAS956A DASD XXX VOLID XXXXXX not mounted; now OFFL*01217000
 BEGIN APPLY >>> ./ R 01217000          $ 1217490 490                  03/30/06 20:14:15
   END APPLY >>> ./ R 01217000          $ 1217490 490                  03/30/06 20:14:15
Update Succeeded
Update Execution Time 16 milliseconds.