Example 3: Dumping a VSAM RPL control block

Suppose that when you ran the following SMP/E commands, SMP/E issued message GIM27901S on a VSAM error:

SET      BDY(MVSTST1)       /* Process MVSTST1 tgt zone.  */.
APPLY    PTFS               /* Apply PTFs for HBT1201.    */
         FORFMID(HBT1201)   /*                            */
         GROUP              /*                            */.

After you report the problem to IBM®, you may be asked to rerun the job and request a dump of the VSAM RPL control block. You can use the following commands:

SET      BDY(MVSTST1)       /* Process MVSTST1 tgt zone.  */.
DEBUG    DUMPRPL(VPLEXT)    /* Debug dump for VPLEXT.     */.
APPLY    PTFS               /* Apply PTFs for HBT1201.    */
         FORFMID(HBT1201)   /*                            */
         GROUP              /*                            */.
DEBUG    DUMPOFF(VPLEXT)    /* Debug dump off.            */.

When you run this job, a dump of the VSAM RPL control block, plus additional RPL information, is written to SMPDEBUG. The heading for the RPL dump contains the VPL function being performed when the dump is taken (in this case, VPLEXT).