ZOS test IODF configuration display/ create/ change-consoles/ add- disks using JCL source library

CONTENTS:
Bottom

Case 1. Display members KCI88.ZOS140.BASE.LIB(IODEF2B, MVSIO2B) of the old

(existing) configuration SYS1.IODF08

 

Case 2. Create  new member    KCI88.ZOS140.BASE.LIB(IODEF42)

 

Case 3. Create new member KCI88.ZOS140.BASE.LIB(MVSIO42)

 

Case 4. Change   member KCI88.ZOS140.BASE.LIB(mvsio42) to add new disk

volumes   and change disk volume status online/offline at IPL

 

Case 5. Submit JCL KCI88.ZOS140.BASE.LIB(IODEF42)  to  create

SYS1.IODEF42

 

Case 6. Create library member SYS1.IPLPARM(LOAD42)

 

Case 7. IPL  from LPAR BC3A with sys1.iplparm(LOAD42) for BC2A test

configuration at 7K  centre

 

These 7 examples of frequently  occurring cases  with test  IODF (Input Output Definition File) configuration using JCL source ZOS  library KCI88.ZOS140.BASE.LIB are concerning the test  LPAR BC3A. The  descriptions  of the  cases bellow  explain how to: display  the  old  jcl   source KCI88.ZOS140.BASE.LIB (IODF2B and MVSIO2B), create   new IODF42 and MVSIO42 jcl   source definitions (by copy the  IODF2B and MVSIIO2B old members), change device parameters of  IODEVCE UNIT statement in MVSIO042 member,   followed by building  the production IODF42 configuration   after  IODF42 jcl execution and   IPL prepare (to copy the old LOAD2B and to  create a new member SYS1.IPLPARM(LOAD42). The changes refer disk volume  addresses  163A, … changing the IODEVCE UNIT statement  parameter from default (which is OFFLINE=NO – meaning online of 163A) to OFFLINE=YES (meaning offline of 163A), so that the device 163A at  IPL of  LPAR BC2A to be in the desired status – offline. This is necessary if two or more LPARs have access to all disk volume addresses  with duplicated volume names  in one environment and they should be separated. Another changes refer to consoles addresses 0D00,16 omitting for them the parameter of LPAR BC2A in statement  IODEVICE ADDRESS,  so that partition name definition  is omitted and during IPL these addresses are not dependent of LPAR name.

                Case 1. Display members KCI88.ZOS140.BASE.LIB(IODEF2B, MVSIO2B) of the old (existing) configuration SYS1.IODF08  using TSO/ISPF p.3.4

–       IODEF2B – JCL (for execution/assembly, LE and  save SYS1.IODF08 load file)   of   the  old configuration source in  MVSIO2B  member bellow

//IODEF2B  JOB   (),                                                            

//         ‘CORNERSTONE’,                                                      

//        ,

//         MSGCLASS=X,

//         MSGLEVEL=(1,1),

//         NOTIFY=,

//         TIME=1440,

//         USER=

//*                                                           /*JCTRL*/

//* LIB: CORNERST.ZOS140.BASE.LIB(IODEF2B)

//* DOC: THIS JOB MIGRATES AN MVSCP DECK TO HCD.

//* ENSURE THE WORK IODF TO BE USED FOR MIGRATE IS DELETED

//*

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

//SYSPRINT DD SYSOUT=*

//SYSIN    DD *

DELETE (SYS1.IODF08.CLUSTER) CLUSTER

DELETE (SYS1.IODF08.WORK.CLUSTER) CLUSTER

DELETE (CSUSER.HCD.PROFILE) NONVSAM SCRATCH

SET LASTCC = 0

SET MAXCC = 0

//*

//* ALLOCATE THE WORK IODF TO BE USED FOR MIGRATE

//*

//ALOC2    EXEC PGM=IDCAMS,REGION=4096K

//SYSPRINT DD SYSOUT=*

//SYSIN  DD *

DEFINE CLUSTER ( –

NAME (SYS1.IODF08.WORK.CLUSTER) –

LINEAR –

RECORDS (720 1) –

VOLUMES (BC2MCC) –

) –

DATA (NAME (SYS1.IODF08.WORK))

DEFINE CLUSTER ( –

NAME (SYS1.IODF08.CLUSTER) –

LINEAR –

RECORDS (720 1) –

VOLUMES (BC2MCC) –

) –

DATA (NAME (SYS1.IODF08))

/*

//*

//* INITIODF THE WORK IODF

//*

//INITW3   EXEC PGM=CBDMGHCP,REGION=4096K,

//       PARM=’INITIODF SIZE=720,ACTLOG=NO’,

//       COND=(0,NE)

//STEPLIB  DD  DSN=SYS1.LINKLIB,

//             DISP=SHR

//         DD  DSN=SYS1.NUCLEUS,

//             DISP=SHR

//HCDIODFT DD  DSN=SYS1.IODF08.WORK,

//             DISP=(OLD,KEEP)

//HCDMLOG  DD  SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650)

//HCDPRINT DD  SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650)

//*

//* INITIALIZE THE TARGET IODF

//*

//INIT4    EXEC PGM=CBDMGHCP,REGION=4096K,

//       PARM=’INITIODF SIZE=720,ACTLOG=NO’,

//       COND=(0,NE)

//STEPLIB  DD  DSN=SYS1.LINKLIB,

//             DISP=SHR

//         DD  DSN=SYS1.NUCLEUS,

//             DISP=SHR

//         DD  DSN=SYS1.LPALIB,

//             DISP=SHR

//HCDIODFT DD  DSN=SYS1.IODF08,

//             DISP=(OLD,KEEP)

//HCDMLOG  DD  SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650)

//HCDPRINT DD  SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650)

//*

//*

//* CREATE A DATASET TO HOLD THE HCD PROFILE

//*

//* WARNING: IF RERUNNING THE IODEF JOB DO NOT DELETE THIS STEP.

//*

//GENE5    EXEC PGM=IEBGENER

//SYSPRINT DD  SYSOUT=*

//SYSUT2   DD  DSN=CSUSER.HCD.PROFILE,

//             DISP=(NEW,CATLG),DCB=(RECFM=FB,LRECL=80),

//             UNIT=SYSALLDA,SPACE=(TRK,1)

//SYSIN    DD  DUMMY

//SYSUT1   DD  DATA,DLM=XX

UIM_LIBNAME=*

XX

//*

//*

//* MIGRATE INPUT DECK INTO THE WORK IODF

//*   SOURCE: CORNERST.ZOS140.BASE.LIB(MVSIO2B)

//*

//MIGR5    EXEC PGM=CBDMGHCP,REGION=4096K,

//             PARM=(‘MIGR,B,BC1B,MVS,BC1B’,

//             ‘2066-001,LPAR’),

//             COND=(0,NE)

//STEPLIB  DD  DSN=SYS1.LINKLIB,

//             DISP=SHR

//         DD  DSN=SYS1.NUCLEUS,

//             DISP=SHR

//         DD  DSN=SYS1.SCBDHENU,

//             DISP=SHR

//         DD  DSN=SYS1.LPALIB,

//             DISP=SHR

//HCDLIB   DD  DSN=SYS1.MACLIB,

//             DISP=SHR

//HCDIN    DD  DSN=CORNERST.ZOS140.BASE.LIB(MVSIO2B),  /*copy the old configuration*/    // *                                                                                                                  source!

//             DISP=SHR,UNIT=SYSALLDA

//HCDIODFT DD  DSN=SYS1.IODF08.WORK,  ),

//             DISP=SHR

//HCDPROF  DD  DSN=CSUSER.HCD.PROFILE,DISP=(OLD,DELETE,DELETE)

//HCDMLOG  DD  SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650)

//HCDPRINT DD  SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650)

//HCDASMP  DD  SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650)

//*

//* CREATE A PRODUCTION IODF FROM THE WORK IODF

//*   TARGET: SYS1.IODF08

//*

//PROD6    EXEC PGM=CBDMGHCP,REGION=4096K,

//       PARM=’PRODIODF’,

//       COND=(4,LT)

//STEPLIB  DD  DSN=SYS1.LINKLIB,

//             DISP=SHR

//         DD  DSN=SYS1.NUCLEUS,

//             DISP=SHR

//         DD  DSN=SYS1.SCBDHENU,

//             DISP=SHR

//         DD  DSN=SYS1.LPALIB,

//             DISP=SHR

//HCDIODFS DD  DSN=SYS1.IODF08.WORK,  /* the old configuration  work  file*/

//             DISP=SHR

//HCDIODFT DD  DSN=SYS1.IODF08,     /* the old configuration  production file*/

//             DISP=SHR

//HCDMLOG  DD  SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650)

//HCDPRINT DD  SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650)

//*

MVSIO2B – the old configuration SYS1.IODF08 source!

* **************************************************************

* CONFIGURATION for z/OS140                                    *

* **************************************************************

TITLE ‘MVSCP FOR z/OS140 – CONFIGURATION 08’

PRINT NOGEN

CONFIG08 IOCONFIG ID=08

ID    MSG1=’IODF For Production  – BC2A’,SYSTEM=(2066,1)

RESOURCE PARTITION=((BC1B,1),(BC2A,2),(BC3A,3),(BC4A,4))

****     #2365 – OSA EXPRESS GIGABIT ETHERNET SLOT 4

CHPID PATH=(00),TYPE=OSD,SHARED

CHPID PATH=(01),TYPE=OSD,SHARED

****     #2365 – OSA EXPRESS GIGABIT ETHERNET SLOT 5

CHPID PATH=(02),TYPE=OSD,SHARED

CHPID PATH=(03),TYPE=OSD,SHARED

****     #2366 – OSA EXPRESS FAST ETHERNET SLOT 6

CHPID PATH=(04),TYPE=OSE,SHARED

CHPID PATH=(05),TYPE=OSE,SHARED

****     #2366 – OSA EXPRESS FAST ETHERNET SLOT 7

CHPID PATH=(06),TYPE=OSE,SHARED

CHPID PATH=(07),TYPE=OSE,SHARED

****     #2323 – 16-PORT ESCON CARD SLOT 11

CHPID PATH=(08),TYPE=CNC,PART=(BC4A)

CHPID PATH=(09),TYPE=CNC,PART=(BC4A)

CHPID PATH=(0A),TYPE=CNC,SHARED

CHPID PATH=(0B),TYPE=CNC,PART=(BC4A)

CHPID PATH=(0C),TYPE=CNC,SHARED,                              X

PARTITION=((BC1B,BC2A,BC3A))

CHPID PATH=(0D),TYPE=CNC,SHARED,                              X

PARTITION=((BC1B,BC2A,BC3A,BC4A))

CHPID PATH=(0E),TYPE=CNC,SHARED

CHPID PATH=(10),TYPE=CNC,SHARED,                              X

PARTITION=((BC1B,BC2A,BC3A))

CHPID PATH=(11),TYPE=CNC,SHARED,                              X

PARTITION=((BC1B,BC2A,BC3A))

****     #2323 – 16-PORT ESCON CARD SLOT 12

CHPID PATH=(16),TYPE=CNC,SHARED

CHPID PATH=(17),TYPE=CNC,SHARED

CHPID PATH=(18),TYPE=CNC,PART=(BC4A)

CHPID PATH=(19),TYPE=CNC,PART=(BC4A)

CHPID PATH=(1A),TYPE=CNC,SHARED,                              X

PARTITION=((BC1B,BC2A,BC3A))

CHPID PATH=(1B),TYPE=CNC,SHARED,                              X

PARTITION=((BC1B,BC2A,BC3A))

CHPID PATH=(1D),TYPE=CNC,SHARED,                              X

PARTITION=((BC1B,BC2A,BC3A))

CHPID PATH=(1E),TYPE=CNC,SHARED,                              X

PARTITION=((BC1B,BC2A,BC3A))

CHPID PATH=(1F),TYPE=CTC,SHARED,                              X

PARTITION=((BC1B,BC2A,BC3A,BC4A))

CHPID PATH=(20),TYPE=CNC,SHARED,                              X

PARTITION=((BC1B,BC2A,BC3A,BC4A))

****     #2320 – 2-PORT FICON CARD SLOT 9

CHPID PATH=(24),TYPE=FC,SHARED,                               X

PARTITION=((BC1B,BC2A,BC3A))

CHPID PATH=(25),TYPE=FC,SHARED,                               X

PARTITION=((BC1B,BC2A,BC3A))

****     #2320 – 2-PORT FICON CARD SLOT 10

CHPID PATH=(26),TYPE=FC,SHARED,                               X

PARTITION=((BC1B,BC2A,BC3A))

CHPID PATH=(27),TYPE=FC,SHARED,                               X

PARTITION=((BC1B,BC2A,BC3A))

*** NEW CNC

*** CNTLUNIT AND IODEVICES FOR BC1B

CNTLUNIT CUNUMBR=0110,PATH=(20),UNITADD=((00,16)),            X

UNIT=SCTC,CUADD=1

IODEVICE ADDRESS=(0110,16),CUNUMBR=(0110),UNITADD=00,         X

UNIT=SCTC,PART=(BC2A,BC3A,BC4A)

*** CNTLUNIT AND IODEVICES FOR BC2A

CNTLUNIT CUNUMBR=0120,PATH=(20),UNITADD=((00,16)),            X

UNIT=SCTC,CUADD=2

IODEVICE ADDRESS=(0120,16),CUNUMBR=(0120),UNITADD=00,         X

UNIT=SCTC,PART=(BC1B,BC3A,BC4A)

*** CNTLUNIT AND IODEVICES FOR BC3A

CNTLUNIT CUNUMBR=0130,PATH=(20),UNITADD=((00,16)),            X

UNIT=SCTC,CUADD=3

IODEVICE ADDRESS=(0130,16),CUNUMBR=(0130),UNITADD=00,         X

UNIT=SCTC,PART=(BC1B,BC2A,BC4A)

*** CNTLUNIT AND IODEVICES FOR BC4A

CNTLUNIT CUNUMBR=0140,PATH=(20),UNITADD=((00,16)),            X

UNIT=SCTC,CUADD=4

IODEVICE ADDRESS=(0140,16),CUNUMBR=(0140),UNITADD=00,         X

UNIT=SCTC,PART=(BC1B,BC2A,BC3A)

*** CTC

*** CNTLUNIT AND IODEVICES FOR BC1B

CNTLUNIT CUNUMBR=0210,PATH=(1F),UNITADD=((00,16)),            X

UNIT=SCTC,CUADD=1

IODEVICE ADDRESS=(0210,16),CUNUMBR=(0210),UNITADD=00,         X

UNIT=SCTC,PART=(BC2A,BC3A,BC4A)

*** CNTLUNIT AND IODEVICES FOR BC2A

CNTLUNIT CUNUMBR=0220,PATH=(1F),UNITADD=((00,16)),            X

UNIT=SCTC,CUADD=2

IODEVICE ADDRESS=(0220,16),CUNUMBR=(0220),UNITADD=00,         X

UNIT=SCTC,PART=(BC1B,BC3A,BC4A)

*** CNTLUNIT AND IODEVICES FOR BC3A

CNTLUNIT CUNUMBR=0230,PATH=(1F),UNITADD=((00,16)),            X

UNIT=SCTC,CUADD=3

IODEVICE ADDRESS=(0230,16),CUNUMBR=(0230),UNITADD=00,         X

UNIT=SCTC,PART=(BC1B,BC2A,BC4A)

*** CNTLUNIT AND IODEVICES FOR BC4A

CNTLUNIT CUNUMBR=0240,PATH=(1F),UNITADD=((00,16)),            X

UNIT=SCTC,CUADD=4

IODEVICE ADDRESS=(0240,16),CUNUMBR=(0240),UNITADD=00,         X

UNIT=SCTC,PART=(BC1B,BC2A,BC3A)

*** Mainframe consoles as PC/3270 sessions on IBM/2074 server with OS/2  System:

*** FOR BC1B; CUADD=0 FOR IBM 2074      – Consoles for  LPAR BC1B /E00

CNTLUNIT CUNUMBR=0D00,PATH=0D,UNITADD=((00,16)),CUADD=0,      X

UNIT=3174

IODEVICE ADDRESS=(E00,16),CUNUMBR=(0D00),UNITADD=00,          X

UNIT=3278,PART=BC1B

*** FOR BC2A; CUADD=1 FOR 2074      – Consoles for  LPAR BC2A /D00, D01

CNTLUNIT CUNUMBR=0D01,PATH=0D,UNITADD=((00,16)),CUADD=1,      X

UNIT=3174

IODEVICE ADDRESS=(D00,16),CUNUMBR=(0D01),UNITADD=00,          X

UNIT=3278,PART=BC2A

*** FOR BC3A; CUADD=2 FOR 2074     – Consoles for  LPAR BC3A /C00

CNTLUNIT CUNUMBR=0D02,PATH=0D,UNITADD=((00,16)),CUADD=2,      X

UNIT=3174

IODEVICE ADDRESS=(C00,16),CUNUMBR=(0D02),UNITADD=00,          X

UNIT=3278,PART=BC3A

*** FOR BC4A; CUADD=3 FOR 2074     – Consoles for  LPAR BC4A    /A00

CNTLUNIT CUNUMBR=0D03,PATH=0D,UNITADD=((00,16)),CUADD=3,      X

UNIT=3174

IODEVICE ADDRESS=(A00,16),CUNUMBR=(0D03),UNITADD=00,          X

UNIT=3278,PART=BC4A

*** LOCAL SNA-1 3174 – 22L FOR BC4A

CNTLUNIT CUNUMBR=0B20,PATH=0B,UNITADD=((20,11)),CUADD=2,      X

UNIT=3791L

IODEVICE ADDRESS=(0020,11),CUNUMBR=(0B20),UNITADD=20,         X

UNIT=3791L

*** QDIO OSA

CNTLUNIT CUNUMBR=0001,PATH=00,UNIT=OSA

IODEVICE ADDRESS=(980,15),CUNUMBR=(0001),UNIT=OSA,UNITADD=00

IODEVICE ADDRESS=(98F),CUNUMBR=(0001),UNIT=OSAD,UNITADD=FE

*** QDIO OSA

CNTLUNIT CUNUMBR=0002,PATH=02,UNIT=OSA

IODEVICE ADDRESS=(990,15),CUNUMBR=(0002),UNIT=OSA,UNITADD=00

IODEVICE ADDRESS=(99F),CUNUMBR=(0002),UNIT=OSAD,UNITADD=FE

*** NON-QDIO OSA

CNTLUNIT CUNUMBR=0400,PATH=04,UNIT=OSA

IODEVICE ADDRESS=(960,15),CUNUMBR=(0400),UNIT=OSA,UNITADD=00

IODEVICE ADDRESS=(96F),CUNUMBR=(0400),UNIT=OSAD,UNITADD=FE

*** NON-QDIO OSA

CNTLUNIT CUNUMBR=0500,PATH=05,UNIT=OSA

IODEVICE ADDRESS=(9A0,15),CUNUMBR=(0500),UNIT=OSA,UNITADD=00

IODEVICE ADDRESS=(9AF),CUNUMBR=(0500),UNIT=OSAD,UNITADD=FE

*** NON-QDIO OSA

CNTLUNIT CUNUMBR=0600,PATH=06,UNIT=OSA

IODEVICE ADDRESS=(970,15),CUNUMBR=(0600),UNIT=OSA,UNITADD=00

IODEVICE ADDRESS=(97F),CUNUMBR=(0600),UNIT=OSAD,UNITADD=FE

*** NON-QDIO OSA

CNTLUNIT CUNUMBR=0700,PATH=07,UNIT=OSA

IODEVICE ADDRESS=(9B0,15),CUNUMBR=(0700),UNIT=OSA,UNITADD=00

IODEVICE ADDRESS=(9BF),CUNUMBR=(0700),UNIT=OSAD,UNITADD=FE

**** —- ESCON CARTRIDGE 3590/3494 TAPE LIBRARY

CNTLUNIT CUNUMBR=0E80,PATH=0E,UNIT=3590,                      X

UNITADD=((00,2))

IODEVICE ADDRESS=(0280,02),CUNUMBR=(0E80),STADET=Y,           X

UNIT=3590,UNITADD=00,OFFLINE=YES,                       X

USERPRM=((LIBRARY,YES),(LIBRARY-ID,12359),              X

(LIBPORT-ID,1))

**** —- ESCON CARTRIDGE 3590E –

CNTLUNIT CUNUMBR=0E90,PATH=16,UNIT=3590,                      X

UNITADD=((00,2))

IODEVICE ADDRESS=(0300,2),CUNUMBR=(0E90),STADET=Y,            X

UNIT=3590,UNITADD=00,OFFLINE=YES,FEATURE=(COMPACT)

**** —- ESCON CARTRIDGE 3490E –

CNTLUNIT CUNUMBR=0200,PATH=17,UNIT=3490,                      X

UNITADD=((00,16))

IODEVICE ADDRESS=(0200,16),CUNUMBR=(0200),STADET=Y,           X

UNIT=3490,UNITADD=00,OFFLINE=YES

**** —- ESS (SHARK) – 2105/800

CNTLUNIT CUNUMBR=3600,PATH=(25,27),                           X

UNITADD=((00,256)),UNIT=2105,CUADD=0

IODEVICE UNIT=3390,ADDRESS=(1600,146),CUNUMBR=(3600),         X

UNITADD=00,STADET=Y

CNTLUNIT CUNUMBR=3700,PATH=(25,27),                           X

UNITADD=((00,256)),UNIT=2105,CUADD=1

IODEVICE UNIT=3390,ADDRESS=(1700,146),CUNUMBR=(3700),         X

UNITADD=00,STADET=Y

CNTLUNIT CUNUMBR=3800,PATH=(25,27),                           X

UNITADD=((00,256)),UNIT=2105,CUADD=2

IODEVICE UNIT=3390,ADDRESS=(1800,146),CUNUMBR=(3800),         X

UNITADD=00,STADET=Y

CNTLUNIT CUNUMBR=3900,PATH=(25,27),                           X

UNITADD=((00,256)),UNIT=2105,CUADD=3

IODEVICE UNIT=3390,ADDRESS=(1900,146),CUNUMBR=(3900),         X

UNITADD=00,STADET=Y

**** —- ESCON VTS 3494 – B10  TAPE LIBRARY

CNTLUNIT CUNUMBR=1040,PATH=(10,11,1A,1B),UNIT=3490,           X

UNITADD=((00,16)),CUADD=0

IODEVICE ADDRESS=(440,16),CUNUMBR=(1040),STADET=Y,            X

UNIT=3490,UNITADD=00,OFFLINE=YES,                       X

USERPRM=((LIBRARY,YES),(LIBRARY-ID,B1425),              X

(LIBPORT-ID,1))

CNTLUNIT CUNUMBR=1150,PATH=(10,11,1A,1B),UNIT=3490,           X

UNITADD=((00,16)),CUADD=1

IODEVICE ADDRESS=(450,16),CUNUMBR=(1150),STADET=Y,            X

UNIT=3490,UNITADD=00,OFFLINE=YES,                       X

USERPRM=((LIBRARY,YES),(LIBRARY-ID,B1425),              X

(LIBPORT-ID,2))

CNTLUNIT CUNUMBR=1A60,PATH=(10,11,1A,1B),UNIT=3490,           X

UNITADD=((00,16)),CUADD=2

IODEVICE ADDRESS=(460,16),CUNUMBR=(1A60),STADET=Y,            X

UNIT=3490,UNITADD=00,OFFLINE=YES,                       X

USERPRM=((LIBRARY,YES),(LIBRARY-ID,B1425),              X

(LIBPORT-ID,3))

CNTLUNIT CUNUMBR=1B70,PATH=(10,11,1A,1B),UNIT=3490,           X

UNITADD=((00,16)),CUADD=3

IODEVICE ADDRESS=(470,16),CUNUMBR=(1B70),STADET=Y,            X

UNIT=3490,UNITADD=00,OFFLINE=YES,                       X

USERPRM=((LIBRARY,YES),(LIBRARY-ID,B1425),              X

(LIBPORT-ID,4))

**** —- ESS (SHARK) – 2105/F20

CNTLUNIT CUNUMBR=2700,PATH=(24,26),                           X

UNITADD=((00,128)),UNIT=2105,CUADD=0

IODEVICE UNIT=3390,ADDRESS=(700,38),CUNUMBR=(2700),           X

UNITADD=00,STADET=Y,OFFLINE=YES

IODEVICE UNIT=3390,ADDRESS=(726,10),CUNUMBR=(2700),           X

UNITADD=26,STADET=Y,OFFLINE=YES

IODEVICE UNIT=3390,ADDRESS=(730,16),CUNUMBR=(2700),           X

UNITADD=30,STADET=Y,OFFLINE=YES

IODEVICE UNIT=3390,ADDRESS=(740,9),CUNUMBR=(2700),            X

UNITADD=40,STADET=Y,OFFLINE=YES

CNTLUNIT CUNUMBR=2780,PATH=(24,26),                           X

UNITADD=((80,128)),UNIT=2105,CUADD=1

IODEVICE UNIT=3390,ADDRESS=(780,38),CUNUMBR=(2780),           X

UNITADD=80,STADET=Y,OFFLINE=YES

IODEVICE UNIT=3390,ADDRESS=(7A6,10),CUNUMBR=(2780),           X

UNITADD=A6,STADET=Y,OFFLINE=YES

IODEVICE UNIT=3390,ADDRESS=(7B0,16),CUNUMBR=(2780),           X

UNITADD=B0,STADET=Y,OFFLINE=YES

IODEVICE UNIT=3390,ADDRESS=(7C0,9),CUNUMBR=(2780),            X

UNITADD=C0,STADET=Y,OFFLINE=YES

CNTLUNIT CUNUMBR=2800,PATH=(24,26),                           X

UNITADD=((00,128)),UNIT=2105,CUADD=2

IODEVICE UNIT=3390,ADDRESS=(800,38),CUNUMBR=(2800),           X

UNITADD=00,STADET=Y,OFFLINE=YES

IODEVICE UNIT=3390,ADDRESS=(826,10),CUNUMBR=(2800),           X

UNITADD=26,STADET=Y,OFFLINE=YES

IODEVICE UNIT=3390,ADDRESS=(830,25),CUNUMBR=(2800),           X

UNITADD=30,STADET=Y,OFFLINE=YES

CNTLUNIT CUNUMBR=2880,PATH=(24,26),                           X

UNITADD=((00,128)),UNIT=2105,CUADD=3

IODEVICE UNIT=3390,ADDRESS=(880,73),CUNUMBR=(2880),           X

UNITADD=00,STADET=Y,OFFLINE=YES

**** —- ESCON RAMAC 3 DASD SUBSYSTEM

*        CNTLUNIT CUNUMBR=0800,PATH=(08,18),

*              UNITADD=((00,128)),UNIT=3990

*        CNTLUNIT CUNUMBR=1800,PATH=(09,19),

*              UNITADD=((00,128)),UNIT=3990

*        IODEVICE UNIT=3390,ADDRESS=(0600,128),CUNUMBR=(0800,1800),

*              UNITADD=00

*****************************************************************

*              END OF IOCP GENERATION DECK                      *

*****************************************************************

*———————————————————————*

*                 I/O DEVICE UNIT NAMES                               *

*———————————————————————*

USYSSQ   UNITNAME NAME=SYSSQ,                                          X

UNIT=((1600,146),(1700,146),(1800,146),(1900,146))

USYSDA   UNITNAME NAME=SYSDA,                                          X

UNIT=((1600,146),(1700,146),(1800,146),(1900,146))

USYSWK   UNITNAME NAME=SYSWK,                                          X

UNIT=((1600,146),(1700,146),(1800,146),(1900,146))

UVIO     UNITNAME NAME=VIO,VIO=YES,UNIT=((1600,146))

UCART    UNITNAME NAME=CART,UNIT=((200,2))

UCART90  UNITNAME NAME=CART90,UNIT=((200,2))

UCART35  UNITNAME NAME=CART35,UNIT=((280,2))

UT3590   UNITNAME NAME=T3590,UNIT=((300,2))

UVTS1    UNITNAME NAME=VTS1,UNIT=((440,64))

SPACE 2

*———————————————————————*

*  SYSTEM CONSOLES FOR NUCLEUS INITIALIZATION PROGRAM (NIP)           *

*     AFTER NIP, MVS WILL USE THE CONSOLXX MEMBER OF SYS1.PARMLIB     *

*     NIP DOES NOT USE OUTPUT-ONLY (PRINTER) CONSOLES                 *

*———————————————————————*

*———————————————————————*

* THE  CONSOL00 MEMBER CONSTRUCTED BY MVS EXPRESS WILL ASSIGN THE MVS *

* HARDCOPY  FUNCTION  TO  SYSLOG.   IF  YOU  SHOULD  ADD  OUTPUT-ONLY *

* CONSOLES, IT IS  RECOMMENDED THAT YOU  LEAVE  HARDCOPY  ASSIGNED TO *

* SYSLOG.  THIS WILL KEEP THE  CONSOLE LOG ON THE JES2 SPOOL AND SEND *

* IT  PERIODICALLY TO A  HIGH-SPEED  SPOOL  PRINTER.  MEANWHILE, YOUR *

* OUTPUT-ONLY  CONSOLES  WILL  RECEIVE  ALL  OUTPUT  MESSAGES AS THEY *

* OCCUR.                                                              *

*                                                                     *

* IF  HARDCOPY IS NOT ASSIGNED TO SYSLOG, IT COULD BE  INTERRUPTED BY *

* AN  OUTAGE  (EVEN  A  FORMS OR  RIBBON  CHANGE) ON THE  OUTPUT-ONLY *

* CONSOLE.                                                            *

*                                                                     *

* ALSO, THE  OPTIONAL  SDSF  PRODUCT CAN BE USED TO  BROWSE SYSLOG IF *

* HARDCOPY HAS BEEN ASSIGNED TO SYSLOG.  THIS PROVIDES A PRODUCTIVITY *

* BENEFIT FOR TECHNICAL SUPPORT PERSONNEL WHEN INVESTIGATING PROBLEMS *

* BY ELIMINATING PAPER  AND BY ENABLING THE USE OF THE “FIND” COMMAND *

* TO SKIP TO THE RELEVANT INFORMATION.                                *

*———————————————————————*

NIPCONA  NIPCON DEVNUM=(E00,E01,D00,D01,C00,C01)

 

                Case 2. Create  new member    KCI88.ZOS140.BASE.LIB(IODEF42)

 Copy IODEF2B as IODEF42 and replace sys1.iodf08 with sys1.iodef42 and mvsio2b with mvsio42

–       IODEF42 – JCL (for execution/assembly, LE and  save SYS1.IODF42 load file)   of   the  new  configuration source in  MVSIO42  member bellow

//IODEF42  JOB   (),

//         ‘CORNERSTONE’,

//        ,

//         MSGCLASS=X,

//         MSGLEVEL=(1,1),

//         NOTIFY=,

//         TIME=1440,

//         USER=

//*                                                           /*JCTRL*/

//* LIB: CORNERST.ZOS140.BASE.LIB(IODEF42)

//* DOC: THIS JOB MIGRATES AN MVSCP DECK TO HCD.

//* ENSURE THE WORK IODF TO BE USED FOR MIGRATE IS DELETED

//*

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

//SYSPRINT DD SYSOUT=*

//SYSIN    DD *

DELETE (SYS1.IODF42.CLUSTER) CLUSTER

DELETE (SYS1.IODF42.WORK.CLUSTER) CLUSTER

DELETE (CSUSER.HCD.PROFILE) NONVSAM SCRATCH

SET LASTCC = 0

SET MAXCC = 0

//*

//* ALLOCATE THE WORK IODF TO BE USED FOR MIGRATE

//*

//ALOC2    EXEC PGM=IDCAMS,REGION=4096K

//SYSPRINT DD SYSOUT=*

//SYSIN  DD *

DEFINE CLUSTER ( –

NAME (SYS1.IODF42.WORK.CLUSTER) –

LINEAR –

RECORDS (720 1) –

VOLUMES (BC2MCC) –

) –

DATA (NAME (SYS1.IODF42.WORK))

DEFINE CLUSTER ( –

NAME (SYS1.IODF42.CLUSTER) –

LINEAR –

RECORDS (720 1) –

VOLUMES (BC2MCC) –

) –

DATA (NAME (SYS1.IODF42))

/*

//*

//* INITIODF THE WORK IODF

//*

//INITW3   EXEC PGM=CBDMGHCP,REGION=4096K,

//       PARM=’INITIODF SIZE=720,ACTLOG=NO’,

//       COND=(0,NE)

//STEPLIB  DD  DSN=SYS1.LINKLIB,

//             DISP=SHR

//         DD  DSN=SYS1.NUCLEUS,

//             DISP=SHR

//HCDIODFT DD  DSN=SYS1.IODF42.WORK,

//             DISP=(OLD,KEEP)

//HCDMLOG  DD  SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650)

//HCDPRINT DD  SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650)

//*

//* INITIALIZE THE TARGET IODF

//*

//INIT4    EXEC PGM=CBDMGHCP,REGION=4096K,

//       PARM=’INITIODF SIZE=720,ACTLOG=NO’,

//       COND=(0,NE)

//STEPLIB  DD  DSN=SYS1.LINKLIB,

//             DISP=SHR

//         DD  DSN=SYS1.NUCLEUS,

//             DISP=SHR

//         DD  DSN=SYS1.LPALIB,

//             DISP=SHR

//HCDIODFT DD  DSN=SYS1.IODF42,

//             DISP=(OLD,KEEP)

//HCDMLOG  DD  SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650)

//HCDPRINT DD  SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650)

//*

//*

//* CREATE A DATASET TO HOLD THE HCD PROFILE

//*

//* WARNING: IF RERUNNING THE IODEF JOB DO NOT DELETE THIS STEP.

//*

//GENE5    EXEC PGM=IEBGENER

//SYSPRINT DD  SYSOUT=*

//SYSUT2   DD  DSN=CSUSER.HCD.PROFILE,

//             DISP=(NEW,CATLG),DCB=(RECFM=FB,LRECL=80),

//             UNIT=SYSALLDA,SPACE=(TRK,1)

//SYSIN    DD  DUMMY

//SYSUT1   DD  DATA,DLM=XX

UIM_LIBNAME=*

XX

//*

//*

//* MIGRATE INPUT DECK INTO THE WORK IODF

//*   SOURCE: CORNERST.ZOS140.BASE.LIB(MVSIO42)

//*

//MIGR5    EXEC PGM=CBDMGHCP,REGION=4096K,

//             PARM=(‘MIGR,B,BC1B,MVS,BC1B’,

//             ‘2066-001,LPAR’),

//             COND=(0,NE)

//STEPLIB  DD  DSN=SYS1.LINKLIB,

//             DISP=SHR

//         DD  DSN=SYS1.NUCLEUS,

//             DISP=SHR

//         DD  DSN=SYS1.SCBDHENU,

//             DISP=SHR

//         DD  DSN=SYS1.LPALIB,

//             DISP=SHR

//HCDLIB   DD  DSN=SYS1.MACLIB,

//             DISP=SHR

//HCDIN    DD  DSN=CORNERST.ZOS140.BASE.LIB(MVSIO42),  /*copy the new configuration*/     // *                                                                                                                  source!

//             DISP=SHR,UNIT=SYSALLDA

//HCDIODFT DD  DSN=SYS1.IODF42.WORK,  ),

//             DISP=SHR

//HCDPROF  DD  DSN=CSUSER.HCD.PROFILE,DISP=(OLD,DELETE,DELETE)

//HCDMLOG  DD  SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650)

//HCDPRINT DD  SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650)

//HCDASMP  DD  SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650)

//*

//* CREATE A PRODUCTION IODF FROM THE WORK IODF

//*   TARGET: SYS1.IODF42

//*

//PROD6    EXEC PGM=CBDMGHCP,REGION=4096K,

//       PARM=’PRODIODF’,

//       COND=(4,LT)

//STEPLIB  DD  DSN=SYS1.LINKLIB,

//             DISP=SHR

//         DD  DSN=SYS1.NUCLEUS,

//             DISP=SHR

//         DD  DSN=SYS1.SCBDHENU,

//             DISP=SHR

//         DD  DSN=SYS1.LPALIB,

//             DISP=SHR

//HCDIODFS DD  DSN=SYS1.IODF42.WORK,  /* the new configuration  work  file*/

//             DISP=SHR

//HCDIODFT DD  DSN=SYS1.IODF42,     /* the new configuration  production file*/

//             DISP=SHR

//HCDMLOG  DD  SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650)

//HCDPRINT DD  SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650)

//*

 

                Case 3. Create new member KCI88.ZOS140.BASE.LIB(MVSIO42)

 

Copy mvsio2B as mvsio42  and replace CONFIG08 IOCONFIG ID=08

with CONFIG42 IOCONFIG ID=42.  Edit  mvsio42 for BC2A LPAR consoles (for 0d00-0dof is missing ‘,PART=BC2A’ ) to enable  IPL of BC2A  volumes  from any partition (in our case from BC3A LPAR).  BC2A parameter is deleted in mvsi042 for  IODEVICE ADDRESS 0d00-0dof attached to CU=0D01 for BC2A partition as follows:

MVSIO42 – the new  configuration SYS1.IODF42 source!

* **************************************************************

* CONFIGURATION for z/OS140                                    *

* **************************************************************

TITLE ‘MVSCP FOR z/OS140 – CONFIGURATION 08’

PRINT NOGEN

CONFIG42 IOCONFIG ID=42

ID    MSG1=’IODF For Production  – BC2A’,SYSTEM=(2066,1)

RESOURCE PARTITION=((BC1B,1),(BC2A,2),(BC3A,3),(BC4A,4))

****     #2365 – OSA EXPRESS GIGABIT ETHERNET SLOT 4

CHPID PATH=(00),TYPE=OSD,SHARED

CHPID PATH=(01),TYPE=OSD,SHARED

****     #2365 – OSA EXPRESS GIGABIT ETHERNET SLOT 5

CHPID PATH=(02),TYPE=OSD,SHARED

CHPID PATH=(03),TYPE=OSD,SHARED

****     #2366 – OSA EXPRESS FAST ETHERNET SLOT 6

CHPID PATH=(04),TYPE=OSE,SHARED

CHPID PATH=(05),TYPE=OSE,SHARED

****     #2366 – OSA EXPRESS FAST ETHERNET SLOT 7

CHPID PATH=(06),TYPE=OSE,SHARED

CHPID PATH=(07),TYPE=OSE,SHARED

****     #2323 – 16-PORT ESCON CARD SLOT 11

CHPID PATH=(08),TYPE=CNC,PART=(BC4A)

CHPID PATH=(09),TYPE=CNC,PART=(BC4A)

CHPID PATH=(0A),TYPE=CNC,SHARED

CHPID PATH=(0B),TYPE=CNC,PART=(BC4A)

CHPID PATH=(0C),TYPE=CNC,SHARED,                              X

PARTITION=((BC1B,BC2A,BC3A))

CHPID PATH=(0D),TYPE=CNC,SHARED,                              X

PARTITION=((BC1B,BC2A,BC3A,BC4A))

CHPID PATH=(0E),TYPE=CNC,SHARED

CHPID PATH=(10),TYPE=CNC,SHARED,                              X

PARTITION=((BC1B,BC2A,BC3A))

CHPID PATH=(11),TYPE=CNC,SHARED,                              X

PARTITION=((BC1B,BC2A,BC3A))

****     #2323 – 16-PORT ESCON CARD SLOT 12

CHPID PATH=(16),TYPE=CNC,SHARED

CHPID PATH=(17),TYPE=CNC,SHARED

CHPID PATH=(18),TYPE=CNC,PART=(BC4A)

CHPID PATH=(19),TYPE=CNC,PART=(BC4A)

CHPID PATH=(1A),TYPE=CNC,SHARED,                              X

PARTITION=((BC1B,BC2A,BC3A))

CHPID PATH=(1B),TYPE=CNC,SHARED,                              X

PARTITION=((BC1B,BC2A,BC3A))

CHPID PATH=(1D),TYPE=CNC,SHARED,                              X

PARTITION=((BC1B,BC2A,BC3A))

CHPID PATH=(1E),TYPE=CNC,SHARED,                              X

PARTITION=((BC1B,BC2A,BC3A))

CHPID PATH=(1F),TYPE=CTC,SHARED,                              X

PARTITION=((BC1B,BC2A,BC3A,BC4A))

CHPID PATH=(20),TYPE=CNC,SHARED,                              X

PARTITION=((BC1B,BC2A,BC3A,BC4A))

****     #2320 – 2-PORT FICON CARD SLOT 9

CHPID PATH=(24),TYPE=FC,SHARED,                               X

PARTITION=((BC1B,BC2A,BC3A))

CHPID PATH=(25),TYPE=FC,SHARED,                               X

PARTITION=((BC1B,BC2A,BC3A))

****     #2320 – 2-PORT FICON CARD SLOT 10

CHPID PATH=(26),TYPE=FC,SHARED,                               X

PARTITION=((BC1B,BC2A,BC3A))

CHPID PATH=(27),TYPE=FC,SHARED,                               X

PARTITION=((BC1B,BC2A,BC3A))

*** NEW CNC

*** CNTLUNIT AND IODEVICES FOR BC1B

CNTLUNIT CUNUMBR=0110,PATH=(20),UNITADD=((00,16)),            X

UNIT=SCTC,CUADD=1

IODEVICE ADDRESS=(0110,16),CUNUMBR=(0110),UNITADD=00,         X

UNIT=SCTC,PART=(BC2A,BC3A,BC4A)

*** CNTLUNIT AND IODEVICES FOR BC2A

CNTLUNIT CUNUMBR=0120,PATH=(20),UNITADD=((00,16)),            X

UNIT=SCTC,CUADD=2

IODEVICE ADDRESS=(0120,16),CUNUMBR=(0120),UNITADD=00,         X

UNIT=SCTC,PART=(BC1B,BC3A,BC4A)

*** CNTLUNIT AND IODEVICES FOR BC3A

CNTLUNIT CUNUMBR=0130,PATH=(20),UNITADD=((00,16)),            X

UNIT=SCTC,CUADD=3

IODEVICE ADDRESS=(0130,16),CUNUMBR=(0130),UNITADD=00,         X

UNIT=SCTC,PART=(BC1B,BC2A,BC4A)

*** CNTLUNIT AND IODEVICES FOR BC4A

CNTLUNIT CUNUMBR=0140,PATH=(20),UNITADD=((00,16)),            X

UNIT=SCTC,CUADD=4

IODEVICE ADDRESS=(0140,16),CUNUMBR=(0140),UNITADD=00,         X

UNIT=SCTC,PART=(BC1B,BC2A,BC3A)

*** CTC

*** CNTLUNIT AND IODEVICES FOR BC1B

CNTLUNIT CUNUMBR=0210,PATH=(1F),UNITADD=((00,16)),            X

UNIT=SCTC,CUADD=1

IODEVICE ADDRESS=(0210,16),CUNUMBR=(0210),UNITADD=00,         X

UNIT=SCTC,PART=(BC2A,BC3A,BC4A)

*** CNTLUNIT AND IODEVICES FOR BC2A

CNTLUNIT CUNUMBR=0220,PATH=(1F),UNITADD=((00,16)),            X

UNIT=SCTC,CUADD=2

IODEVICE ADDRESS=(0220,16),CUNUMBR=(0220),UNITADD=00,         X

UNIT=SCTC,PART=(BC1B,BC3A,BC4A)

*** CNTLUNIT AND IODEVICES FOR BC3A

CNTLUNIT CUNUMBR=0230,PATH=(1F),UNITADD=((00,16)),            X

UNIT=SCTC,CUADD=3

IODEVICE ADDRESS=(0230,16),CUNUMBR=(0230),UNITADD=00,         X

UNIT=SCTC,PART=(BC1B,BC2A,BC4A)

*** CNTLUNIT AND IODEVICES FOR BC4A

CNTLUNIT CUNUMBR=0240,PATH=(1F),UNITADD=((00,16)),            X

UNIT=SCTC,CUADD=4

IODEVICE ADDRESS=(0240,16),CUNUMBR=(0240),UNITADD=00,         X

UNIT=SCTC,PART=(BC1B,BC2A,BC3A)

*** Mainframe consoles as PC/3270 sessions on IBM/2074 server with OS/2  System:

*** FOR BC1B; CUADD=0 FOR 2074  – Consoles for  LPAR BC1B /E00

CNTLUNIT CUNUMBR=0D00,PATH=0D,UNITADD=((00,16)),CUADD=0,      X

UNIT=3174

IODEVICE ADDRESS=(E00,16),CUNUMBR=(0D00),UNITADD=00,          X

UNIT=3278,PART=BC1B

*** FOR BC2A; CUADD=1 FOR 2074      – Consoles for  LPAR BC2A /D00, D01

CNTLUNIT CUNUMBR=0D01,PATH=0D,UNITADD=((00,16)),CUADD=1,      X

UNIT=3174

IODEVICE ADDRESS=(D00,16),CUNUMBR=(0D01),UNITADD=00,          X

UNIT=3278                                         – missing  ,PART=BC2A !!!

*** FOR BC3A; CUADD=2 FOR 2074      – Consoles for  LPAR BC3A /C00

CNTLUNIT CUNUMBR=0D02,PATH=0D,UNITADD=((00,16)),CUADD=2,      X

UNIT=3174

IODEVICE ADDRESS=(C00,16),CUNUMBR=(0D02),UNITADD=00,          X

UNIT=3278                                         – missing ,PART=BC3A

*** FOR BC4A; CUADD=3 FOR 2074      – Consoles for  LPAR BC4A /A00

CNTLUNIT CUNUMBR=0D03,PATH=0D,UNITADD=((00,16)),CUADD=3,      X

UNIT=3174

IODEVICE ADDRESS=(A00,16),CUNUMBR=(0D03),UNITADD=00,          X

UNIT=3278                                        – missing ,PART=BC4A

*** LOCAL SNA-1 3174 – 22L FOR BC4A

CNTLUNIT CUNUMBR=0B20,PATH=0B,UNITADD=((20,11)),CUADD=2,      X

UNIT=3791L

IODEVICE ADDRESS=(0020,11),CUNUMBR=(0B20),UNITADD=20,         X

UNIT=3791L

*** QDIO OSA

CNTLUNIT CUNUMBR=0001,PATH=00,UNIT=OSA

IODEVICE ADDRESS=(980,15),CUNUMBR=(0001),UNIT=OSA,UNITADD=00

IODEVICE ADDRESS=(98F),CUNUMBR=(0001),UNIT=OSAD,UNITADD=FE

*** QDIO OSA

CNTLUNIT CUNUMBR=0002,PATH=02,UNIT=OSA

IODEVICE ADDRESS=(990,15),CUNUMBR=(0002),UNIT=OSA,UNITADD=00

IODEVICE ADDRESS=(99F),CUNUMBR=(0002),UNIT=OSAD,UNITADD=FE

*** NON-QDIO OSA

CNTLUNIT CUNUMBR=0400,PATH=04,UNIT=OSA

IODEVICE ADDRESS=(960,15),CUNUMBR=(0400),UNIT=OSA,UNITADD=00

IODEVICE ADDRESS=(96F),CUNUMBR=(0400),UNIT=OSAD,UNITADD=FE

*** NON-QDIO OSA

CNTLUNIT CUNUMBR=0500,PATH=05,UNIT=OSA

IODEVICE ADDRESS=(9A0,15),CUNUMBR=(0500),UNIT=OSA,UNITADD=00

IODEVICE ADDRESS=(9AF),CUNUMBR=(0500),UNIT=OSAD,UNITADD=FE

*** NON-QDIO OSA

CNTLUNIT CUNUMBR=0600,PATH=06,UNIT=OSA

IODEVICE ADDRESS=(970,15),CUNUMBR=(0600),UNIT=OSA,UNITADD=00

IODEVICE ADDRESS=(97F),CUNUMBR=(0600),UNIT=OSAD,UNITADD=FE

*** NON-QDIO OSA

CNTLUNIT CUNUMBR=0700,PATH=07,UNIT=OSA

IODEVICE ADDRESS=(9B0,15),CUNUMBR=(0700),UNIT=OSA,UNITADD=00

IODEVICE ADDRESS=(9BF),CUNUMBR=(0700),UNIT=OSAD,UNITADD=FE

**** —- ESCON CARTRIDGE 3590/3494 TAPE LIBRARY

CNTLUNIT CUNUMBR=0E80,PATH=0E,UNIT=3590,                      X

UNITADD=((00,2))

IODEVICE ADDRESS=(0280,02),CUNUMBR=(0E80),STADET=Y,           X

UNIT=3590,UNITADD=00,OFFLINE=YES,                       X

USERPRM=((LIBRARY,YES),(LIBRARY-ID,12359),              X

(LIBPORT-ID,1))

**** —- ESCON CARTRIDGE 3590E –

CNTLUNIT CUNUMBR=0E90,PATH=16,UNIT=3590,                      X

UNITADD=((00,2))

IODEVICE ADDRESS=(0300,2),CUNUMBR=(0E90),STADET=Y,            X

UNIT=3590,UNITADD=00,OFFLINE=YES,FEATURE=(COMPACT)

**** —- ESCON CARTRIDGE 3490E –

CNTLUNIT CUNUMBR=0200,PATH=17,UNIT=3490,                      X

UNITADD=((00,16))

IODEVICE ADDRESS=(0200,16),CUNUMBR=(0200),STADET=Y,           X

UNIT=3490,UNITADD=00,OFFLINE=YES

**** —- ESS (SHARK) – 2105/800  – all disk volumes online on IPL (offline=no –  default)

CNTLUNIT CUNUMBR=3600,PATH=(25,27),                           X

UNITADD=((00,256)),UNIT=2105,CUADD=0

IODEVICE UNIT=3390,ADDRESS=(1600,146),CUNUMBR=(3600),         X

UNITADD=00,STADET=Y

CNTLUNIT CUNUMBR=3700,PATH=(25,27),                           X

UNITADD=((00,256)),UNIT=2105,CUADD=1

IODEVICE UNIT=3390,ADDRESS=(1700,146),CUNUMBR=(3700),         X

UNITADD=00,STADET=Y

CNTLUNIT CUNUMBR=3800,PATH=(25,27),                           X

UNITADD=((00,256)),UNIT=2105,CUADD=2

IODEVICE UNIT=3390,ADDRESS=(1800,146),CUNUMBR=(3800),         X

UNITADD=00,STADET=Y

CNTLUNIT CUNUMBR=3900,PATH=(25,27),                           X

UNITADD=((00,256)),UNIT=2105,CUADD=3

IODEVICE UNIT=3390,ADDRESS=(1900,146),CUNUMBR=(3900),         X

UNITADD=00,STADET=Y

**** —- ESCON VTS 3494 – B10  TAPE LIBRARY

CNTLUNIT CUNUMBR=1040,PATH=(10,11,1A,1B),UNIT=3490,            X

UNITADD=((00,16)),CUADD=0

IODEVICE ADDRESS=(440,16),CUNUMBR=(1040),STADET=Y,            X

UNIT=3490,UNITADD=00,OFFLINE=YES,                                         X

USERPRM=((LIBRARY,YES),(LIBRARY-ID,B1425),                          X

(LIBPORT-ID,1))

CNTLUNIT CUNUMBR=1150,PATH=(10,11,1A,1B),UNIT=3490,            X

UNITADD=((00,16)),CUADD=1

IODEVICE ADDRESS=(450,16),CUNUMBR=(1150),STADET=Y,            X

UNIT=3490,UNITADD=00,OFFLINE=YES,                                          X

USERPRM=((LIBRARY,YES),(LIBRARY-ID,B1425),                          X

(LIBPORT-ID,2))

CNTLUNIT CUNUMBR=1A60,PATH=(10,11,1A,1B),UNIT=3490,            X

UNITADD=((00,16)),CUADD=2

IODEVICE ADDRESS=(460,16),CUNUMBR=(1A60),STADET=Y,            X

UNIT=3490,UNITADD=00,OFFLINE=YES,                                          X

USERPRM=((LIBRARY,YES),(LIBRARY-ID,B1425),                           X

(LIBPORT-ID,3))

CNTLUNIT CUNUMBR=1B70,PATH=(10,11,1A,1B),UNIT=3490,             X

UNITADD=((00,16)),CUADD=3

IODEVICE ADDRESS=(470,16),CUNUMBR=(1B70),STADET=Y,            X

UNIT=3490,UNITADD=00,OFFLINE=YES,                                          X

USERPRM=((LIBRARY,YES),(LIBRARY-ID,B1425),                          X

(LIBPORT-ID,4))

**** —- ESS (SHARK) – 2105/F20

CNTLUNIT CUNUMBR=2700,PATH=(24,26),                                          X

UNITADD=((00,128)),UNIT=2105,CUADD=0

IODEVICE UNIT=3390,ADDRESS=(700,38),CUNUMBR=(2700),           X

UNITADD=00,STADET=Y,OFFLINE=YES

IODEVICE UNIT=3390,ADDRESS=(726,10),CUNUMBR=(2700),           X

UNITADD=26,STADET=Y,OFFLINE=YES

IODEVICE UNIT=3390,ADDRESS=(730,16),CUNUMBR=(2700),           X

UNITADD=30,STADET=Y,OFFLINE=YES

IODEVICE UNIT=3390,ADDRESS=(740,9),CUNUMBR=(2700),            X

UNITADD=40,STADET=Y,OFFLINE=YES

CNTLUNIT CUNUMBR=2780,PATH=(24,26),                                          X

UNITADD=((80,128)),UNIT=2105,CUADD=1

IODEVICE UNIT=3390,ADDRESS=(780,38),CUNUMBR=(2780),           X

UNITADD=80,STADET=Y,OFFLINE=YES

IODEVICE UNIT=3390,ADDRESS=(7A6,10),CUNUMBR=(2780),           X

UNITADD=A6,STADET=Y,OFFLINE=YES

IODEVICE UNIT=3390,ADDRESS=(7B0,16),CUNUMBR=(2780),           X

UNITADD=B0,STADET=Y,OFFLINE=YES

IODEVICE UNIT=3390,ADDRESS=(7C0,9),CUNUMBR=(2780),            X

UNITADD=C0,STADET=Y,OFFLINE=YES

CNTLUNIT CUNUMBR=2800,PATH=(24,26),                                          X

UNITADD=((00,128)),UNIT=2105,CUADD=2

IODEVICE UNIT=3390,ADDRESS=(800,38),CUNUMBR=(2800),           X

UNITADD=00,STADET=Y,OFFLINE=YES

IODEVICE UNIT=3390,ADDRESS=(826,10),CUNUMBR=(2800),           X

UNITADD=26,STADET=Y,OFFLINE=YES

IODEVICE UNIT=3390,ADDRESS=(830,25),CUNUMBR=(2800),           X

UNITADD=30,STADET=Y,OFFLINE=YES

CNTLUNIT CUNUMBR=2880,PATH=(24,26),                                         X

UNITADD=((00,128)),UNIT=2105,CUADD=3

IODEVICE UNIT=3390,ADDRESS=(880,73),CUNUMBR=(2880),           X

UNITADD=00,STADET=Y,OFFLINE=YES

**** —- ESCON RAMAC 3 DASD SUBSYSTEM

*        CNTLUNIT CUNUMBR=0800,PATH=(08,18),

*              UNITADD=((00,128)),UNIT=3990

*        CNTLUNIT CUNUMBR=1800,PATH=(09,19),

*              UNITADD=((00,128)),UNIT=3990

*        IODEVICE UNIT=3390,ADDRESS=(0600,128),CUNUMBR=(0800,1800),

*              UNITADD=00

*****************************************************************

*              END OF IOCP GENERATION DECK                      *

*****************************************************************

*———————————————————————*

*                 I/O DEVICE UNIT NAMES                               *

*———————————————————————*

USYSSQ   UNITNAME NAME=SYSSQ,                                                            X

UNIT=((1600,146),(1700,146),(1800,146),(1900,146))

USYSDA   UNITNAME NAME=SYSDA,                                                             X

UNIT=((1600,146),(1700,146),(1800,146),(1900,146))

USYSWK   UNITNAME NAME=SYSWK,                                                             X

UNIT=((1600,146),(1700,146),(1800,146),(1900,146))

UVIO     UNITNAME NAME=VIO,VIO=YES,UNIT=((1600,146))

UCART    UNITNAME NAME=CART,UNIT=((200,2))

UCART90  UNITNAME NAME=CART90,UNIT=((200,2))

UCART35  UNITNAME NAME=CART35,UNIT=((280,2))

UT3590   UNITNAME NAME=T3590,UNIT=((300,2))

UVTS1    UNITNAME NAME=VTS1,UNIT=((440,64))

SPACE 2

*———————————————————————*

*  SYSTEM CONSOLES FOR NUCLEUS INITIALIZATION PROGRAM (NIP)           *

*     AFTER NIP, MVS WILL USE THE CONSOLXX MEMBER OF SYS1.PARMLIB     *

*     NIP DOES NOT USE OUTPUT-ONLY (PRINTER) CONSOLES                 *

*———————————————————————*

*———————————————————————*

* THE  CONSOL00 MEMBER CONSTRUCTED BY MVS EXPRESS WILL ASSIGN THE MVS *

* HARDCOPY  FUNCTION  TO  SYSLOG.   IF  YOU  SHOULD  ADD  OUTPUT-ONLY *

* CONSOLES, IT IS  RECOMMENDED THAT YOU  LEAVE  HARDCOPY  ASSIGNED TO *

* SYSLOG.  THIS WILL KEEP THE  CONSOLE LOG ON THE JES2 SPOOL AND SEND *

* IT  PERIODICALLY TO A  HIGH-SPEED  SPOOL  PRINTER.  MEANWHILE, YOUR *

* OUTPUT-ONLY  CONSOLES  WILL  RECEIVE  ALL  OUTPUT  MESSAGES AS THEY *

* OCCUR.                                                              *

*                                                                     *

* IF  HARDCOPY IS NOT ASSIGNED TO SYSLOG, IT COULD BE  INTERRUPTED BY *

* AN  OUTAGE  (EVEN  A  FORMS OR  RIBBON  CHANGE) ON THE  OUTPUT-ONLY *

* CONSOLE.                                                            *

*                                                                     *

* ALSO, THE  OPTIONAL  SDSF  PRODUCT CAN BE USED TO  BROWSE SYSLOG IF *

* HARDCOPY HAS BEEN ASSIGNED TO SYSLOG.  THIS PROVIDES A PRODUCTIVITY *

* BENEFIT FOR TECHNICAL SUPPORT PERSONNEL WHEN INVESTIGATING PROBLEMS *

* BY ELIMINATING PAPER  AND BY ENABLING THE USE OF THE “FIND” COMMAND *

* TO SKIP TO THE RELEVANT INFORMATION.                                *

*———————————————————————*

NIPCONA  NIPCON DEVNUM=(E00,E01,D00,D01,C00,C01)

  

                Case 4. Change   member KCI88.ZOS140.BASE.LIB(mvsio42) to add new disk volumes   and change disk volume status online/offline at IPL 

 

New  disk volume addresses (500 and 600)  are added to control unit  3A00:

CNTLUNIT CUNUMBR=3A00,PATH=(25,27),                                                   X

UNITADD=((00,256)),UNIT=2105,CUADD=4

IODEVICE UNIT=3390,ADDRESS=(0500,256),CUNUMBR=(3A00),                 X

UNITADD=00,STADET=Y,OFFLINE=YES

CNTLUNIT CUNUMBR=3B00,PATH=(25,27),                                                     X

UNITADD=((00,256)),UNIT=2105,CUADD=5

IODEVICE UNIT=3390,ADDRESS=(0600,256),CUNUMBR=(3B00),                  X

UNITADD=00,STADET=Y,OFFLINE=YES

–          500  – offline is default  at IPL (parameter  offline=YES)

IODEVICE UNIT=3390,ADDRESS=(0500,256),CUNUMBR=(3A00),      X

UNITADD=00,STADET=Y,OFFLINE=YES

–          600  – offline is default  at IPL (parameter  offline=YES)  )

