link to a folder
Posted: Wed Aug 29, 2012 1:33 pm
How can I create a link to a server or folder on my network?
Code: Select all
CMD PROMPT('Open Folder')
PARM KWD(FLR) TYPE(*CHAR) LEN(112) MIN(1) +
EXPR(*YES) PROMPT('Windows folder')
Code: Select all
PGM PARM(&FLR)
DCL VAR(&CMD) TYPE(*CHAR) LEN(123)
DCL VAR(&FLR) TYPE(*CHAR) LEN(112)
STRPCO PCTA(*NO)
MONMSG IWS4010
CHGVAR VAR(&CMD) +
VALUE('explorer "' *TCAT &FLR *TCAT '"')
STRPCCMD PCCMD(&CMD) PAUSE(*NO)
ENDPGM
Code: Select all
CRTCLPGM PGM(OPENFLRCL) SRCFILE(QCLSRC)
CRTCMD CMD(OPENFLR) SRCFILE(QCMDSRC) PGM(OPENFLRCL)
Code: Select all
OPENFLR FLR('i:\Documents\case5476\')