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