IODEVICE UNIT=3390,ADDRESS=(0600,256),CUNUMBR=(3B00),         X

UNITADD=00,STADET=Y,OFFLINE=YES

ESS (SHARK) – 2105/800  – The existing  disk volumes old status is online after  IPL (offline=no – by   default)   for addresses 1600/146,   1700/146, 1800/146, 1900/146. IPL disk volumes are with addresses 1900 and 1904.

Sys1.iodf42 file should be on disk volume  with  address  1904( BC2MCC) to be used during the IPL load from HMC console for IPL 1900 (BC2RIC ) of  BC3A LPAR  with following  parameters:

IPL 1900

190442

.If you  want some of disk volumes to be with different status on  IPL (online or offline), do the following changes:

**** —- ESS (SHARK) – 2105/800

CNTLUNIT CUNUMBR=3600,PATH=(25,27),                                          X

UNITADD=((00,256)),UNIT=2105,CUADD=0

IODEVICE UNIT=3390,ADDRESS=(1600,58),CUNUMBR=(3600),          X – online

UNITADD=00,STADET=Y

IODEVICE UNIT=3390,ADDRESS=(163A,2),CUNUMBR=(3600),           X  – offline

UNITADD=3A,STADET=Y,OFFLINE=YES

IODEVICE UNIT=3390,ADDRESS=(163C,86),CUNUMBR=(3600),          X  – online

