View previous topic :: View next topic
|
Author |
Message |
sharad Warnings : 1 New User
Joined: 14 Jun 2005 Posts: 2
|
|
|
|
Hi Friends
I wanted to know
Is this possible to create NonVSAM file using IDCAMS ..? If yes please let me how can we create..?
thanks
Sharad |
|
Back to top |
|
|
MGIndaco
Active User
Joined: 10 Mar 2005 Posts: 432 Location: Milan, Italy
|
|
|
|
Do you want to create a empty sequential dataset with IDCAMS?
Try with this:
Code: |
//STEP010I EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INPUT DD DISP=(,CATLG,DELETE),LRECL=XX,RECFM=FB,
// SPACE=(X,(1,1),RLSE),DSN=MYDATASET
//SYSIN DD DUMMY |
for me it work very fine. |
|
Back to top |
|
|
mmwife
Super Moderator
Joined: 30 May 2003 Posts: 1592
|
|
|
|
Hi MGIndaco,
Your ans is a little misleading. Although IDCAMS is entered using your JCL, it's the system initiator/terminator that "creates the ds.
I'd be interested to see if the created ds can be opened as I/P. My bet is that you can't.
If you can then I'm wrong and IDCAMS does do something to "create" the file, but I doubt it. |
|
Back to top |
|
|
MGIndaco
Active User
Joined: 10 Mar 2005 Posts: 432 Location: Milan, Italy
|
|
|
|
I think that my error happen in BLOCKSIZE... but in each case the file is created correctly and work fine for me... I tested it and I'm sure of this... I hope only in a my good understanding of your bet.
Code: |
//STEP010I EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INPUT DD DISP=(,CATLG,DELETE),LRECL=XX,RECFM=FB,BLKSIZE=xxxx,
// SPACE=(X,(1,1),RLSE),DSN=MYDATASET
//SYSIN DD DUMMY |
The sample above is better? |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
Code: |
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE NONVSAM
( NAME('ENTRYNAME')
VOLUMES('VOLSER' ...)
DEVICETYPES('DEVTYPE' ...)
COLLECTION
FILESEQUENCENUMBERS('NUMBER' ...)
OWNER('OWNERID')
TO('DATE') | FOR('DAYS')
RECATALOG | NORECATALOG )
CATALOG('CATNAME/PASSWORD')
|
REQUIRED - NONVSAM, NAME, DEVICETYPES, VOLUMES |
|
Back to top |
|
|
nandakumar Warnings : 2 New User
Joined: 05 May 2005 Posts: 50
|
|
|
|
hi superk,
i tried ur example prog,but no data set was created.
i dont know what values should i code in the following sub-parameter:
catalog('catname/password')
1)what does the parameter catalog means?
2)what should i code for "catname"
why i am asking is,os rejects the key word "catalog"
it says "catalog verb improper".
Also explain brifly about all other parameters in ur examplle.
3)how to create ps and pds with idcams with example ?
thanking u.
[/quote] |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
In TSO, enter TSO HELP DEFNVSAM and you will see the descriptions of all the parameters, after which you will probably know as much about this function as I do. I've never seen this function used in the real world. The more I look at the description, the more I wonder where it would ever be used. |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
Sorry, my bad!
You want to use the ALLOCATE command. In TSO, enter TSO HELP ALLOCATE for all of the parameters:
Code: |
//STEP0001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE MYSEQ
ALLOCATE DATASET(MYSEQ) NEW REUSE CATALOG -
UNIT(SYSDA) RECFM(F B) LRECL(80) BLKSIZE(0) -
SPACE(10,10) CYLINDERS
DELETE MYPDS
ALLOCATE DATASET(MYPDS) NEW REUSE CATALOG -
UNIT(SYSDA) RECFM(F B) LRECL(80) BLKSIZE(0) -
SPACE(10,10) CYLINDERS DIR(92)
/*
//*
|
|
|
Back to top |
|
|
nandakumar Warnings : 2 New User
Joined: 05 May 2005 Posts: 50
|
|
|
|
hi superk,
i tried ur example program.after submiting it ,i got maxcc=0 and vsam return code=0.but still i find difficulty in catalognig the data set. Because
data set was not cataloged (or) created after getting maxcc=0 and vsam return code=0.Then i cataloged the the data set using Iehprogm.
After that data set appeared in the data set list.then i tred to edit the data set ,but the operating system says data set not found
please clarify my doubt. thanking u. |
|
Back to top |
|
|
|