× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Hi April,

I assume there are records in both physical files that meet the conditions,
right?

How is the program reading the file?  Is it using READ opcodes, or is it a
primary file?  If it's using the READ opcode, is it reading the filename or
the format name?  If it's a primary file, does it use input specs to
differentiate the record formats?

Peter Dow
Dow Software Services, Inc.
www.dowsoftware.com
909 793-9050 voice
909 793-4480 fax

> -----Original Message-----
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Alexander, April

> I am having to modify a program written in RPG III,  this program
> uses a multi-format logical.  I need to put in select statments
> in the logical and have done it as shown below.  The program will
> print from my first logical but when it does not find a record in
> the first it never looks at the second.  If I remove the Select
> statment it works fine.  Can anyone help on this.  I know that I
> could use various other methods to do this, but my time is
> limited.  I would like to stay with changing just the logical
> becuase there is 7 programs that will need to be modified if
> attaching a select statement will not work.  I have looked in
> some manuals and cannot find it stating this cannot be done.
> Thanks in advance for your help.
>
>   A***************************************************************
>   A          R IPB500BL                  PFILE(BBL)
>   A          K BLDOCR
>   A          K BORD
>   A          K BLINE
>   A          S BLINE                     COMP(LT 900)
>   A*
>   A          R IPS100IL                  PFILE(SIL)
>   A          K ILDOCR
>   A          K ILORD
>   A          K ILSEQ
>   A          S ILSEQ                     COMP(LT 900)
>   A*

--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.344 / Virus Database: 267.11.14/128 - Release Date: 10/10/2005



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.