CAN WE READ RECORDS WITHOUT USING SETLL,READ,CHAIN IN RPG?
- 6 Answers
- 19647 Views
- Satyam, I also Faced
- E-Mail Answers
Answer Posted / baratiya
File information DS can be used for this purpose as well.
Ffile1 IF E INFDS(fileinfo)
Dfileinfo DS
rcds *Records
| Is This Answer Correct ? | 2 Yes | 1 No |
Post New Answer View All Answers
How to call one program from another program in RPG? please help me with the code
how can I tell when to replace the array?
How to write record if no field or the field are different in physical file in rpgle ?
How to declare the pull button in AS/400..
Set on command is used for closed all opened files , initialize var and release resource , return cmd is used for return to calling program but my req. Is dnt close opened files and resource must released while doing transactions , how can i do this...?
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 data area and how it is used in rpg program ?
what happens when sflsiz = sflpag? What are the advantages and disadvantages?
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
When it is desirable to describe files Internally?
if there is a module object , how to find the program object for this module object.Assume the module object name and program object name is not same.
what is a rpg?
what do you mean by an input subfile, what are the keywords required?
