Interested to Buy Any Domain ? << Click Here >> for more details...
Answer Posted / remya
chain-This file operation is used to randomly retrieve a
record from a file.The factor 1 value is mandatory for chain
operation. The factor 1 value must be key field or RRN.Chain
operation=setll+reade. In the case of chain it will points
to a particular record, not store the value in the input
buffer.it will not read duplicate records.if the value not
found the "hi" indicator will turn on.
Reade-Reads equal records from a file when we use setll or
setgt.Reade operation alone will not work.In the case of
Setll+reade, the record will be pointed and store the value
in the input buffer.Then read equal records from a file
sequentially. it will read all the duplicate records. The
factor 1 value is not mandatory for reade,if used,the key
value must be in factor1.
| Is This Answer Correct ? | 8 Yes | 2 No |
Post New Answer View All Answers
When it is desirable to describe files Internally?
how do I play {insert rpg system here}?
How to select highest score of each subject or how to select highest income of every month?
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
how do you use commitment control in rpg?
what is the rpg system?
What is ment by record level identifier?
thanks mr.Harshad R Suryawaunshi,i'm new to as400 i think you are telling in rpgile i know only rpg400 if possible can you tell in rpg400
how can you display specific subfile page on the screen in unequal subfile?
how do I preserve and clean the array?
How to write record if no field or the field are different in physical file in rpgle ?
which program rpg or cl is efficent to update a transaction onto a database file and why ?
can any one help in hawkeye and turnover or any change management system plzzzzz or send the documents to my mail id :gvsp.as4@gmail.com
how do I declare a table or array in rpg iv?
what is the necessary keyword needed to scroll subfile records?
