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
anthying) .
| 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 |
As400 Command to find the Name of the Program to which a Particular Module is Bound..? Ex: IC210AMR (*MODULE) is bound with Other Modules which Forms Program Object as IC210ABP(*PGM) . As400 Command to find the IC210ABP Using IC210AMR..? Thanks
why we do STRSRVJOB in batch debugging in as400
what are the array operations?
what is the difference between do while and do until?
Write the subfile logic program for the given concept. Load the data to the subfile depends upon the designation where designation is not a key field?
what is estimation? and what is the level identifier parameter in PF?
What are the values of NUM1 and NUM2 after executing the following code? CLONO1NO2NO3 Factorl÷÷+OpcdeFactor2+÷+ResultLenDHHiLoEq C MOVE *LOVAL NUM1 50 C MOVE *J-fIVAL NtJM2 52
Hi guys. Im in AS/400(RPGLE,CLP) from last 1 year.Now i wan to upgrade my Knowledge in AS/400. Suggest me some new fields & courses which falls under AS/400. Waiting for your quick Response.
What will happen if we r using seton lr after return or vice versa.
difference betwen keywords and opcodes
are there any useful c runtime apis that I can call from rpg iv?
This is my Physical file 'EMPS' existing in library "TAMIL1" and its record format is 'EMPRCD" a)its source is R EMPRCD ENO 4 0 ENAME 10 EADD 10 b)The records present in EMPS are as follows ENO ENAME EADD 0001 tamil coimbatore 0002 kumar bangalore 0003 sunder bangalore 0004 arunkumar chennai 0005 pandi hyderabad 0006 santhosh hyderabad 0007 sasi salem 0008 kalai chennai 0009 suresh hyderabad 0010 vijay bangalore 0011 Arul chennai 0012 velu chennai 0013 khan bangalore 0014 praba chennai 0015 praba.p coimbatore 0016 anand ooty 0017 raja erode 0018 sankar erode 0019 vadivel namakkal 0020 anbu chennai 0021 Ajith mumabi c)now i want to select the 'ENAME' field records starting with 'S' for that i have created a RPG program its source code is PGM DCLF FILE(TAMIL1/EMPS) DCL VAR(&MYENO) TYPE(*CHAR) LEN(4) OVRDBF FILE(EMPS) SHARE(*YES) OPNQRYF FILE((TAMIL1/EMPS)) QRYSLT('ENAME *EQ %WLDCRD("S *")') READ: RCVF RCDFMT(EMPRCD) MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(END)) CHGVAR VAR(&MYENO) VALUE(&ENO) SNDUSRMSG MSG(&MYENO) SNDUSRMSG MSG(&ENAME) SNDUSRMSG MSG(&EADD) GOTO READ END: CLOF OPNID(EMPS) DLTOVR FILE(EMPS) ENDPGM Is this coding correct sir,the program gets compiled,and if i call it it says query running but records are not displayed.please help me out