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