View previous topic :: View next topic
|
Author |
Message |
Escapa
Senior Member
Joined: 16 Feb 2007 Posts: 1399 Location: IL, USA
|
|
|
|
Hi,
I want to create dataset in COBOL. I am using program BPXWDYN to do it.
But am not getting how to pass disp parameter if I want disp as (NEW,CATLG,DELETE).
Currently my program is like this,
Code: |
WORKING-STORAGE SECTION.
01 SUB-PGM PIC X(8) VALUE 'BPXWDYN '.
01 ALLOC-INVOER-CMD.
05 FILLER PIC X(50) VALUE
' ALLOC DD(FIN) DSN(EX.DEX006.DALLOC) RECFM(F,B) '.
05 FILLER PIC X(50) VALUE
' LRECL(80) TRACKS SPACE(5,2) NEW '.
01 COMMAND-STRING.
05 C-S-LEN PIC S9(4) BINARY VALUE +100.
05 C-S-DATA.
07 FILLER PIC X(100).
.
.
PROCEDURE DIVISION.
BEGIN.
MOVE ALLOC-INVOER-CMD TO C-S-DATA.
CALL SUB-PGM USING COMMAND-STRING.
|
By this Dataset is getting deleted at end.
Code: |
IGD101I SMS ALLOCATED TO DDNAME (FIN )
DSN (EX.DEX006.DALLOC )
STORCLAS (ALLSTD) MGMTCLAS (B2WFYP) DATACLAS (PSM#FB)
VOL SER NOS= D1GE55
IEF142I DEX006R STEP1 - STEP WAS EXECUTED - COND CODE 0000
IEF285I DEX006.DEX006R.JOB09142.D0000102.? SYSOUT
IGD104I EX.DEX006.NOMAD.LOAD RETAINED, DDNAME=STEPLIB
IEF285I DEX006.DEX006R.JOB09142.D0000101.? SYSIN
IGD105I EX.DEX006.DALLOC DELETED, DDNAME=FIN
|
I tried giving NEW CATLOG DELETE instead of NEW, but it is getting error...
Any help on this? |
|
Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8696 Location: Dubuque, Iowa, USA
|
|
|
|
Have you tried NEW CATALOG? |
|
Back to top |
|
|
Escapa
Senior Member
Joined: 16 Feb 2007 Posts: 1399 Location: IL, USA
|
|
|
|
Yes I did. It is failing with
Code: |
DEX006R STEP1 - STEP WAS EXECUTED - COND CODE 4067 |
|
|
Back to top |
|
|
Escapa
Senior Member
Joined: 16 Feb 2007 Posts: 1399 Location: IL, USA
|
|
|
|
Quote: |
Have you tried NEW CATALOG?
|
Thanks Robert.
It worked now.
It was typo. I gave CATLG instead of CATALOG previously.. |
|
Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8696 Location: Dubuque, Iowa, USA
|
|
|
|
Glad to hear it's working. |
|
Back to top |
|
|
Escapa
Senior Member
Joined: 16 Feb 2007 Posts: 1399 Location: IL, USA
|
|
Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6250 Location: Mumbai, India
|
|
|
|
Quote: |
I don't know who can do it |
What does that mean? |
|
Back to top |
|
|
Escapa
Senior Member
Joined: 16 Feb 2007 Posts: 1399 Location: IL, USA
|
|
|
|
Quote: |
Quote:
I don't know who can do it
What does that mean?
|
Who responsible for creating\updating such ibm documentation... |
|
Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8696 Location: Dubuque, Iowa, USA
|
|
|
|
Depending upon your site support contract, you may be able to submit a PMR to IBM to have the documentation changed. Otherwise, you may be able to submit a request through the IBM web site. In neither case would I expect any change to occur anytime soon. |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
The link you posted is dated 2000. . .
However, it did have the e-addr of the author.
You might try an e-mail asking for guidance - might receive a quicker reply than submitting an enhancement request . . . |
|
Back to top |
|
|
|