On 2/17/2011 12:44 PM, Sergio Lima wrote:
Hello List,
We had installed in our installation ZOS1.12 system , and also Z/VSE 4.2.
Under Z/VSE, is not very easy, work, with sequential files, if you don't have a
specific product for manage the VTOC space, that is our case..
Under Z/OS, it is not true, because, is not necessary specify the START of a
LOCATION from a file in to disk.
So, We thing change all of our JCL, when the file is VSAM under Z//VSE : //
DLBL MYFILE,'MYFILE.VSAM',,VSAM , to sequential files under Z/OS,
//MYFILE DD DSN=MYFILE.SEQ,DISP=SHR, without change the source of a COBOL
program.
The test that We made here, show that this is not possible, so, We want know
the opinions of this list, if this is really true.
In a single COBOL, we wrote :
SELECT ARQSEQ ASSIGN TO SYS010-AS-ARQSEQ
FILE STATUS IS FS-ARQSEQ.
Then running ok for VSAM, but not for a sequential file, had Return code = 37.
The '-AS' tells COBOL the file is a VSAM ESDS; thus the compiler will
build an ACB for file requests; non-VSAM files use DCBs.
When running with this :
SELECT ARQSEQ ASSIGN TO SYS010-UT-ARQSEQ
Here, run ok for sequential file, but for VSAM had :
IGZ0200W A file attribute mismatch was detected. File ARQSEQ in program LESEQ
was defined as a physical sequential
file and the file specified in the ASSIGN clause was a VSAM data set.
and the program end with Return code = 39.
The lack of '-AS' tells the compiler you are referencing a
QSAM file, so the compiler builds a DCB not an ACB.
You know, you can simplify your ASSIGN statements:
SELECT ARQSEQ ASSIGN TO AS-ARQSEQ
SELECT ARQSEQ ASSIGN TO ARQSEQ
Thanks very much
Sergio Lima Costa
Sao Paulo - Brazil
--
Kind regards,
-Steve Comstock
The Trainer's Friend, Inc.
303-393-8716
http://www.trainersfriend.com
* To get a good Return on your Investment, first make an investment!
+ Training your people is an excellent investment
* Try our new tool for calculating your Return On Investment
for training dollars at
http://www.trainersfriend.com/ROI/roi.html
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
