Interested to Buy Any Domain ? << Click Here >> for more details...
in a cl pgm
records are copied to a file in qtemp
a pgm is called to delete records from the file in qtemp
no of records in file in library qtemp is checked wat shud
be the count of records let say it was 10 initially
endpgm
- 2 Answers
- 6946 Views
- I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / raghav
In following scenario the Record count will be 10.
CL program:
PGM
CPYF FROMFILE(LIB1/PF1) TOFILE(QTEMP/PF1) MBROPT(*ADD) CRTFILE(*YES)
SBMJOB CMD(CALL PGM(PGM1)) JOB(PGM1)
ENDPGM
In this scenario when a job is submitted in the batch, the system has its own QTEMP library and hence RPG program PGM1 will not find file PF1 in Qtemp.
| Is This Answer Correct ? | 1 Yes | 1 No |
Answer / aa
Considering that all the records in the file in library QTEMP were deleted, the record count at the end would be zero.
| Is This Answer Correct ? | 0 Yes | 1 No |
How to get only unique records from a file which contains duplicate data using CPYF command ? Example : FILEA has duplicate records and FILEB is a UNIQUE defined.... and I want to get the data from FILEA to FILEB by eliminating all the duplicate records...
how we create binder member for updating service program and where we type this code on command line or in program ? strpgmexp pgmlvl(*current) export symbol (xyz0 endpgmexp. plz explain me this step by step .
How to handle duplicate error handling in RPG?
Anyone help me for the below question:- If problem/error occur in *PSSR subroutine,how should I handel it in RPG program.
What is the difference between ITER and DO ? I know both are used to execute set of statements repeatedly, but what is the main difference?
what are the parameters of jobd?give in detail.&what are the parameters of subsystem...????
what is file information data structure?
what is a rpg?
Can an indexed file be accessed in arrival sequence in RPG?
If record-format name in an externally-described file has already been defined as a file-name.how to solve this?
Q1.How we can copy the data of file one session to another session? Q2.how we can execute a loop infinitely in AS/400 coding? Q3.In ALDON tool,multitask is posible on a perticular object by the user?
What are the values of NUM1 and NUM2 after executing the following code? CLONO1NO2NO3 Factorl÷÷+OpcdeFactor2+÷+ResultLenDHHiLoEq C MOVE *LOVAL NUM1 50 C MOVE *J-fIVAL NtJM2 52
RPG400 
