How do you find out whether a record is present in the
physical file without reading the file?
for Example Employee No: 100 in an Employee master.How do
we find out whther 100 is present in Employee master
without reading the file?
Answer Posted / rashmimalpani
You can do SETLL and then use %found to check whether the
record exist in the file.
Chain itself does the SETLL operation on the file and reads
the subsequent record if match is found.
| Is This Answer Correct ? | 14 Yes | 11 No |
Post New Answer View All Answers
What is file identifier where we can use?
What is difference between bind by copy and bind by reference?
What is ment by record level identifier?
what is a rpg?
how do I preserve and clean the array?
is this a rpg channel?
can anybody help me to solve this problem. the program that i m checking display error message saying "Record format for file AJDSPFFD does not match model file and decimal error. how to solve this problem. The AJDSPFFD is snapshot the AJTLOG that is the audit trail list.
How do u design a physical file, when you have 2 Unique fields like for eg in A student file student ID and student examination no both are unique
How to select highest score of each subject or how to select highest income of every month?
how does the rpg element work?
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 Chain operation copies the record's data to the input buffer for the program?
how do you use commitment control 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
explain sflclr, sflend, sfldlt, and sflcsrrrn?