Table of Contents

PSA History

References

Update History

CMS File Input : PSA MACRO
Date : 12/8/1978 4:37:00 PM
VM Context : MAINT(394)
File Name : PSA.MACRO.Z1.txt
Modified : 1/16/2021 7:31:49 AM
Created : 1/16/2021 7:31:49 AM

Update Order

  1. R10074DK 604 CHANNEL SET SWITCHING AND MULTIPLE SRF SUPPORT
  2. R10073DK 604 ECPS/AP SUPPORT 3031/3041 REL 6
  3. R09802DK 606 CPUSER AND CPUMODEL LENGTH ATTRIBUTES ARE INCORRECT
  4. R09885DK 608 VCON AT X'6D8' IS ZEROED BY DMKCPI
  5. R09843DK 611 FIX FOR MON BUFFER PROB
  6. R10394DK 611 F0 FIELD IN PSA ATTRIBUTE LENGTH FIXED TO FOUR
  7. R12934DK 623 UV04897 ABENDPRG005 IN DMKPTR AFTER VARY PROCESSOR ONLINE
  8. R12314DK 623 UV04462 TWO MACHINES SHUTDOWN TOGETHER - LOST SPOOL FILES.
  9. R14280DK 624 UV05427 MICROCODE UPDATE FOR TCH AND FREE/FRET
  10. HRC002DK V01 SHUTDOWN POWEROFF SUPPORT
  11. HRC004DK V01 ENABLE SUPPORT FOR 4K STORAGE KEYS
  12. HRC019DK V01 IMPLEMENT EXTENDED HRC QUERY FUNCTIONS

R10074DK

Date Thursday Jul 05, 1979 04:08:00 PM
Loaded from MAINT(294)
       R10074DK: ./ R 62010  62500 $ 62000 500                                           PSA00010
       R10074DK: *              |  TRACEFLG |  TTSEGCNT | P*6 |    RESERVED     |        PSA00020
       R10074DK: *              +-----------+-----------+-----+-----------------+        PSA00030
       R10074DK: ./ R 255000 $ 255050 50                                                 PSA00040
       R10074DK: CSADDR   DC    H'0'      P*6  CHANNEL SET ADDRESS              @V60B7AB PSA00050
       R10074DK:          DS    H              RESERVED                                  PSA00060
       R10074DK:          DS    1F             RESERVED                                  PSA00070
       R10074DK:          DS    8F             RESERVED                                  PSA00080
       R10074DK: ./ I 403202 $ 403207                                                    PSA00090
       R10074DK: PROCIPL  EQU   X'08'          PROCESSOR IS THE IPL PROCESSOR   @V60B7AA PSA00100
       R10074DK: ./ I 403210 $ 403220 10                                                 PSA00110
       R10074DK: CSSFEAT  EQU   X'02'          CHANNEL SET SWITCHING FACILITY   @V60B7AB PSA00120
       R10074DK: *                             IS INSTALLED                              PSA00130
 BEGIN APPLY >>> ./ R 62010  62500 $ 62000 500                                           PSA00010
   END APPLY >>> ./ R 62010  62500 $ 62000 500                                           PSA00010
 BEGIN APPLY >>> ./ R 255000 $ 255050 50                                                 PSA00040
   END APPLY >>> ./ R 255000 $ 255050 50                                                 PSA00040
 BEGIN APPLY >>> ./ I 403202 $ 403207                                                    PSA00090
   END APPLY >>> ./ I 403202 $ 403207                                                    PSA00090
 BEGIN APPLY >>> ./ I 403210 $ 403220 10                                                 PSA00110
   END APPLY >>> ./ I 403210 $ 403220 10                                                 PSA00110
Update Succeeded
Update Execution Time 16 milliseconds.

R10073DK

Date Thursday Jul 05, 1979 04:08:00 PM
Loaded from MAINT(294)
       R10073DK: ./ R 62500 63000 $ 62300 300                                            PSA00010
       R10073DK: *        410   +-----------+-----------+-----+-----+-----------+        PSA00020
       R10073DK: *              |   ALOKFR  |   ALOKSY  | RSVD-ECPS | RESERVED  |        PSA00030
       R10073DK: *        420   +-----------+-----------+-----------+-----------+        PSA00040
       R10073DK: *              |                   RESERVED                    |        PSA00050
       R10073DK: ./ R 255200 $ 255200 50                                                 PSA00060
       R10073DK:          SPACE                                                          PSA00070
       R10073DK:          AIF   (NOT &AP).LOKSY1                                         PSA00080
       R10073DK: ALOKFR   DC    V(DMKLOKFR)    AP-FREE LOCKWORD ADDRESS         @V5DAACD PSA00090
       R10073DK: ALOKSY   DC    V(DMKLOKSY)    AP-SYSTEM LOCKWORD ADDRESS       @V5DAACD PSA00100
       R10073DK:          AGO   .LOKSY2                                                  PSA00110
       R10073DK: .LOKSY1  DS    2F             USED ONLY WITH ECPS-AP SUPPORT   @V5DAACD PSA00120
       R10073DK: .LOKSY2  ANOP                                                           PSA00130
       R10073DK:          DC    F'0'           RESERVED FOR ECPS                @V5DAACD PSA00140
       R10073DK:          DS    5F  -          RESERVED                                  PSA00150
 BEGIN APPLY >>> ./ R 62500 63000 $ 62300 300                                            PSA00010
   END APPLY >>> ./ R 62500 63000 $ 62300 300                                            PSA00010
 BEGIN APPLY >>> ./ R 255200 $ 255200 50                                                 PSA00060
   END APPLY >>> ./ R 255200 $ 255200 50                                                 PSA00060
