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.
3506Post 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)
How is F1 score is used?
What are your career plans at Clarks Shoes?
If you had a cylinder, sealed at both ends, with the pressure rising inside, would it blow at the end or split along the side first?
What is Tracing and Masking?
Explian File steps in ODI?
What is the driver class?
What are the main components of the j2ee application?
What steps can be taken to avoid stress corrosion cracking (SCC) in steel vessels used for storing anhydrous ammonia?
How much is a java license?
An automatic job running via DBMS_JOB has failedKnowing only that its failed, how do you approach troubleshooting this issue?
Define a column family?
When should I use the external_stage option?
WHY IGBT IS CALLED MINORITY CARRIER DEVICE?
Define a strong name in .net?
Why do erp consultants charge a high fee? : supply chain management
