I have created a command that display Source file and
library. Now i want that when i enter library name and
press f4 on Source file, pgm should display all the PF-
SRC's in that Library. For F4 option i have used Choice
program but since only limited paramters are passed in
Choice pgm i am not able to paas library name and further
can't call a pgm that will display list of Source files.

Below is the Code snippet for CMD type object :-
CMD PROMPT('Source Scan for HUB Standard')
PARM KWD(SOURCE) TYPE(*CHAR) LEN(1) RSTD(*YES) +
VALUES(N A) MIN(1) +
CHOICE('N,A')
PARM KWD(SRCFILE) TYPE(FILE) RSTD(*NO) +
PROMPT('SOURCE FILE')
FILE: QUAL TYPE(*NAME) LEN(10) RSTD(*NO) EXPR
(*YES) +
CHOICE(*PGM)
+
CHOICEPGM
(XXXXXLIB/YYYPGM)
QUAL TYPE(*NAME) LEN(10) DFT(*LIBL)
+
SPCVAL((*LIBL)) EXPR(*YES) PROMPT
('Library')

Below is the Choice pgm:-
PGM PARM(&PARM1
&PARM2)

DCL VAR(&PARM1) TYPE(*CHAR) LEN
(21)
DCL VAR(&PARM2) TYPE(*CHAR) LEN
(2000)


IF COND(%SST(&PARM1 1 10) = 'CHOICE '
*AND +
%SST(&PARM1 11 10) = 'SRCFILE '
*AND +
(%SST(&PARM1 21 1) = 'C' *OR %SST
(&PARM1 +
21 1) = 'P')) THEN
(DO)
/* (%SST(&PARM1 21 1) = 'C' *OR %SST
(&PARM1 + */
CHGVAR VAR(&PARM2) VALUE('Name, F4 for
List')

ENDDO



IF COND(%SST(&PARM1 1 10) = 'CHOICE ' *AND
+
%SST(&PARM1 11 10) = 'SRCFILE ' *AND
+
%SST(&PARM1 21 1) = 'P') THEN
(DO)
CHGVAR VAR(&PARM2) VALUE('Name, F4 for
List')
CALL PGM(GTSQL) PARM
('XXXXLIB')

return


ENDDO


Thanks in Advance for looking into.