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

Transfer z/OS VSAM file via Internet

Bottom

CONTENTS

1. VSAM  to z/OS sequential

2. Condense  z/OS sequential converted

3. Transfer MF z/OS sequential condensed file  to PC

4. Zip sequential file  in PC

5. E-mail send/receive  of Zip sequential condensed file

6. Unzip Zip sequential condensed  E-mail received file  in PC

7. Transfer   E-mail received  sequential condensed  and   unzipped file  from   PC to MF z/OS

8. Uncondense E-mail  received condensed   MF z/OS sequential

9. Definition  of   VSAM  REPRO receiving  file similar to the original VSAM  file

10. Convert MF z/OS E-mail  received uncondensed  sequential file to VSAM

          To transfer  z/OS VSAM file (ESDS or KSDS)  from one local  Mainframe to another remote Mainframe a procedure using E-mail medium of Internet is described. Sometimes VSAM files occupy  a large space on Mainframe  and file size should be minimized to be transferred via E- mail. The examples below show VSAM  ESDS  file minimized 20 times and KSDS minimized 33 times before sending and receiving via Internet. The sequence of steps convert VSAM file (ESDS or KSDS) to z/OS sequential file (DSORG=PS), condense the  z/OS sequential file before  download  as binary file to local  PC where the file is Zipped,  attached to e-mail  and sent to another  remote PC user. When received on PC at the remote location, the binary file is unZipped, uploaded  to Mainframe as binary file, uncondensed as z/OS sequential file  and converted to respective VSAM (ESDA or KSDS) file. The REPRO command is used to  retrieve  records  from  a  sequential or VSAM  data   set and  store  them in VSAM format in a key-sequenced, entry-sequenced or a sequential data set. When records are to be stored in key sequence, index entries are created and loaded into an index component as data control intervals and control areas are filled.  Free space is left as indicated in the cluster definition in the catalog. A minimum set of DCB parameters should be included in the respective DD statements with appropriate volume and unit parameters in  the job examples.

          1. VSAM  to z/OS sequential

                    – ESDS – job REPRVS1 – convert VSAM ESDS file to z/OS sequential:

//REPRVS1   JOB   (9999,IPO,10,10),

//         ‘OPER’,

//        ,

//         MSGCLASS=X,

//         MSGLEVEL=(1,1),

//         NOTIFY=,

//         TIME=1440,

//         USER=

//REPRO   EXEC PGM=IDCAMS,REGION=1024K

//IN1      DD  DSN=KCI05.DMNSNDSK.LAIIRET,DISP=SHR

//OUT1     DD  DSN=KCI05.DMNSNDSK.LAIIRET.UNLOAD,DISP=(NEW,CATLG),

// RECFM=VB,LRECL=1004,DSORG=PS,SPACE=(TRK,(180,10)),UNIT=SYSDA

//SYSPRINT DD  SYSOUT=X

//SYSIN    DD  *

REPRO IFILE(IN1) OFILE(OUT1) REUSE

