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.
2533Post 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 does psql command do?
In swift, what type of object are basic data types?
How do I wipe my computer and reinstall windows 7?
How to disable wordpress comment?
What do you know about apex?
what is a query can be run in which mode?
please tel me the calibration of pneumatic controler.
what justifies that you have an aptitude for management educative training?
List down the major security implementations within node.js?
Explain session object in hibernate?
How fontsize and font size is differ in dhtml?
Please help to write testcase for ECG machine
Why python is fast?
One of the difficulties our company has is evaluating suggestions in a timely manner. What changes would you make to expedite evaluations?
Is hashmap keyset ordered?
