Back To LeighWeb Mainframe Utilities Page

PROC 0 HELP
/**** 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

IF &HELP = &STR(HELP) THEN GOTO HELPSEC
/*
/* SET ZSSFS1   =
/* SET ZSSFNPRJ = PPL3D
/* SET ZSSFNGR1 = CHAMP4
/* SET ZSSFNTYP = PRODPDS
/* SET ZSSFNIMB =
/*
/* ISPEXEC VPUT (ZSSFS1 ZSSFNPRJ ZSSFNGR1 ZSSFNTYP ZSSFNIMB) PROFILE

ISPEXEC SELECT PGM(ISRSFM)

EXIT

HELPSEC: +
CLEAR
WRITE *** HELP FOR CLIST SCAN ***
WRITE
WRITE HELP NOT WRITTEN AT THIS TIME
WRITE
WRITE *** END OF HELP *** NO PROCESSING PERFORMED
EXIT