Re: Subject : DCB NECESSSARY?

[Edward Gould]

> On Feb 9, 2017, at 8:00 AM, Elardus Engelbrecht 
>  wrote:
> 
> Lizette Koehler wrote:
> 
>> This is documented in the SAMPLIB (I am not at work so I think this is where 
>> it is) for HSM.  ARC member name prefix name.
> 
> Ah, this is it! I found it in ARCSTRST member, part COMPRESS. Thanks Lizette! 
> I never used that little gem when I was a HSM admin.
> 
> And the best is - EXAMINE after a LISTC command, then EXPORT, then IMPORT.
> 
> And my caution about stopping HSM is still valid:
> 
> NOTE:  BEFORE RUNNING THIS JOB, YOU MUST SHUT DOWN ALL  
>   ALL INSTANCES OF DFSMSHSM THAT SHARE THE CDS'S.   
> 
> 
> To Esmie, I see there are NO LRECL and BLKSIZE in this snippet. Seemed you 
> can just let IDCAMS figure it out for you.
> 
> //ALLOCATE EXEC PGM=IEFBR14
> //EXPMCDS DD DSN=?UID.EXPORT.MCDS,DISP=(,CATLG),   
> // UNIT=SYSDA,SPACE=(CYL,(20,2))   
> //EXPBCDS DD DSN=?UID.EXPORT.BCDS,DISP=(,CATLG),   
> // UNIT=SYSDA,SPACE=(CYL,(20,2))   
> //EXPOCDS DD DSN=?UID.EXPORT.OCDS,DISP=(,CATLG),   
> // UNIT=SYSDA,SPACE=(CYL,(20,2))   
> //*
> //IDCAMS EXEC PGM=IDCAMS,REGION=512K   
> //MCDS DD DSN=?UID.MCDS,DISP=OLD   
> //BCDS DD DSN=?UID.BCDS,DISP=OLD   
> //OCDS DD DSN=?UID.OCDS,DISP=OLD   
> //SYSPRINT DD SYSOUT=* 
> //SYSIN DD *   
> LISTCAT ENT(?UID.MCDS ?UID.BCDS ?UID.OCDS) ALL
> EXAMINE NAME(?UID.MCDS) INDEXTEST 
> IF LASTCC = 0 THEN -  
>EXPORT ?UID.MCDS ODS(?UID.EXPORT.MCDS) TEMPORARY   
> IF LASTCC = 0 THEN -  
>IMPORT IDS(?UID.EXPORT.MCDS) ODS(?UID.MCDS.?NEW) - 
>OBJECTS -  
> ———SNIP——

The last time I was doing this was 20 or so years ago. What I added to the jcl 
were AMP=“bufno=10” and a few other parameters this cut a LOT of time off of 
re-orgs Its been a while but I cut down re-org time by more than 50 percent. I 
no long have the JCL so go in and look at the AMP options .

Ed

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Subject : DCB NECESSSARY?

[esmie moo]

Thanks Todd and thanks to all who helped me out.

  From: "Burrell, Todd" <todd_burr...@csx.com>
 To: IBM-MAIN@LISTSERV.UA.EDU 
 Sent: Thursday, February 9, 2017 9:45 AM
 Subject: Re: Subject : DCB NECESSSARY?
   
Here's a sample of the SYSIN for IDCAMS for MODEL - it should allocated the 
FARGD dataset just like the WK dataset:

DEF CL(NAME(FARGD.TEST.X790AC.VS.EBDI019.WRKFILE) VOL(HSM010) -      
  MODEL(WK.X790AC.VS.EBDI019.WRKFILE)) -                              
  CAT(CATALOG.MVSICFM.VBTCTLG)                                        

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of esmie moo
Sent: Thursday, February 09, 2017 9:41 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Subject : DCB NECESSSARY?

