Subject: | |
From: | |
Reply To: | |
Date: | Thu, 27 Apr 2000 09:19:56 -0400 |
Content-Type: | multipart/mixed |
Parts/Attachments: |
|
|
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
|
|
|