Interested to Buy Any Domain ? << Click Here >> for more details...
What is the benefit of using Externally Described files
over Internally
Described?
- 19 Answers
- 40326 Views
- IBM, Patni, I also Faced
- E-Mail Answers
Answer Posted / sumithmalli
externally described files means we have to use the already
described files somewhere else with in ur file.internally
described mens we are writing entire code with in our
program
| Is This Answer Correct ? | 1 Yes | 1 No |
Post New Answer View All Answers
in which specification the report layout can be defined?
what would be the effect on the field where reverse image, underline and highlight display attributes were active?
explain the purpose of keep and assume keywords?
what are the uses of factor1, factor2 and result field for the rpg operation code parm?
what is the maximum number of fields under a record format of physical file?
What is diff between EVAL & MOVE?
what is a non-join logical file?
What is the draw back of Procedures? why we are going to Modules?
what keyword must be used with protect keyword ?
which of the following operations does not zero the field flda defined as 4,0?
how you will find an error which is not in the first page of the subfile without using rolldown key?
what is a query can be run in which mode?
when are the referential constraints executed?
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 difference between normal upddta to pf and updating using dfu program?
