How to know the number of records in a pf through clp program?
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 |
which are the query selection criteria, which can be given in a query?
How many Printer Files can Declare in a CL Program?
how can you check for a records existence without causing and i/o (chain/read)?
what is the use of sflend keyword?
give three main purposes of file specification ?
What is the purpose of the following I UDS I 1 60ORDER# I 7 90LINE#
How to create a data queues?
what is join logical file?
what would be the effect on the field where reverse image, underline and highlight display attributes were active?
What is the difference between array and a multiple occurrence data structure?
What are all the different types of access path?
in conjunction with what other keyword must ovrdta and ovrata be used?