× 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.



I use a procedure that returns the 'changed date' using 'stat'  *or*
*blanks - If I get a date it exists and if I get *Blanks it does not exist.
There are probably better ways - I just thought of this one and did it....

Regards

Rick DuVall
Systems Manager
Dealer's Auto Auction of Okc
405 947-2886 Ext:143
rick@xxxxxxxxxx


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Ala, Michael A
Sent: Wednesday, October 12, 2005 7:35 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: CHKOBJ for IFS


Is there a command (similar to chkobj) that will return if an ifs STMF
exists?

What is the return code?


Michael Ala
EDI Service Line Leader
BP Lubricants USA Inc.
Phone: (973) 633-2353  Fax: (973) 686-4053


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
rpg400-l-request@xxxxxxxxxxxx
Sent: Tuesday, October 11, 2005 2:08 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: RPG400-L Digest, Vol 4, Issue 1206

Send RPG400-L mailing list submissions to
        rpg400-l@xxxxxxxxxxxx

To subscribe or unsubscribe via the World Wide Web, visit
        http://lists.midrange.com/mailman/listinfo/rpg400-l
or, via email, send a message with subject or body 'help' to
        rpg400-l-request@xxxxxxxxxxxx

You can reach the person managing the list at
        rpg400-l-owner@xxxxxxxxxxxx

When replying, please edit your Subject line so it is more specific than
"Re: Contents of RPG400-L digest..."


*** NOTE: When replying to this digest message, PLEASE remove all text
unrelated to your reply and change the subject line so it is meaningful.

Today's Topics:

   1. Re: Logical file question (Jeff Young)
   2. RE: Logical file question (Peter Dow (ML))
   3. Re: Date question (Scott Klement)
   4. RE: Date question (Scott Klement)
   5. Local Time (Ronald Newman)
   6. Multiformat Logical File (Satheeshkumar_selvaraj)
   7. Re: Local Time (Bruce Vining)
   8. Re: Date question (Leif Guldbrand)
   9. RE: Multiformat Logical File (Jon Allen)
  10. RE: Multiformat Logical File (Ken Slaugh)


----------------------------------------------------------------------

message: 1
date: Tue, 11 Oct 2005 10:08:48 -0700 (PDT)
from: Jeff Young <cooljeff913@xxxxxxxxx>
subject: Re: Logical file question

How does your program read this file?
If you just use the READ op code with the File Name, it should work
fine.


"Alexander, April" <AAlexander@xxxxxxxxxx> wrote:
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*

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.



Jeff Young
Sr. Programmer Analyst
Dynax Solutions, Inc.
A wholly owned subsidiary of enherent Corp.
IBM -e(logo) server Certified Systems Exper - iSeries Technical
Solutions V5R2
IBM  Certified Specialist- e(logo) server i5Series Technical Solutions
Designer V5R3
IBM  Certified Specialist- e(logo)server i5Series Technical Solutions
Implementer V5R3












---------------------------------
 Yahoo! Music Unlimited - Access over 1 million songs. Try it free.

------------------------------

message: 2
date: Tue, 11 Oct 2005 10:12:41 -0700
from: "Peter Dow \(ML\)" <maillist@xxxxxxxxxxxxxxx>
subject: RE: Logical file question

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




------------------------------

message: 3
date: Tue, 11 Oct 2005 12:13:56 -0500 (CDT)
from: Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>
subject: Re: Date question


> NumDays=%Int(%Char(DateA:*ISO0));
> DateB=%Date(NumDays:*ISO);

Alternately, if you're at V5R3, you could code:

      D DateA           s               D   inz(d'2005-01-01')
      D IntDate         s             10I 0
         .
         .
          IntDate = %dec(DateA:*ISO);
          DateB = %Date(IntDate:*ISO);

It's not a big change, but I think it's a little easier to read when
there
aren't any nested BIFs.


------------------------------

message: 4
date: Tue, 11 Oct 2005 12:19:42 -0500 (CDT)
from: Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>
subject: RE: Date question


