links: コピーブランド スーパーコピー 財布 スーパーコピーブランド ブランド コピー 時計 スーパーコピー ブランドコピー激安

ZOS Library (PDS) utilities

CONTENTS:

Bottom

Case1. Create library batch (new PDS and member)

Case2. TSO/ISPF –Create library Online (p.3.2 – DS name)

Case3. Renaming Library

Case4.  Expanding PDS library batch

Case5.  Add new library definition  (KCI88) in DFHSMS (Storage Management    System)

Case6. Compress  library

     6.1.  Compress a library/PDS online

     6.2  Compress a library/PDS batch

     6.3.  Example/compress  when library  in use

 

Partitioned data sets (PDS) are libraries that contain files called members. There are two kinds of partitioned data sets. One can contain source code, macros, cataloged procedures and other data. The other, called a load library, can contain only load modules.

Examples of frequently   occurring cases  with z/os library in Mainframe are described. Sometimes it’s easyer to create a library with batch job,   another time this may be done online using TSO/ISPF. In some cases it is necessary to rename the library while you are in   TSO/ISPF. A  job  sequence is shown how to expand PDS library batch changing  the space units. If new library definition  (with special  prefix KCI88) should  be added in DFHSMS (Storage Management System), some changes are necessary to be done in members scprod01 and sgprod01 of Bc2a.zos140.dfsms.acs library.   After a high volume of activity  with Library (PDS)  there are  unusable gaps or spaces within the PDS  that require a  compress function using IEBCOPY to compress the members and consolidate all the gaps or spaces – some approaches are shown.

          Case1. Create library batch (new PDS and member)

In order to create a member in a PDS you have to write some sort of content. Remember, though, that a PDS contains directory blocks, and you must specify how many directory blocks you want in your allocation:

//CRELIBR  JOB (9999),

//,

// REGION=0K,TIME=1440,

// MSGCLASS=X,MSGLEVEL=(1,1)

//* *************************************************

//PDSMBR EXEC PGM=IEBGENER

//SYSIN DD DUMMY

//SYSPRINT DD SYSOUT=*

//SYSUT2 DD DSN=BCA1MGP.STEF.JCL6(NEWMBR),

//         DISP=(,CATLG,DELETE),UNIT=SYSALLDA,

//         SPACE=(TRK,(1,1,10))

//SYSUT1 DD  *

TEXT1 HERE

TEXT2 HERE

