Interested to Buy Any Domain ? << Click Here >> for more details...
How to know the number of records in a pf through clp program?
- 7 Answers
- 32428 Views
- Bank Of America, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / syam
My above both answer is CL Command
for CL Program use this code (RTVMBRD - Retrive Member
Description)
PGM
DCL &NBRRCD TYPE(*DEC) LEN(10 0)
RTVMBRD FILE(FILLIB/FILEA1) MBR(*FIRST)
NBRCURRCD(&NBRRCD)
ENDPGM
| Is This Answer Correct ? | 83 Yes | 1 No |
Answer / syam
The correct answer...
use command DSPFD FILE(LIBOBJ/FILEA1) then Enter
then PGDOWN to last there u can see no.of records
Total number of
members . . . . . . . . . : 1
Total number of members not
available . . : 0
Total records . . . . . . . . . . . . . . :
2488
| Is This Answer Correct ? | 18 Yes | 11 No |
Answer / ashok
pgm
declare the file
runqry with output form as *SUMMARY parameter
endpgm
| Is This Answer Correct ? | 12 Yes | 8 No |
This is the EXACT CODE if you have any doubt.... mail me@
Gatlakarthik@gmail.com
DCL VAR(&R1) TYPE(*DEC) LEN(10 0)
DCL VAR(&D1) TYPE(*CHAR) LEN(2)
DCLF FILE(PF12) RCDFMT(RCD1)
RTVMBRD FILE(PF12) NBRCURRCD(&R1)
CHGVAR VAR(&D1) VALUE(&R1)
SNDPGMMSG MSG(&D1)
| Is This Answer Correct ? | 5 Yes | 2 No |
Answer / ravi shankar porwal
U can also find out the total no of record in a pf using
the OPNQRYF Commond in CL Pgm.
| Is This Answer Correct ? | 1 Yes | 3 No |
Answer / syam
Very simple....just copy pf file to another pf file.
after copy system will display subfile message on
last line of display move cursor to last line
24th line on the monitor then press PGDown key 2 times
"2488 records copied from member SALEDT."
CPYF FROMFILE(LIBOBJ/FILEA1) TOFILE(LIBOBJ/FILEA2) MBROPT
(*ADD) CRTFIL(*YES).
| Is This Answer Correct ? | 1 Yes | 19 No |
Q.1.What is differences in STRDBG and STRISDB debugging commands? 2.Where we should use STRDBG and STRISDB Debugging commands?
what does dfu program you to do on a record?
what is the difference between seton lr and retrn?
Define what the operation will do, the purpose of the result field and the purpose of *IN66? HI LO EQ C CALL 'CVTDAT' DTPRM 66
How to create a user defined (general) data area?
define the purpose/use for sflrna?
If login Screen has been modified by adding current date to be displayed. What Step to be followed to Keep that date as Current date Note: If no steps taken then it will display only the compilation date
In AS/400 projects in Companies whats the meaning of production support team.what production support involves.also what work does development,maintenance involve what are the other teams or processes that are available for as400 project.
0 Answers Adverb Solutions, CSC,
when is a tag statement used in rpg?
We have seen no of parameter list but If we mention like this 'CALL PROGNAME PLIST ' how to know No of parameter name of program ?
How do you check object lock
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.
RPG400 
