Interested to Buy Any Domain ? << Click Here >> for more details...
In a particular program one file is used where override
command is applied to a file, now this program calls
another program where we want to use the same file but
without override.How it can be done?
- 6 Answers
- 19950 Views
- Hexaware, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / syam
Before calling another program use DLTOVR fileName LVL(*).
LVL(*) = Call Level (*CALLLVL)
If I am wrong pls correct
| Is This Answer Correct ? | 15 Yes | 1 No |
Answer / syam
Sekhar214's answer is correct....Thanks
DLTOVR FILE(Filename) LVL(*JOB)
| Is This Answer Correct ? | 3 Yes | 0 No |
Answer / david lex
The question is somewhat ambiguous. The OVRDBF command
contains MANY parameters, all of which have a very
different impact on the file.
Very often the OVRDBF is used to access the same file in a
different library, but that is not always the case.
It is also of note that the TYPE of programs are not
mentioned - are they CL, CLLE, OPM RPG, ILE RPG, COBOL...
or a combination? It does make a difference, specifically
as to whether you even need to take this approach.
The most common scenario is a CL overriding a file/Lib1 to
file/Lib2 then calling an RPG/Cobol pgm. But in this
scenario the override is generally required in the
RPG/Cobol program.
Answer one does not address the override. Unless using
embedded SQL or some non standard technique, one must
include the file being used in the F-specs regardless of an
override scenario.
Answer two (with nuances) will have the desired effect, but
there are other things to consider before merely removing
the override.
Do you need the override in place upon return to the
calling program? If you do, you'll have to re-issue the
override.
Additionally, the call level on the DLTOVR command must be
the same that was on the original OVRDBF issued, otherwise
it will fail (albeit silently) with something
like 'Override not found at specified level'.
Defaults on the system in question also come into play.
What is your default activation group?
There are a variety of ways to handle this, each with
strengths & weaknesses.
Embedded SQL, new activation groups, using a QUALIFIED file
opening, call stored procedures, exported procedures in a
service program, etc.
It VERY much depends on the original intention of the file
override to begin with.
| Is This Answer Correct ? | 2 Yes | 0 No |
Answer / sekhar214
Depends on the coding. If that is an interactive JOB and OVERSCOPE os on *JOB level, you have delete the overrides.
DLTOVR *ALL LVL(*JOB)
If that is a batch job , no impact on other jobs.
| Is This Answer Correct ? | 0 Yes | 1 No |
Suppose File Name(MyFile) is overriding to File(MyFile1) in
one Cl program (i.e ClPGM1) by
Ovrdbf File(MyFile) ToFile(MyLib/MyFile1)
Now You are calling the program(i.e RPG1)in Cl Pgm(CLPGM1)
and want to use same file(MyFile1)
So Just Declare the File in F- spec
F MyFile1 IE F Disk
.
.
.
In this way we can use the file
Hope you got your answer!
Thanks!!
| Is This Answer Correct ? | 3 Yes | 13 No |
When will DUMP & DEBUG be ignored?
why we do STRSRVJOB in batch debugging in as400
i have 1000 records in pf.what are all the ways to read a particular name records in rpg?? ie.. in pf i have a name called demo appeared around 52 times hw will we read this particular records in rpg/400?.
can anybody explain significance of *loval setll with example code????
what is importance of 'MAPFLD' IN OPNQRYF FILE ?
Hi friends, I am using a load all subfile , and currently i am in in the third page of the subfile , from third page i have selected a record and called some other program .on returning, subfile is being loaded from the frist page. so can any one kindly suggest me in retaining my third page after returning. i.e loading from third page.
What are different ways to pass data between programs and which one is the efficient way?
what is commitment control?explain about it?
1.What is referential Integrity? 2.What is Foreign Key? 3.What is Transfer Control? 4.What is Free format?
This is my Physical file 'EMPS' existing in library "TAMIL1" and its record format is 'EMPRCD" a)its source is R EMPRCD ENO 4 0 ENAME 10 EADD 10 b)The records present in EMPS are as follows ENO ENAME EADD 0001 tamil coimbatore 0002 kumar bangalore 0003 sunder bangalore 0004 arunkumar chennai 0005 pandi hyderabad 0006 santhosh hyderabad 0007 sasi salem 0008 kalai chennai 0009 suresh hyderabad 0010 vijay bangalore 0011 Arul chennai 0012 velu chennai 0013 khan bangalore 0014 praba chennai 0015 praba.p coimbatore 0016 anand ooty 0017 raja erode 0018 sankar erode 0019 vadivel namakkal 0020 anbu chennai 0021 Ajith mumabi c)now i want to select the 'ENAME' field records starting with 'S' for that i have created a RPG program its source code is PGM DCLF FILE(TAMIL1/EMPS) DCL VAR(&MYENO) TYPE(*CHAR) LEN(4) OVRDBF FILE(EMPS) SHARE(*YES) OPNQRYF FILE((TAMIL1/EMPS)) QRYSLT('ENAME *EQ %WLDCRD("S *")') READ: RCVF RCDFMT(EMPRCD) MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(END)) CHGVAR VAR(&MYENO) VALUE(&ENO) SNDUSRMSG MSG(&MYENO) SNDUSRMSG MSG(&ENAME) SNDUSRMSG MSG(&EADD) GOTO READ END: CLOF OPNID(EMPS) DLTOVR FILE(EMPS) ENDPGM Is this coding correct sir,the program gets compiled,and if i call it it says query running but records are not displayed.please help me out
What is Multi Occurrence Data Structure(MODS)?
Please tell me how to read the records from a file with load an array of size with error conditions(The logic answer for this question is ARR is array of 99 elements Z-ADD 0 IDX *LOVAL SETLL FILE READ FILE 99 *IN99 DOWEQ *OFF IDX ANDLT 99 ADD 1 IDX MOVE FIELD ARR,IDX READ FILE 99 ENDDO).So,Please give me the complete of this code.
RPG400 