/*

10 – Specifies the number of 256-byte records needed in the directory of a partitioned data set (PDS). Syntax allows for values of 0-16777215. The PDS directory must fit in the first extent of the data set.

–   in TSO/ISPF – p.3.4  –  BCA1MGP.STEF.JCL6 (I – data set information,   S – Short data set information) – information about the created library  BCA1MGP.STEF.JCL6:

Data Set Name . . . . :   BCA1MGP.STEF.JCL6

Management class . . :   MCSTAND        Allocated tracks  . : 1

Storage class  . . . :        SCNORMAL          Allocated extents . : 1

Volume serial . . . :              TSOC03             Maximum dir. blocks : 10

Device type . . . . :         3390

Data class . . . . . :          **None**

Organization  . . . :         PO              Current Utilization

Record format . . . :       80             Used extents  . . . : 1

Block size  . . . . :           80                Used dir. blocks  . : 1

1st extent tracks . :        1               Number of members . : 1

Secondary tracks  . :     1

Data set name type  :     PDS

Creation date . . . : 2011/03/24      Referenced date . . : 2011/03/24

Expiration date . . : ***None***

 

Data set organisation:       

PO

specifies that the old master data set is a sequential data set, and that the updated output is to become a member of a partitioned data set or PDSE.

PS

specifies that the old master data set is a partitioned data set or PDSE, and that a member of that data set is to be converted into a sequential data set.

 

          Case2. TSO/ISPF –Create library Online (p.3.2 – DS name)

TSO/ISPF – P(PDF      – ISPF/Program Development Facility) – 3 ( Utilities     Perform utility functions) –

2 ( Data Set    Allocate, rename, delete, catalog, uncatalog, or display

information of an entire data set   )

–   Data Set Name  . . . : BCA1MGP.STEF.JCL2

– A (Allocate new data set  )

Management class . . . MCSTAND        (Blank for default management class)

Storage class  . . . . SCNORMAL       (Blank for default storage class)

Volume serial . . . . TSOC03         (Blank for system default volume) **

Device type . . . . .                (Generic unit or device address) **

Data class . . . . . .                (Blank for default data class)

Space units . . . . . CYLINDER       (BLKS, TRKS, CYLS, KB, MB, BYTES

or RECORDS)

Average record unit                  (M, K, or U)

Primary quantity  . . 15             (In above units)

Secondary quantity    5              (In above units)

Directory blocks  . . 45              (Zero for sequential data set) *

Record format . . . . FB

Record length . . . . 80

Block size  . . . . .

Data set name type  : PDS             (LIBRARY, HFS, PDS, or blank)  *

(YY/MM/DD, YYYY/MM/DD

Expiration date . . .                 YY.DDD, YYYY.DDD in Julian form

Enter “/” to select option             DDDD for retention period in days

Allocate Multiple Volumes           or blank)

( * Specifying LIBRARY may override zero directory block)

( ** Only one of these fields may be specified)

Result:

Data Set Name . . . . : BCA1MGP.STEF.JCL2

General Data                          Current Allocation

Management class . . : MCSTAND        Allocated cylinders : 15

Storage class  . . . : SCNORMAL       Allocated extents . : 1

Volume serial . . . : TSOC03         Maximum dir. blocks : 45

Device type . . . . : 3390

Data class . . . . . : **None**

Organization  . . . : PO            Current Utilization

Record format . . . : FB             Used cylinders  . . : 1

Record length . . . : 80             Used extents  . . . : 1

Block size  . . . . : 27920          Used dir. blocks  . : 1

1st extent cylinders: 15             Number of members . : 0

Secondary cylinders : 5

Data set name type  : PDS

Creation date . . . : 2011/03/24     Referenced date . . : ***None***

Expiration date . . : ***None***

          Case3. Renaming Library

TSO/ISPF – p.3.4 – BCA1MGP.STEF.JCL – / – 6.  Rename

Data Set Name . . : BCA1MGP.STEF.JCL

Volume Serial . . : TSOC02

Enter new name below:  (The data set will be recataloged.)

ISPF Library:

Project  . .

Group  . . .

Type . . . .

Other Partitioned or Sequential Data Set:

Data Set Name . . . ‘BCA1MGP.STEF.JCLM’

The new library name is – ‘BCA1MGP.STEF.JCLM’

Another approach – P.3.3.2 –  R Rename entire data set – confirm – OK /the same result/

          Case4.  Expanding PDS library batch

This is an example using   IEBCOPY to expand  library batch.

Here’s a job if needed to make a PDS larger. You need to alter the file name from ‘BCA1MGP.STEF.JCL’ to your file, and change the space units in STEP2 to suit your needs.

//STEP01   EXEC PGM=IDCAMS

//SYSPRINT  DD  SYSOUT=*

//SYSUDUMP  DD  SYSOUT=*

//SYSIN     DD  *

ALTER  BCA1MGP.STEF.JCL –

NEWNAME(BCA1MGP.STEF.JCLO)

//*

//   IF (STEP01.RC = 0) THEN

//*

//STEP02    EXEC PGM=IEBCOPY

//SYSPRINT  DD SYSOUT=*

//SYSUDUMP  DD SYSOUT=*

//SYSUT1    DD DISP=SHR,DSN= BCA1MGP.STEF.JCLO

//SYSUT2    DD DSN= BCA1MGP.STEF.JCL,

//          UNIT=3390,DISP=(,CATLG,DELETE),

//          SPACE=(CYL,(400,25,700)),

//          LIKE= BCA1MGP.STEF.JCLO

//SYSIN     DD *

COPY INDD=SYSUT1,OUTDD=SYSUT2

/*

//   ENDIF

 // 

If   you are shure  the bigger file (BCA1MGP.STEF.JCL)  is working ok, then you can delete the old file BCA1MGP.STEF.JCLO to complete  the operation.

          Case5.  Add new library definition  (KCI88) in DFHSMS (Storage Management    System)  

TSO/ISPF  – p.3.4 – Enter the ACS library: Bc2a.zos140.dfsms.acs –  Edit  the following  members  with bellow changes:

–       scprod01 – find the place for changes – f devds_libr_dsn:

FILTLIST DEVDS_LIBR_DSN   INCLUDE(BCI%%.LIB.BASE.**,

BCI%%.LIB.RGN.**)

and perform the  changes  (inser library definition KCI88.**,):

FILTLIST DEVDS_LIBR_DSN   INCLUDE(BCI%%.LIB.BASE.**,

                                                                    KCI88.**,        

BCI%%.LIB.RGN.**)

–       sgprod01 – find the place for changes – f devds_libr_dsn:

FILTLIST DEVDS_LIBR_DSN   INCLUDE(BCI%%.LIB.BASE.**,

BCI%%.LIB.RGN.**)

and perform the  changes  (inser library definition KCI88.**,):

FILTLIST DEVDS_LIBR_DSN   INCLUDE(BCI%%.LIB.BASE.**,

KCI88.**,        

BCI%%.LIB.RGN.**)

–       Finilize the changes in DFHSMS – TSO/ISPF –  Is – 7 (bc2a.zos140.dfsms.scds) – 2 – translate (/ – print ignore) – 3 – validate

–       Activate CDS (Control Data Set) – TSO/ISPF  – Is – 8 – 5 – activate

–       Set CDS name as  ‘active’ – TSO/ISPF – Is – 6 – Set CDS name of all storage groups as  ‘active’ in production status. 

           Case6. Compress  library

As  result of  high volume of activity such as replacing members, adding new member and deleting members there may be unusable gaps or spaces between members stored within the PDS.

               6.1.  Compress a library/PDS online  (Using IBM standard online  function )

                TSO/ISPF  –  p.3.4 – BCA1MGP.STEF.JCL

Z  BCA1MGP.STEF.JCL or with ‘/’ (and chose compress from Data Set List Actions – 12. Compress)  

                 The result viewed with   S  BCA1MGP.STEF.JCL:

Used cylinders – decreased by 1

Used extents –  decreased by 1

If the library is used online (by  CICS or TSO/ISPF-p.3.4)  – it is  not possible to be compressed! PDS/library/ file should not be used at this time by another task – z/os will issue ‘Data set in use’ . But this is still usable for private or system libraries requiring immediate action because of waiting users missing space and after informed them to stop the access for 5 minutes.
Another approach for compress a PDS in batch is  with expanding the PDS at the same time (given in Case 4) where the existing PDS is copied in a larger with a new name and after checking if the bigger file is working OK to delete the old one.

               6.2  Compress a library/PDS batch using IEBCOPY in  job  COMPR

 –       Compres using IEBCOPY when not in use

A compress function using IEBCOPY is provided to compress the members and consolidate all the gaps or spaces into a single area within the PDS. The following mainframe JCL COMPR is used to compress a single PDS.

 

//COMPR    JOB MSGLEVEL=1

//PDSCOMS1 EXEC PGM=IEBCOPY

//SYSPRINT DD  SYSOUT=A

//COMPRESS DD  DISP=SHR,DSN=BCA1MGP.STEF.JCL1

//SYSIN    DD  *

COPY INDD=COMPRESS,OUTDD=COMPRESS

/*

 After execution the following message is printed in  job  output:

IEB153I ALL MEMBERS COMPRESSED – ALL WERE ORIGINALLY COMPRESSED

 –       Compres using IEBCOPY safest (with DISP=OLD)

In the example below, the input file and output file are the same, so this is a batch compress. The compress function recovers space in a PDS, which means moving members around physically in the file. This means the directory entries are changed  to point to the new location.

When DISP=SHR  and any other programs that  have the PDS open (in attempt to write — OR READ — members of the PDS),  may have incorrect locations for member names as a result of the directory being updated and  they may be pointing to the wrong location. DISP=OLD is the solution.

 //COMPR    EXEC PGM=IEBCOPY

//A    DD  DSNAME= BCA1MGP.STEF.JCL1,DISP=OLD

//B    DD  DSNAME= BCA1MGP.STEF.JCL1,DISP=OLD

//SYSIN DD *

COPY OUTDD=B,INDD=A

               6.3.  Example/compress  when library  in use/  –  not working

  Batch compress with disp=old for a library where a member in library  BCA1MGP.STEF.JCL1 was editing by IBMUSER:

In this case the job COMPR doesn’t work, waiting the data set to be available.

During the compress batch it  is not possible any task to have access for editting/processing this PDS (the library).

// COMPR JOB (9999)  – the job was started and the following messages appeared:

09.10.21 JOB00195 IEF863I DSN = BCA1MGP.STEF.JCL1 COMPR
09.10.21 JOB00195 *IEF099I JOB COMPR  WAITING FOR DATA SETS
Then a question is  asked who was using the library:

/D GRS,RES=(*,BCA1MGP.STEF.JCL1)
The answer was:

BC2A IBMUSER 0058 008FFBF8 SHARE OWN  – it was IBMUSER
BC2A COMPR 0025 008F17E0 EXCLUSIVE WAIT
When IBMUSER  is canceled (/c u=IBMUSER) job COMPR  finished OK.

Incoming search terms:

  • pds directory space amount is missing
  • HOW TO CREATE A PDS IN MAINFRAME
  • 1st extent cylinders
  • PDS utility
  • dfhsms
  • ftp pds from mainframe to mainframe
Choose donation amount:

Leave A Reply

Comments

No comments yet, be the first to add one!

Places

 

Choose donation amount:
您要找的资源已被删除、已更名或暂时不可用。 Clef two-factor authentication