how you get the relative record in a subfile in which cursor is located?
- 1 Answers
- 1187 Views
- IBM, I also Faced
- E-Mail Answers
Answer / Birendra Kr. Vimal
To get the relative record number of the current cursor position in a subfile on IBM AS/400, you can use the %CURSOR-ROW variable. Here's an example:nn1. Define the cursor with the CURSOR command.n2. Access the value of %CURSOR-ROW to get the relative record number.
| Is This Answer Correct ? | 0 Yes | 0 No |
what would be the effect on the field where reverse image, underline and highlight display attributes are active ?
what is full form for dds?
maximum number of subfiles that can defined in a rpg program for one display file is?
what does defn do?
write a pgm to read p.f using cl pgm?
Hello friends, i am having 1 year experience in AS/400. Can any one send me the as400 interview questions to my email id:nagaraju20087@gmail.com
Q.Hi All friends, I have one Question, I have three fields in display file SUP LOT, ISSUED to Prod and Line Grp. Field SUP LOT is mentioned in one field reference file WRSLT and key field as a key field LP.Fields ISSUED to PROD,Line GRP are mentioned in the another Field reference file WMDTF. So I want to read SUP LOT on the basis of key field LP from the first file WFSLTand then i want ot read another two fields ISSUED to DATE and LINE GRP from second file on the basis of SUP LOT, which i got from first file.Now i want to display these fields in the display file DSPWMMS. but Condition is that 'Supplier Lot,ISSUED to Prod and Line Grp will not be shown if their respective fields are blanks/Zero. Please Let me Know coding part of this senerio and what would be coding for display file to now shown fields if fields are blanks/zero. My mob. no. is 9836300345. Please reply me asap.
define the purpose of the *cat function?
define a output queue?
I have created a command that display Source file and library. Now i want that when i enter library name and press f4 on Source file, pgm should display all the PF- SRC's in that Library. For F4 option i have used Choice program but since only limited paramters are passed in Choice pgm i am not able to paas library name and further can't call a pgm that will display list of Source files. Below is the Code snippet for CMD type object :- CMD PROMPT('Source Scan for HUB Standard') PARM KWD(SOURCE) TYPE(*CHAR) LEN(1) RSTD(*YES) + VALUES(N A) MIN(1) + CHOICE('N,A') PARM KWD(SRCFILE) TYPE(FILE) RSTD(*NO) + PROMPT('SOURCE FILE') FILE: QUAL TYPE(*NAME) LEN(10) RSTD(*NO) EXPR (*YES) + CHOICE(*PGM) + CHOICEPGM (XXXXXLIB/YYYPGM) QUAL TYPE(*NAME) LEN(10) DFT(*LIBL) + SPCVAL((*LIBL)) EXPR(*YES) PROMPT ('Library') Below is the Choice pgm:- PGM PARM(&PARM1 &PARM2) DCL VAR(&PARM1) TYPE(*CHAR) LEN (21) DCL VAR(&PARM2) TYPE(*CHAR) LEN (2000) IF COND(%SST(&PARM1 1 10) = 'CHOICE ' *AND + %SST(&PARM1 11 10) = 'SRCFILE ' *AND + (%SST(&PARM1 21 1) = 'C' *OR %SST (&PARM1 + 21 1) = 'P')) THEN (DO) /* (%SST(&PARM1 21 1) = 'C' *OR %SST (&PARM1 + */ CHGVAR VAR(&PARM2) VALUE('Name, F4 for List') ENDDO IF COND(%SST(&PARM1 1 10) = 'CHOICE ' *AND + %SST(&PARM1 11 10) = 'SRCFILE ' *AND + %SST(&PARM1 21 1) = 'P') THEN (DO) CHGVAR VAR(&PARM2) VALUE('Name, F4 for List') CALL PGM(GTSQL) PARM ('XXXXLIB') return ENDDO Thanks in Advance for looking into.
What is the benefit of using Externally Described files over Internally Described?
How to reverse the string in rpg
RPG400 
