Mainframe Utility: $F

Return to Mainframe Utilities Page

Module


PROC 1 DMPDSN OPT()                                                     --------
/*** CHECK THE DEBUG SWITCH ***/
ISPEXEC VGET DBGSWTCH PROFILE
IF &DBGSWTCH = ON THEN +
    CONTROL MSG LIST CONLIST SYMLIST NOFLUSH NOPROMPT ASIS
ELSE +
    CONTROL NOMSG NOLIST NOFLUSH NOPROMPT ASIS

IF &SYSINDEX(&STR('),&STR(&DMPDSN)) = 0 THEN +
    IF &STR(&SYSUID) >     THEN +
        SET DMPDSN = &STR('&SYSUID..&DMPDSN')
    ELSE +
        SET DMPDSN = &STR('&DMPDSN')

%PROFUPDT FAXE VARIABLE(DMPDSN) VALUE(''&DMPDSN'')

IF &DATATYPE(&STR(&OPT)) = NUM THEN SET OPT = &STR(OPT(&OPT))

ISPEXEC SELECT CMD(%FILEAID)

EXIT
            


Documentation


 $F can be placed in front of a dataset name on the ISPF 3.4 screen (a.k.a.
 DSLIST) and when you press , you will be taken into File-Aid with that
 dataset having been "pre-populated" in the various "Dataset Name ===>" fields
 throughout File-Aid.
            


Leave a Reply

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