Todd,
I checked the doc SC26-7394-04 but I didn't see an example for MODEL (section 
23).  Could you post it if you have one available?

      From: "Burrell, Todd" <todd_burr...@csx.com>
 To: IBM-MAIN@LISTSERV.UA.EDU
 Sent: Thursday, February 9, 2017 8:38 AM
 Subject: Re: Subject : DCB NECESSSARY?
  
Why not use either MODEL (IDCAMS SYSIN) or LIKE (JCL)?  That ensures that the 
new file is allocated with the same specs as the old file unless you override 
something in your JCL (like space).  

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of esmie moo
Sent: Thursday, February 09, 2017 7:42 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Subject : DCB NECESSSARY?

Gentle Readers,
I would like to reorganise the HSM cds dsns - MCDS, BCDS & OCDS - using the 
IDCAMS EXPORT parm.  My question is when I preallocate the dsn to which I want 
to export to do I need to specify the LRECL & BLKSIZE?
Here is a part of the job:
//STEP1     EXEC PGM=IEFBR14                      //EXPMCDS DD 
DSNAME=SYS2.COPY.MCDS,UNIT=SYSALLDA,//        
DISP=(NEW,CATLG),SPACE=(CYL,(3000,150)) //EXPBCDS DD 
DSNAME=SYS2.COPY.BCDS,UNIT=SYSALLDA,//        
DISP=(NEW,CATLG),SPACE=(CYL,(3000,150)) //EXPOCDS DD 
DSNAME=SYS2.COPY.OCDS,UNIT=SYSALLDA,//        
DISP=(NEW,CATLG),SPACE=(CYL,(2000,100)) /*//STEP2    EXEC 
PGM=IDCAMS,COND=(0,NE,ALLOC)//SYSPRINT DD  SYSOUT=*                      
//SYSIN   DD   *                              EXPORT SYS2.HSM.PROD.MCDS 
ODS(SYS2.COPY.MCDS) TEMPORARY EXPORT SYS2.HSM.PROD.BCDS ODS(SYS2.COPY.BCDS) 
TEMPORARY
 EXPORT SYS2.HSM.PROD.OCDS ODS(SYS2.COPY.OCDS) TEMPORARY etc etc etc etc..
Would this work?  My uncertainty is that I remember seeing an example where the 
LRECL & BLKSIZE are specified.
Thanks.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN



This email transmission and any accompanying attachments may contain CSX 
privileged and confidential information intended only for the use of the 
intended addressee. Any dissemination, distribution, copying or action taken in 
reliance on the contents of this email by anyone other than the intended 
recipient is strictly prohibited. If you have received this email in error 
please immediately delete it and notify sender at the above CSX email address. 
Sender and CSX accept no liability for any damage caused directly or indirectly 
by receipt of this email.


--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN


  

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


   

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Subject : DCB NECESSSARY?

[Burrell, Todd]

Here's a sample of the SYSIN for IDCAMS for MODEL - it should allocated the 
FARGD dataset just like the WK dataset:

DEF CL(NAME(FARGD.TEST.X790AC.VS.EBDI019.WRKFILE) VOL(HSM010) -  
  MODEL(WK.X790AC.VS.EBDI019.WRKFILE)) -  
  CAT(CATALOG.MVSICFM.VBTCTLG)

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of esmie moo
Sent: Thursday, February 09, 2017 9:41 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Subject : DCB NECESSSARY?

Todd,
I checked the doc SC26-7394-04 but I didn't see an example for MODEL (section 
23).  Could you post it if you have one available?

  From: "Burrell, Todd" <todd_burr...@csx.com>
 To: IBM-MAIN@LISTSERV.UA.EDU
 Sent: Thursday, February 9, 2017 8:38 AM
 Subject: Re: Subject : DCB NECESSSARY?
   
Why not use either MODEL (IDCAMS SYSIN) or LIKE (JCL)?  That ensures that the 
new file is allocated with the same specs as the old file unless you override 
something in your JCL (like space).  

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of esmie moo
Sent: Thursday, February 09, 2017 7:42 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Subject : DCB NECESSSARY?

Gentle Readers,
I would like to reorganise the HSM cds dsns - MCDS, BCDS & OCDS - using the 
IDCAMS EXPORT parm.  My question is when I preallocate the dsn to which I want 
to export to do I need to specify the LRECL & BLKSIZE?
Here is a part of the job:
//STEP1     EXEC PGM=IEFBR14                      //EXPMCDS DD 
DSNAME=SYS2.COPY.MCDS,UNIT=SYSALLDA,//        
DISP=(NEW,CATLG),SPACE=(CYL,(3000,150)) //EXPBCDS DD 
DSNAME=SYS2.COPY.BCDS,UNIT=SYSALLDA,//        
DISP=(NEW,CATLG),SPACE=(CYL,(3000,150)) //EXPOCDS DD 
DSNAME=SYS2.COPY.OCDS,UNIT=SYSALLDA,//        
DISP=(NEW,CATLG),SPACE=(CYL,(2000,100)) /*//STEP2    EXEC 
PGM=IDCAMS,COND=(0,NE,ALLOC)//SYSPRINT DD  SYSOUT=*                      
//SYSIN   DD   *                              EXPORT SYS2.HSM.PROD.MCDS 
ODS(SYS2.COPY.MCDS) TEMPORARY EXPORT SYS2.HSM.PROD.BCDS ODS(SYS2.COPY.BCDS) 
TEMPORARY
 EXPORT SYS2.HSM.PROD.OCDS ODS(SYS2.COPY.OCDS) TEMPORARY etc etc etc etc..
