RE: Build field over packed field in LF

Hi Steven,

You can do this by simply changing the Data type from P to S in the dds.

Create a copy of the dds of your pf .
Change the source type from pf to lf (pdm)
Modify the record format  line.
Change the type from P to S.
Save and compile.

Ex. If this is the dds for your pf.(FILE1)

0001.00      A                                      UNIQUE

0002.00      A          R MONNAIER                  TEXT('FORMAT FOR FILE1')
0003.00      A            MNCODE         4S
0004.00      A            MNDESC        20A
0005.00      A            MNDESS         3A
0006.00      A            MNDCAS        15P 2
0007.00      A            MNCCAS        15P 2
0008.00      A            MNFIXR        12P 7

this one will be the dds for your lf.(FILE1LF)

0001.00      A                                      UNIQUE

0001.01      A          R MONNAIER                  PFILE(FILE1)
+
0002.00      A                                      TEXT('FORMAT FOR FILE1')

0003.00      A            MNCODE         4S
0004.00      A            MNDESC        20A
0005.00      A            MNDESS         3A
0006.00      A            MNDCAS        15S 2
0007.00      A            MNCCAS        15S 2
0008.00      A            MNFIXR        12S 7


Then you can ftp your LF to the rs6000 where your application will take care
of decimals etc

HTH
Regards

-----Original Message-----
From: Steven.Gray@arvalphh.co.uk [mailto:Steven.Gray@arvalphh.co.uk]
Sent: Wednesday, July 17, 2002 12:13 PM
To: midrange-l@midrange.com
Subject: Build field over packed field in LF

All,

I have a PF which I need FTP'ing upto an RS6000 , the file contains packed
fields which I know the FTP process cannot deal with.

looking through the midrange archive brings up a tip of building a LF and
redefining the packed field to a zoned within the LF.

Does anybody know how to achieve this?

Regards

Steven Gray
Development/Support Analyst
Business Solutions IT

Tel:    +44 (0) 870 4194639
Fax:    +44 (0) 870 4194948



_____________________________________________________________________
This message has been checked for all known viruses by UUNET delivered
through the MessageLabs Virus Control Centre. For further information visit
http://www.uk.uu.net/products/security/virus/
_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

Disclaimer

This e-mail is confidential. If you are not the intended recipient, you should 
not copy it, re-transmit it, use it or disclose its contents, but should return 
it to the sender immediately and delete the copy from your system.

EFG Eurobank Ergasias S.A. is not responsible for, nor endorses, any opinion, 
recommendation, conclusion, solicitation, offer or agreement or any information 
contained in this communication.

EFG Eurobank Ergasias S.A. cannot accept any responsibility for the accuracy or 
completeness of this message as it has been transmitted over a public network. 
If you suspect that the message may have been intercepted or amended, please 
call the sender.