Interested to Buy Any Domain ? << Click Here >> for more details...
how can we find setll setgt chain read reade readp
operations are successfull or not,give example.explain in
detail.
- 4 Answers
- 14972 Views
- iSoft, Wipro, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / adhar246
%FOUND will give the record is found or not. Not the operation was successful. To check an opcode is successful you have to use opcode extender (E) with opcode. and use %error BIF to check the opcode was successful.
| Is This Answer Correct ? | 5 Yes | 0 No |
Answer / rajkalyanam
If SETLL and SETGT are successful,that is if record is
found Equal Indicator gets ON.
If READ,READE and READP are not Successfull that is if
record is not found or retrieved Equal Indicator gets ON,
For CHAIN High indicator gets on when CHAIN operation is not
not successfull.
| Is This Answer Correct ? | 2 Yes | 1 No |
Answer / harshad r suryawaunshi
Use If %found with Chain and with inedicator with and all
READ operations. if chain is unsuccessful execution of
lines in %found loop will not executed. if Read is success
full the mentioned indicator will be off.
| Is This Answer Correct ? | 1 Yes | 2 No |
How do I link an existing logical file to it's Physical File without recompiling?
How to change the name of physical members Dynamically?
1.How to read a subfile in out put mode? 2.what are the keywords used to share same file? 3.using composite key which rpg code used?
How to add 2 new fields in a file? How many ways are there in as400?
I have to change a program. This program is calling a subroutine mor than 100times within it. so will it have any performance issue? if yes than what changes i can make. Thanx for ur valuable answer.
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
Interviewer asked me write down DDS for load all subfile .can anybody write dds
Suppose we have 10 records with same name and we are reading using READE,after 4 record i have to use CHAIN what is the output
i 'm new to as/400.in an interview i was asked this question.give a practical example for passing information or data through local data area. I know only that data area is an object used to store tiny bits of data or it can store one value at a time and it is used to store frequently changing values or datas.thats all i know about data area can any one tell me how local data area and user defined data area are used to pass data between jobs with a example or coding.thanks in advance.
How do you code file / field renames in ILE RPG?
Suppose we add one field in physical file and this physical file is used by several programs.how do we know which program is using that file? What are the impact analysis.
WHERE DO WE USE COMIT KEYWORD IN AN RPG PROGRAM? YOU MADE SOME CHANGES TO DATABASE BUT YOU DON'T WANT TO SAVE THOSE CHANGES NOW? HOW DO YOU HANDLE THIS ONE?
RPG400 