> I don't see any practical use for it and I have never seen it as a
choice
> for date format.  I think he's looking for Julian date. (Not Lillian's
> husband! :)  The julian format is supported using the *JUL or *LONGJUL
> depending on whether you want a 2 or a 4 digit year.

You don't see a practical use for a Lilian date, but you do for a Julian

date? Really? Why?

IMHO, Lilian dates are far more useful than Julian. I don't see why
you'd
ever want to use a Julian date, other than for compatibility with some
standard that requires it.  Packaging standards, for example.

Lilian dates are extremely useful for date math.  In ILE RPG this isn't
a
big deal because of the extensive date math operations, but in CL
programs
or other languages that don't support date math, a lilian date is an
absolute godsend!


------------------------------

message: 5
date: Tue, 11 Oct 2005 10:21:23 -0700 (PDT)
from: Ronald Newman <newmanr2002@xxxxxxxxx>
subject: Local Time

I would like to use the api CEELOCT to retrieve the local time for a
plant in Montana.  The i5 is in the central time zone.  Will the CEELOCT
api give me the time in mountain time?

Ron





---------------------------------
 Yahoo! Music Unlimited - Access over 1 million songs. Try it free.

------------------------------

message: 6
date: Tue, 11 Oct 2005 22:51:12 +0530
from: "Satheeshkumar_selvaraj" <Satheeshkumar_selvaraj@xxxxxxxxxx>
subject: Multiformat Logical File

Hello All,



Can any one please tell me what is the use of Multiformat Logical Files.

Under which situations it is used?



-Satheesh



DISCLAIMER:
This email (including any attachments) is intended for the sole use of
the intended recipient/s and may contain material that is CONFIDENTIAL
AND PRIVATE COMPANY INFORMATION. Any review or reliance by others or
copying or distribution or forwarding of any or all of the contents in
this message is STRICTLY PROHIBITED. If you are not the intended
recipient, please contact the sender by email and delete all copies;
your cooperation in this regard is appreciated.


------------------------------

message: 7
date: Tue, 11 Oct 2005 12:48:03 -0500
from: Bruce Vining <bvining@xxxxxxxxxx>
subject: Re: Local Time

CEELOCT is going to return the system local time (so if the system is in
Mountain time they you're set to go).  As the system is in one time zone
(Central) and your plant in another, I would probably use the Convert
Date
and Time Format (QWCCVTTM) API.  Calling it as in:

dcl &answer *char 17
call qwccvtdt ('*CURRENT' ' ' '*YYMD' &answer 0 '*SYS' 'QN0700MST'  ' '
0
'0')

will, at offset 8 through 13, give you the current time in time zone
QN0700MST (Mountain Standard Time).  For details on all the various
parameters you should refer to the V5R3 Information Center under
Programming/APIs/APIs by category/Date and Time/Convert Date and Time
Format

Bruce Vining






             Ronald Newman

             <newmanr2002@yaho

             o.com>
To
             Sent by:                  rpg400-l@xxxxxxxxxxxx

             rpg400-l-bounces@
cc
             midrange.com


Subject
                                       Local Time

             10/11/2005 12:21

             PM





             Please respond to

              RPG programming

              on the AS400 /

                  iSeries









I would like to use the api CEELOCT to retrieve the local time for a
plant
in Montana.  The i5 is in the central time zone.  Will the CEELOCT api
give
me the time in mountain time?

Ron





---------------------------------
 Yahoo! Music Unlimited - Access over 1 million songs. Try it free.
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.





------------------------------

message: 8
date: Tue, 11 Oct 2005 19:57:30 +0200
from: "Leif Guldbrand" <Guldbrand@xxxxxxxxx>
subject: Re: Date question

.....
and to extend Scott's words with his own words - some times ago:
www.Think400.dk/adhoc_4.htm#eks0014

Leif

----- Original Message -----
From: "Scott Klement" <rpg400-l@xxxxxxxxxxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: 11. oktober 2005 19:19
Subject: RE: Date question


>
> > I don't see any practical use for it and I have never seen it as a
choice
> > for date format.  I think he's looking for Julian date. (Not
Lillian's
> > husband! :)  The julian format is supported using the *JUL or
*LONGJUL
> > depending on whether you want a 2 or a 4 digit year.
>
> You don't see a practical use for a Lilian date, but you do for a
Julian
> date? Really? Why?
>
> IMHO, Lilian dates are far more useful than Julian. I don't see why
you'd
> ever want to use a Julian date, other than for compatibility with some