Would this work?  My uncertainty is that I remember seeing an example where the 
LRECL & BLKSIZE are specified.
Thanks.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN



This email transmission and any accompanying attachments may contain CSX 
privileged and confidential information intended only for the use of the 
intended addressee. Any dissemination, distribution, copying or action taken in 
reliance on the contents of this email by anyone other than the intended 
recipient is strictly prohibited. If you have received this email in error 
please immediately delete it and notify sender at the above CSX email address. 
Sender and CSX accept no liability for any damage caused directly or indirectly 
by receipt of this email.


--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN


   

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Subject : DCB NECESSSARY?

[esmie moo]

Todd,
I checked the doc SC26-7394-04 but I didn't see an example for MODEL (section 
23).  Could you post it if you have one available?

  From: "Burrell, Todd" <todd_burr...@csx.com>
 To: IBM-MAIN@LISTSERV.UA.EDU 
 Sent: Thursday, February 9, 2017 8:38 AM
 Subject: Re: Subject : DCB NECESSSARY?
   
Why not use either MODEL (IDCAMS SYSIN) or LIKE (JCL)?  That ensures that the 
new file is allocated with the same specs as the old file unless you override 
something in your JCL (like space).  

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of esmie moo
Sent: Thursday, February 09, 2017 7:42 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Subject : DCB NECESSSARY?