Update Succeeded
Update Execution Time 8 milliseconds.

R09802DK

Date Monday Nov 12, 1979 11:12:00 AM
Loaded from MAINT(294)
       R09802DK: ./ R 307000 308000 $ 307100 1000                                        00001000
       R09802DK: CPUSER   DS    XL3            CPU SERIAL NUMBER, PACK UNSIGN   @VA09802 00002000
       R09802DK: CPUMODEL DS    XL2            CPU MODEL NUMBER                 @VA09802 00004000
 BEGIN APPLY >>> ./ R 307000 308000 $ 307100 1000                                        00001000
   END APPLY >>> ./ R 307000 308000 $ 307100 1000                                        00001000
Update Succeeded
Update Execution Time 16 milliseconds.

R09885DK

Date Tuesday Jan 15, 1980 01:09:00 AM
Loaded from MAINT(294)
       R09885DK: ./ R 69695 $                                                            00001000
       R09885DK: *              |  STACKVM  | UNSHRVM2  |      RESERVED         |        00002000
       R09885DK: ./ R 69725 $                                                            00003000
       R09885DK: *              |   ATMRSN  |  ADMKCPE  |      RESERVED         |        00004000
       R09885DK: ./ R 301464 301465 $ 301464                                             00005000
       R09885DK:          DS    6F             RESERVED                         @VA09885 00006000
       R09885DK: ./ R 301540 $ 301540 5                                                  00007000
       R09885DK: ADMKCPE  DC    V(DMKCPE)      ADDRESS OF LAST RESIDENT MODULE  @VA09885 00008000
       R09885DK:          DC    2F'0'          RESERVED                         @VA09885 00009000
 BEGIN APPLY >>> ./ R 69695 $                                                            00001000
   END APPLY >>> ./ R 69695 $                                                            00001000
 BEGIN APPLY >>> ./ R 69725 $                                                            00003000
   END APPLY >>> ./ R 69725 $                                                            00003000
 BEGIN APPLY >>> ./ R 301464 301465 $ 301464                                             00005000
   END APPLY >>> ./ R 301464 301465 $ 301464                                             00005000
 BEGIN APPLY >>> ./ R 301540 $ 301540 5                                                  00007000
   END APPLY >>> ./ R 301540 $ 301540 5                                                  00007000
Update Succeeded
Update Execution Time 16 milliseconds.

R09843DK

Date Saturday Mar 29, 1980 08:23:00 AM
Loaded from MAINT(294)
       R09843DK: ./ R 61000 61000 $ 61000                                                00001000
       R09843DK: *              |  PAGECUR  |  PAGENXT  |  MONNEXT  |  PAGEND   |        00002000
       R09843DK: ./ I 249010 $ 249050 20                                                 00003000
       R09843DK: PAGENXT  DS    F              ALTERNTE MONITR BUFFER PAGE ADDR @VA09843 00004000
       R09843DK: *       PAGENXT IS IN ABSOLUTE PSA                                      00005000
       R09843DK: ./ D 252000 252010 $                                                    00006000
 BEGIN APPLY >>> ./ R 61000 61000 $ 61000                                                00001000
   END APPLY >>> ./ R 61000 61000 $ 61000                                                00001000
 BEGIN APPLY >>> ./ I 249010 $ 249050 20                                                 00003000
   END APPLY >>> ./ I 249010 $ 249050 20                                                 00003000
 BEGIN APPLY >>> ./ D 252000 252010 $                                                    00006000
   END APPLY >>> ./ D 252000 252010 $                                                    00006000
Update Succeeded
Update Execution Time 8 milliseconds.

R10394DK

Date Thursday Apr 03, 1980 01:18:00 AM
Loaded from MAINT(294)
       R10394DK: ./ R 267000 $ 267100                                                    00001000
       R10394DK: F0       EQU   ZEROES,4,C'F'                                   @VA10394 00002000
 BEGIN APPLY >>> ./ R 267000 $ 267100                                                    00001000
   END APPLY >>> ./ R 267000 $ 267100                                                    00001000
Update Succeeded
Update Execution Time 16 milliseconds.

R12934DK

