Interested to Buy Any Domain ? << Click Here >> for more details...
how can you check for a records existence without causing and i/o (chain/read)?
- 1 Answers
- 2156 Views
- IBM, I also Faced
- E-Mail Answers
Answer Posted / kanckan singh
With the help of File Information Data Structure, we can check existence of records in a physical file. The code is described below:
In File description continuation line (IPFK),
KINFDS RCDS
IRCDS DS
I*RECORD
#RCDS
with the above code we can check the existence of records in a file without causing I/O operation.
| Is This Answer Correct ? | 0 Yes | 0 No |
Post New Answer View All Answers
Write a CL program which will run a batch job at 1 am every night
what are the basic features of seu?
How can we update a specific field in RPG?
how can I control the way a remote browser uses its cache?
Which command is used to replace CDUP command in FTP IF i WANT TO USE SFTP?
What is the draw back of Procedures? why we are going to Modules?
how can you execute a command from within an rpg program without calling a clp program?
can you explain the difference between spacea,spaceb,skipa and skipb. I'm new to learning about as400 and printer files. can any one give me an example using source code showing the difference that occurs between using these 4 keywords. A-Physical file PF004 source UNIQUE R RR STUNAM 10 ROLLNU 5 0 MARKS 3 0 SEX 6 K ROLLNU 4 records present in PF004 are STUNAM ROLLNU MARKS SEX KAVYA 12,344 55 FEMALE MADHAVAN 14,579 60 MALE RAMYA 14,785 70 FEMALE KRISHNAN 14,988 72 MALE B-Printer File PRINT1 source A R HEADER A 10 3'STUNAM' A 10 20'ROLLNU' A 10 30'MARKS' A 10 40'SEX' A R DETAIL A SPACEB(1) A STUNAM 10 3 A ROLLNU 5 0 20 A MARKS 3 0 30 A SEX 6 40 A R FOOTER A SPACEB(1) A 20'END OF REPORT' C-RPG/400 Program PRTTPG source FPF004 I F E DISK FPRINT1 O E PRINTER C WRITE HEADER C READ PF004 60 C *IN60 DOWEQ *OFF C WRITE DETAIL C READ PF004 60 C ENDDO C WRITE FOOTER C SETON LR D-spooled file result set Display Spooled File File . . . . . : PRINT1 Page/Line 1/10 Control . . . . . Columns 1 - 130 Find . . . . . . *...+....1....+....2....+....3....+....4....+....5....+.... 6....+....7....+....8....+....9....+....0....+....1....+.... 2....+....3 STUNAM ROLLNU MARKS SEX KAVYA 12344 055 FEMALE MADHAVAN 14579 060 MALE RAMYA 14785 070 FEMALE KRISHNAN 14988 072 MALE END OF REPORT Bottom F3=Exit F12=Cancel F19=Left F20=Right F24=More keys I have changed from SPACEB to SPACEA now in my printer file source E-Changed PRINT1 Source A R HEADER A 10 3'STUNAM' A 10 20'ROLLNU' A 10 30'MARKS' A 10 40'SEX' A R DETAIL A SPACEA(1) A STUNAM 10 3 A ROLLNU 5 0 20 A MARKS 3 0 30 A SEX 6 40 A R FOOTER A SPACEA(1) A 20'END OF REPORT' F-Spooled file Result Set after keyword change Display Spooled File File . . . . . : PRINT1 Page/Line 1/10 Control . . . . . Columns 1 - 130 Find . . . . . . *...+....1....+....2....+....3....+....4....+....5....+.... 6....+....7....+....8....+....9....+....0....+....1....+.... 2....+....3 KAVYAM 12344U 055KS FEMALE MADHAVAN 14579 060 MALE RAMYA 14785 070 FEMALE KRISHNAN 14988 072 MALE END OF REPORT Bottom F3=Exit F12=Cancel F19=Left F20=Right F24=More keys Overprinting not displayed.
In RPG How to read a records from a file without using read opcodes?
what are various techniques to pass parameters from one program to another?
what is the favicon.ico request that my site receives now and then?
what is subfile?
difference between sflrcdnbr and sflnxtchg?
how do you specify page overflow indicator for printer files in rpg?
how can I start a page in a new window?