UNITADD=3C,STADET=Y

CNTLUNIT CUNUMBR=3700,PATH=(25,27),                                            X

UNITADD=((00,256)),UNIT=2105,CUADD=1

IODEVICE UNIT=3390,ADDRESS=(1700,58),CUNUMBR=(3700),           X  – online

UNITADD=00,STADET=Y

IODEVICE UNIT=3390,ADDRESS=(173A,2),CUNUMBR=(3700),            X  – offline

UNITADD=3A,STADET=Y,OFFLINE=YES

IODEVICE UNIT=3390,ADDRESS=(173C,86),CUNUMBR=(3700),           X  – online

UNITADD=3C,STADET=Y

CNTLUNIT CUNUMBR=3800,PATH=(25,27),                                             X

UNITADD=((00,256)),UNIT=2105,CUADD=2

IODEVICE UNIT=3390,ADDRESS=(1800,58),CUNUMBR=(3800),           X  – online

UNITADD=00,STADET=Y

IODEVICE UNIT=3390,ADDRESS=(183A,1),CUNUMBR=(3800),            X  – offline

UNITADD=3A,STADET=Y,OFFLINE=YES

IODEVICE UNIT=3390,ADDRESS=(183B,87),CUNUMBR=(3800),          X  – online

UNITADD=3B,STADET=Y

