|
View previous topic :: View next topic
|
| Author |
Message |
appu9jain
New User
Joined: 07 Jun 2021
Posts: 15
Location: India
|
|
|
|
Hi..
As part of Mainframe simplification initiative, PDSMAN (from Broadcom), is being replaced with SEAs product known as PDSFast.
IEBCOPY is getting replaced with PDSFAST for copy operations. Similarly in PDSMAN, there is something called PDSM32 and PDSM10. I need to replace PDSM32/PDSM10 JCLs with utility equivalent in PDSFAST. There is no manual/info available. Anyone using PDSFAST, could you please guide me what needs to be replaced ?
Below is the JCL I tried but didnt work:
//JS010 EXEC PDSFAST
//IN1 DD DSN=XXXX.YYY.ZZZ,DISP=SHR
//SYSOUT DD SYSOUT=*
//SYSIN DD *
DELETE X71996
/* |
|
| Back to top |
|
 |
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015
Posts: 1246
Location: Bamberg, Germany
|
|
|
|
Use Code Tags when presenting Code/Data, please!
| Code: |
| //JS010 EXEC PDSFAST |
is a Procedure call. Let us know the resolved Procedure. |
|
| Back to top |
|
|
appu9jain
New User
Joined: 07 Jun 2021
Posts: 15
Location: India
|
|
|
|
Sorry, here is the updated one:
As part of Mainframe simplification initiative, PDSMAN (from Broadcom), is being replaced with SEAs product known as PDSFast.
IEBCOPY is getting replaced with PDSFAST for copy operations. Similarly in PDSMAN, there is something called PDSM32 and PDSM10. I need to replace PDSM32/PDSM10 JCLs with utility equivalent in PDSFAST. There is no manual/info available. Anyone using PDSFAST, could you please guide me what needs to be replaced ?
Below is the JCL I tried but didnt work:
| Code: |
//JS010 EXEC PDSFAST
//IN1 DD DSN=XXXX.YYY.ZZZ,DISP=SHR
//SYSOUT DD SYSOUT=*
//SYSIN DD *
DELETE X71996
/* |
|
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
| Quote: |
| PDSFAST is a Procedure call. Let us know the resolved Procedure. |
what is that you did not understand in the above request
it would have been easier for people willing to answer if ...
instead of a useless did not work
yuo had posted a copy of the sysout or at least the error message you received
it's topics like this one that make people less willing to spend time answering |
|
| Back to top |
|
|
appu9jain
New User
Joined: 07 Jun 2021
Posts: 15
Location: India
|
|
|
|
I just want to know what is used in PDSFAST, instead of PDSMAN's PDSM32/PDSM10.
Below is the PDSMAN code which works fine:
| Code: |
//JS010 EXEC PDSM32,
//PDSMPDS DD DSN=XXXX.YYY.ZZZ,DISP=SHR
//SYSOUT DD SYSOUT=*
//SYSIN DD *
DELETE X71996
/*
|
Below is PDSFAST version created which is not working:
| Code: |
//JS010 EXEC PDSFAST
//IN1 DD DSN=XXXX.YYY.ZZZ,DISP=SHR
//SYSOUT DD SYSOUT=*
//SYSIN DD *
DELETE X71996
/* |
And below is error message:
| Code: |
-DATASET CANNOT BE OPENED; AUTHORIZATION IS REQUIRED.
INSTFAST JS010 - COMPLETION CODE - SYSTEM=913 USER=0000 REASON=00000038 |
Not sure if its still using PDSMAN utility. |
|
| Back to top |
|
|
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015
Posts: 1246
Location: Bamberg, Germany
|
|
|
|
| appu9jain wrote: |
And below is error message:
| Code: |
-DATASET CANNOT BE OPENED; AUTHORIZATION IS REQUIRED.
INSTFAST JS010 - COMPLETION CODE - SYSTEM=913 USER=0000 REASON=00000038 |
|
S913 means NO ACCESS. Check SYSLOG/Joblog. Provide that (ICH408I msgs) to whoever is Responsible for Data Security at your site. |
|
| Back to top |
|
|
Pete Wilson
Active Member
Joined: 31 Dec 2009
Posts: 580
Location: London
|
|
|
|
found some ancient JCL I have from the 80's with PDSFAST examples. (IEBCOPY here is aliased to PDSFAST) But also easy enough to find using Google
| Code: |
//ODD DD DSN=PDS.CNTL,DISP=SHR
//SYSUT3 DD
//SYSUT4 DD
//PDSFAST DD
//SYSIN DD *
DIRSIZE OUTDD=ODD,BLOCKS=+20
/*
//**********************************************************************
//* INCREASES THE NUMBER OF DIRECTORY BLOCKS IN A PDS.(IT MUST HAVE *
//* SOME FREESPACE IN THE DATASET TO BE ABLE TO DO THIS THOUGH.)
//**********************************************************************
DIRSIZE OUTDD=ODD,BLOCKS=+20
//**********************************************************************
//* ALTERS A LOAD MODULE IN PLACE.IT READS THE DATASET AND CORRECTS *
//* ERRONEOUS RLOCATION DICTIONARY (RLD) COUNTS IN THE DIRECTORY AND *
//* CONTROL RECORDS.CAN ASSIST MVS PERFORMANCE.
//**********************************************************************
ALTERMOD OUTDD=ODD,LIST=NO
//**********************************************************************
//* ZEROS OUT A PDS DIRECTORY TO MAKE IT EMPTY.
//**********************************************************************
ZERODIR OUTDD=ODD
//**********************************************************************
//* EDITS THE PDS DIRECTORY,ALLOWING RENAME/DELETE RETAIN OF INDIVIDUAL
//* OR GROUPS OF MEMBERS.
//**********************************************************************
DIREDIT OUTDD=ODD
RENAME MEMBER=XYZ,ABC
RENAME GROUP=XYZ/,ABC/
RETAIN GROUP=XYZX/
DELETE GROUP=XYZ/
//**********************************************************************
//* RECOVERS MEMBERS OF A PDS THAT HAVE ACCIDENTLY BEEN UPDATED AS LONG
//* AS THE PDS HASNT BEEN COMPRESSED SINCE THE UPDATE.
//**********************************************************************
RECOVER OUTDD=ODD |
|
|
| Back to top |
|
|
appu9jain
New User
Joined: 07 Jun 2021
Posts: 15
Location: India
|
|
|
|
Thank you for sharing this.
I tried as you shown above, but still facing the same error. However the same dataset is accessed and DELETE is performed for PDSMAN, but for PDSFAST its throwing
ACF90913 -DATASET CANNOT BE OPENED; AUTHORIZATION IS REQUIRED.
| Code: |
//JS010 EXEC PDSFAST
//OUT1 DD DSN=XXXX.YYY.ZZZ,DISP=SHR
//SYSOUT DD SYSOUT=*
//PDSFAST DD *
//SYSIN DD *
DELETE MEMBER=X71996
/* |
|
|
| Back to top |
|
|
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015
Posts: 1246
Location: Bamberg, Germany
|
|
|
|
| appu9jain wrote: |
However the same dataset is accessed and DELETE is performed for PDSMAN, but for PDSFAST its throwing
ACF90913 -DATASET CANNOT BE OPENED; AUTHORIZATION IS REQUIRED. |
Nothing will be thrown ever in z/OS. 
Check for an ACF99913 Msg to find the DSN you do not have access to. |
|
| Back to top |
|
|
Pete Wilson
Active Member
Joined: 31 Dec 2009
Posts: 580
Location: London
|
|
|
|
| Talk to your local ACF2 security team. There must be some rule in ACF2 that allows PDSMAN program the access and that needs to be set up for PDSFAST. There's nothing this forum can do to help you with that. |
|
| Back to top |
|
|
appu9jain
New User
Joined: 07 Jun 2021
Posts: 15
Location: India
|
|
|
|
| Pete Wilson wrote: |
| Talk to your local ACF2 security team. There must be some rule in ACF2 that allows PDSMAN program the access and that needs to be set up for PDSFAST. There's nothing this forum can do to help you with that. |
ok got it, I will check with ACF2 team. Thank you. |
|
| Back to top |
|
|
|
|
