RE: Copy just the first record with CPYFRMIMPF

My text file has multiple record formats and I wish to not to create a 
file just for this first record.


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

"Knowledge is power. "
Sir Francis Bacon (1561-1626), Religious Meditations, Of Heresies, 1597





"Holden Tommy" <Tommy.Holden@xxxxxxxxxxxxxxxxx>
Sent by: midrange-l-bounces@xxxxxxxxxxxx
08/16/2006 02:47 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


Ok that's because your file only has one field so all others are
dropped.

Recreate the temporary file with the correct number of fields & it
should work fine. 


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:43 PM
To: Midrange Systems Technical Discussion
Subject: RE: Copy just the first record with CPYFRMIMPF

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)