Golgappa.net | Golgappa.org | BagIndia.net | BodyIndia.Com | CabIndia.net | CarsBikes.net | CarsBikes.org | CashIndia.net | ConsumerIndia.net | CookingIndia.net | DataIndia.net | DealIndia.net | EmailIndia.net | FirstTablet.com | FirstTourist.com | ForsaleIndia.net | IndiaBody.Com | IndiaCab.net | IndiaCash.net | IndiaModel.net | KidForum.net | OfficeIndia.net | PaysIndia.com | RestaurantIndia.net | RestaurantsIndia.net | SaleForum.net | SellForum.net | SoldIndia.com | StarIndia.net | TomatoCab.com | TomatoCabs.com | TownIndia.com
Interested to Buy Any Domain ? << Click Here >> for more details...


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.


No Answer is Posted For this Question
Be the First to Post Answer

Post New Answer

More IBM AS400 AllOther Interview Questions

A phisical file has two fields like 1) Account No(10,0) 2)Phone No(15,0)Unique on both fields?Please give me the answer for this?

3 Answers  


what are the parameters required for calling ls & get command(SFTP COMMANDS) from cl progtram.... e.g call PGM(qp2shell) PARM('/qopensys/usr/bin/sh' '-c' 'sftp -b /home/mydir/tmp.txt user@host.com') Plz reply in detail...

1 Answers  


What is data structure in as400? What is the use of data structure?

0 Answers  


maximum number of subfiles that can defined in a rpg program for one display file is?

1 Answers   IBM,


What are the mandatory keywords of sub file?

0 Answers   IBM,


what is the purpose of DMPCLPGM IN CL?

3 Answers   IBM, Wipro,


what is jurnal?what is the use of theis?what is difference between commitment control and jurnaling?

2 Answers  


what is the length of a variable in rpg?

1 Answers   IBM,


how can a message from a message file appear as a constant on the screen?

1 Answers   IBM,


List the steps/commands necessary to accomplish the following: a. Copy data from the file ORDHDR into file ORDHIST b. The file ORDHIST may or may not exist c. If the file ORDHDR does exist, it may or may not contain data d. The file ORDHIST may or may not contain data, if the file does contain data the old data should be erased

1 Answers  


is it there an easy way to determine if an html section is available to issue a wrtsection upon?

0 Answers   IBM,


What is the Select and Omit criteria in logical file?

1 Answers  


Categories