It looks as if you has omitted to tell Quad to open the work file
unnumbered. Try adding :u to the end of your text command.

-----Original Message-----
From: Rick Clark [mailto:[log in to unmask]]
Sent: Thursday, April 27, 2000 2:20 PM
To: [log in to unmask]
Subject: KSAM problem -


I have a problem I have not run across before and I'm not sure what is
happening. Here is my dilema.....

There is a KSAM file that we use to keep letter text in. There is one key
field, the letter name in position 73, and the rest is just text with field
inserts.
When we make changes to letters we build a work file, extract the letter
using FCOPY into the work file, make the changes in the letter text,
then FCOPY back into the KSAM file. When I FCOPY from the KSAM file, the
line numbers in the work file are not the same as they are in the KSAM file
and this causes the line (record) to be too long which drops the last few
characters of the key field.


FILENAME  CODE  ------------LOGICAL RECORD-----------  ----SPACE----
                  SIZE  TYP        EOF      LIMIT R/B  SECTORS #X MX

LEF100    KSAM     86B  FA        9734      10000   1     3376  1  8

Here is the file in quad...NOTE THE LINE NUMBERS IN THE FILE
The key field is LTD00002


/l i "ltd00002"
 8593     \FORMAT; DEJUST ON
  LTD00002000031
 8594     A lawsuit is being filed against you in the above-captioned
matter.
  LTD00002000032
 8595     This law firm is attempting to collect the debt for the creditor
shown
  LTD00002000033
 8596     above and any information obtained will be used for that purpose.
  LTD00002000034
 8597     The balance listed above may change daily if interest is accruing.
  LTD00002000035
 8598     If you wish to resolve this matter without the necessity of a
conteste
d LTD00002000036
 8599     lawsuit and possible post-judgment legal proceedings, you may make
  LTD00002000037
 8600     arrangements for liquidation of the balance due and owing by
contactin
g LTD00002000038
 8601     this office to make amicable arrangements for payment of this
claim.
  LTD00002000039
 8602
  LTD00002000040
 8603     In the event a judgment is rendered against you, the following
  LTD00002000041
 8604     post-judgment proceedings among others may be instituted:
  LTD00002000042


When I extract using FCOPY into a work file, the line numbers are different.

BUILD WORK3;REC=-86,1,F,ASCII
FCOPY FROM=LEF100;TO=WORK3;SUBSET="LTD00002",73


 2000.031 \FORMAT; DEJUST ON
  LTD000
 2000.032 A lawsuit is being filed against you in the above-captioned
matter.
  LTD000
 2000.033 This law firm is attempting to collect the debt for the creditor
shown
  LTD000
 2000.034 above and any information obtained will be used for that purpose.
  LTD000
 2000.035 The balance listed above may change daily if interest is accruing.
  LTD000
 2000.036 If you wish to resolve this matter without the necessity of a
conteste
d LTD000
 2000.037 lawsuit and possible post-judgment legal proceedings, you may make
  LTD000
 2000.038 arrangements for liquidation of the balance due and owing by
contactin
g LTD000
 2000.039 this office to make amicable arrangements for payment of this
claim.
  LTD000
 2000.04
  LTD000
 2000.041 In the event a judgment is rendered against you, the following
  LTD000
 2000.042 post-judgment proceedings among others may be instituted:
  LTD000

Notice the key field is now 'LTD000'
Why is that? What is causing FCOPY to assign new lline numbers? How can I
use FCOPY to extract the key items without
numbering in this fashion so I don't lose the key field that starts in
column 73??

Thanks in advance for any help.

Rick Clark
Senior Systems Analyst
WW&R
Cleveland, Ohio