RE: COBOL400-L Digest, Vol 3, Issue 107

Jon,

I will ask IBM about those HP to iSeries tools - I did not know there
was such a thing.

Sleep/Usleep - I did find info on them but was not sure about them being
doable in COBOL.  Did not see an example - do you know where I could
find an example. Also, I thought these were listed as functions, not
API's - excuse my ignorance - but I have not determined the difference
of API's and functions and how they are portrayed using COBOL - other
than the call command has 'function.  The sleep/usleep option was very
close to what I was going for to begin with - if you have an example -
please advise.

Thanks,

Adrienne


-----Original Message-----
From: cobol400-l-bounces@xxxxxxxxxxxx
[mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of
cobol400-l-request@xxxxxxxxxxxx
Sent: Monday, October 24, 2005 10:38 AM
To: cobol400-l@xxxxxxxxxxxx
Subject: COBOL400-L Digest, Vol 3, Issue 107

Send COBOL400-L mailing list submissions to
        cobol400-l@xxxxxxxxxxxx

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

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

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


Today's Topics:

   1.  RE: HP 3000 to iSeries (Jon Paris)
   2. RE:  RE: COBOL400-L Digest, Vol 3, Issue 105 (Zangare Basil)


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

message: 1
date: Mon, 24 Oct 2005 10:33:28 -0400
from: "Jon Paris" <Jon.Paris@xxxxxxxxxxxxxx>
subject: [COBOL400-L] RE: HP 3000 to iSeries

Have you asked IBM if their HP to AS/400 tools are still available?

As to your specific questions.

1) Pause.  You can call the C functions sleep and usleep depending on
how
long you want to wait.  Both can be used in COBOL but (because of
prototyping) can be used far more easily in RPG.

2) There are a number of options for HPCICOMMAND.  The most direct
replacement would be QCMDEXC (there is a second variant but I can't
recall
the name).  You can also call C's 'system' function.  For FTP stuff
consider
Scott Klement's FTPAPI which makes things simpler to do direct program
requests (www.scottklement.com).  You can also use U*ix style scripts
within
QSHELL.

3) 'SETJCW' - there are no bits to set so ...... you need to specify
what
you're trying to control so that we can advise whether there is an
alternative (or indeed even a need to do it).

4) Renaming -  depends on what/why you are doing it.  There are Un*x
style
functions for files in the IFS and the command RNMOBJ for database
files.
Frankly I think you need to get a handle on how the 400's database works
before making decisions in this area.  Usually changing names and such
are
tasks performed to deal with a problem/quirk/feature of the OS on which
the
programs are running.  You need to understand _why_ it was being done
before
seeking a replacement.

5) Error handling.  A lot of what you need to know will be classified as
"Message handling" - iSeries News recently republished some articles by
Gary
Guthrie on the topic of message handling etc.  Check then out at
www.iseriesnetwork.com


Good luck.


Jon Paris
Partner400

www.Partner400.com
www.RPGWorld.com




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

message: 2
date: Mon, 24 Oct 2005 10:38:08 -0400
from: "Zangare Basil" <bzangare@xxxxxxxxx>
subject: RE: [COBOL400-L] RE: COBOL400-L Digest, Vol 3, Issue 105

That is another good way to do it, but adds another step that might have
to be included as part of a regular schedule.  It's always best to try
the KISS method whenever possible.  The fewer steps for someone to
forget, the better.  

It all depends on whether this is a onetime deal or not.  If this is a
file that is regularly updated from an upload or query, having to do
additional processing just adds to it.  And it never fails that someone
will eventually forget to run the updated job or you run into some odd
processing error that may or may not get taken care of right away.

Keep the process simple.



Basil Zangare
Applications Specialist
Nikon Inc
1300 Walt Whitman Road
Melville, New York 11747
phone: (631) 547-4389
fax: (631) 547-4026
bzangare@xxxxxxxxx