CNTLUNIT CUNUMBR=3900,PATH=(25,27),                                            X

UNITADD=((00,256)),UNIT=2105,CUADD=3

IODEVICE UNIT=3390,ADDRESS=(1900,23),CUNUMBR=(3900),          X  – online

UNITADD=00,STADET=Y

IODEVICE UNIT=3390,ADDRESS=(1917,1),CUNUMBR=(3900),           X  – offline

UNITADD=17,STADET=Y,OFFLINE=YES

IODEVICE UNIT=3390,ADDRESS=(1918,10),CUNUMBR=(3900),          X   – online

UNITADD=18,STADET=Y

IODEVICE UNIT=3390,ADDRESS=(1922,2),CUNUMBR=(3900),           X – offline

UNITADD=22,STADET=Y,OFFLINE=YES

IODEVICE UNIT=3390,ADDRESS=(1924,2),CUNUMBR=(3900),           X  – online

UNITADD=24,STADET=Y

IODEVICE UNIT=3390,ADDRESS=(1926,20),CUNUMBR=(3900),          X – offline

UNITADD=26,STADET=Y,OFFLINE=YES

IODEVICE UNIT=3390,ADDRESS=(193A,21),CUNUMBR=(3900),          X  – online

UNITADD=3A,STADET=Y

