How to know the number of records in a pf through clp program?
- 7 Answers
- 32838 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 |
Hi.can any body give me the code for this quesiton please.Because i dont have to try to enter the code in to the AS/400 server.Please can anybody give the answer for this question with complete code? A smple RPLE pgm which accepts the starting number and ending number as parameter.It then has to count all the odd numbers b/w the accepted range of numbers and display the results/ Ex:if the input parameters are 11 and 30 the result should be 10(11,13,15,17,19,21,23,25,27,29) Please explain and give me the complete code?
Define a Batch Job?
how to pick up the changed records every time in a subfile after the first change made ?
can a indexed file be accessed in arrival sequence in rpg program?
what is the clp command to access a query/400?
WHAT IS THE DISPLAY CMD FOR DATAQ, HOW IT CAN BE USED?
What is the difference between Array and Table?
What is Job description?
What would be the output of the variable result? D RESULT S 5S O INZ(00011) C EVAL RESULT = %TRIM(RESULT) Please give me the correct answer for this A.0001 b.compile time error c.11 d.Runtime error
during input operation which indicator position is seton if there is a record lock?
Good morning my experts.Im kuppi.im working as a software trainee on AS/400 technology.i have also joined with ibmi5 team.im trying to convert date with cl/400 coding.I have taken 2 parameters(like date and date types). A. If suppose date type is j,Now i want to convert date to *MDY format B. if date type is M,now i want to convert date to *JUL format C. sending a Program message with the value of converted date.
Which command we can use to update a physical file using c.l pgm?
RPG400 