Gentle Readers,
I would like to reorganise the HSM cds dsns - MCDS, BCDS & OCDS - using the 
IDCAMS EXPORT parm.  My question is when I preallocate the dsn to which I want 
to export to do I need to specify the LRECL & BLKSIZE?
Here is a part of the job:
//STEP1     EXEC PGM=IEFBR14                      //EXPMCDS DD 
DSNAME=SYS2.COPY.MCDS,UNIT=SYSALLDA,//        
DISP=(NEW,CATLG),SPACE=(CYL,(3000,150)) //EXPBCDS DD 
DSNAME=SYS2.COPY.BCDS,UNIT=SYSALLDA,//        
DISP=(NEW,CATLG),SPACE=(CYL,(3000,150)) //EXPOCDS DD 
DSNAME=SYS2.COPY.OCDS,UNIT=SYSALLDA,//        
DISP=(NEW,CATLG),SPACE=(CYL,(2000,100)) /*//STEP2    EXEC 
PGM=IDCAMS,COND=(0,NE,ALLOC)//SYSPRINT DD  SYSOUT=*                      
//SYSIN   DD   *                              EXPORT SYS2.HSM.PROD.MCDS 
ODS(SYS2.COPY.MCDS) TEMPORARY EXPORT SYS2.HSM.PROD.BCDS ODS(SYS2.COPY.BCDS) 
TEMPORARY
 EXPORT SYS2.HSM.PROD.OCDS ODS(SYS2.COPY.OCDS) TEMPORARY etc etc etc etc..
Would this work?  My uncertainty is that I remember seeing an example where the 
LRECL & BLKSIZE are specified.
Thanks.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN



This email transmission and any accompanying attachments may contain CSX 
privileged and confidential information intended only for the use of the 
intended addressee. Any dissemination, distribution, copying or action taken in 
reliance on the contents of this email by anyone other than the intended 
recipient is strictly prohibited. If you have received this email in error 
please immediately delete it and notify sender at the above CSX email address. 
Sender and CSX accept no liability for any damage caused directly or indirectly 
by receipt of this email.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


   

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Subject : DCB NECESSSARY?

[esmie moo]

Elardus,
Thanks for the update.  It is very helpful.  I will try it out.

  From: Elardus Engelbrecht <elardus.engelbre...@sita.co.za>
 To: IBM-MAIN@LISTSERV.UA.EDU 
 Sent: Thursday, February 9, 2017 9:00 AM
 Subject: Re: Subject : DCB NECESSSARY?
   
Lizette Koehler wrote:

>  This is documented in the SAMPLIB (I am not at work so I think this is where 
>it is) for HSM.  ARC member name prefix name.

Ah, this is it! I found it in ARCSTRST member, part COMPRESS. Thanks Lizette! I 
never used that little gem when I was a HSM admin.

And the best is - EXAMINE after a LISTC command, then EXPORT, then IMPORT.

And my caution about stopping HSM is still valid:

NOTE:  BEFORE RUNNING THIS JOB, YOU MUST SHUT DOWN ALL  
      ALL INSTANCES OF DFSMSHSM THAT SHARE THE CDS'S.  


To Esmie, I see there are NO LRECL and BLKSIZE in this snippet. Seemed you can 
just let IDCAMS figure it out for you.

//ALLOCATE EXEC PGM=IEFBR14                                
//EXPMCDS DD DSN=?UID.EXPORT.MCDS,DISP=(,CATLG),          
// UNIT=SYSDA,SPACE=(CYL,(20,2))                          
//EXPBCDS DD DSN=?UID.EXPORT.BCDS,DISP=(,CATLG),          
// UNIT=SYSDA,SPACE=(CYL,(20,2))                          
//EXPOCDS DD DSN=?UID.EXPORT.OCDS,DISP=(,CATLG),          
// UNIT=SYSDA,SPACE=(CYL,(20,2))                          
//*                                                        
//IDCAMS EXEC PGM=IDCAMS,REGION=512K                      
//MCDS DD DSN=?UID.MCDS,DISP=OLD                          
//BCDS DD DSN=?UID.BCDS,DISP=OLD                          
//OCDS DD DSN=?UID.OCDS,DISP=OLD                          
//SYSPRINT DD SYSOUT=*                                    
//SYSIN DD *                                              
 LISTCAT ENT(?UID.MCDS ?UID.BCDS ?UID.OCDS) ALL            
 EXAMINE NAME(?UID.MCDS) INDEXTEST                        
 IF LASTCC = 0 THEN -                                      
        EXPORT ?UID.MCDS ODS(?UID.EXPORT.MCDS) TEMPORARY  
 IF LASTCC = 0 THEN -                                      
        IMPORT IDS(?UID.EXPORT.MCDS) ODS(?UID.MCDS.?NEW) - 
        OBJECTS -                                          

[ ... snip ... ]

Groete / Greetings
Elardus Engelbrecht

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

   

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Subject : DCB NECESSSARY?

[Elardus Engelbrecht]

Lizette Koehler wrote:

>  This is documented in the SAMPLIB (I am not at work so I think this is where 
> it is) for HSM.  ARC member name prefix name.

Ah, this is it! I found it in ARCSTRST member, part COMPRESS. Thanks Lizette! I 
never used that little gem when I was a HSM admin.

And the best is - EXAMINE after a LISTC command, then EXPORT, then IMPORT.

And my caution about stopping HSM is still valid:

NOTE:  BEFORE RUNNING THIS JOB, YOU MUST SHUT DOWN ALL  
   ALL INSTANCES OF DFSMSHSM THAT SHARE THE CDS'S.   


To Esmie, I see there are NO LRECL and BLKSIZE in this snippet. Seemed you can 
just let IDCAMS figure it out for you.

//ALLOCATE EXEC PGM=IEFBR14
//EXPMCDS DD DSN=?UID.EXPORT.MCDS,DISP=(,CATLG),   
// UNIT=SYSDA,SPACE=(CYL,(20,2))   
//EXPBCDS DD DSN=?UID.EXPORT.BCDS,DISP=(,CATLG),   
// UNIT=SYSDA,SPACE=(CYL,(20,2))   
//EXPOCDS DD DSN=?UID.EXPORT.OCDS,DISP=(,CATLG),   
// UNIT=SYSDA,SPACE=(CYL,(20,2))   
//*
//IDCAMS EXEC PGM=IDCAMS,REGION=512K   
//MCDS DD DSN=?UID.MCDS,DISP=OLD   
//BCDS DD DSN=?UID.BCDS,DISP=OLD   
//OCDS DD DSN=?UID.OCDS,DISP=OLD   
//SYSPRINT DD SYSOUT=* 
//SYSIN DD *   
 LISTCAT ENT(?UID.MCDS ?UID.BCDS ?UID.OCDS) ALL
 EXAMINE NAME(?UID.MCDS) INDEXTEST 
 IF LASTCC = 0 THEN -  
EXPORT ?UID.MCDS ODS(?UID.EXPORT.MCDS) TEMPORARY   
 IF LASTCC = 0 THEN -  
IMPORT IDS(?UID.EXPORT.MCDS) ODS(?UID.MCDS.?NEW) - 
OBJECTS -  

[ ... snip ... ]

Groete / Greetings
Elardus Engelbrecht

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Subject : DCB NECESSSARY?

[Lizette Koehler]

I should expand on my answer.

  This is documented in the SAMPLIB (I am not at work so I think this is where 
it is) for HSM.  ARC member name prefix name.

  The Manual JCL examples for reorging the xCDS datasets in the manual also 
show this coding.

  Each upgrade to z/OS I will review these samples and adjust our Reorg JCL to 
use IBM's sample.

  If there is a difference between SAMPLIB and the Manuals I will ask IBM which 
is correct.

  So, I always code what IBM has documented for the JCL and the DEF CLUSTER.


IBM sometimes add fields or adjusts the Definition of the xCDS datasets for HSM 
and I try to keep up with those changes.

Lizette





> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Elardus Engelbrecht
> Sent: Thursday, February 09, 2017 6:42 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Subject : DCB NECESSSARY?
> 
> esmie moo wrote:
> 
> >I would like to reorganise the HSM cds dsns - MCDS, BCDS & OCDS - using
> >the IDCAMS EXPORT parm. My question is when I preallocate the dsn to which I
> want to export to do I need to specify the LRECL & BLKSIZE?
> 
> The manuals are indeed not clear what the LRECL and BLKSIZE should be as
> target for EXPORTing those HSM VSAM datasets.
> 
> ( unless I missed them somewhere, but the samples shown are for general
> KSDS VSAM datasets and some samples are for tapes)
> 
> 
> I'm not sure if EXPORT is the right one, but you can use that. That is if HSM
> is not updating these VSAM datasets while you are EXPORTing them.
> 
> But, I would allocate a new set of MCDS, BCDS and OCDS with new names and same
> attributes. Then I would bring HSM down everywhere, do a IDCAMS REPRO. After
> that just IDCAMS ALTER on both sets so when HSM is running up again, it will
> use the new set and you have a backup MCDS, BCDS and OCDS.
> 
> Above is a tedious PITA of course, but I prefer proper backups with nothing
> which could change those VSAM datasets.
> 
> I agree, I don't have really an answer for attributes of EXPORT targets,
> because I never used EXPORT for those specific HSM datasets. I have used that
> EXPORT for other things like catalogs for example.
> 
> Good luck!
> 
> Groete / Greetings
> Elardus Engelbrecht
> 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Subject : DCB NECESSSARY?

[Elardus Engelbrecht]

esmie moo wrote:

>I would like to reorganise the HSM cds dsns - MCDS, BCDS & OCDS - using the 
>IDCAMS EXPORT parm.  
>My question is when I preallocate the dsn to which I want to export to do I 
>need to specify the LRECL & BLKSIZE?

The manuals are indeed not clear what the LRECL and BLKSIZE should be as target 
for EXPORTing those HSM VSAM datasets.

( unless I missed them somewhere, but the samples shown are for general 
KSDS VSAM datasets and some samples are for tapes)


I'm not sure if EXPORT is the right one, but you can use that. That is if HSM 
is not updating these VSAM datasets while you are EXPORTing them.

But, I would allocate a new set of MCDS, BCDS and OCDS with new names and same 
attributes. Then I would bring HSM down everywhere, do a IDCAMS REPRO. After 
that just IDCAMS ALTER on both sets so when HSM is running up again, it will 
use the new set and you have a backup MCDS, BCDS and OCDS.

Above is a tedious PITA of course, but I prefer proper backups with nothing 
which could change those VSAM datasets.

I agree, I don't have really an answer for attributes of EXPORT targets, 
because I never used EXPORT for those specific HSM datasets. I have used that 
EXPORT for other things like catalogs for example.

Good luck!

Groete / Greetings
Elardus Engelbrecht

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Subject : DCB NECESSSARY?

[Burrell, Todd]

Why not use either MODEL (IDCAMS SYSIN) or LIKE (JCL)?  That ensures that the 
new file is allocated with the same specs as the old file unless you override 
something in your JCL (like space).  

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of esmie moo
Sent: Thursday, February 09, 2017 7:42 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Subject : DCB NECESSSARY?

Gentle Readers,
I would like to reorganise the HSM cds dsns - MCDS, BCDS & OCDS - using the 
IDCAMS EXPORT parm.  My question is when I preallocate the dsn to which I want 
to export to do I need to specify the LRECL & BLKSIZE?
Here is a part of the job:
//STEP1     EXEC PGM=IEFBR14                      //EXPMCDS DD 
DSNAME=SYS2.COPY.MCDS,UNIT=SYSALLDA,//        
DISP=(NEW,CATLG),SPACE=(CYL,(3000,150)) //EXPBCDS DD 
DSNAME=SYS2.COPY.BCDS,UNIT=SYSALLDA,//        
DISP=(NEW,CATLG),SPACE=(CYL,(3000,150)) //EXPOCDS DD 
DSNAME=SYS2.COPY.OCDS,UNIT=SYSALLDA,//        
DISP=(NEW,CATLG),SPACE=(CYL,(2000,100)) /*//STEP2    EXEC 
PGM=IDCAMS,COND=(0,NE,ALLOC)//SYSPRINT DD  SYSOUT=*                      
//SYSIN   DD   *                              EXPORT SYS2.HSM.PROD.MCDS 
ODS(SYS2.COPY.MCDS) TEMPORARY EXPORT SYS2.HSM.PROD.BCDS ODS(SYS2.COPY.BCDS) 
TEMPORARY
 EXPORT SYS2.HSM.PROD.OCDS ODS(SYS2.COPY.OCDS) TEMPORARY etc etc etc etc..
