Mainframe Utility: BROWSEME

Return to Mainframe Utilities Page

Module


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
/******************************************************************/
/* 'BROWSEME' EDIT MACRO. BROWSE THE FILE BEING EDITED.           */
/* AUTHOR : DAVID LEIGH    DATE : 02-20-89                        */
/******************************************************************/

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

ISREDIT (DSN) = DATASET
ISREDIT (MBR) = MEMBER

IF &HELP ¬= NOSAVE THEN ISREDIT SAVE

IF &STR(&MBR) >    THEN ISPEXEC BROWSE DATASET('&DSN(&MBR)')
                   ELSE ISPEXEC BROWSE DATASET('&DSN')

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


Documentation


 This utility allows you to type BROWSEME on the command line of a file being
 edited and be taken into an ISPF BROWSE of that same dataset.  When you quit
 the BROWSE, you will return to the EDIT.  This may be useful for an 80 byte
 text file where readable text extends past column 72.  To see the full 80 bytes
 in this situation, you would type BROWSEME and press ENTER.  Note : BROWSEME
 does a "save" of the dataset prior to "browsing", so that the version to be
 "browsed" is identical to the version being "edited".  To NOT perform the save,
 type BROWSEME NOSAVE on the command line, and the most recent version from DASD
 will be "browsed".
            


Leave a Reply

Your email address will not be published. Required fields are marked *