Mainframe Utility: PDSUTIL

ISREDIT MACRO (HELP)
ISPEXEC CONTROL ERRORS RETURN
/**** SET MESSAGE DISPLAY ON/OFF BASED ON THE DEBUG SWITCH ***/
ISPEXEC VGET (DBGSWTCH) PROFILE
IF &DBGSWTCH = &STR(ON) THEN CONTROL MSG LIST CONLIST SYMLIST NOFLUSH
ELSE CONTROL NOMSG NOLIST NOFLUSH NOPROMPT
/******************************************************************/
/* 'PDSUTIL' EDIT MACRO. CALL THE PDS UTILITY USING THE CURRENT DS*/
/* AUTHOR : DAVID LEIGH    DATE : 3-12-90                         */
/******************************************************************/

IF &HELP = &STR(HELP) THEN GOTO HELPSEC

ISREDIT (DSN) = DATASET

PDS '&DSN'

EXIT

HELPSEC: +                                                              02480000
ISPEXEC SELECT PGM(ISPTUTOR) PARM(HELPSHEL)                             02490000
SET ZEDLMSG = &STR(*** HELP DISPLAYED FOR PDSUITL UTILITY +             02490000
                   *** NO PROCESSING PERFORMED ***)                     02490000
ISPEXEC SETMSG MSG(UTLZ000)                                             02490000
EXIT
            

 This utility allows you to just type PDSUTIL on the ISPF edit session command
 line, press , and you will be taken into the PDS utility for that
 dataset that you are editing.  While the PDS utility takes a little bit of time
 to understand completely, it is tremendously powerful in it's ability to
 manipulate and maintain datasets.  The PDS utility is documented rather well in
 EDS User's Guide Volume 2 (the TSO volume) and would be worth the time to
 learn.  As a hint, when you get into PDS, typing "O" (for Options) will show
 you all the available commands.  "END" will terminate your PDS session.