Thanks for the additional comments gang. I found out with further questioning of the user that the SHOWVAR was added after the initial error was encountered. The jcl supplied to me by the user is below:
:JOB EDIJOB,JOB/PERSON.DDPDEV;OUTCLASS=LP,1
:SHOWVAR HPDOY
:SETVAR EDFL ("EDFL" + "!HPDOY")
:SHOWVAR EDFL
:SHOWVAR HPMSGFENCE
:SHOWVAR CIERROR
:HISTORY !EDFL
:SHOWVAR HPMSGFENCE
:SHOWVAR CIERROR
:CONTINUE
:DSCOPY EDIFINL.DATABASE;!EDFL;MOVE
:EOJ
So it appears there is no mix of ':' & '!'. As Paul who commented to me off list said,
"the next command after the DSCOPY is EOJ. That's all there is to it. The CONTINUE is not supposed to stop the error from being reported, but that isn't what's stopping the job, it's the EOJ command that follows."
Thanks!
Dan
Dan Barnes ..:.. LCI-Lawinger Consulting
106 Central Avenue, Suite A ..:.. Osseo, MN, 55369-1243
Tel: 763-425-1639 ..:.. Fax: 763-425-5483 ..:.. Cell: 612-240-2136 ..:.. Pager: 952-394-0132
[log in to unmask] ..:.. [log in to unmask]
-----Original Message-----
From: Keven Miller [mailto:[log in to unmask]]
Sent: Wednesday, April 06, 2011 1:37 PM
To: Dan Barnes; [log in to unmask]
Subject: Re: [HP3000-L] Continue before DSCopy
Too me, it hints of a UDC.
Could DSCOPY be a udc?
Do they have and use NETBASE?
NETBASE installs udcs that trap commands -
While working a migration we spent sometime tracing down why
a PURGE command wouldn't give the CIERR -383 warning.
Finding that a UDC for PURGE was affecting us.
Keven
----- Original Message -----
From: "Dan Barnes" <[log in to unmask]>
To: <[log in to unmask]>
Sent: Wednesday, April 06, 2011 11:29 AM
Subject: Re: [HP3000-L] Continue before DSCopy
Yes, actually the very next command was SHOWVAR CIERROR, then the EOJ.
Dan Barnes ..:.. LCI-Lawinger Consulting
106 Central Avenue, Suite A ..:.. Osseo, MN, 55369-1243
Tel: 763-425-1639 ..:.. Fax: 763-425-5483 ..:.. Cell: 612-240-2136 ..:..
Pager: 952-394-0132
[log in to unmask] ..:.. [log in to unmask]
-----Original Message-----
From: Jack Connor [mailto:[log in to unmask]]
Sent: Wednesday, April 06, 2011 12:28 PM
To: Dan Barnes; [log in to unmask]
Subject: RE: [HP3000-L] Continue before DSCopy
Dan,
It looks like the DSCOPY with the continue functioned as expected. There
error came on the next statement, and :EOJ which would have queried the JCW
at that point and determined the job had an error somewhere in the flow.
Not sure why the dual EOJ commands are there.
jack
-----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: [HP3000-L] 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 *
Call us today about our Windows consulting for monthly support services,
plus configurations and migrations.
CONFIDENTIALITY NOTICE: This communication with its contents may contain
confidential information. It is solely for the use of the intended
recipient(s). Unauthorized interception, review, use or disclosure is
prohibited and may violate applicable laws including the Electronic
Communications Privacy Act. If you are not the intended recipient, please
contact the sender and destroy all copies of the communication.
* 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 *
|
