how can i retrieve the field name from display file at run
time?
Devendra Singh Tomar
Answers were Sorted based on User's Feedback
Answer / srikanth
If we use following RTNCSRLOC keyword in display with fields as specified, and if we place cursor on any field, CFLD will populate with field name.
A RTNCSRLOC(*RECNAME &CREC &CFLD &CPOS)
A CFLD 10A H
A CREC 10A H
A CPOS 4S 0H
| Is This Answer Correct ? | 2 Yes | 0 No |
Answer / guest
when you will get ans than plz tell us.......... anurag
| Is This Answer Correct ? | 0 Yes | 0 No |
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
what will happen two jobs have same name are submitted
Can you copy the records created by the OPNQRYF to other files and how?
how do u find whether a record is locked or not??
why we do STRSRVJOB in batch debugging in as400
In single page subfile,if I select the mutiple options in 1 page and without pressing enter,I press rollup key (pagedown).In such case how I can handle it in rpg becasue in single page we have to handle it in pgm. It would be helpful if any one answer with coding
4 Answers Infinite Computer Solutions,
What is the length of Signature?
wat is scan and check ? give me real time scenarios where we used these keywords in ur projects?
if i have three programs progA,progB and progC .now i call progB from progA. but the progB does not exist . now i want to call progC instead of starting dump. how can we achieve this.
during execution, an rpg/400 program automatically follows a sequence of operations for each record that is processed. The built-in program cycle includes the following logical steps.
What hapens when we use CPYF command to copy a LF? On which PF will it be dependent???
why subproc not run in dftactgrp?????/plz explain