> standard that requires it.  Packaging standards, for example.
>
> Lilian dates are extremely useful for date math.  In ILE RPG this
isn't a
> big deal because of the extensive date math operations, but in CL
programs
> or other languages that don't support date math, a lilian date is an
> absolute godsend!





------------------------------

message: 9
date: Tue, 11 Oct 2005 13:57:29 -0400
from: "Jon Allen" <jallen@xxxxxxxxx>
subject: RE: Multiformat Logical File

Suppose you want to position to a LAST Name using two(2) physical files.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
Satheeshkumar_selvaraj
Sent: Tuesday, October 11, 2005 1:21 PM
To: RPG programming on the AS400 / iSeries
Subject: Multiformat Logical File

Hello All,



Can any one please tell me what is the use of Multiformat Logical Files.

Under which situations it is used?



-Satheesh



DISCLAIMER:
This email (including any attachments) is intended for the sole use of
the intended recipient/s and may contain material that is CONFIDENTIAL
AND PRIVATE COMPANY INFORMATION. Any review or reliance by others or
copying or distribution or forwarding of any or all of the contents in
this message is STRICTLY PROHIBITED. If you are not the intended
recipient, please contact the sender by email and delete all copies;
your cooperation in this regard is appreciated.
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.


Important Confidentiality Notice: This email message, including all
attachments is for the exclusive use by the person(s)
to whom it is addressed, and may contain information that is
confidential or privileged. Any unauthorized review, use,
disclosure or distribution is prohibited under applicable law. If you
have received this email in error, please notify me
immediately by reply email and delete this message and any attachments.
Thank you.




------------------------------

message: 10
date: Tue, 11 Oct 2005 11:07:36 -0700
from: "Ken Slaugh" <ken.slaugh@xxxxxxxxxx>
subject: RE: Multiformat Logical File

Here's an example. Actually it's reality...

Accounts Receivable application... Billings, Payments and Adjustments
stored in three PFs with three different record formats. One logical to
combine all three.

Hth,

Ken Slaugh (707) 795-1512 x118
Chouinard & Myhre, Inc.
http://www.cm-inc.com/

DISCLAIMER: The information contained in this e-mail may be confidential
and is intended solely for the use of the addressee.  Access, copying or
re-use of the e-mail or any information contained therein by any other
person is not authorized.  If you are not the intended recipient, please
notify us immediately by returning the e-mail to the originator and
destroying all unauthorized copies.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
Satheeshkumar_selvaraj
Sent: Tuesday, October 11, 2005 1:21 PM
To: RPG programming on the AS400 / iSeries
Subject: Multiformat Logical File

Hello All,



Can any one please tell me what is the use of Multiformat Logical Files.

Under which situations it is used?



-Satheesh



DISCLAIMER:
This email (including any attachments) is intended for the sole use of
the intended recipient/s and may contain material that is CONFIDENTIAL
AND PRIVATE COMPANY INFORMATION. Any review or reliance by others or
copying or distribution or forwarding of any or all of the contents in
this message is STRICTLY PROHIBITED. If you are not the intended
recipient, please contact the sender by email and delete all copies;
your cooperation in this regard is appreciated.
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.


Important Confidentiality Notice: This email message, including all
attachments is for the exclusive use by the person(s)
to whom it is addressed, and may contain information that is
confidential or privileged. Any unauthorized review, use,
disclosure or distribution is prohibited under applicable law. If you
have received this email in error, please notify me
immediately by reply email and delete this message and any attachments.
Thank you.


--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.




------------------------------

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) digest
list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.



End of RPG400-L Digest, Vol 4, Issue 1206
*****************************************

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.





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.