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.
3039Post New HSBC IBM AS400 AllOther Interview Questions
- HSBC C Interview Questions (1)
- HSBC OOPS Interview Questions (2)
- HSBC Programming Languages AllOther Interview Questions (2)
- HSBC Networking Administration Interview Questions (1)
- HSBC Exchange Server Interview Questions (1)
- HSBC Oracle Architecture Interview Questions (1)
- HSBC MS Access Interview Questions (1)
- HSBC DB Administration Interview Questions (1)
- HSBC SQL PLSQL Interview Questions (7)
- HSBC Windows AllOther Interview Questions (1)
- HSBC Solaris Commands Interview Questions (1)
- HSBC Solaris AllOther Interview Questions (1)
- HSBC QTP Interview Questions (2)
- HSBC Test Director Interview Questions (1)
- HSBC Manual Testing Interview Questions (5)
- HSBC COBOL Interview Questions (13)
- HSBC JCL Interview Questions (13)
- HSBC CICS Interview Questions (6)
- HSBC DB2 Interview Questions (4)
- HSBC VSAM Interview Questions (3)
- HSBC RPG400 Interview Questions (18)
- HSBC DB400 Interview Questions (2)
- HSBC COOLPLEX Interview Questions (1) HSBC IBM AS400 AllOther Interview Questions (3)
- HSBC Core Java Interview Questions (2)
- HSBC JDBC Interview Questions (2)
- HSBC Websphere Interview Questions (1)
- HSBC Java Related AllOther Interview Questions (1)
- HSBC Cognos Interview Questions (11)
- HSBC Informatica Interview Questions (5)
- HSBC Actuate Interview Questions (2)
- HSBC Data Stage Interview Questions (11)
- HSBC SAS Interview Questions (19)
- HSBC Data Warehouse General Interview Questions (1)
- HSBC HR Questions Interview Questions (1)
- HSBC Requirements Management Interview Questions (2)
- HSBC SAP SD (Sales & Distribution) Interview Questions (1)
- HSBC Digital Certificates Interview Questions (1)
- HSBC Visual Effects Interview Questions (1)
- HSBC Software Quality Analysis Interview Questions (1)
- HSBC Mechanical Engineering Interview Questions (1)
- HSBC Electrical Engineering Interview Questions (3)
- HSBC Electronics Communications Interview Questions (2)
- HSBC Engineering AllOther Interview Questions (3)
- HSBC Business Administration Interview Questions (3)
- HSBC Marketing Sales Interview Questions (6)
- HSBC Banking Finance Interview Questions (9)
- HSBC Business Management AllOther Interview Questions (3)
- HSBC Audit Interview Questions (1)
- HSBC CompanyAffairs CS Interview Questions (3)
- HSBC Accounting General Interview Questions (8)
- HSBC Accounting AllOther Interview Questions (19)
- HSBC Call Centre AllOther Interview Questions (132)
- HSBC SSC General Studies Interview Questions (1)
- HSBC NDA Interview Questions (1)
- HSBC BSRB Clerical Interview Questions (2)
- HSBC Group I Interview Questions (1)
- HSBC General Knowledge_Current Affairs Interview Questions (3)
- HSBC Government AllOther Interview Questions (1)
- HSBC Everything Else AllOther Interview Questions (1)
- HSBC English Interview Questions (3)
- HSBC General Aptitude Interview Questions (5)
- HSBC Puzzles Interview Questions (1)
- HSBC Placement Papers Interview Questions (3)
- HSBC CCNA Interview Questions (1)
- HSBC Microsoft Certifications Interview Questions (1)
- HSBC Certifications AllOther Interview Questions (1)
What do you mean by a local block?
What do you know about Selenium IDE?
What are the applications of the octal number system?
Give some example of master data in material management (mm).
How to define a function with any number of arguments?
Define stefan boltzman contant.
Does string is thread-safe in java?
what is the difference between weblogic and websphere,jboss,tomcat?
Is a class subclass of itself?
Have you worked on ABAP Queries? Explain the detailed work mechanism involved in it? Please give examples from your real time/ live data project along with detailed procedure/ work mechanism and explanation along with path and t-codes if any? Please answer this question asap.... Its Urgent.... Looking forward for your express reply...I have interview within 1-2 days. So, give reply to this query asap.. I would be very grateful to you for your timely help.Thanks in advance. Regards
How to define a sub function?
What are your key qualities relevant to this job?
How can we improve the chances of a better sale?
What is scc?
What is the purpose of @beforeresult annotation?
