Back To LeighWeb Mainframe Utilities Page

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