Date Friday Aug 07, 1981 07:09:00 AM
Loaded from MAINT(294)
       R12934DK: ./ R 227200 $ 227200 10
       R12934DK: PSARSV6  DS    1X        S*6  RESERVED FOR FUTURE USE                   00227200
       R12934DK: ./ I 227260 $ 227360 100
       R12934DK: CPAPRINP DC    X'00'          ALTERNATE PROCESSOR RECOVERY IN  @VA12934
       R12934DK: *                             PROCESS WHEN SET TO X'FF'
       R12934DK: *        CPAPRINP IS IN ABSOLUTE PSA
 BEGIN APPLY >>> ./ R 227200 $ 227200 10
   END APPLY >>> ./ R 227200 $ 227200 10
 BEGIN APPLY >>> ./ I 227260 $ 227360 100
   END APPLY >>> ./ I 227260 $ 227360 100
Update Succeeded
Update Execution Time 16 milliseconds.

R12314DK

Date Friday Aug 07, 1981 07:31:00 AM
Loaded from MAINT(294)
       R12314DK: ./ R 301395 $ 301396 10                                                 00001000
       R12314DK:          DS    7X             RESERVED
       R12314DK: CPSTAT4  DS    1X             MORE CPSTATUS BITS               @VA12314 00002000
       R12314DK: ./ I 379670 $ 379700 10                                                 00003000
       R12314DK: *        BITS DEFINED IN CPSTAT4                                        00004000
       R12314DK: CPSHUT   EQU   X'20'          SHUTDOWN INDICATOR               @VA12314 00005000
       R12314DK:          SPACE                                                          00006000
 BEGIN APPLY >>> ./ R 301395 $ 301396 10                                                 00001000
   END APPLY >>> ./ R 301395 $ 301396 10                                                 00001000
 BEGIN APPLY >>> ./ I 379670 $ 379700 10                                                 00003000
   END APPLY >>> ./ I 379670 $ 379700 10                                                 00003000
Update Succeeded
Update Execution Time 8 milliseconds.

R14280DK

Date Wednesday Nov 04, 1981 01:36:00 PM
Loaded from MAINT(294)
       R14280DK: ./ R 61500 62000 $ 61500 400
       R14280DK: *        400   +-----------+-----------+-----+-----+-----------+        00061500
       R14280DK: *              |  TRACEFLG |  TTSEGCNT | P*6 | P*14| RESERVED  |        00062000
       R14280DK: ./ R 255100 $ 255100 10
       R14280DK:          DC    X'00'          RESERVED FOR FUTURE USE                   03606000
       R14280DK: PSAEVMA  DC    X'00'     P*14 ECPS:VM ENABLE/DISABLE BITS               03600000
       R14280DK: *                             (SEE MICBLOK/MICEVMA FOR DEFINITIONS)     03603000
       R14280DK: *        PSAEVMA IS IN ABSOLUTE PSA
 BEGIN APPLY >>> ./ R 61500 62000 $ 61500 400
   END APPLY >>> ./ R 61500 62000 $ 61500 400
 BEGIN APPLY >>> ./ R 255100 $ 255100 10
   END APPLY >>> ./ R 255100 $ 255100 10
Update Succeeded
Update Execution Time 16 milliseconds.

HRC002DK

Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
       HRC002DK: ./ I 00379710          $ 379712 2                     02/07/02 15:16:38
       HRC002DK: CPPWROFF EQU   X'40'          POWEROFF INDICATOR               HRC002DK 00379710
       HRC002DK: CPREIPL  EQU   X'10'          REIPL    INDICATOR               HRC002DK 00379710
 BEGIN APPLY >>> ./ I 00379710          $ 379712 2                     02/07/02 15:16:38
   END APPLY >>> ./ I 00379710          $ 379712 2                     02/07/02 15:16:38
Update Succeeded
Update Execution Time 16 milliseconds.

HRC004DK

Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
       HRC004DK: ./ R 00242000          $ 242490 490                   02/11/02 09:49:13
       HRC004DK: CPCREG0  DC    X'81800CC0' CP ARCH CONTROL AND EXTERNAL MASK   HRC004DK
 BEGIN APPLY >>> ./ R 00242000          $ 242490 490                   02/11/02 09:49:13
   END APPLY >>> ./ R 00242000          $ 242490 490                   02/11/02 09:49:13
Update Succeeded
Update Execution Time 16 milliseconds.

HRC019DK

Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
       HRC019DK: ./ R 00064000 $ 00064000 00000100
       HRC019DK: *              |  INSTWRD1 |  INSTWRD2 |  INSTWRD3 |  QCPSTAT  |
       HRC019DK: ./ R 00259000 $ 00259000 00000100
       HRC019DK: QCPSTAT  DC    F'0' -         QCPBLOK FOR EXTENDED QUERY       HRC019DK
 BEGIN APPLY >>> ./ R 00064000 $ 00064000 00000100
   END APPLY >>> ./ R 00064000 $ 00064000 00000100
 BEGIN APPLY >>> ./ R 00259000 $ 00259000 00000100
   END APPLY >>> ./ R 00259000 $ 00259000 00000100
Update Succeeded
Update Execution Time 23 milliseconds.