-----Original Message-----
From: cobol400-l-bounces@xxxxxxxxxxxx
[mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of John Arnold
Sent: Monday, October 24, 2005 10:19 AM
To: cobol400-l@xxxxxxxxxxxx
Subject: [COBOL400-L] RE: COBOL400-L Digest, Vol 3, Issue 105

The simple answer to this is to use the CPYF CL command to copy the data
from your original file into the file created by DDS.  If you define the
DDS to exactly the same length as the original file then set the Record
format field mapping option (FMTOPT) to a value of *NOCHK, the command
will copy your data into the externally described file.     

John A Arnold
(301) 354-2939
jarnold@xxxxxxxxxxxxx
 

-----Original Message-----
From: cobol400-l-bounces+jarnold=fedmedinc.com@xxxxxxxxxxxx
[mailto:cobol400-l-bounces+jarnold=fedmedinc.com@xxxxxxxxxxxx] On Behalf
Of cobol400-l-request@xxxxxxxxxxxx
Sent: Monday, October 24, 2005 9:19 AM
To: cobol400-l@xxxxxxxxxxxx
Subject: COBOL400-L Digest, Vol 3, Issue 105

Send COBOL400-L mailing list submissions to
        cobol400-l@xxxxxxxxxxxx

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

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

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


Today's Topics:

   1. RE:  Applying a DDS (Kelly Cookson)
   2. RE:  Applying a DDS (Joe Folorunso)
   3. RE:  Applying a DDS (Joe Folorunso)
   4. RE:  Applying a DDS (Jack Welch)
   5. Re:  Applying a DDS (MichaelQuigley@xxxxxxxxxx)
   6. RE:  Applying a DDS (Kelly Cookson)
   7. RE:  Applying a DDS (Zangare Basil)
   8.  RE: COBOL400-L Digest, Vol 3, Issue 103 (Adrienne McConnon)


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

message: 1
date: Sun, 23 Oct 2005 15:05:24 -0500
from: "Kelly Cookson" <KCookson@xxxxxxxxxxxx>
subject: RE: [COBOL400-L] Applying a DDS

Do you just want to read records from the file in a COBOL program? I
don't see why a COBOL file description (FD) would need a DDS. Shouldn't
you be able to just create a COBOL file description (FD statement) with
the necessary fields defined in the COBOL program regardless of the
existence of a DDS?
 
Kelly

________________________________

From: cobol400-l-bounces@xxxxxxxxxxxx on behalf of Garcia, Luis
Sent: Fri 10/21/2005 6:20 PM
To: COBOL Programming on the iSeries/AS400
Subject: [COBOL400-L] Applying a DDS



Is there a way to apply a DDS to a file created without the DDS? Or how
can
I access that data?

I got a file that was created without a DDS, I have a DDS but I don't
want
to write a program to read and write into another file, so I was
wondering
if it was a faster way?

Thanks

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




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

message: 2
date: Sun, 23 Oct 2005 14:01:34 -0700 (PDT)
from: Joe Folorunso <jfolorunso@xxxxxxxxx>
subject: RE: [COBOL400-L] Applying a DDS

Hello Kelly,
 
I have a project coming up very soon my resource are not within my reach
is there any way I can get an ILE COBOL/400. Book.
 
Do you know of any better method of re-engineering or making the process
faster. I am thinking using an embedded SQL400 will improve an old
process. Thanks
Best Regards,
Joe Folorunso

Kelly Cookson <KCookson@xxxxxxxxxxxx> wrote:
Do you just want to read records from the file in a COBOL program? I
don't see why a COBOL file description (FD) would need a DDS. Shouldn't
you be able to just create a COBOL file description (FD statement) with
the necessary fields defined in the COBOL program regardless of the
existence of a DDS?

Kelly

________________________________

From: cobol400-l-bounces@xxxxxxxxxxxx on behalf of Garcia, Luis
Sent: Fri 10/21/2005 6:20 PM
To: COBOL Programming on the iSeries/AS400
Subject: [COBOL400-L] Applying a DDS



Is there a way to apply a DDS to a file created without the DDS? Or how
can
I access that data?

I got a file that was created without a DDS, I have a DDS but I don't
want
to write a program to read and write into another file, so I was
wondering
if it was a faster way?

Thanks

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