IODEVICE UNIT=3390,ADDRESS=(194F,16),CUNUMBR=(3900),          X  – offline

UNITADD=4F,STADET=Y,OFFLINE=YES

IODEVICE UNIT=3390,ADDRESS=(195F,51),CUNUMBR=(3900),          X   – online

UNITADD=5F,STADET=Y

–          1600-1639  – online is default  at IPL (parameter  offline=NO if missing)

IODEVICE UNIT=3390,ADDRESS=(1600,58),CUNUMBR=(3600),                X

UNITADD=00,STADET=Y

–          163a-163b  – offline is default  at IPL (parameter  offline=YES)

IODEVICE UNIT=3390,ADDRESS=(163A,2),CUNUMBR=(3600),                    X

UNITADD=3A,STADET=Y,OFFLINE=YES

–          163c-1691  – online is default  (parameter  offline=NO)

–          1700-1739  – online is default  (parameter  offline=NO)

–          173a-173b  – offline is default  (parameter  offline=YES)

–          173c-1791  – online is default  (parameter  offline=NO)

–          1800-1839  – online is default  (parameter  offline=NO)

–          183a           – offline is default  (parameter  offline=YES)

–          183b-1891  – online is default  (parameter  offline=NO)

–          183c-183b  – online is default  (parameter  offline=NO)

