++USERMOD(ZP60042)              /* ADD INDIRECT CATALOGING */  .
++VER(Z038) FMID(EDM1102)
  PRE(UZ50553,UZ72608)
 /*
   PROBLEM DESCRIPTION:
     THERE IS NO WAY TO CATALOG A DATA SET ON "THE CURRENT SYSRES".
       CATALOG ENTRIES FOR SINGLE-VOLUME NON-VSAM DATA SETS SPECIFY
       THE DEVICE TYPE AND THE VOLUME SERIAL NUMBER.  THERE IS NO
       WAY TO INDICATE THAT THE DATA SET WILL BE FOUND ON WHICHEVER
       VOLUME HAPPENS TO BE THE CURRENT IPL OR SYSTEM RESIDENCE
       VOLUME.

       THIS USERMOD UPDATES SVC 26 - BOTH FOR NIP AND POST NIP - TO
       OVERLAY THE RESULTS OF A LOCATE FOR A SINGLE-VOLUME DATA SET
       WHERE THE CATALOG ENTRY HAS A VOLUME SERIAL OF SIX ASTERISKS.
       THE RESULT IS UPDATED SO THAT THE DEVICE TYPE AND THE VOLUME
       SERIAL INDICATE THE CURRENT IPL OR SYSTEM RESIDENCE VOLUME.

       NOTE THAT WITH NO CHANGE TO IDCAMS, A COMMAND SIMILAR TO
         DEFINE NONVSAM(NAME(DS.NAME) VOLUME(******) DEVT(3350))
       WILL BE SUCCESSFULLY PERFORMED FOR VSAM (BUT NOT OS SYSCTLG
       OR CVOL) CATALOGS.

       UNLIKE MVS/SP, DEVT(0000) IS NOT SUPPORTED - A VALID DEVICE
       TYPE MUST BE SPECIFIED.  ANY SPECIFIED DEVICE TYPE IS REPLACED
       BY THE IPL VOLUME'S DEVICE TYPE WHEN THE SIX ASTERISKS ARE
       REPLACED BY THE IPL VOLUME'S VOLUME SERIAL NUMBER.

   SPECIAL CONDITIONS:
     ACTION:
       THIS SYSMOD SHOULD BE ACTIVATED SIMULTANEOUSLY WITH ZP60041.
       A "CLPA" MUST BE PERFORMED AT IPL TIME FOR THIS SYSMOD TO
       BECOME ACTIVE.

   COMMENTS:
     PRYCROFT SIX P/L PUBLIC DOMAIN USERMOD FOR MVS 3.8 NUMBER 42.

     REWORK HISTORY:
       2021-11-05: INITIAL AVAILABILITY.

     THE FOLLOWING MODULES AND/OR MACROS ARE AFFECTED BY THIS USERMOD:
     MODULES:
       IEAVNP12
       IGG026DU
 */.