HP3000-L Archives

April 2011, Week 1

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: Continue before DSCopy
From:
Wyell HP3000L <[log in to unmask]>
Reply To:
Wyell HP3000L <[log in to unmask]>
Date:
Wed, 6 Apr 2011 16:48:50 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (73 lines) 
Dan,

Don't know why the below is occurring, but can you not simply put a statement before the DSCOPY in the jobstream, such as:

:IF FINFO("EDIFINL.DATABASE.DDPDEV","EXISTS")
:  Do the DSCOPY
:ENDIF

Wyell Grunwald

-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On Behalf Of Dan Barnes
Sent: Wednesday, April 06, 2011 1:15 PM
To: [log in to unmask]
Subject: Continue before DSCopy

Hi Gang,

I had a user come to me with what you see below.  This is a 7.0 PP2 system.  He was asking why, with a CONTINUE in front of the DSCOPY, it still aborted.  I tried searching the -L Archives but have found nothing there.  Oh, and BTW, there is only 1 :EOJ in the JCL, so I am not sure where the one immediately before the 'Program terminated' message came from.

TIA,
Dan

      2   :JOB EDIJOB,JOB.DDPDEV,JOB.
      3   Priority = DS; Inpri = 8; Time = UNLIMITED seconds.
      4   Job number = #j7024.
      5   WED, APR  6, 2011,  9:08 AM.
      6   HP3000  Release: C.70.00   User Version: C.70.02
      7   MPE/iX  HP31900 C.39.06  Copyright Hewlett-Packard 1987.
      8   All rights reserved.
      9   STREAMED BY A2GXCZZ,MGR.DDPDEV (#S233) ON LDEV# 86
     10      STREAM DATE:   WED, APR  6, 2011,  9:08 AM
     11                          ******* .&dCWARNING.&d@ *******
     12             YOU HAVE CONNECTED TO A PRIVATE COMPUTER SYSTEM.
     13          UNAUTHORIZED ACCESS BEYOND THIS POINT IS NOT PERMITTED.
     14            VIOLATORS WILL BE PROSECUTED TO THE FULLEST EXTENT
     15                ALLOWED BY LOCAL, STATE, AND FEDERAL LAWS.
     16   ------------------------------ HP1609 ------------------------------
     17   Tech Services 7.0 Development and COGNOS server
     18   
     19   
     20   END OF PROGRAM
     22   MPE/iX C.70.00
     23   ElectroPage now enabled in this session.
     25   #J7024 EDIJOB,JOB.DDPDEV,JOB LDEV:10 @  9:08 AM, WED, APR  6, 2011
     26   DDPDEV .&dJMDCS -- 30 Development system for Final Release 30 of MDCS
     27   DDPDEV .&dJPMCS -- 25 Development system for Final Release 25 of PMCS
     28   DDPDEV .&dJOPRA 06.3.00 Development system for Next Release 06.3.00 of OPRA
     29   :SHOWVAR HPDOY
     30   HPDOY = 96
     31   :SETVAR EDFL ("EDFL" + "!HPDOY")
     32   :SHOWVAR EDFL
     33   EDFL = EDFL96
     34   :HISTORY !EDFL
     35   File does not exist - No history done
     36   :CONTINUE
     37   :DSCOPY EDIFINL.DATABASE;!EDFL;MOVE
     38     Source file: EDIFINL.DATABASE.DDPDEV
     39     NONEXISTENT PERMANENT FILE  (FSERR 52)
     40     SOURCE FILE WAS NOT FOUND.  (NS/NFTERR 9)
     41   
     42   :EOJ
     43   Program terminated in an error state. (CIERR 976)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
     44   :EOJ
     45   CPU sec. = 1.  elapsed min. = 1.  WED, APR  6, 2011,  9:08 AM.

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

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

ATOM RSS1 RSS2