|
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 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.
midrange.com
