Conflicting/Overwritten HRC Fixes (PTFs?) HRC030DK & HRC031DK

[marXtevens]

I believe we have a problem, small, but confusing, concerning some HRC* mods.
Specifically HRC030DK, and HRC031DK overlap two differing changes. One for QUERY
ALLOC and the other for DMKLD00E LOADER.

A possible solution could be to separate 030 from 031, possibly making use of 034, which
has no changes associated with it.

+===============================================================================
|l * hrc034dk * ( date
|File not found.
|Ready(00028); T=0.01/0.01 04:26:53
l hrc034dk * * ( date
|Filename Filetype Fm Format Recs Blocks Date Time
|HRC034DK MEMO F1 V 27 8 1 01/01/13 17:53
|Ready; T=0.01/0.01 04:28:43
|type HRC034DK MEMO F1
|
|LOCAL MODIFICATION HRC034DK
|
|Not used.
|
|None
|
|Description :
|
|
|Ready; T=0.01/0.01 04:28:53
+===============================================================================

HRC* MEMO files for HRC030DK, & HRC031DK, and others shows pretty much the same
date and time.

+===============================================================================
|XLIST: HRC03* MEMO * Lines 1-10/10 XLIST V1.2.5
| Filename Filetype Fm Format Recs Blocks Date Time Label
| HRC030DK MEMO F1 V 41 10 1 2013-01-01 17:53 MNT094
| HRC031DK MEMO F1 V 39 9 1 2013-01-01 17:53 MNT094
| HRC032DK MEMO F1 V 39 11 1 2013-01-01 17:53 MNT094
| HRC033DK MEMO F1 V 62 12 1 2013-01-01 17:53 MNT094
| HRC034DK MEMO F1 V 27 8 1 2013-01-01 17:53 MNT094
| HRC035DK MEMO F1 V 56 9 1 2013-01-01 17:53 MNT094
| HRC036DK MEMO F1 V 62 10 1 2013-01-01 17:53 MNT094
| HRC037DK MEMO F1 V 77 26 2 2017-02-09 23:11 MNT094
| HRC038DK MEMO F1 V 79 33 2 2017-02-20 23:24 MNT094
| HRC039DK MEMO F1 V 79 146 9 2017-02-23 12:45 MNT094
+===============================================================================

HERCMODS MEMO displays the following, regarding HRC030DK, & HRC031DK.

+===============================================================================
|File: HRCMODS MEMO F1 RECFM: V LRECL: 73(79) Lines: 93 Current: 29
|02=RingNext 03=Quit 06=SpltJ 07=PgUp 08=PgDw 10=PI 11=ClrCmd 12=Recall
|
|....+....1....+....2....+....3....+....4....+....5....+....6....+....7...
|HRC029DK UPDATE TO SUPPORT 24 PFS AND LARGER LOGO =====
|HRC030DK QUERY ALLOC COMMAND =====
|HRC031DK ADD QUERY ALLOC COMMAND =====
|HRC032DK RE-ASK IF WARM START FAILS =====
|HRC033DK ADD SUPPORT FOR SYSUSR MACRO - ATTACH TO SYSTEM SYSUSR ONLY =====
|HRC034DK ...unused =====
|HRC035DK FREE TRAP SUPPORT ADD FRE013 ABEND =====
+===============================================================================

The HRC030DK MEMO does describe the QUERY ALLOC addition.

+===============================================================================
|FSVIEW: HRC030DK MEMO F1 Lines 1-10/10 V80[1-79] FSVIEW V1.2.5
|LOCAL MODIFICATION HRC030DK
|
|New command QUERY ALLOC
|
|DMKCFC ASSEMBLE
|HDKCQA ASSEMBLE
|
|Description :
|
|QUERY ALLOC {TEMP|TDSK|DRCT|MAP {volser}}
+===============================================================================

However, HRC031DK describes a fix to DMKLD00E ASSEMBLE.

+===============================================================================
|FSVIEW: HRC031DK MEMO F1 Lines 1-9/9 V80[1-79] FSVIEW V1.2.5
|LOCAL MODIFICATION HRC031DK
|
|Changes to DMKLD00E
|
|DMKLD00E ASSEMBLE
|
|Description :
|
|Prevent load map print on bare machine.
+===============================================================================

There are two files with HRC030DK as a filetype.

+===============================================================================
|XLIST: * HRC030DK * Lines 1-2/2 XLIST V1.2.5
| Filename Filetype Fm Format Recs Blocks Date Time Label
| DMKCFC HRC030DK F1 F 80 6 1 2013-01-01 17:53 MNT094
| HDKCQA HRC030DK F1 F 80 4 1 2017-02-20 23:28 MNT094
+===============================================================================

Contents of DMKCFC HRC030DK F1 create an external entry for QUERY ALLOC.

+===============================================================================
|FSVIEW: DMKCFC HRC030DK F1 Lines 1-6/6 F80[1-79] FSVIEW V1.2.5
|./ I 00117920 $ 117960 40 02/15/06 14:13:37
| EXTRN HDKCQALO HRC030DK
|./ I 00604900 $ 604950 50 02/15/06 14:13:37
| DC A(HDKCQALO) INDEX 32 HRC QUERY MODULE HRC030DK 0060490
|./ I 00661800 $ 661820 20 02/15/06 14:13:37
| DC C'ALLOC ',AL1(5,A+C+E,32,0) MOD 32 = HDKCQALO HRC030DK
+===============================================================================

Contents of HDKCQA HRC030DK F1, is a resequence fix for HDKCQA ASSEMBLE.

+===============================================================================
|FSVIEW: HDKCQA HRC030DK F1 Lines 1-4/4 F80[1-79] FSVIEW V1.2.5
|./ * HRC030DK V02 ADD QUERY ALLOC COMMAND
|./ * Note: HDKCQA ASSEMBLE as distributed was not correctly sequenced.
|./ * The following directive sequences the file as required to update it.
|./ S
+===============================================================================

There are three with HRC031DK, of which two are similar to the ones above.

+===============================================================================
|XLIST: * HRC031DK * Lines 1-3/3 XLIST V1.2.5
| Filename Filetype Fm Format Recs Blocks Date Time Label
| DMKCFC HRC031DK F1 F 80 6 1 2013-01-01 17:53 MNT094
| DMKLD00E HRC031DK F1 F 80 17 2 2013-01-01 17:53 MNT094
| HDKQCA HRC031DK F1 F 80 1 1 2013-01-01 17:53 MNT094
|
+===============================================================================

Contents of DMKCFC HRC031DK F1 create an external entry for QUERY ALLOC.

+===============================================================================
|FSVIEW: DMKCFC HRC031DK F1 Lines 1-6/6 F80[1-79] FSVIEW V1.2.5
|./ I 00117920 $ 117960 40 02/15/06 14:13:37
| EXTRN HDKCQALO HRC031DK
|./ I 00604900 $ 604950 50 02/15/06 14:13:37
| DC A(HDKCQALO) INDEX 32 HRC QUERY MODULE HRC031DK 0060490
|./ I 00661800 $ 661820 20 02/15/06 14:13:37
| DC C'ALLOC ',AL1(5,A+C+E,32,0) MOD 32 = HDKCQALO HRC031DK
|
|FSVIEW: HDKQCA HRC031DK F1 Lines 1-1/1 F80[1-79] FSVIEW V1.2.5
|./ * HRC031DK V01 ADD QUERY ALLOC COMMAND
+===============================================================================

Contents of DMKLD00E HRC031DK F1 are mods for bare metal run versus VM run.

+===============================================================================
|FSVIEW: DMKLD00E HRC031DK F1 Lines 1-17/17 F80[1-79] FSVIEW V1.2.5
|./ R 01336000 01336000 $ 01336000 00000333 0000100
|ERPRNT CLI CPUID,X'FF' RUNNING UNDER CP? HRC031DK 0000200
| BNER R14 NO, MUST BE BARE MACHINE HRC031DK 0000300
| LH R0,4(,R5) GET LENGTH HRC031DK 0000400
|./ R 01391000 01391000 $ 01391000 00000333 0000500
|PAGER CLI CPUID,X'FF' UNDER CONTROL OF CP? HRC031DK 0000600
| BNER R14 NO, NO MAP ON BARE MACHINE HRC031DK 0000700
| LA 8,5 SET UP RETRY COUNTER HRC031DK 0000800
|./ R 01418000 01418000 $ 01418000 00000250 0000900
| SPACE , HRC031DK 0001000
|SET CLI CPUID,X'FF' RUNNING UNDER VM? HRC031DK 0001100
| BNER R14 NO, FORGET SKIPS TO CH 1 HRC031DK 0001200
| SSM CH0OFF HRC031DK 0001300
|./ I 01727000 $ 01727500 00000500 0001400
| STIDP CPUID GET CPUID HRC031DK 0001500
|./ I 01808000 $ 01808500 00000500 0001600
|CPUID DS D CPUID STORED HERE HRC031DK 0001700
+===============================================================================

Just a comment concerning QUERY ALLOC.

+===============================================================================
|FSVIEW: HDKQCA HRC031DK F1 Lines 1-1/1 F80[1-79] FSVIEW V1.2.5
|./ * HRC031DK V01 ADD QUERY ALLOC COMMAND
+===============================================================================

... Mark S.