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


  1.  Home
  2. COBOL400-L
  3. October 2005

Re: Applying a DDS

One way to do this is to define a physical file with the layout you need using DDS. Compile the file to a work library. Then, use Copy-DD or Copy-DDS in your working storage section to define a record with the layout of the file. Define the file in your file section as an internally described file.
When you read the file read it into the record you created in Working Storage. That way you have the data in the layout you need without converting or copying the file. 

-Chuck Landress

cobol400-l-request@xxxxxxxxxxxx wrote:


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: COBOL400-L Digest, Vol 3, Issue 107 (Adrienne McConnon)


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

message: 1
date: Mon, 24 Oct 2005 09:47:59 -0500
from: "Adrienne McConnon" <Adrienne.McConnon@xxxxxxxxxxxx>
subject: [COBOL400-L] 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.

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.