–          1900-1916  – online is default  (parameter  offline=NO)

–          1917           – offline is default  (parameter  offline=YES)

–          1918-1921  – online is default  (parameter  offline=NO)

–          1922-1923  – offline is default  (parameter  offline=YES)

–          1924-1925  – online is default  (parameter  offline=NO)

–          1926-1939  – offline is default  (parameter  offline=YES)

–          193a-194e  – online is default  (parameter  offline=NO)

–          194f-195e   – offline is default  (parameter  offline=YES)

–          195f-1991   – online is default  (parameter  offline=NO)

 

                Case 5. Submit JCL KCI88.ZOS140.BASE.LIB(IODEF42)  to  create SYS1.IODEF42

 

After the changes  in KCI88.ZOS140.BASE.LIB(mvsio42) f rom case 4,  IODEF42 JCL from case 2 is submitted and executed (assembly, LE and  save SYS1.IODF42 load file).

 

 After execution  – these files are created on IPL disk volume (BC2MCC with addrtess 1900) –  look with p.3.4 in TSO/ISPF:

sys1.iodf42

sys1.iodf42.cluster

sys1.iodf42.work

sys1.iodf42.work.cluster

 

                Case 6. Create library member SYS1.IPLPARM(LOAD42)

 

Copy LOAD2B as LOAD42 and change  IODF  from  ‘IODF     08 SYS1     BC1B     08’       

