Re: cpytoimpf dropping leading zeros

[Jerry Draper <midrangel@xxxxxxxxxxxxx>]

The immediate solution is to copy the file to a source PF and then 
cpytoimpf that file.

But this seems hokey.

Jerry

Jerry Draper wrote:
> It's signed numeric not packed.
>
> J
>
> 0080.00      A            PHPRDT    R     S         REFFLD(PRDT)
>
> Jerry DraperJerry Draper wrote:
> > 0897.50      A            PRDT           9P 0 
> >                       030718
> > 0897.60      A                                      TEXT('Processed 
> > Date')                   030718
> > 0897.70      A                                      COLHDG('Processed' 
> >                       030718
> > 0897.80      A                                             'Date') 
> >                       030718
> > 0897.90      A                                      EDTWRD('     /  / 
> > ')                    030718
> >
> > ....4....
> > 020061218
> > FFFFFFFFF
> > 020061218
> >
> > CPYTOIMPF FROMFILE(DBFDEV/UPI1INPT00) TOSTMF('/home/ss104/test1')
> > MBROPT(*REPLACE) STMFCODPAG(*PCASCII) RCDDLM(*LF) DTAFMT(*FIXED) 
> >
> > All records copied from file UPI1INPT00 in DBFDEV.
> >
> > result is:  20061218
> > should be: 020061218
> >
> > Jerry
> >
> >
> > Vernon Hamberg wrote:
> > > Jerry - what are the various settings you are using? Where are you 
> > > seeing this drop off? Are these character fields with leading zeroes 
> > > in the original PF? Are you viewing in Excel?
> > >
> > > We need more info!!
> > >
> > > Thx
> > > Vern
> > >
> > > At 07:30 PM 12/18/2006, you wrote:
> > >
> > > > I'm running a cpytoimpf and it is dropping leading zeros of numeric fields.
> > > >
> > > > How can this be controlled?
> > > >
> > > > I tried *STDASCII and *PCASCII to no avail.
> > > >
> > > > Jerry
> > > >
> > > > --
> > > > Jerome Draper, Trilobyte Software Systems, since 1976
> > > > iSeries, Network, and Connectivity Specialists -- iSeries, LAN/WAN/VPN
> > > > Representing WinTronix, Synapse, Netopia, HiT, and others .....
> > > > (415) 457-3431; www.trilosoft.com
> > > >
> > > > --
> > > > This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> > > > To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> > > > To subscribe, unsubscribe, or change list options,
> > > > visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> > > > or email: MIDRANGE-L-request@xxxxxxxxxxxx
> > > > Before posting, please take a moment to review the archives
> > > > at http://archive.midrange.com/midrange-l.