HP3000-L Archives

June 2002, Week 4

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: Appending KSAMXL files
From:
Tony Summers <[log in to unmask]>
Reply To:
Tony Summers <[log in to unmask]>
Date:
Thu, 27 Jun 2002 09:48:46 +0100
Content-Type:
text/plain
Parts/Attachments:
text/plain (96 lines) 
Use Acc=APPEND as demonstrated below.   The sample below takes input from the keyboard and appends it to a plain vanilla file, but it works for KSAM too, as long as you don't get any duplicate key conflict.

S:PURGE TEMP
S:BUILD TEMP;REC=-128,10,F,ASCII;DISC=10000
S:FILE T=TEMP;ACC=APPEND
S:FCOPY FROM = ;TO=*T
HP31900A.05.04 FILE COPIER (C) HEWLETT-PACKARD CO. 1999
 
*200*WARNING: FROMFILE RECSIZE IS 80 BYTES, TOFILE RECSIZE IS 128 BYTES.
CONTINUE OPERATION (Y OR N) ?Y
RECORD 1
RECORD 2
:EOD
EOF FOUND IN FROMFILE AFTER RECORD 1
 
2 RECORDS PROCESSED *** 0 ERRORS
 
 
END OF SUBSYSTEM
S:DO FC
S:FCOPY FROM = ;TO=*T
HP31900A.05.04 FILE COPIER (C) HEWLETT-PACKARD CO. 1999
 
*200*WARNING: FROMFILE RECSIZE IS 80 BYTES, TOFILE RECSIZE IS 128 BYTES.
CONTINUE OPERATION (Y OR N) ?YYCORD
RECORD 3
RECORD 4
RECORD 5
:EOD 
EOF FOUND IN FROMFILE AFTER RECORD 2
 
3 RECORDS PROCESSED *** 0 ERRORS
 
 
END OF SUBSYSTEM
S:LISTF TEMP,2 
ACCOUNT=  DEVELOP     GROUP=  TONY    
 
FILENAME  CODE  ------------LOGICAL RECORD-----------  ----SPACE----
                  SIZE  TYP        EOF      LIMIT R/B  SECTORS #X MX
 
TEMP              128B  FA           5      10000  10      256  1  *
 
 
S:PRINT TEMP 
RECORD 1
RECORD 2
RECORD 3
RECORD 4
RECORD 5
S:
 
 
 
 
 


>>> "Wayne R. Boyer" <[log in to unmask]> 26/06/02 21:27:06 >>>
Perhaps extract the data from both KSAMXL files into regular flat files and
then use my old friend MERGE.PUB.SYS to make one combined flat file.... then
copy it to a single new KSAMXL file?

This should work but there might be a simplier way.
Wayne Boyer

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *



The contents of this email are confidential to the intended recipient and
may not be disclosed.
Although it is believed that this email and any attachments are virus free,
it is the responsibility of the recipient to confirm this.

Smith & Williamson Corporate Finance - A member of M&A International Inc.
http://www.mergers.net  Regulated by the FSA
Smith & Williamson Investment Management Limited, Registered No. 976145.
Regulated by the FSA
Smith & Williamson Pension Consultancy Limited - Independent Intermediary.
Registered No. 3133226.  Regulated by the FSA
Smith & Williamson Unit Trust Managers Limited, Registered No. 1934644.
Regulated by the FSA
Smith & Williamson Chartered Accountants - A member of Nexia International.
Registered to carry on audit work and regulated for a range of investment
business activities by the Institute of Chartered Accountants in England &
Wales
Smith & Williamson Management Consultants Limited, Registered No. 3226020

Registered Office: No. 1 Riding House Street, London W1A 3AS
Telephone: 020 7637 5377 http://www.smith.williamson.co.uk

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2