HP3000-L Archives

January 2004, 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:
From:
Tom Brandt <[log in to unmask]>
Reply To:
Tom Brandt <[log in to unmask]>
Date:
Wed, 28 Jan 2004 15:52:14 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (41 lines)
I have created a job which runs FCOPY to copy records from one KSAM/XL file
to another. The job builds the target before it runs FCOPY. However, even
though I *do not* specify the ;NEW option on the command line, FCOPY blows
up claiming that the NEW option was specified and the target file already
exists. I can't figure why on Earth it thinks the ;NEW option was
specified. Here's the relevant part of the $STDLIST.

:if finfo("ITESFXT.ORIDATA","EXISTS") THEN
  *** EXPRESSION FALSE: COMMANDS IGNORED UNTIL MATCHING ELSEIF/ELSE
  /ENDIF
  :  tell !HPSTREAMEDBY !HPJOBNAME found duplicate ITESFX temp file. Aborting.
  :else
  *** RESUME EXECUTION OF COMMANDS
  :  build itesfxt.oridata;rec=-121,,f,ascii;disc=6000;ksamxl;&
  :  key=(b,1,6,dup;b,7,18);firstrec=0;noreuse;defblk
  :endif
  :
  :FCOPY FROM=ITESFX.ORIDATA;TO=(ITESFXT.ORIDATA);KEY=0

  HEWLETT-PACKARD 31900A.05.04 FILE COPIER  WED, JAN 28, 2004,  3:42 PM
  (C) HEWLETT-PACKARD CO. 1999
  *144*
  NEW OPTION: FILE ALREADY EXISTS
  0 RECORDS PROCESSED *** 1 ERROR

  Program terminated in an error state. (CIERR 976)
  REMAINDER OF JOB FLUSHED.


Any ideas are greatly appreciated.

--
Tom Brandt
Northtech Systems, Inc.
130 S. 1st Street, Suite 220
Ann Arbor, MI 48104-1343
http://www.northtech.com/

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

ATOM RSS1 RSS2