RE: Copy just the first record with CPYFRMIMPF

[Peter Vidal <Peter_Vidal@xxxxxxxx>]

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)