|
View previous topic :: View next topic
|
| Author |
Message |
Crunch
New User
Joined: 27 Jan 2010
Posts: 17
Location: Louisville, Ky
|
|
|
|
Ok.. I've searched all morning for an answer to my problem with no luck. I'm getting this error:
publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ceea9150/7.30?SHELF=&DT=20040714145631&
Job output:
An error occurred when opening or closing a file.
An attempt to OPEN the non-optional file VSAMEXT failed because the
file was not present. Probable causes include:
My real question is, where is this VSAMEXT file getting pulled from? My job is pretty simple and uses NO VSAM whatsoever. Nor do I have any files named VSAMEXT.
Thanks for any suggestions.... |
|
| Back to top |
|
 |
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA
|
|
|
|
Line 371 of your code?
What do you expect when you don't show us JCL, don't show us FILE SECTION, don't show us anything to actually diagnose the problem? Is this a pure vanilla COBOL compile, or are you using a precompiler? |
|
| Back to top |
|
|
Crunch
New User
Joined: 27 Jan 2010
Posts: 17
Location: Louisville, Ky
|
|
|
|
JCL:
| Code: |
//*
//RAYA01 SET DB2R=DDB3
//RAYA02 SET ENV=TEST.N082
//RAYA03 SET SSID=DDB3
//RAYA04 SET CREG=TESTA5
//*
//RRDDRCHG EXEC DB2COBOL,
// SSID=&DB2R,
// NODE='TESTDRM',
// PRJ='N082',
// PROG='N0829RDC',
// PLAN='N0829RDC',
// PRM='CONVERT',
//* PRM1='ROLLBACK',
// REGION=6M
//RUNDB2.STEPLIB DD
// DD
// DD DSN=TEST.N082.LOADLIB,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//N082RCHG DD DISP=SHR,DSN=&ENV..REG.DIS.CHANGES
//N082CTL DD DISP=SHR,DSN=&ENV..REG.DIS.CTLCARD
//* |
File Secton:
| Code: |
FILE SECTION.
FD NS-REALIGN
RECORD CONTAINS 50 CHARACTERS
RECORDING MODE F
LABEL RECORDS ARE STANDARD.
01 NATIONAL-SLIC-REALIGNMENT.
05 NS-SLC-NR PIC X(5).
05 FILLER PIC X(2).
05 NS-SLC-NA PIC X(5).
05 FILLER PIC X(2).
05 NS-CNY-CD PIC X(2).
05 FILLER PIC X(2).
05 NS-REG-OLD PIC X(2).
05 FILLER PIC X.
05 NS-DIS-OLD PIC X(2).
05 FILLER PIC X(4).
05 NS-REG-NEW PIC X(2).
05 FILLER PIC X.
05 NS-DIS-NEW PIC X(2).
05 FILLER PIC X(18).
FD RD-CONTROL-CARDS
RECORD CONTAINS 80 CHARACTERS
RECORDING MODE F
LABEL RECORDS ARE STANDARD.
01 RD-CONTROL-CARD.
05 CTL-CARD PIC X(7).
05 FILLER PIC X(73). |
Dataset Info:
| Code: |
Data Set Name . . . . : TEST.N082.REG.DIS.CHANGES
General Data Current Allocation
Management class . . : STNDML1 Allocated tracks . : 12
Storage class . . . : SCBASE Allocated extents . : 1
Volume serial . . . : DVL294
Device type . . . . : 3390
Data class . . . . . : **None** Current Utilization
Organization . . . : PS Used tracks . . . . : 1
Record format . . . : FB Used extents . . . : 1
Record length . . . : 50
Block size . . . . : 27950
1st extent tracks . : 12
Secondary tracks . : 5
Data set name type : SMS Compressible : NO
Creation date . . . : 2010/02/15 Referenced date . . : 2010/02/15
Expiration date . . : ***None***
Data Set Name . . . . : TEST.N082.REG.DIS.CTLCARD
General Data Current Allocation
Management class . . : STNDML1 Allocated blocks . : 2
Storage class . . . : SCBASE Allocated extents . : 1
Volume serial . . . : LRG160
Device type . . . . : 3390
Data class . . . . . : **None** Current Utilization
Organization . . . : PS Used blocks . . . . : 1
Record format . . . : FB Used extents . . . : 1
Record length . . . : 80
Block size . . . . : 27920
1st extent blocks . : 2
Secondary blocks . : 2
Data set name type : SMS Compressible : NO
Creation date . . . : 2010/02/15 Referenced date . . : 2010/02/15
Expiration date . . : ***None*** |
I'm using the ISPF compile panels... |
|
| Back to top |
|
|
Crunch
New User
Joined: 27 Jan 2010
Posts: 17
Location: Louisville, Ky
|
|
|
|
Compile options:
| Code: |
NOADV APOST DATA 31 NODECK NODUMP DYNAM FASTSRT
LIB LIST MAP NONUM OBJECT NOOFFST NOOPT DFLT DD
NMPRMIG RENT NOSEQ SIZE(N) SOURCE NOSSRNG NOTERM
NOTEST TRNCBIN NOWORD NOVBREF XREF ZWB NONAME
NMCLPRI NODBCS AWO
NOCURRENCY INTDATE ANSI NODLL NOEXP
ARITH(COMPAT) NOTHREAD |
|
|
| Back to top |
|
|
Crunch
New User
Joined: 27 Jan 2010
Posts: 17
Location: Louisville, Ky
|
|
|
|
One other thing. When I step through the program with Xpediter, it executes both OPEN and CLOSE statements with no problem. When I try to execute the program by itself, it gets the IGZ0035S error. I just found this to be odd.. maybe someone else has had a similar issue.. Thanks!!
Just to clarify... when I execute the program with Xpediter, it runs successfuly to the end of the program. |
|
| Back to top |
|
|
Crunch
New User
Joined: 27 Jan 2010
Posts: 17
Location: Louisville, Ky
|
|
|
|
| Code: |
FILE-CONTROL.
*************************************************************
* I N P U T F I L E *
*************************************************************
SELECT NS-REALIGN ASSIGN TO N082RCHG
ACCESS MODE IS SEQUENTIAL
FILE STATUS IS REALIGN-STATUS.
SELECT RD-CONTROL-CARDS ASSIGN TO N082CTL
ACCESS MODE IS SEQUENTIAL
FILE STATUS IS CTLCARD-STATUS. |
|
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello and welcome to the forum,
It will help us help you if you become familiar/comfortable with the "Code" tag. This preserves alignment and improves readability.
Is there any chance that there is a library concatenation out-of-sync? Could the code being Xpedited not be the same that is executed when the failure occurs? Is VSAMEXT a file used by some commonly called routine? |
|
| Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA
|
|
|
|
What does the Xpediter procedure expansion look like at your site -- any chance there's a VSAMEXT DD name included in it?
This sounds like there's something site-specific (maybe for extended VSAM files?) that may require you talking to your site support group to get answers on. |
|
| Back to top |
|
|
Crunch
New User
Joined: 27 Jan 2010
Posts: 17
Location: Louisville, Ky
|
|
|
|
I checked the Xpediter log to verify the loadlib being used.. It's the same as what I have specified in the JCL. As far as any other called modules inside of my program, there are none. I'll have to check the library concatenation and the Xpediter procedure.
I appreciate the help.. sorry for being a noob.... |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello,
| Quote: |
| I appreciate the help.. sorry for being a noob.... |
You're welcome - and not to worry, we all were once 
As an experiment you might put a guaranteed unique DISPLAY in the program (as the first executable instruction) and make sure that this display is shown both in Xpediter and without. . .
Even if the loadlib looks correct, there may be another module with the same name earlier in the concatenation. |
|
| Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India
|
|
|
|
Crunch,
Your JCL is using a lot of "SET" variables* - have you had a look at the expanded JCL in JESJCL DD of your job - I'm pretty sure the error has something to do with the parameters you include in your JCL execution. As a programmer, your program has no flaws so far...
* - those SET variables, probably have something to do with parameterizing the jobs for different environments. I've nearly similar set-up at my current shop and ran into such errors couple of times...on a personal note I don't like such experiments with system. |
|
| Back to top |
|
|
Crunch
New User
Joined: 27 Jan 2010
Posts: 17
Location: Louisville, Ky
|
|
|
|
Anuj,
I removed all of the SET variables and re-ran the job. It abended with the same error. You are correct about the set up for different environments. I looked at the JESJCL in my output and did not see anything out of the ordinary. I did submit a request to the folks that support our installation so they can rule out any "site specific" problems.
Thanks again for all the help.. |
|
| Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India
|
|
|
|
| Good Luck, keep us posted when you progress... |
|
| Back to top |
|
|
Crunch
New User
Joined: 27 Jan 2010
Posts: 17
Location: Louisville, Ky
|
|
|
|
Ok,
I figured it out with a second pair of eyes at my shop. In the previous JCL, I had PROG and PLAN names coded for the JOB name, not the program name... 
| Code: |
***************************** Top of Data ******************************
//N0829RDC JOB (T082,F322),'RR/DD',MSGLEVEL=(1,1),CLASS=U,
// MSGCLASS=X,REGION=4096K,NOTIFY=&SYSUID
//*
//*AYA01 SET DB2R=DDB3
//*AYA02 SET ENV=TEST.N082
//*AYA03 SET SSID=DDB3
//*AYA04 SET CREG=TESTU5
//*
//RRDDRCHG EXEC DB2COBOL,
// SSID=DDB3,
// NODE='TESTDRM',
// PRJ='N082',
// PROG='N082RCHG',
// PLAN='N082RCHG',
// PRM='CONVERT',
//* PRM1='ROLLBACK',
// REGION=6M
//RUNDB2.STEPLIB DD
// DD
// DD DSN=TEST.N082.LOADLIB,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//N082RCHG DD DISP=SHR,DSN=TEST.N082.REG.DIS.CHANGES
//*082RCHG DD DISP=SHR,DSN=&ENV..REG.DIS.CHANGES
//N082CTL DD DISP=SHR,DSN=TEST.N082.REG.DIS.CTLCARD
//*082CTL DD DISP=SHR,DSN=&ENV..REG.DIS.CTLCARD
//*
**************************** Bottom of Data **************************** |
It ran like a champ!!!! Thanks for the input everyone!! |
|
| Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India
|
|
|
|
| Code: |
// PROG='N082RCHG',
// PLAN='N082RCHG', |
Glad to hear you got it working.. |
|
| Back to top |
|
|
|
|
