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



You could do a DSPLNK ('/myFolder/myobject') Output(*print). Then
monitor for CPFA0A9. You could wrap this in a service program and take
care of deleting the spooled file as well. There are a number of IFS
APIs that you could use that would be a more elegant solution.


Mark Walter
Senior Programmer/Analyst
Hainey Business Systems
(717) 718-9601 x7148
mwalter@xxxxxxxxxxx
http://www.hbs-inc.com
 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Ala, Michael A
Sent: Wednesday, October 12, 2005 9: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.

As an Amazon Associate we earn from qualifying purchases.

This thread ...


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.