to   ‘IODF     42  SYS1     BC1B     42’ and have line   LPARNAME BC2A  removed  for BC3A IPL:

 

Old:

IODF     08 SYS1     BC1B     08       

LPARNAME BC2A              – this line should be  removed!!!

NUCLEUS  1

……..

 

 New:

IODF     42  SYS1     BC1B     42                                   

NUCLEUS  1                                                         

NUCLST   00 Y

SYSCAT   BC2MCC113CCATALOG.MVSICFM.VBC2MCC

SYSPLEX  BC2APLEX

PARMLIB  SYS1.PARMLIB                                 *MCAT*

PARMLIB  CPAC.PARMLIB                                 *MCAT*

IEASYM   00

(Look at PC-file: LOAD42_BC3A.docx)

 

                Case 7. IPL  from LPAR BC3A with sys1.iplparm(LOAD42) for BC2A test configuration at 7K  centre  

 

Verify the IPL volume addresses  for LPAR BCA/92 with MVS command in  TSO/ISPF sd.log with:

/D IPLINFO                                 

IEE254I  17.47.10 IPLINFO DISPLAY 164

SYSTEM IPLED AT 15.01.53 ON 04/07/2011

RELEASE z/OS 01.04.00    LICENSE = z/OS

USED LOAD42 IN SYS1.IPLPARM ON 1904

