Setting up quick keys for Filemanager
Posted: Tue May 07, 2013 8:51 pm
Hi,
We were earlier using FileAid but now we have moved to FileManger. Now F1,F2,F33 keys are not working for filemanager.I am trying to code same F1,F2,F33 key for filemanger.
I have written below clist which is throwing errors. Details are as below.
******************************************************************************************
ISPN106
DDname not allocated
DDname 'FALLIB' specified on LIBDEF service not allocated
Current dialog statement:
ISPEXEC LIBDEF ISPLLIB ID(FALLIB)
*******************************************************************************************
Below is the code that I have written for the invocation of F1 key
*******************************************************************************************
PROC 1 DATA_SET_NAME_OR_GO
CONTROL MSG
SET &FUNCVAR = &STR(3.1)
SET &dsnvar = &STR(&DATA_SET_NAME_OR_GO)
IF &SUBSTR(1:1,&DSNVAR) = &STR(') -
THEN SET "E = &STR(QUOTE)
ELSE SET "E = &STR()
ISPEXEC SELECT -
CMD(%FMN2INIT &FUNCVAR DSN(&DSNVAR) "E) NEWAPPL(FMNPDSV)
END
*********************************************************************************************
FMNPDSV::This is the name of the view panel in Filemanger
FMN2INIT::This invokes filemanager
Please suggest me how can I resolve this problem. Any alternate solution is also most welcome.
Thanks,
Chinkump
We were earlier using FileAid but now we have moved to FileManger. Now F1,F2,F33 keys are not working for filemanager.I am trying to code same F1,F2,F33 key for filemanger.
I have written below clist which is throwing errors. Details are as below.
******************************************************************************************
ISPN106
DDname not allocated
DDname 'FALLIB' specified on LIBDEF service not allocated
Current dialog statement:
ISPEXEC LIBDEF ISPLLIB ID(FALLIB)
*******************************************************************************************
Below is the code that I have written for the invocation of F1 key
*******************************************************************************************
PROC 1 DATA_SET_NAME_OR_GO
CONTROL MSG
SET &FUNCVAR = &STR(3.1)
SET &dsnvar = &STR(&DATA_SET_NAME_OR_GO)
IF &SUBSTR(1:1,&DSNVAR) = &STR(') -
THEN SET "E = &STR(QUOTE)
ELSE SET "E = &STR()
ISPEXEC SELECT -
CMD(%FMN2INIT &FUNCVAR DSN(&DSNVAR) "E) NEWAPPL(FMNPDSV)
END
*********************************************************************************************
FMNPDSV::This is the name of the view panel in Filemanger
FMN2INIT::This invokes filemanager
Please suggest me how can I resolve this problem. Any alternate solution is also most welcome.
Thanks,
Chinkump