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 |
What is the purpose of the following? I 'CLOSED' C STAT01 I 'OPEN' C STAT02
DIFFERENCE BETWEEN BINDING LANG AND BIND DIR WHEN USING IN SERVICE PGM...when using binding directory service pgm is necessary?
What Does 'sr' In Columns 7-8 Of C Specs Mean?
What are the mandatory keywords of sub file?
what is the function of crtdupobj command?
how a varible can be passed to a subfile...accnt1 contain data in a data area..ie Daccnt1 uds,Daccnt2 3 overlay(accnt1:1), DNo 4 overlay(accnt1:4)..we want to transfer this dataarea value from acnt0001 to a subfile..that means to enter each record we have to incriment account no,, i normal window we can do move accnt1 account_no eval account_no=accnt1 eval no=no+1 exfmt usr_account how it possible with Subfile????????.Please do answer? (Thank you for all your answers dear friends!!)
how does union file maintains record formats?
what is subfile?
What are Control level indicators?
What is the difference between array and a multiple occurrence data structure?
How many types of jobs?what is difference between interactive and batch and submited jobs?
how can a cgi check whether an ifs object is available?