how can an indexed file be used as arrival sequence in RPG?
Answers were Sorted based on User's Feedback
Answer / sanpra
To achieve this on 'F' Spec leave the 'Record address type'
option as blank ( i.e. don't specify 'K' - Keyed or
|Is This Answer Correct ?||25 Yes||1 No|
Answer / kamlesh
do not specify K for record address type in F spec.
Use RECNO(VRRN) keyword where VRRN is packed data type
having dec pos as 0 and has length enough to hold
largest RRN of ur PF.
Now move RRN in VRRN variable and apply
VRRN Chain FILE 99
ur required record is retrieved
|Is This Answer Correct ?||3 Yes||0 No|
Answer / ttom
How will chain be used if 'K' is not specified as address
type in the f spec
|Is This Answer Correct ?||0 Yes||1 No|
Can a run time array be declare like below with no specified number of elements ? Is it possible ? DFLD_ARRAY 7 DIM() INZ(*blanks) What does this mean ? Does this mean that the number of array elements will be dynamically declared during run time ?
How to get only unique records from a file which contains duplicate data using CPYF command ? Example : FILEA has duplicate records and FILEB is a UNIQUE defined.... and I want to get the data from FILEA to FILEB by eliminating all the duplicate records...
what is file identifier wher we can use
what are the key words you must use when using a subfile?
what is mean by *MAP and *DROP?what commands use these two keywords?why are they used?
How I can reread the physical file in CL program once the end of file reached in same CL program.
How to handle duplicate error handling in RPG?
What is the purpose of PUTOVR keyword?
When will DUMP & DEBUG be ignored?
what is *place and *auto keyword in prtf ?plz explain
Please help me, I have created window subfile,I have created Footer with same lengh and postion of window SFL. When I call the pgm, first is shows only Footer and then it shows subfile records.This time Footer is not showsing ..plz hel me how can i do it...? Sameple DDS and RPG: A R WIN1 SFL A*%%TS SD 20090130 165346 MUNSHIJ REL-V4R2M0 5769- PW1 A FLD001 1Y 0B 4 3EDTCDE (Z) A ATFILE R O 4 7REFFLD (QWHFDBAS/ATFILE LIB/LIBF- A ILE) A R WINCTL SFLCTL (WIN1) A*%%TS SD 20090202 123459 MUNSHIJ REL-V4R2M0 5769- PW1 A ALTNAME ('y') A SFLSIZ (0004) A SFLPAG (0004) A WINDOW (FOOTER) A ROLLUP (27) A ROLLDOWN (28) A CF12 (12 'Cancel') A 50 SFLDSP A N51 SFLDSPCTL A 51 SFLCLR A 1 2'Select Option,Press enter' A 2 3'1= Select' A R FOOTER A* A WINDOW(8 31 9 43) A 8 4'F12 = Cancel' A R DUMMY ASSUME A 24 10' ' in RPG: Dow *IN12 = *Off Write Footer Fxfmt WInCTL
How do you code file / field renames in ILE RPG?