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
Comments
No comments yet, be the first to add one!