++USERMOD(ZP60033)         /* ADD LOC= TO THE GETMAIN MACRO */  .
++VER(Z038) FMID(EBB1102)
 /*
   PROBLEM DESCRIPTION:
     THE GETMAIN MACRO DOES NOT TOLERATE A LOC VALUE SPECIFICATION.
       MANY PROGRAMS SPECIFY VIRTUAL STORAGE LOCATIONS OF 24-BIT
       OR 31-BIT WHEN REQUESTING MORE STORAGE FROM THE SYSTEM.
       FURTHER, SOME PROGRAMS SPECIFY THAT WHEN PAGE-FIXED, THE
       NEW STORAGE MAY BE BACKED IN 24-BIT, 31-BIT OR 64-BIT
       ADDRESSABLE REAL STORAGE.  PROGRAMS WITH SUCH LOC VALUES
       CODED WILL NOT BE ASSEMBLED CORRECTLY ON MVS 3.8.

       THIS USERMOD ADDS SUPPORT FOR THE LOC VALUE TO THE GETMAIN
       MACRO.  THE LOC PARAMETER MAY BE SPECIFIED WITH THE RU AND
       RC FORMS OF GETMAIN.

       THE FIRST VALUE OF LOC MAY BE ONE OF THE FOLLOWING LITERALS:
            'BELOW', '24', 'ANY' OR '31'.

       USE 'BELOW' OR '24' TO REQUEST 24-BIT ADDRESSABLE STORAGE.
       USE 'ANY' OR '31' TO REQUEST 31-BIT ADDRESSABLE STORAGE.

       IF SPECIFIED, THE SECOND VALUE OF LOC MAY BE ONE OF:
            'ANY', '31' OR '64'.

       ANY ONE OF THESE THREE VALUES REQUESTS AN OVERRIDE TO THE
       SYSTEM DEFAULT OF BACKING THE STORAGE BELOW THE 16MB LINE
       IN REAL STORAGE IF THE STORAGE IS EVER PAGE-FIXED.

       THIS VERSION OF GETMAIN WILL GENERATE FLAG SETTINGS COMPATIBLE
       WITH MVS/XA.  A SECOND LOC VALUE OF '64' IS TOLERATED BUT IS
       TREATED AS IF '31' HAD BEEN SPECIFIED.

   SPECIAL CONDITIONS:
     NONE.

   COMMENTS:
     PRYCROFT SIX P/L PUBLIC DOMAIN USERMOD FOR MVS 3.8 NO. 33.

     REWORK HISTORY:
       2017-01-26: FIRST SMP VERSION OF THE AUGUST 2016 REVISION
                   OF THE MVS/380 VERSION.

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