ARCHLVL = 2   MTLSHARE = N

IEASYM LIST = 00

IEASYS LIST = 00

IODF DEVICE 1904

IPL DEVICE 1900 VOLUME BC2RIC

 

Enter IPL  load menu  of HMC in CPU/Mainframe  and enter:

IPL device – 1900

IPL parm   – 190442

During IPL of  LPAR/BC3A (from old BC2A disk volumes) no problems exist with BC2A definitions eliminated by changes for 0d00,0d01 consoles, but  the real Master console  for LPAR/BC3A has  a different address 0c00 which conflicts with the  old BC2A disk volumes definitions. The solution  is  (after the first messages of  LPAR/BC3A on 0c00 console) to start and use  the HMC hardware console issuing the command: v cn(*),activate.

*** Remark: IOCDS could be created  following the rules in instructions for  IOCDS_creation  via HCD or HMC.

ZB_0903 – IOCDS created by IBM  and loaded manual with VSE LPAR.

ZB_1001– IOCDS  (the last,current)  created by IBM  and loaded manual without VSE LPAR.

Incoming search terms:

  • CBDMGHCP
  • mainframe device management
  • z/os catalog IODF dataset

Leave A Reply

Comments

No comments yet, be the first to add one!

Places

 

Clef two-factor authentication

woolrich outlet woolrich outlet online tiffany milano tiffany outlet tiffany outlet tiffany outlet tiffany outlet tiffany milano tiffany outlet peuterey outlet peuterey uomo hogan outlet hogan rebel hogan outlet hogan rebel hogan outlet hogan rebel hogan outlet hogan rebel hogan outlet hogan rebel hogan outlet hogan rebel roshe run pas cher roshe run parajumpers pas cher parajumpers soldes parajumpers pas cher parajumpers soldes parajumpers pas cher parajumpers soldes louboutin pas cher louboutin pas cher louboutin pas cher nike tn pas cher nike tn pas cher