The sample executes in 24-bit addressing mode. It can execute in
31-bit mode if you modify it to remove 24-bit dependencies. Input
to the routine is always addressable in 24-bit mode. The following
are 24-bit dependencies:
- The first GETMAIN should have LOC=BELOW because it has DCBs and
OPEN and CLOSE short lists. The OPEN and CLOSE parameter lists can
be in storage above the line if MODE=31 is coded on the list and execute
forms. LOC=ABOVE can be added to other GETMAINs.
- SYNAD and EODAD must reside below the line by having RMODE 24
for the CSECTs or there must be a DCBE with SYNAD and EODAD.
- Optionally add RMODE 31=BUFF to a DCBE to get QSAM buffers above
the line. If so, you can delete the FREEPOOL macro.