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: DCB NECESSSARY?

[esmie moo]

Elardus,
I found this jcl which is currently being run to reorg. the MCDS in an LPAR. It 
has the DCB specified:
/*                                                       //STEPA     EXEC 
PGM=IEFBR14,COND=(0,NE)                 //MCDS      DD   
DSNAME=SYS2.MBMCDS.T,DISP=(,CATLG),    //          
DCB=(RECFM=VBS,LRECL=2044,BLKSIZE=0),        //          SPACE=(CYL,(550,550))  
     /*                                                       The file is 
reorged using EXPORT/IMPORT.  It is not recreated.
This is what the DEFINE CLUSTER looks like/*                                    
                 //DEFINE  EXEC PGM=IDCAMS,TIME=1439                    
//SYSPRINT DD SYSOUT=*                                 //HSMMCDS  DD 
UNIT=3390,VOL=SER=PROD03,DISP=SHR        //SYSIN    DD *                        
                  DEFINE CLUSTER -                                          
(NAME(SYSP.MCDS.PROD) VOLUME(PROD03) -                      CYLINDER(2500 0) 
FILE(HSMMCDS) -                       RECORDSIZE(435 2040) FREESPACE(0 0) -     
             SPEED BUFFERSPACE(530432) -                            INDEXED 
KEYS(44 0) SHAREOPTIONS(3 3) -                 UNIQUE NOWRITECHECK)  -          
                  DATA  (NAME(SYSP.MCDS.NEW.DATA) CISZ(12288) ) -        INDEX 
(NAME(SYSP.MCDS.NEW.INDEX) CISZ(2048) )     /*                                  
                   //                                                     
  From: Elardus Engelbrecht <elardus.engelbre...@sita.co.za>
 To: IBM-MAIN@LISTSERV.UA.EDU 
 Sent: Thursday, February 9, 2017 11:32 AM
 Subject: Re: DCB NECESSSARY?
   
Paul Gilmartin wrote:

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

>Oooh!  This is tricky.  Some utilities "figure it out for you", others don't, 
>yet others will override whatever you code, sometimes corrupting an existing 
>non-empty PDS.

Indeed. This is tricky just as you said. The Big Blue a$$umed you are using SMS 
with the correct SMS constructs.

In that snippet, if the IMPORT does not work after the EXPORT, then whoever is 
using it, is really SOL.

I initially recommended using IDCAMS to define the backups, then shut every HSM 
down, REPRO, ALTER both sets and start all again. I safely used that method 
without problems at all (and without being called before management!!! ;-D )

Perhaps someone could tell what is the correct LRECL and BLKSIZE after all the 
EXPORT/IMPORT work is completed successfully.


>And the prevailing recommendation is omit BLKSIZE; let SDB operate.  

Yup. Let SDB decides depending on whatever device you have.

Unless you're sitting with IBM's default compiling procs like IGYWCLG (Compile, 
Link, Go), then you had to insert these

DCB=(RECFM=U,LRECL=0,BLKSIZE=6144)  or BLKSIZE=

in //SYSLMOD  DD  DSNAME=&GOSET(), etc ...

... to avoid LKED with RC=12 because SMS has the last say. This is WAD and I'm 
not complaining about this.


>But are there still facilities that require an absurd BLKSIZE, such as <=3120?

I think I have seen some of them in the ancient past. With the small disks 
then, it was a cruel wastage of space.


>... If DCB=(...) is optional for tape, DASD, (terminal, punch, reader, 
>printer, spool, ...), why not likewise for PATH?

Good question. PMR time for the device definition tables [which fill in the 
rest if not coded in JCL or overridden by SMS]?

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?

[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: DCB NECESSSARY?

[Elardus Engelbrecht]

Paul Gilmartin wrote:

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

>Oooh!  This is tricky.  Some utilities "figure it out for you", others don't, 
>yet others will override whatever you code, sometimes corrupting an existing 
>non-empty PDS.

Indeed. This is tricky just as you said. The Big Blue a$$umed you are using SMS 
with the correct SMS constructs.

In that snippet, if the IMPORT does not work after the EXPORT, then whoever is 
using it, is really SOL.

I initially recommended using IDCAMS to define the backups, then shut every HSM 
down, REPRO, ALTER both sets and start all again. I safely used that method 
without problems at all (and without being called before management!!! ;-D )

Perhaps someone could tell what is the correct LRECL and BLKSIZE after all the 
EXPORT/IMPORT work is completed successfully.


>And the prevailing recommendation is omit BLKSIZE; let SDB operate.  

Yup. Let SDB decides depending on whatever device you have.

Unless you're sitting with IBM's default compiling procs like IGYWCLG (Compile, 
Link, Go), then you had to insert these

DCB=(RECFM=U,LRECL=0,BLKSIZE=6144)  or BLKSIZE=

in //SYSLMOD  DD  DSNAME=&GOSET(), etc ...

... to avoid LKED with RC=12 because SMS has the last say. This is WAD and I'm 
not complaining about this.


>But are there still facilities that require an absurd BLKSIZE, such as <=3120?

I think I have seen some of them in the ancient past. With the small disks 
then, it was a cruel wastage of space.


>... If DCB=(...) is optional for tape, DASD, (terminal, punch, reader, 
>printer, spool, ...), why not likewise for PATH?

Good question. PMR time for the device definition tables [which fill in the 
rest if not coded in JCL or overridden by SMS]?

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: DCB NECESSSARY?

[Paul Gilmartin]

On Thu, 9 Feb 2017 08:00:26 -0600, Elardus Engelbrecht wrote:
>
>To Esmie, I see there are NO LRECL and BLKSIZE in this snippet. Seemed you can 
>just let IDCAMS figure it out for you.
> 
Oooh!  This is tricky.  Some utilities "figure it out for you", others don't, 
yet others will
override whatever you code, sometimes corrupting an existing non-empty PDS.
And the prevailing recommendation is omit BLKSIZE; let SDB operate.  But are
there still facilities that require an absurd BLKSIZE, auch as <=3120?

And a few selected attributes are not replicated by LIKE.  And is
DD PATH=...,LIKE=CATALOGUED.DATA.SET.NAME allowed?
Why not?

And allocation will not write an EOF with DISP=NEW unless you code DSORG.
Why not?

Syntax.  Years ago, I instructed a colleague on the form for allocating a UNIX 
file:

//SYSPRINT  DD  FILEDATA=TEXT,PATH=...,LRECL=125,BLKSIZE=12500

"But don't I need":

//SYSPRINT  DD  FILEDATA=TEXT,PATH=...,DCB=(LRECL=125,BLKSIZE=12500)

"No.  Don't do that."  He tried it his way; got JCL error.  (Why!?) 

"I told you so."

I hate JCL!  If DCB=(...) is optional for tape, DASD, (terminal, punch,
reader, printer, spool, ...), why not likewise for PATH?

And some facilities would work better if one were allowed to code
DSORG with PATH.

-- gil

--
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