Re: Copy just the first record with CPYFRMIMPF

["Peter Dow (ML)" <maillist@xxxxxxxxxxxxxxx>]

Hi Peter,

Or if you want to treat the first record as one field use

CPYFRMIMPF 
FROMSTMF('/TEST/2006_08_04_pay[1].20060804.013057.txt')                                  

           TOFILE(QTEMP/TEMPORARY)                         
           MBROPT(*REPLACE)                                
           STMFLEN(132)                                    
           RCDDLM(*ALL)                                    
           STRDLM(*NONE)                                   
           FLDDLM('~')                                     
           FROMRCD(1 5)                                    

*Peter Dow* /
Dow Software Services, Inc.
909 793-9050
pdow@xxxxxxxxxxxxxxx <mailto:pdow@xxxxxxxxxxxxxxx> /


Steve McKay wrote:
> Peter -
>
> Because you only have 1 field in TEMPORARY, CPYFRMIMPF is copying the 1st 
> "field" in the TXT file into the 1st field of the TEMPORARY file.  If you 
> create a TEMPORARY file with 5 or 6 fields, your CPYFRMIMPF will be 
> successful.
>
> HTH,
>
> Steve
>
> "Peter Vidal" <Peter_Vidal@xxxxxxxx> wrote in message 
> news:mailman.4565.1155753784.2610.midrange-l@xxxxxxxxxxxxxxx
>   
> > No.
> >
> > As a matter of fact, I am doing this:
> >
> > CPYFRMIMPF FROMSTMF('/TEST/2006_08_04_pay[1].20060804.013057.txt') TOFILE
> > (QTEMP/TEMPORARY) MBROPT(*REPLACE) STMFLEN(132) RCDDLM(*ALL) FROMRCD(1 5)
> >
> >
> > My txt file is:
> > 10,08/04/06,01:19:04,00012345
> > 20,820,999999999,"DEMO, AUTH","",""
> > 20,820,999999999,"DEMO, AUTH","",""
> > 20,820,999999999,"DEMO, AUTH","",""
> >
> > My TEMPORARY file has with 5 records with special characters in the first
> > two positions: nothing else from position 3 and greater.  By the way, the
> > text file has 128 characters long and the first two characters equal the
> > record id: the third character is the first comma, as you can see in the
> > example above.
> >
> > I just want to grab that first record and be able to copy it into
> > QTEMP/TEMPORARY.
> >
> >
> > Peter Vidal
> > PALL Corporation / SR Programmer Analyst, IT Development Group
> > 10540 Ridge Rd., Ste 203, New Port Richey, FL 34654-5111
> > http://www.pall.com
> >
> > "No nation can rise higher than the character of its people."
> > Anonymous
> >
> >
> >
> >
> >
> > "Holden Tommy" <Tommy.Holden@xxxxxxxxxxxxxxxxx>
> > Sent by: midrange-l-bounces@xxxxxxxxxxxx
> > 08/16/2006 02:32 PM
> > Please respond to Midrange Systems Technical Discussion
> >
> >
> >        To:     "Midrange Systems Technical Discussion" 
> > <midrange-l@xxxxxxxxxxxx>
> >        cc:
> >        Fax to:
> >        Subject:        RE: Copy just the first record with CPYFRMIMPF
> >
> >
> > Would this work for you??
> >
> > CPYFRMIMPF  FROMRCD(1 1)
> >
> >
> > Thanks,
> > Tommy Holden
> >
> >
> > -----Original Message-----
> > From: midrange-l-bounces@xxxxxxxxxxxx
> > [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Peter Vidal
> > Sent: Wednesday, August 16, 2006 1:29 PM
> > To: midrange-l@xxxxxxxxxxxx
> > Subject: Copy just the first record with CPYFRMIMPF
> >
> > Hi list:
> >
> > I want to get the first record of a text file in the IFS and be able to
> > copy that into a file (let's say, QTEMP/TEMPORARY) which has 132
> > characters long.
> >
> > Can I do that using CPYFRMIMPF?  Is there a better way?
> >
> > TIA,
> >
> >
> > Peter Vidal
> > PALL Corporation / SR Programmer Analyst, IT Development Group
> > 10540 Ridge Rd., Ste 203, New Port Richey, FL 34654-5111
> > http://www.pall.com
> >
> > "My religion consists of a humble admiration of the illimitable superior
> >
> > spirit who reveals himself in the slight details we are able to perceive
> >
> > with our frail and feeble mind."
> > Albert Einstein (1879 - 1955)
> >
> > --
> > 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.
> >
> >
> >
> >     
>
>
>