Comments on: RPG/400 number of Records present in a physical file using file information data structure

By: philpl1jb

philpl1jb — Thu, 19 Aug 2010 23:00:02 +0000

Not done yet. If your only purpose was to determine how many records were in the file, then the CL command RTVMBRD would be better.

If you aren’t using the file then the IP requires the program to read all the records, as you discovered. You could reduce the work with an *INLR in the mainline or by opening the file as IF which in RPG/400 requires a read, although it doesn’t have to be in the code that’s processed.

By: kaly

kaly — Thu, 19 Aug 2010 15:24:12 +0000

philp sir i excluded *inlr and gave the things i want to display within *inzsr it gives correct output i have given the coding below please kindly tell if it is correct or we can code like this sir.i have declared as primary file only but not given *inlr FPF001 IP E DISK F KINFDS INFDS1 IINFDS1 DS I B 156 1590RCDCNT I 83 92 FILNAM I 93 102 LIBRAR I 129 138 MEMBER C *INZSR BEGSR C RCDCNT DSPLY C FILNAM DSPLY C LIBRAR DSPLY C MEMBER DSPLY C ENDSR

By: kaly

kaly — Thu, 19 Aug 2010 15:15:25 +0000

everyone thanks for your answers.
Pdraebel sir i should not use READ because its an input operation no
i need to display the number of records without using any input operations

By: pdraebel

pdraebel — Thu, 19 Aug 2010 10:06:50 +0000

If you only need to know the number of records use a file Input Full Procedural and UC (user controlled) FINPUT IF F 128 DISK UC F KINFDS INFINP IINPUT NS 01 * * File information data structure * IINFINP DS I 1 256 IO0001 I 257 400 IO0002 I 83 92 FILE I 93 102 LIBR I 129 138 MEMBER I *RECORD RECFMT I B 156 1590RECORD Include a "Dummy" Open and Read (to get Compiled) *INLR IFNE *INLR OPEN INPUT READ INPUT 99 END With the INFDS coded you can display the number of records easily. Do an OVERRIDE of INPUT to the file name whose recordnumber needs to be displayed.

By: tomliotta

tomliotta — Thu, 19 Aug 2010 06:31:04 +0000

...is there any equivalent in RPG400... The ILE reference manuals are available as web pages. The old compiler manuals are only available as .PDF downloads. You can find all RPG manuals from the Programming: RPG page for your version of the operating system. The RPG/400 manuals aren't available as web pages because you shouldn't be using it. Convert the programs to RPG IV. Everyone is forgetting how RPG III works. IBM has not been enhancing it for years. It cannot process many features that have been added to the system in the past ten years. Tom

By: philpl1jb

philpl1jb — Thu, 19 Aug 2010 00:09:14 +0000

Actually, I think it’s the RPG/400 Reference Manual.
Phil

By: philpl1jb

philpl1jb — Wed, 18 Aug 2010 23:29:33 +0000

Wow, so many questions
Don’t know if I can answer them all.
I haven’t written in RPG/400 in 10 years and never used IP files..I find that the complexity of the problem requires control that I don’t feel I would have with IP.

Anyway. Put things that you want done once before the cycle starts up in the subroutine *INZSR. Don’t code an *INLR if you want the program to automatically access all the records in the file, after it’s done it will turn on the *INLR for you.

Input prompts for I specs, maybe IPJ and IPJX, when you move up to RPG/IV or LE you will rarely use I specs. The D spec is so much more.

Finally, Google RPG/400 Programmer’s Manual. You will want to have that available at all times.
Phil

By: kaly

kaly — Wed, 18 Aug 2010 12:31:30 +0000

also on I specifications if i give IPDS in starting over the numbers in left side end and prompt i get Data Struct S/U External Name Number Option DS File Name Occurs Length DS but i don't know what to give in Left side end (like IPDS) to get Decimal Field Control Matching P/B/L/R From To Positions Name Level Fields 83 92 FILNAM Field Record Positive Negative Zero / Relation Field Field Blank i simply get this by typing something in positions 44 to 58 in I specs and take F4(prompt) and then only i get it. is there any other actual word to get this like IPDS

By: kaly

kaly — Wed, 18 Aug 2010 12:23:31 +0000

if i use this code results are coming correctly sir,but can i declare a file as I P E (Primary for RPG logic cycle) and issue seton LR is it allowed.if i give this,result is displayed only once.

By: kaly

kaly — Wed, 18 Aug 2010 12:21:02 +0000

FPF001 IP E DISK F KINFDS INFDS1 I INFDS1 DS I B 156 1590RCDCNT I 83 92 FILNAM I 93 102 LIBRAR I 129 138 MEMBER C RCDCNT DSPLY C FILNAM DSPLY C LIBRAR DSPLY C MEMBER DSPLY C SETON LR