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 |
why we use binding directory and service pgm
What are the types of Signature validation?
which of the following operations does not zero the field flda defined as 4,0?
what are activation group and what are its types.?
what the purpose of ovrdta, ovrata keywords?
in which specification the report layout can be defined?
How to trap errors in CL?
Hi i have one question In my srvpgm one module ADDM is there now i want to add new module i.e SUBM , please answer me IN STEPS how to write bndlanguage and how it was attach to SRVPGM
what are the limitations of cl (compare to rpg) ?
Show 2 ways to convert a date from YYMMDD to MMDDYY (MULT operation not acceptable)
how do you use exceptional write in c specs?
What does SDA stands for ?