how can we find setll setgt chain read reade readp
operations are successfull or not,give example.explain in
detail.
- 4 Answers
- 13311 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 many program bind in one module....
What are the values of NUM1 and NUM2 after executing the following code? CLONO1NO2NO3 Factorl÷÷+OpcdeFactor2+÷+ResultLenDHHiLoEq C MOVE *LOVAL NUM1 50 C MOVE *J-fIVAL NtJM2 52
1.Where we declare Variables in RPG/400,RPGIV,RPGILE.? 2.When do we use D-spec and I-spec in real time ?.what is difference between them?
As Packed veriable store 2 digits in 1 byte and ZONE variable store 1 digit in 1 byte... Please tell me when we have to use Packed and Zone variable...?
How to get only unique records from a file which contains duplicate data using CPYF command ? Example : FILEA has duplicate records and FILEB is a UNIQUE defined.... and I want to get the data from FILEA to FILEB by eliminating all the duplicate records...
We have a Physical file, after reading 5 records,it has to read LF of that same Physical file,Will it start reading from Ist record or will start reading from 5th record?
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
What is use of IMPORT and EXPORT in RPGLE ? What is activation Group ? What is Service Program ???? How to call another program in RPGLE ?
we are sending data of physical file to screen design and it is showing no record why?
What will happen if we r using seton lr after return or vice versa.
Delete FileName at first statement in RPG.
Q:HI friends accually ihave one problem plesase let me know the alternate code of this code. Related field description of code: Add a field, CALvsPRD, "Calendar Day Starts Before/After Production Day" to the parameter set WRKORDER which accepts values 'A' or 'B' o B = Calendar Day Starts Before Production Day o A = Calendar Day Starts After Production Day o Any other value indicates the production and calendar dates are always the same. code: Automatic Execution Of *INZSR Subroutine /Z01 * retrieves WRKORDER field values. /Z01 * Calculate default Production Date and return it to caller. /Z01 * Production date defaults to system date /Z01 C Eval P@Pdate = %DATE() /Z01 * unless Calendar date starts Before PDN(production) date and /Z01 * system time is before PDN Start Time then /Z01 * PDN date is yesterday. /Z01 C If W@CALvsPRD = 'B' and /Z01 C %TIME() < %TIME (W@Strtime) /Z01 C Eval P@Pdate -= %Day(1) /Z01 * unless Calendar date starts After PDN date and /Z01 * system time is *GE PDN(production) Start Time then /Z01 * PDN date is tomorrow. /Z01 C ElseIf W@CALvsPRD = 'A' and W@Strtime > *Zero and /Z01 C %TIME() >= %TIME (W@STrtime) /Z01 C Eval P@Pdate += %Day(1) /Z01 C EndIf /Z01 C Eval *InLr = *On
RPG400 
