CAN WE READ RECORDS WITHOUT USING SETLL,READ,CHAIN IN RPG?
- 6 Answers
- 20373 Views
- Satyam, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / mathan kumar
It is Possible by Declare the pf file as a primary file
then you can access the records from pf by using the pf
fields in the program....
| Is This Answer Correct ? | 26 Yes | 3 No |
Answer / rosh
above both answers are correct,as well if you use the flat
file and define this flat file as peogram decribe file and
define pre - run time array with file, so when program get
active, records will derectly comes to array.
| Is This Answer Correct ? | 4 Yes | 0 No |
Answer / 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 |
Hi Sai,
We can read records in so many ways in RPG Program.
1) primary file as file designation
2) file information data structure
3) Using pre-run-time array
0001.00 FFLAT01 IT F 5 DISK
0002.00 DPRE_ARR S 5 DIM(5) FROMFILE(FLAT01)PERRCD(1)
0003.00 C PRE_ARR(1) DSPLY
0004.00 C PRE_ARR(2) DSPLY
0005.00 C PRE_ARR(3) DSPLY
0006.00 C PRE_ARR(4) DSPLY
0007.00 C PRE_ARR(5) DSPLY
0008.00 C SETON LR
OUTPUT :
-----------
AAAAA
BBBBB
CCCCC
DDDDD
EEEEE
| Is This Answer Correct ? | 1 Yes | 0 No |
Answer / sai829
H Rosh,
CAN YOU PLEASE Elaborate your answer.i.e how to Define pre - run time array with file in RPG?...Thanks in Advance.
| Is This Answer Correct ? | 0 Yes | 0 No |
1.WHAT IS WRONG WITH THE CODE BELOW? C CUSTNO CHAIN CUSTMAST IF %ERROR can any body find the wrong please? 2.What builtin function will you use to achieve the following functionality? C QTY IFLT *ZERO C QTY MULT-1 QTY ENDIF
How to sort an array in descending in RPG
Let?s consider a variable X of length 20. Move value ?ABC? to it.How to determine how many characters does X have?
Why there is invention of RPG if we can do insert update delete in CL through SQL.Why the rise of RPG?
1.Can any body share me about thease opcodes with example please.Im new for AS/400.Could u please tell me in real senario? 1.TESTN, 2.EVAL 3.EVALR, TIME, 4.MONITOR 5. ENDMON 6.ON-ERROR 7.COMMIT ROLLBACK?
What will happen if we r using seton lr after return or vice versa.
Whether a module can consists of many procedures or it can consist of subprocedures having a main procedure?If it is possible that it can contain many individual procedures than can we have different name for complete module and how do we call this module in main modul?
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
Can we create 300 logical files based on a single physical file using the CRTLF command only once?.
When we have a file with Duplicate records and I want to read the unique record from the file. For example a file containing Emp Name as 'Ram' and there are 3 entries of it. So how to read a unique record from File?
how to find whether a date format is valid or not in RPG400 not in RPGILE.Can you please write the coding for this sir,i'm new to AS400.Please help.
how to run only 10 modules of existing N modules in service program in RPGILE ?
RPG400 
