Interested to Buy Any Domain ? << Click Here >> for more details...
CAN WE INSERT FIELD IN PHYSICAL FILE BY USING OPNQRYF?
- 4 Answers
- 13147 Views
- I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / manish kumar
MAPFLD is used to change the format of the fields used in
the OPNQRYF statement. When I say changing the format the
format of the field will not be changed but we can format
the data as we wish and store it in a diffrent variable.
For eg. You want check for year to be some value and are not
concerned abt date and month then you can follow as below.
OVRDBF FILE(FILEA) SHARE(*YES)
OPNQRYF FILE(FILEA) QRYSLT('YEAR *EQ "88" ') +
MAPFLD(YEAR '%SST(DATE 5 2)' *CHAR 2)
CALL PGM(PGMC)
CLOF OPNID(FILEA)
DLTOVR FILE(FILEA
| Is This Answer Correct ? | 9 Yes | 0 No |
Answer / sumit gupta
Hi Suma..your question is wrong...OPNQRYF is used to select
some records from a physical file which is overide or
simple 1 file(without OVRDBF).
We cannot insert field into physical file throgh OPNQRYF.
But yes you can change the format of field as SAID BY
MANISH and then bys using CPYFRMQRYF...you can write the
selected record into physical file.
| Is This Answer Correct ? | 6 Yes | 0 No |
Answer / venkat
it is not possible to insert a field using openquery file
because of there is no parameter to insert the field at
opnqryf
| Is This Answer Correct ? | 3 Yes | 0 No |
What are the system objects required for journalling?
how will you find a string using pdm?
Which is better LF or OPNQRYF ? When should we use LF and when should we use OPNQRYF ?
When will DUMP and DEBUG opcodes be ignored?
i have one physical file which is having two logical files. logical a have unique keyword and logical b doesnt have a unique keyword. can i give duplicate values while updating through physical file. if no why?
how does the runqry show the output?
How to know the number of records in a pf through clp program?
What are the functions of Remote Job Entry (RJE) ?
how can I automatically refresh a web page?
Describe the function of SETGT operation in RPG language?
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 are members?
RPG400 