Would this work?  My uncertainty is that I remember seeing an example where the 
LRECL & BLKSIZE are specified.
Thanks.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN



This email transmission and any accompanying attachments may contain CSX 
privileged and confidential information intended only for the use of the 
intended addressee. Any dissemination, distribution, copying or action taken in 
reliance on the contents of this email by anyone other than the intended 
recipient is strictly prohibited. If you have received this email in error 
please immediately delete it and notify sender at the above CSX email address. 
Sender and CSX accept no liability for any damage caused directly or indirectly 
by receipt of this email.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Subject : DCB NECESSSARY?

[Lizette Koehler]

I will use the example IBM supplies as is for my version of DFHSM (z/OS V2.1 
for example). I tend not to change the JCL.  

Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of esmie moo
> Sent: Thursday, February 09, 2017 5:42 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Subject : DCB NECESSSARY?
> 
> Gentle Readers,
> I would like to reorganise the HSM cds dsns - MCDS, BCDS & OCDS - using the
> IDCAMS EXPORT parm.  My question is when I preallocate the dsn to which I want
> to export to do I need to specify the LRECL & BLKSIZE?
> Here is a part of the job:
> //STEP1 EXEC PGM=IEFBR14  //EXPMCDS DD
> DSNAME=SYS2.COPY.MCDS,UNIT=SYSALLDA,//DISP=(NEW,CATLG),SPACE=(CYL,(300
> 0,150)) //EXPBCDS DD
> DSNAME=SYS2.COPY.BCDS,UNIT=SYSALLDA,//DISP=(NEW,CATLG),SPACE=(CYL,(300
> 0,150)) //EXPOCDS DD
> DSNAME=SYS2.COPY.OCDS,UNIT=SYSALLDA,//DISP=(NEW,CATLG),SPACE=(CYL,(200
> 0,100)) /*//STEP2EXEC PGM=IDCAMS,COND=(0,NE,ALLOC)//SYSPRINT
> DD  SYSOUT=*  //SYSIN   DD   *
>   EXPORT SYS2.HSM.PROD.MCDS ODS(SYS2.COPY.MCDS) TEMPORARY EXPORT
> SYS2.HSM.PROD.BCDS ODS(SYS2.COPY.BCDS) TEMPORARY
>  EXPORT SYS2.HSM.PROD.OCDS ODS(SYS2.COPY.OCDS) TEMPORARY etc etc etc etc..
> Would this work?  My uncertainty is that I remember seeing an example where
> the LRECL & BLKSIZE are specified.
> Thanks.
> 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Subject : DCB NECESSSARY?

[esmie moo]

Gentle Readers,
I would like to reorganise the HSM cds dsns - MCDS, BCDS & OCDS - using the 
IDCAMS EXPORT parm.  My question is when I preallocate the dsn to which I want 
to export to do I need to specify the LRECL & BLKSIZE?
Here is a part of the job:
//STEP1     EXEC PGM=IEFBR14                      //EXPMCDS DD 
DSNAME=SYS2.COPY.MCDS,UNIT=SYSALLDA,//        
DISP=(NEW,CATLG),SPACE=(CYL,(3000,150)) //EXPBCDS DD 
DSNAME=SYS2.COPY.BCDS,UNIT=SYSALLDA,//        
DISP=(NEW,CATLG),SPACE=(CYL,(3000,150)) //EXPOCDS DD 
DSNAME=SYS2.COPY.OCDS,UNIT=SYSALLDA,//        
DISP=(NEW,CATLG),SPACE=(CYL,(2000,100)) /*//STEP2    EXEC 
PGM=IDCAMS,COND=(0,NE,ALLOC)//SYSPRINT DD  SYSOUT=*                      
//SYSIN   DD   *                              EXPORT SYS2.HSM.PROD.MCDS 
ODS(SYS2.COPY.MCDS) TEMPORARY EXPORT SYS2.HSM.PROD.BCDS ODS(SYS2.COPY.BCDS) 
TEMPORARY
 EXPORT SYS2.HSM.PROD.OCDS ODS(SYS2.COPY.OCDS) TEMPORARY
etc etc etc etc..
Would this work?  My uncertainty is that I remember seeing an example where the 
LRECL & BLKSIZE are specified.
Thanks.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN