I had ruestion in one of the interview.....
If 1 file has more than 1 member and i want to use the 2nd
member in the RPG pgm (in RPG400),how can I use this....
I know the possible answers i.e. useing API 'QCMDEXE' or
Before calling the pgm I can use OVRDBF for that member...
but I dont' want to use both the tips in above scenarion.
Does any body tell me how can i use this ....?
- 13 Answers
- 17579 Views
- Mind Tree, I also Faced
- E-Mail Answers
Answer Posted / samul paul
Hi Swetha,thanks for ur suggestion.
If I am not worng , in RPG400 pgm we can't specify 2nd
member in F-spec.
Clear me if I am worng....
Thnaks
| Is This Answer Correct ? | 0 Yes | 2 No |
Post New Answer View All Answers
How can we arrange duplicate records in a file?
how do you specify page overflow indicator for printer files in rpg?
what is rpg fixed logic cycle?
WHAT IS AS/400 SYNORIO?
when would you use or not use this approach?
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.
what is the version of os/400 that we have?
what is the purpose of putovr (put with explicit override) keyword?
what is meant by object lock requests,held locks and locks waiting to be applied(wrkobjlck) why should we apply for locks.Please explain sir.
describe the difference between the dowxx and douxx operations?
which are the figurative constants used in rpg?
what keyword must be used with protect keyword ?
what is arrival sequence?
which cl command can be used at program execution to redirect the file named in an rpg program?
what is the purpose of indicators in rpg?
