|
midrange.com
Ok. First PF DDS...
--------------------------------
A R TESTRCD
A CASEN 9A TEXT('CASE NUMBER')
A RSPKEY 6A TEXT('RESPONSE FILE KEY')
A CUSTN 6P 0 TEXT('CUSTOMER NUMBER')
A REGN 4P 0 TEXT('CUSTOMER REGION')
A FACN 3P 0 TEXT('CUSTOMER FACILITY')
A CTL# 12A TEXT('CONTROL NUMBER')
A POL# 12A TEXT('POLICY NUMBER')
Now LF DDS....
---------------------------------
A R TESTRCD PFILE(*LIBL/X_PF)
A CASEN
A RSPKEY
A CUSTN S
A REGN S
A FACN S
A CTL#
A POL#
Following listings show buffer locations:
-----------------------------------
Field
Name Type Length Dec Loc
CASEN A 9 1
RSPKEY A 6 10
CUSTN P 6 0 16
REGN P 4 0 20
FACN P 3 0 23
CTL# A 12 25
POL# A 12 37
--------
Field
Name Type Length Dec Loc
CASEN A 9 1
RSPKEY A 6 10
CUSTN S 6 0 16
REGN S 4 0 22
FACN S 3 0 26
CTL# A 12 29
POL# A 12 41
______________________________ Reply Separator _________________________________
Subject: RE: Re[2]: Physical File Data in a Text
Author: <MIDRANGE-L@midrange.com > at INTERNET
Date: 6/1/98 12:44 PM
Eric,
Admitting my ignorance in front of God and everybody, would you mind
showing me a short example of the physical file DDS with packed decimal
and then the LF DDS with those fields redefined as zoned decimal?
I guess I should be admitting my laziness as well, but I would
appreciate the help.
Bill Megenity
----------
From: ericadelong@pmsc.com
Sent: Monday, June 01, 1998 12:37 PM
To: MIDRANGE-L@midrange.com
Subject: Re[2]: Physical File Data in a Text file !!!
--------------------------------------------------------------------------
--
Converting packed numeric fields is a breeze if you create LF DDS and
redefine
the packed fields to zoned (dtatype 'S'). OS400 will convert the packed
fields
dynamically as it reads the PF. I haven't tried it, but I would think
that
this
will work for FTP as well as it does for CA file transfer.
Eric A DeLong
ericadelong@pmsc.com
______________________________ Reply Separator
_________________________________
If the physical file does not have packed numeric fields you can use FTP
directly. It can convert the EBCDIC data to ASCII. Also, sometimes it is
easy to write an RPG or Cobol program to do the unpacking and formatting
for you. If you are interested in a commercial product we've just
released an application that can convert a file to Excel CSV or fixed
ASCII format. After the conversion you can use FTP to send to a user's
PC. You can see more about this at:
http://www.patownsend.com
Hope this helps!
Patrick
GReddy5357@aol.com wrote:
>
> Hi,
>
> I would like to select some records from a physical file into a text
file &
> then FTP to my hard drive. How do i go for it !!!
>
> Appreciate for any kind of suggestions.
>
> Thanks-G.
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
david@midrange.com
> +---
--
Patrick Townsend mailto:townsend@patownsend.com
Patrick Townsend & Associates, Inc. http://www.patownsend.com
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.