/*

From TSO/ISPF – p.3.4 – input file – KCI05.DMNSNDSK.LAIIRET:

                                                                       Tracks    % Used    XT   Device

KCI05.DMNSNDSK.LAIIRET

KCI05.DMNSNDSK.LAIIRET.DATA                        30              ?     1   3390

(30  trkX50000 bytes=1500000 = 1500 KB = 1.5 MB)

 

Management class . . : **None**        Allocated cylinders : 2

Storage class  . . . : **None**              Allocated extents . : 1

Volume serial . . . : DEV290 +

Device type . . . . : 3390

Data class . . . . . : **None**       Current Utilization

Organization  . . . : VS              Used cylinders  . . : ?

Record format . . . : ?               Used extents  . . . :  ?

Record length . . . : ?

Block size  . . . . :    ?

1st extent cylinders: 2

Secondary cylinders : 0

 

From TSO/ISPF – p.3.4 – output file –  KCI05.DMNSNDSK.LAIIRET.UNLOAD:

                                                                     Tracks % Used XT Device

KCI05.DMNSNDSK.LAIIRET.UNLOAD               180        8       1    3390

(14.4  tracks  2 times minimized  14 trkX50000 bytes=720000 =720 KB)

Management class . . : MCSTAND         Allocated tracks  . : 180

Storage class  . . . : SCFAST                  Allocated extents . : 1

Volume serial . . . : DEV278

Device type . . . . : 3390

Data class . . . . . : **None**       Current Utilization

Organization  . . . : PS              Used tracks . . . . : 15

Record format . . . : VB              Used extents  . . . : 1

Record length . . . : 1004

Block size  . . . . :    27998

1st extent tracks . : 180

Secondary tracks  . : 10

 

                    – KSDS – job REPRVS2 – convert VSAM KSDS file to z/OS sequential:

//REPRVS2  JOB   (9999,IPO,10,10),

//         ‘CORNERSTONE’,

//        ,

//         MSGCLASS=X,

//         MSGLEVEL=(1,1),

//         NOTIFY=,

//         TIME=1440,

//         USER=

//REPRO   EXEC PGM=IDCAMS,REGION=1024K

//IN1      DD  DSN=KCI08.D0797Z.DAKMSTR,DISP=SHR

//OUT1     DD  DSN=KCI08.D0797Z.DAKMSTR.UNLOAD,DISP=(NEW,CATLG),

// RECFM=VB,LRECL=3107,DSORG=PS,SPACE=(TRK,(3000,500)),UNIT=SYSDA

//SYSPRINT DD  SYSOUT=X

//SYSIN    DD  *

REPRO IFILE(IN1) OFILE(OUT1) REUSE

/*

From TSO/ISPF – p.3.4 – input file – KCI08.D0797Z.DAKMSTR:

 

KCI08.D0797Z.DAKMSTR                                                     *VSAM*

           

 

                                                                      Tracks  %Used    XT   Device

KCI08.D0797Z.DAKMSTR.DATA                      4515    ?              3   3390

KCI08.D0797Z.DAKMSTR.INDEX                       17      ?              1   3390

(4515  trkX50000 bytes=225750000 = 225750 KB= 225.75  MB)

                                                (17  trkX50000 bytes=850000 = 850 KB)

                                                                Total = 181280 KB = 226.6 MB

Data Set Name . . . . : KCI08.D0797Z.DAKMSTR.DATA

Management class . . : **None**        Allocated cylinders : 301

Storage class  . . . : **None**             Allocated extents . : 3

Volume serial . . . : ARH124 +

Device type . . . . : 3390

Data class . . . . . : **None**       Current Utilization

Organization  . . . : VS              Used cylinders  . . : ?

Record format . . . : ?                Used extents  . . . : ?

Record length . . . : ?

Block size  . . . . :    ?

1st extent cylinders: 267

Secondary cylinders : 17

 

Data Set Name . . . . : KCI08.D0797Z.DAKMSTR.INDEX

Management class . . : **None**        Allocated tracks  . : 17

Storage class  . . . : **None**              Allocated extents . : 1

Volume serial . . . : ARH124 +

Device type . . . . : 3390

Data class . . . . . : **None**       Current Utilization

Organization  . . . : VS              Used tracks . . . . : ?

Record format . . . : ?               Used extents  . . . : ?

Record length . . . : ?

Block size  . . . . :    ?

1st extent tracks . : 17

Secondary tracks  . : 2

 

From TSO/ISPF – p.3.4 – output file – KCI08.D0797Z.DAKMSTR.UNLOAD:

 

                                                                       Tracks    %Used    XT   Device

KCI08.D0797Z.DAKMSTR.UNLOAD                      3000          66       1    3390

(1980  tracks  more than 2 times minimized  1980 trkX50000 bytes=99000000 = 99000 KB= 99 MB)

Management class . . : MCMIG           Allocated tracks  . : 3,000

Storage class  . . . : SCFAST               Allocated extents . : 1

Volume serial . . . : ARH014

Device type . . . . : 3390

Data class . . . . . : **None**       Current Utilization

Organization  . . . :  PS              Used tracks . . . . : 2,002

Record format . . . : VB              Used extents  . . . : 1

Record length . . . : 3107

Block size  . . . . :   27998

1st extent tracks . : 3000

Secondary tracks   . : 500

          2. Condense  z/OS sequential converted

 

                    – ESDS – job TRSMAIN1ESDS sequential converted to  z/OS sequential condensed

//TRSMAIN1    JOB MSGLEVEL=(1,1),MSGCLASS=X,TIME=1440

//***

//*  PTFLCG.TERSE409.LOADLIB

//STEPNAME  EXEC PGM=TRSMAIN,PARM=’SPACK’

//STEPLIB   DD DISP=SHR,DSN=PTFLCG.TERSE409.LOADLIB

//SYSPRINT  DD SYSOUT=*,DCB=(LRECL=133,BLKSIZE=12901,RECFM=FBA)

//INFILE    DD DISP=OLD,DSN=KCI05.DMNSNDSK.LAIIRET.UNLOAD

//OUTFILE  DD DCB=(KCI05.DMNSNDSK.LAIIRET.UNLOAD,RECFM=FB,LRECL=1024),

//          DSN=KCI05.DMNSNDSK.LAIIRET.CONDNS,

//             SPACE=(TRK,(250,250)),DISP=(NEW,CATLG,DELETE)

/*

 

 

From TSO/ISPF – p.3.4 – input file – KCI05.DMNSNDSK.LAIIRET.UNLOAD:

                                                                  Tracks    %Used    XT   Device

 

KCI05.DMNSNDSK.LAIIRET.UNLOAD               180     8            1    3390

(14,4 tracks X 50000 = 720  KB)

From TSO/ISPF – p.3.4 – output file – KCI05.DMNSNDSK.LAIIRET.CONDNS:

                                                                            Tracks    %Used    XT   Device

 

KCI05.DMNSNDSK.LAIIRET.CONDNS                  250           1              1   3390

                 (2.5 tracks – 7 times minimized – used  2 trkX50000 bytes=100000 = 100 KB)

Management class . . : MCSTAND         Allocated tracks  . : 250

Storage class  . . . : SCFAST                 Allocated extents . : 1

Volume serial . . . : DEV222

Device type . . . . : 3390

Data class . . . . . : **None**       Current Utilization

Organization  . . . : PS               Used tracks . . . . : 2

Record format . . . : FB              Used extents  . . . : 1

Record length . . . : 1024

Block size  . . . . :     6144

1st extent tracks . :  250

Secondary tracks  . : 250

 

                    – KSDS – job TRSMAIN2

//TRSMAIN2    JOB MSGLEVEL=(1,1),MSGCLASS=X,TIME=1440

//***

//*  PTFLCG.TERSE409.LOADLIB

//STEPNAME  EXEC PGM=TRSMAIN,PARM=’SPACK’

//STEPLIB   DD DISP=SHR,DSN=PTFLCG.TERSE409.LOADLIB

//SYSPRINT  DD SYSOUT=*,DCB=(LRECL=133,BLKSIZE=12901,RECFM=FBA)

//INFILE    DD DISP=OLD,DSN=KCI08.D0797Z.DAKMSTR.UNLOAD

//OUTFILE  DD DCB=(KCI08.D0797Z.DAKMSTR.UNLOAD,RECFM=FB,LRECL=1024),

//          DSN=KCI08.D0797Z.DAKMSTR.CONDNS,

//             SPACE=(TRK,(600,200)),DISP=(NEW,CATLG,DELETE)

/*

 

From TSO/ISPF – p.3.4 – input file – KCI08.D0797Z.DAKMSTR.UNLOAD:

 

                                                                                                             Tracks    %Used    XT   Device

KCI08.D0797Z.DAKMSTR.UNLOAD                      3000          66            1    3390

(1980 trkX50000 bytes=99000000 = 99000 KB= 99 MB)

 

From TSO/ISPF – p.3.4 – output file – KCI08.D0797Z.DAKMSTR.CONDNS:

 

                                                                                                                          Tracks    %Used    XT   Device

KCI08.D0797Z.DAKMSTR. CONDNS                                    600          25            1      3390                                               (150  tracks – 13  times minimized  – 150 trkX50000 bytes=7500000  = 7500 KB = 7.5 MB)

Management class . . : MCMIG           Allocated tracks  . : 600

Storage class  . . . : SCFAST               Allocated extents . : 1

Volume serial . . . : ARH285

Device type . . . . : 3390

Data class . . . . . : **None**       Current Utilization

Organization  . . . : PS              Used tracks . . . . : 151

Record format . . . : FB              Used extents  . . . : 1

Record length . . . : 1024

Block size  . . . . :     6144

1st extent tracks . : 600

Secondary tracks  . : 200

 

          3. Transfer MF/ z/OS sequential condensed file  to PC

 

                    – ESDSKCI05.DMNSNDSK.LAIIRET.CONDNS  to d:\LAIIRET.CONDNS

From TSO/ISPF – p.6 – Actions – Receive File From Host …

Host file: KCI05.DMNSNDSK.LAIIRET.CONDNS

PC File:  d:\LAIIRET.CONDNS

            Transfer Type: binary

Options: MVS/TSO – Transfer Type: binary – Record Format: Fixed – Logical Record Length: 1024

             Binary condensed file d:\LAIIRET.CONDNS  is received on PC: (75 KB) 

 

                    – KSDSKCI08.D0797Z.DAKMSTR.CONDNS  to d:\ DAKMSTR.CONDNS

From TSO/ISPF – p.6 – Actions – Receive File From Host …

Host file: KCI08.D0797Z.DAKMSTR.CONDNS

PC File:  d:\ DAKMSTR.CONDNS

            Transfer Type: binary

Options: MVS/TSO – Transfer Type: binary – Record Format: Fixed – Logical Record Length: 1024

             Binary condensed file d:\ DAKMSTR.CONDNS  is received on PC: (7215 KB

 

          4. Zip sequential file  in PC

 

                    – ESDS – binary condensed file compressed  to Zip

For more PC compressing ZIP may be usedd:\LAIIRET.CONDNS (75 KB)  to  d:\ LAIIRET.zip  (74 KB). ESDS VSAM is minimized 20 times (1500 KB : 74 KB = 20.2).

 

                    – KSDS – binary condensed file compressed  to Zip

For more PC compressing ZIP may be usedd:\ DAKMSTR.CONDNS (7215 KB)  to 

d:\ DAKMSTR.zip  (6912 KB). KSDSVSAM is minimized 33 times (226.6 MB : 6.912 MB=32.78).

 

          5. E-mail send/receive  of Zip sequential condensed file

 

                    – ESDS – send d:\ LAIIRET.zip, receive d:\ LAIIRET3.zip

 

                    – KSDS – send d:\DAKMSTR.zip, receive d: \ DAKMSTR3.zip

 

          6. Unzip Zip sequential condensed  E- mail received file  in PC

 

                    – ESDS – d:\ LAIIRET3.zip (74 KB)  to   d:\LAIIRET3\LAIIRET.CONDNS (74 to 75 KB)

 

                    – KSDS – d:\ DAKMSTR3.zip to  d:\ DAKMSTR3\dakmstr.condns (6912  to 7215 KB )

 

          7. Transfer   E-mail received  sequential condensed  and   unzipped file  from   PC to MF  z/OS

 

                    – ESDS – d:\ LAIIRET3\LAIIRET.CONDNS to KCI05.DMNSNDSK.LAIIRET.CONDNR2

TSO/ISPF – p.6 – Actions – Send File To Host …

Host file: KCI05.DMNSNDSK.LAIIRET.CONDNR2

PC File:  d:\ LAIIRET3\LAIIRET.CONDNS

            Transfer Type: binary

Options: MVS/TSO – Transfer Type: binary – Record Format: Fixed – Logical Record Length: 1024

Allocation Units: Tracks Allocation amounts: Primary 2 Secondary 1

             Binary unZipped  condensed file d: :\ LAIIRET3\LAIIRET.CONDNS (75 KB) from PC  is sent to  MF as z/OS sequential condensed e-mail received  file  KCI05.DMNSNDSK.LAIIRET.CONDNR2:  

  

 

                                                                                                         Tracks    %Used    XT   Device

KCI05.DMNSNDSK.LAIIRET.CONDNR2                    2        100          2     3390

(2 trkX50000 bytes=100000 = 100 KB)

Management class . . : MCSTAND         Allocated blocks  . : 16

Storage class  . . . : SCFAST                  Allocated extents . : 2

Volume serial . . . : DEV279

Device type . . . . : 3390

Data class . . . . . : **None**       Current Utilization

Organization  . . . : PS              Used blocks . . . . : 13

Record format . . . : FB              Used extents  . . . : 2

Record length . . . : 1024

Block size  . . . . :     6144

1st extent blocks . : 8

Secondary blocks  . : 24

 

                    – KSDS – d:\ DAKMSTR3\dakmstr.condns to KCI08.D0797Z.DAKMSTR.CONDNR3

From TSO/ISPF – p.6 – Actions – Send File To Host …

Host file: KCI08.D0797Z.DAKMSTR.CONDNR3

PC File:  d:\ DAKMSTR3\dakmstr.condns

            Transfer Type: binary

Options: MVS/TSO – Transfer Type: binary – Record Format: Fixed – Logical Record Length: 1024

Allocation Units: Tracks Allocation amounts: Primary 150 Secondary 15

             Binary unZipped  condensed file d:\ DAKMSTR3\dakmstr.condns (7215 KB) from PC  is sent to  MF as z/OS sequential condensed e-mail received  file KCI08.D0797Z.DAKMSTR.CONDNR3: 

      

 

                                                                                                                  Tracks    %Used    XT   Device

KCI08.D0797Z.DAKMSTR.CONDNR3                                  165          91            2     3390

(150.15  trkX50000 bytes=7507500 = 7507.5 KB = 7.5075 MB)

Management class . . : MCMIG           Allocated tracks  . : 165

Storage class  . . . : SCFAST               Allocated extents . : 2

Volume serial . . . : ARH209

Device type . . . . : 3390

Data class . . . . . : **None**       Current Utilization

Organization  . . . : PS               Used tracks . . . . : 151

Record format . . . : FB              Used extents  . . . : 2

Record length . . . : 1024

Block size  . . . . :     6144

1st extent tracks . : 150

Secondary tracks  . : 15

 

          8. Uncondense E- mail  received condensed   MF z/OS  sequential

 

                    – ESDS –  job UNTRSMJ1 – uncondensed ESDS E-mail  received condensed   to  z/OS sequential converted:

//UNTRSMJ1    JOB MSGLEVEL=(1,1),MSGCLASS=X,TIME=1440

//***

//*  PTFLCG.TERSE409.LOADLIB

//STEPNAME  EXEC PGM=TRSMAIN,PARM=’UNPACK’

//STEPLIB   DD DISP=SHR,DSN=PTFLCG.TERSE409.LOADLIB

//SYSPRINT  DD SYSOUT=*

//INFILE    DD DISP=SHR,DSN=KCI05.DMNSNDSK.LAIIRET.CONDNR2

//OUTFILE   DD DSN=KCI05.DMNSNDSK.LAIIRET.UCONDR2,UNIT=SYSDA,

// DCB=(KCI05.DMNSNDSK.LAIIRET.UNLOAD2,RECFM=VB,LRECL=32756,DSORG=PS,

//     BLKSIZE=32760),

//             SPACE=(CYL,(5,5)),DISP=(NEW,CATLG)

/*

 

From TSO/ISPF – p.3.4 – input file – KCI05.DMNSNDSK.LAIIRET.CONDNR2:

 

                                                                                                           Tracks    %Used    XT   Device

KCI05.DMNSNDSK.LAIIRET.CONDNR2                    2        100          2     3390

(2 trk  X 50000 = 100000 = 100 KB)

 

From TSO/ISPF – p.3.4 – output file – KCI05.DMNSNDSK.LAIIRET.UCONDR2:

 

                                                                                                            Tracks    %Used    XT   Device

KCI05.DMNSNDSK.LAIIRET.UCONDR2                   75        33            1      3390

(24.75 trkX50000 bytes=1237500 = 1237.5 KB –  maximized 12,375 times – more than 7 times VS- seq)

Management class . . : MCSTAND         Allocated cylinders : 5

Storage class  . . . : SCFAST                  Allocated extents . : 1

Volume serial . . . : DEV244

Device type . . . . : 3390

Data class . . . . . : **None**       Current Utilization

Organization  . . . : PS              Used cylinders  . . : 2

Record format . . . : VB              Used extents  . . . : 1

Record length . . . : 32756

Block size  . . . . :    32760

1st extent cylinders: 5

Secondary cylinders :

 

                    – KSDSJob UNTRSMJ2 – uncondensed KSDS E-mail  received condensed   to  z/OS sequential converted:

//UNTRSMJ2    JOB MSGLEVEL=(1,1),MSGCLASS=X,TIME=1440

//***

//*  PTFLCG.TERSE409.LOADLIB

//STEPNAME  EXEC PGM=TRSMAIN,PARM=’UNPACK’

//STEPLIB   DD DISP=SHR,DSN=PTFLCG.TERSE409.LOADLIB

//SYSPRINT  DD SYSOUT=*

//INFILE    DD DISP=SHR,DSN=KCI08.D0797Z.DAKMSTR. CONDNR3

//OUTFILE   DD DSN=KCI08.D0797Z.DAKMSTR. UCONDR3,UNIT=SYSDA,

// DCB=(KCI08.D0797Z.DAKMSTR,RECFM=VB,LRECL=32756,DSORG=PS,

//     BLKSIZE=32760),

//             SPACE=(CYL,(260,10)),DISP=(NEW,CATLG)

/*

 

From TSO/ISPF – p.3.4 – input file – KCI08.D0797Z.DAKMSTR.CONDNR3:

 

                                                                                                                  Tracks    %Used    XT   Device

KCI08.D0797Z.DAKMSTR. CONDNR3                              165       91            2     3390

(150.15  trkX50000 bytes=7507500 = 7507.5 KB = 7.5075 MB)

 

From TSO/ISPF – p.3.4 – output file – KCI08.D0797Z.DAKMSTR.UCONDR3:

 

                                                                                                                         Tracks    %Used    XT   Device

KCI08.D0797Z.DAKMSTR.UCONDR3                                  3900         90           1     3390

(3510  trk  X 50000 = 175500000 =175500  KB =175.5MB –  maximized 23,376 times – more than 13  times VS-seq)

 

Management class . . : MCMIG           Allocated cylinders : 260

Storage class  . . . : SCFAST              Allocated extents . : 1

Volume serial . . . : ARH192

Device type . . . . : 3390

Data class . . . . . : **None**       Current Utilization

Organization  . . . : PS              Used cylinders  . . : 237

Record format . . . : VB              Used extents  . . . : 1

Record length . . . : 32756

Block size  . . . . :    32760

1st extent cylinders: 260

Secondary >cylinders : 10

 

 

           9. Definition  of   VSAM  REPRO receiving  file similar to the original VSAM  file

 

                    – ESDS – Job DEFLAI5 – definition  of  ESDS REPRO receiving  file –  KCI05.DMNSNDSK.LAIRET2:

//DEFLAI5   JOB (9999),

//        ,

//         REGION=0M,

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

//*

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

//* DEFINE SINGLE ESDS FILE

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

//JOBLIB DD   DSN=KCI01.LIB.PROD.LOAD,DISP=SHR

//       DD   DSN=KCI00.LIB.PROD.LOAD,DISP=SHR

//*

//PAUSX    EXEC PGM=CSDPAUSE

//SYSOUT   DD   SYSOUT=*

//SYSPRINT DD   SYSOUT=*

//SYSUDUMP DD   SYSOUT=*

//FSCARDI  DD   *

D

D  WARNING: THIS JOB WILL DELETE AND RE-DEFINE

D  FILE LAIRET2 .   MAKE SURE THIS IS WHAT YOU

D  WANT TO DO BEFORE CONTINUING.  IF THE FILE

D  CONTAINS REQUIRED DATA, MAKE SURE YOU HAVE

D  A BACKUP BEFORE CONTINUING.

D

D  PLEASE ACKNOWLEDGE PREVIOUS MESSAGE

P

/*

//*

//ESDSCR   EXEC PGM=IDCAMS

//SYSOUT   DD   SYSOUT=*

//SYSPRINT DD   SYSOUT=*

//SYSUDUMP DD   SYSOUT=*

//SYSIN    DD   *

DELETE (KCI05.DMNSNDSK.LAIRET2) CLUSTER PURGE

SET MAXCC=0

DEFINE CLUSTER (NAME         (KCI05.DMNSNDSK.LAIRET2) –

NONINDEXED                             –

                 SHAREOPTIONS (2 3)                     –

NONSPANNED                             –

REUSE                                  –

DATACLASS(DCEXT)                       –

NOWRITECHECK                           –

NOERASE                                –

SPEED)                                 –

DATA    (NAME         (KCI05.DMNSNDSK.LAIRET2.DATA) –

RECORDSIZE   (200 1000)              –

CISZ         (4096)                   –

RECORDS      (2200,500)

VOLUMES (DEV290 * * * * * * * * * * * * * * * *) –

UNORDERED)

IF MAXCC NE 0 THEN SET MAXCC=16

/*

 

 

From TSO/ISPF – p.3.4 –

Tracks    %Used    XT   Device

KCI05.DMNSNDSK.LAIRET2.DATA                       18          ?               3     3390

(18 trk  X 50000 = 900000 = 920   KB)

Management class . . : **None**        Allocated tracks  . : 18

Storage class  . . . : **None**             Allocated extents . : 3

Volume serial . . . : DEV284 +

Device type . . . . : 3390

Data class . . . . . : **None**       Current Utilization

Organization  . . . : VS              Used tracks . . . . : ?

Record format . . . : ?               Used extents  . . . : ?

Record length . . . : ?

Block size  . . . . :    ?

1st extent tracks . : 12

Secondary tracks  . : 3

 

File  KCI05.DMNSNDSK.LAIRET2 is   similar of  the original  larger  ESDS  file – KCI05.DMNSNDSK.LAIIRET       –  with the following parameters:

CISIZE————–4096

REC-TOTAL———–2241

AVGLRECL————-200

MAXLRECL————1000

Tracks    %Used    XT   Device

KCI05.DMNSNDSK.LAIIRET

KCI05.DMNSNDSK.LAIIRET.DATA                        30              ?               1   3390

(30  trkX40000 bytes=1200000 = 1200 KB = 1.2 MB)

 

Management class . . : **None**        Allocated cylinders : 2

Storage class  . . . : **None**              Allocated extents . : 1

Volume serial . . . : DEV290 +

Device type . . . . : 3390

Data class . . . . . : **None**       Current Utilization

Organization  . . . : VS              Used cylinders  . . : ?

Record format . . . : ?               Used extents  . . . :  ?

Record length . . . : ?

Block size  . . . . :    ?

1st extent cylinders: 2

Secondary cylinders : 0

 

                    – KSDS – Job DEFKSDSR – definition  of  KSDS REPRO receiving  file –  KCI08.D0797.DAKMSTR:

//DEFKSDSR JOB   (9999,IPO,10,10),

//         ‘OPER’,

//        ,

//         MSGCLASS=X,

//         MSGLEVEL=(1,1),

//         NOTIFY=,

//         TIME=1440,

//         USER=

//*

//*

//*

//*      THIS JOB WILL DEFINE  A KSDS FILE

//*

//DVSANF    EXEC PGM=IDCAMS

//SYSPRINT  DD   SYSOUT=*

//SYSIN     DD   *

DEL KCI08.D0797.DAKMSTR

DEF CLUSTER( –

NAME(KCI08.D0797.DAKMSTR)-

VOLUMES( –

* * * *  –

) –

BUFFERSPACE(26624) –

FREESPACE(30 20) –

KEYS(11  0) –

RECORDSIZE(2427  3103)-

SHAREOPTIONS(2,3) –

REUSE –

SPEED –

) –

DATA( –

NAME(KCI08.D0797.DAKMSTR.DATA) –

CONTROLINTERVALSIZE(12288) –

CYL(267 17) –

)-

INDEX( –

NAME(KCI08.D0797.DAKMSTR.INDEX) –

CONTROLINTERVALSIZE(2048) –

TRACKS (17 2) –

)

From TSO/ISPF – p.3.4 –

                                                                                               Tracks    %Used    XT   Device

KCI08.D0797.DAKMSTR.DATA                              4515        ?               3    3390

KCI08.D0797Z.DAKMSTR.INDEX                              17         ?                1   3390

(4515  trkX50000 bytes=225750000 = 225750 KB= 225.75  MB)

                                                (17  trkX50000 bytes=850000 = 850 KB)

                                                                Total = 181280 KB = 226.6 MB

 

Data Set Name . . . . : KCI08.D0797.DAKMSTR.DATA

General Data                           Current Allocation

Management class . . : **None**        Allocated cylinders : 301

Storage class  . . . : **None**              Allocated extents . : 3

Volume serial . . . : ARH005 +

Device type . . . . : 3390

Data class . . . . . : **None**       Current Utilization

Organization  . . . : VS              Used cylinders  . . : ?

Record format . . . : ?               Used extents  . . . : ?

Record length . . . : ?

Block size  . . . . :    ?

1st extent cylinders: 267

Secondary cylinders : 17

 

Data Set Name . . . . : KCI08.D0797.DAKMSTR.INDEX

General Data                           Current Allocation

Management class . . : **None**        Allocated tracks  . : 17

Storage class  . . . : **None**             Allocated extents . : 1

Volume serial . . . : ARH005 +

Device type . . . . : 3390

Data class . . . . . : **None**       Current Utilization

Organization  . . . : VS              Used tracks . . . . : ?

Record format . . . : ?               Used extents  . . . : ?

Record length . . . : ?

Block size  . . . . :    ?

1st extent tracks . : 17

Secondary tracks  . : 2

 

File  KCI08.D0797.DAKMSTR is   similar of  the original    KSDS  file – KCI08.D0797Z.DAKMSTR       –  with the following parameters:

DATA:

KEYLEN—————-11

CISIZE————-12288

BUFSPACE—— —-26624

REC-TOTAL———– 42851

AVGLRECL————- 2427

MAXLRECL———— 3103

FREESPACE-%CI———30

FREESPACE-%CA———20

SPACE-TYPE——CYLINDER

SPACE-PRI————267

SPACE-SEC————-17

 

INDEX:

KEYLEN—————-11

CISIZE————- 2048

BUFSPACE—— —-0

REC-TOTAL————301

AVGLRECL————- 0

MAXLRECL———— 2041

SPACE-TYPE———TRACK

SPACE-PRI————-17

SPACE-SEC————–2

 

Data Set Name . . . . : KCI08.D0797Z.DAKMSTR.DATA

Management class . . : **None**        Allocated cylinders : 301

Storage class  . . . : **None**             Allocated extents . : 3

Volume serial . . . : ARH124 +

Device type . . . . : 3390

Data class . . . . . : **None**       Current Utilization

Organization  . . . : VS              Used cylinders  . . : ?

Record format . . . : ?                Used extents  . . . : ?

Record length . . . : ?

Block size  . . . . :    ?

1st extent cylinders: 267

Secondary cylinders : 17

 

Data Set Name . . . . : KCI08.D0797Z.DAKMSTR.INDEX

Management class . . : **None**        Allocated tracks  . : 17

Storage class  . . . : **None**              Allocated extents . : 1

Volume serial . . . : ARH124 +

Device type . . . . : 3390

Data class . . . . . : **None**       Current Utilization

Organization  . . . : VS              Used tracks . . . . : ?

Record format . . . : ?               Used extents  . . . : ?

Record length . . . : ?

Block size  . . . . :    ?

1st extent tracks . : 17

Secondary >tracks   . : 2

 

          10. Convert MF/Z/OS E-mail  received uncondensed  sequential file to VSAM

 

                    – ESDS – Job REPRSV1 – convert E-mail  received uncondensed  sequential file  KCI05.DMNSNDSK.LAIIRET.UCONDR2  to previously defined  VSAM ESDS receiving  file KCI05.DMNSNDSK.LAIRET2:

//REPRSV1   JOB   (9999,IPO,10,10),

//         ‘OPER’,

//        ,

//         MSGCLASS=X,

//         MSGLEVEL=(1,1),

//         NOTIFY=,

//         TIME=1440,

//         USER=

//REPRO   EXEC PGM=IDCAMS,REGION=1024K

//OUT1     DD  DSN=KCI05.DMNSNDSK.LAIRET2,DISP=OLD

//IN1     DD  DSN=KCI05.DMNSNDSK.LAIIRET.UCONDR2,DISP=OLD

//SYSPRINT DD  SYSOUT=X

//SYSIN    DD  *

REPRO IFILE(IN1) OFILE(OUT1) REUSE

/*

From TSO/ISPF – p.3.4 – input file – KCI05.DMNSNDSK.LAIIRET.UCONDR2:

 

                                                                                              Tracks    %Used    XT   Device

KCI05.DMNSNDSK.LAIIRET.UCONDR2                   75          33           1     3390

 (24.75 trkX50000 bytes=1237500 = 1237.5 KB –  maximized 12,375 times – more than 7 times VS- seq)

From TSO/ISPF – p.3.4 – output file – KCI05.DMNSNDSK.LAIRET2:

 

                                                                                                        Tracks    %Used    XT   Device

KCI05.DMNSNDSK.LAIRET2.DATA                      18             ?             3      3390

(18 trk  X 50000 = 900000 = 920   KB –   less than 1500 KB of the original ESDS file)

                    – KSDS – Job REPRSV2 – convert E-mail  received uncondensed  sequential file  KCI08.D0797Z.DAKMSTR.UCONDR3  to  previously defined  VSAM KSDS receiving  file KCI08.D0797.DAKMSTR:

//REPRSV2  JOB   (9999,IPO,10,10),                            

//         ‘OPER’,                                     

//        ,                                           

//         MSGCLASS=X,                                        

//         MSGLEVEL=(1,1),                                    

//         NOTIFY=,                                           

//         TIME=1440,                                         

//         USER=                                              

//REPRO   EXEC PGM=IDCAMS,REGION=1024K                        

//OUT1     DD  DSN=KCI08.D0797.DAKMSTR,DISP=OLD               

//IN1     DD  DSN=KCI08.D0797Z.DAKMSTR.UCONDR3,DISP=OLD

//SYSPRINT DD  SYSOUT=X                                       

//SYSIN    DD  *                                              

 REPRO IFILE(IN1) OFILE(OUT1) REUSE                           

 /*

From TSO/ISPF – p.3.4 – input file – KCI08.D0797Z.DAKMSTR.UCONDR3:

                                                                                    Tracks  %Used    XT   Device                            

KCI08.D0797Z.DAKMSTR.UCONDR3        3900    90              1     3390

 (3510  trk  X 50000 = 175500000 =175500  KB =175.5MB)

 

From TSO/ISPF – p.3.4 – output file – KCI08.D0797.DAKMSTR:

                                                                                                Tracks  %Used    XT   Device

 KCI08.D0797.DAKMSTR.DATA                             4515          ?             3     3390

KCI08.D0797.DAKMSTR.INDEX                            17               ?             1     3390

    (4515  trkX50000 bytes=225750000 = 225750 KB= 225.75  MB)

     (17  trkX50000 bytes=850000 = 850 KB)

 Total = 181280 KB = 226.6 MB –  equal to the original KSDS  cluster  file

End

 

Choose donation amount:

Comments

Comments are closed.

Places

 

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