Interested to Buy Any Domain ? << Click Here >> for more details...
How do you know if a record exists without doing a READ and
CHAIN?
- 6 Answers
- 20656 Views
- IBM, I also Faced
- E-Mail Answers
Answer Posted / sravs
We Can Done THis By using Setll with %found also..
| Is This Answer Correct ? | 0 Yes | 5 No |
Post New Answer View All Answers
what happens when sflsiz = sflpag? What are the advantages and disadvantages?
How Chain operation copies the record's data to the input buffer for the program?
Program to read marks of 10 students for 4 subjects and compute and display total marks and status of each student in rpg
What is ment by record level identifier?
write an RPG program to calculate the marks of 5 students (A,B, C, D, E)in 3 different subjects (eng, math, sci) an display on the screen
what is the difference between do while and do until?
what is kids-rpg?
what is the necessary keyword needed to scroll subfile records?
how do I preserve and clean the array?
what are the key words you must use when using a subfile?
What is difference between bind by copy and bind by reference?
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
are there any useful c runtime apis that I can call from rpg iv?
what is file information data structure?
What are the types of identifiers?
