View previous topic :: View next topic
|
Author |
Message |
biswajitjena
New User
Joined: 20 Apr 2006 Posts: 4
|
|
|
|
Hi .. Can any one please tell me how to create a new member in a PDS through a Job or JCL |
|
Back to top |
|
|
biswajitjena
New User
Joined: 20 Apr 2006 Posts: 4
|
|
|
|
I forgot to mention the My PDS has record length od 133 so I can't use IEBUPDTE |
|
Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
If the PDS already exists, you just need to allocate it with DISP=SHR.
If it doesn't exists, you will have to allocate it first using IEFBR14 or somethis similar.
O. |
|
Back to top |
|
|
biswajitjena
New User
Joined: 20 Apr 2006 Posts: 4
|
|
|
|
Thanks Man.. Actually I had tried Did But When I did the JCL check it was giving a RC of 8, so I had Not summited the Job, but now Even with RC of 8 in JCL Check I summited it and It created the New member.
Thanks for the Quick reply |
|
Back to top |
|
|
vijayamadhuri
Active User
Joined: 06 Apr 2005 Posts: 180
|
|
|
|
go to u r edit option -2 in ispf
fgive the name of the pds
Edit Entry Panel
Command ===>
ISPF Library:
Project . . . Txxxxxx
Group . . . . PDS . . . . . . . . .
Type . . . . SOURCE
Member . . . (Blank or pattern for member selection list)
give the name of the member u want to create... |
|
Back to top |
|
|
nileshp
New User
Joined: 25 Feb 2006 Posts: 31
|
|
|
|
biswajitjena wrote: |
Hi .. Can any one please tell me how to create a new member in a PDS through a Job or JCL |
//jobname JOB ...
//EXEC PGM=IEFBR14
//D1 DD DSN=data-set-name(member),
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,0),
// UNIT=unit,VOL=SER=volume,
// DCB=(whatever sub-parameters you want) |
|
Back to top |
|
|
stly Warnings : 1 New User
Joined: 25 Jul 2005 Posts: 93
|
|
|
|
hi nilesh n offer both of ur logics are not working.i have checked them.
if u keep new,catlg,delete u will get JCL error that duplictae data set n
disp=shr is giving maxcc=0 but member is not created.
HERE IS MY JCL
//a1234 JOB (TDEV,TST),'a1234,MSGCLASS=9,
// CLASS=C,NOTIFY=a1234
//*
//Z0327074 EXEC PGM=IEFBR14
//SYSIN DD *
//SYSUT1 DD DSN=A1234.SIMP.JCL(JCL2),
// DISP=SHR
//* SPACE=(TRK,0),
//* SPACE=(CYL,(1,1,2),RLSE),
//* UNIT=SYSDA,
//* DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
/*
// |
|
Back to top |
|
|
pspreddy
New User
Joined: 14 Mar 2006 Posts: 24 Location: Chicago
|
|
|
|
Two other simple texhniques are
1) enter any member of that PDS in view mode and select one or more line of that member to copy (use 'c' or 'cc' option to select a line or more than one line), go to command line ans say 'CREATE MEMBERNAME'.
This will create a member with MEMBERNAME in the same PDS
2) Go to any member of any PDS, then select one or more line of that member to copy , go to command line ans say 'CREATE YOURPDS(MEMBERNAME)'.
This will create a member MEMBERNAME in YOURPDS
Just a crude method.. is it?
Thanks
Shiva |
|
Back to top |
|
|
Marso
REXX Moderator
Joined: 13 Mar 2006 Posts: 1353 Location: Israel
|
|
|
|
The best way, in a JCL, is to run:
Code: |
//CRMEMBR EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DUMMY
//SYSUT2 DD DISP=SHR,DSN=A1234.SIMP.JCL(NEWJCL) |
|
|
Back to top |
|
|
sateyandra
New User
Joined: 14 Aug 2006 Posts: 2
|
|
|
|
try to create member in pds through jcl with the help of catlog procedure
. I think it will work . |
|
Back to top |
|
|
stly Warnings : 1 New User
Joined: 25 Jul 2005 Posts: 93
|
|
|
|
Hi Marso,
i tries ur code and ended with MAXCC= 12 with the following message in SYSPRINT "CONFLICTING DCB PARAMETERS" |
|
Back to top |
|
|
surya_pathaus
Active User
Joined: 28 Aug 2006 Posts: 110
|
|
|
|
Hi Stly,
JCL needs to modify little bit. It is working fine and creating the member in required PDS.
Please find the JCL:
Code: |
//STEP01 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD *
/*
//SYSUT2 DD DISP=SHR,DSN=HLQ.ABC.D123(NEWJCL)
//SYSIN DD DUMMY
//SYSOUT DD SYSOUT=*
//*
|
|
|
Back to top |
|
|
stly Warnings : 1 New User
Joined: 25 Jul 2005 Posts: 93
|
|
|
|
Hi in my previos post(JCL) repace dummy with *.it is working fine.
thanks surya |
|
Back to top |
|
|
|