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
- 5752 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 |
I have a PF(ABC)with no key fields. PF(ABC)have 2 fields (cusno and cusname). Please let me know how can i read the cusno = 1150 directly from PF in CL and RPG program(Without creating the LF and without reading the complete file and then compare 1150)
what is plat file?
1.The questions have given an array declaration and move operation then this statement is correct or not?
3 members in a databasefile .how to read records from all the members?????????
Can AnyOne tell me how to read join logical file in rpg from starting to end?
How to index LF by relative record no (RRN)
How can read PF in reverse order (end to start) in CL pgm..
The RP program is displaying records 11 times .But there are 10 records in a pf.(ie last record is displayed twice).How to display records only 10 times?
suppose there are 100 records and i want to read records between 60-70 how we can read this 10 records in rpg
Hi friends, I am using a load all subfile , and currently i am in in the third page of the subfile , from third page i have selected a record and called some other program .on returning, subfile is being loaded from the frist page. so can any one kindly suggest me in retaining my third page after returning. i.e loading from third page.
What is ment by record level identifier?
Why we cannot call a service program? If I add a PEP can i call the service program?
RPG400 
