Setting of quickkeys for FileAid
Posted: Thu Aug 22, 2013 10:07 pm
I am trying to set up the quickkeys for FileAid for my shop. I am trying to write a clist name F1 which will open the view panel of FileAid. There will be no need of opening FileAid separately and going to the option 1 to view the file.
I have written a piece of code below
*************************************************************************************************
000001 PROC 1 DATA_SET_NAME_OR_GO
000002 CONTROL MSG
000003 SET &FUNCVAR = &STR(1) ============>>> Here 1 signifies the option 1 ie the view option in FileAid
000004 SET &DSNVAR = &STR(&DATA_SET_NAME_OR_GO)
000005 IF &SUBSTR(1:1,&DSNVAR) = &STR(') -
000006 THEN SET "E = &STR(QUOTE)
000007 ELSE SET "E = &STR()
000008 ISPEXEC SELECT -
000009 CMD(%FILEAID &FUNCVAR DSN(&DSNVAR) "E) NEWAPPL(FIL)
000010 END
*************************************************************************************************
I an getting the following error after the execution of the above code.
IKJ56712I INVALID KEYWORD, 1
IKJ56703A REENTER THIS OPERAND -
IKJ56712I INVALID KEYWORD, DSN('AAAABBBB.Dataset')
***
However after the execution of the above code the Primary Panel of FileAid is being displayed and as per requirement option 1 of Fileaid should be displayed.
Experts please help me how to get the option 1 from the primary panel of FileAid. Basically the doubt is how to pass the options after the REXX/CLIST has been invoked.
Thanks,
Chinkump
I have written a piece of code below
*************************************************************************************************
000001 PROC 1 DATA_SET_NAME_OR_GO
000002 CONTROL MSG
000003 SET &FUNCVAR = &STR(1) ============>>> Here 1 signifies the option 1 ie the view option in FileAid
000004 SET &DSNVAR = &STR(&DATA_SET_NAME_OR_GO)
000005 IF &SUBSTR(1:1,&DSNVAR) = &STR(') -
000006 THEN SET "E = &STR(QUOTE)
000007 ELSE SET "E = &STR()
000008 ISPEXEC SELECT -
000009 CMD(%FILEAID &FUNCVAR DSN(&DSNVAR) "E) NEWAPPL(FIL)
000010 END
*************************************************************************************************
I an getting the following error after the execution of the above code.
IKJ56712I INVALID KEYWORD, 1
IKJ56703A REENTER THIS OPERAND -
IKJ56712I INVALID KEYWORD, DSN('AAAABBBB.Dataset')
***
However after the execution of the above code the Primary Panel of FileAid is being displayed and as per requirement option 1 of Fileaid should be displayed.
Experts please help me how to get the option 1 from the primary panel of FileAid. Basically the doubt is how to pass the options after the REXX/CLIST has been invoked.
Thanks,
Chinkump