はじめに
Wazi aaSでは、Stock Imageという出来合いのz/OSイメージが提供されています。このイメージには、z/OSはもちろん、各種ミドルウェアや開発に必要な言語環境など各種ツールがある程度セットアップされた状態になっています。
ここでは、Stock Imageとして提供されるz/OS環境がどのような構成になっているか、中身を見てみたいと思います。
※当記事は 2023年3月時点で提供されるStock Image: ibm-zos-2-4-s390x-dev-test-wazi-7 について記載しています。
関連記事
Wazi aaS: クラウド上でのメインフレーム開発環境構築 - (1) 概要
Wazi aaS: クラウド上でのメインフレーム開発環境構築 - (2) 仮想サーバー作成
Wazi aaS: クラウド上でのメインフレーム開発環境構築 - (3) ネットワーク構成
Wazi aaS: クラウド上でのメインフレーム開発環境構築 - (4) Wazi aaS への接続
Wazi aaS: クラウド上でのメインフレーム開発環境構築 - (5) Stock Iamge確認
Wazi aaS: クラウド上でのメインフレーム開発環境構築 - (6) Stock Iamge基本操作/カスタマイズ
Wazi aaS: クラウド上でのメインフレーム開発環境構築 - (7) Wazi Image Builder
Wazi aaS: クラウド上でのメインフレーム開発環境構築 - (7)' Wazi Image Builder - Trouble Shootingメモ
Wazi aaS: クラウド上でのメインフレーム開発環境構築 - (8) Wazi aaS仮想サーバーの複製
Wazi aaS: クラウド上でのメインフレーム開発環境構築 - (9) TerraformによるWazi aaS仮想サーバーの管理
Stock Image内容確認
CPU
D M=CPU
でCPU情報を見てみると以下のように表示されます。
IEE174I 22.24.41 DISPLAY M 523
PROCESSOR STATUS
ID CPU SERIAL
00 + 013EE88562
CPC ND = 008562.A00.IBM.C1.2BAA74583EE8
CPC SI = 8562.A00.IBM.C1.430A2BAA74583EE8
CPC ID = 00
CPC NAME = CPC_UNKNOWN_NAME
+ ONLINE - OFFLINE . DOES NOT EXIST W WLM-MANAGED
N NOT AVAILABLE
CPC ND CENTRAL PROCESSING COMPLEX NODE DESCRIPTOR
CPC SI SYSTEM INFORMATION FROM STSI INSTRUCTION
CPC ID CENTRAL PROCESSING COMPLEX IDENTIFIER
CPC NAME CENTRAL PROCESSING COMPLEX NAME
仮想サーバー作成時に指定したプロファイルのvCPU数-1の数がz/OSにアサインされます。今回の例では2vCPUのプロファイルを使用しているので、z/OSとして見えるCPU数は1つということになります。
(zIIPはサポートされません)
Memory
D M=STOR
でCPU情報を見てみると以下のように表示されます。
D M=STOR
IEE174I 18.39.01 DISPLAY M 353
REAL STORAGE STATUS
ONLINE-NOT RECONFIGURABLE
0M-13715M
ONLINE-RECONFIGURABLE
NONE
PENDING OFFLINE
NONE
STORAGE INCREMENT SIZE IS 1M
仮想サーバー作成時に指定したプロファイルのメモリサイズ-3GBがz/OSにアサインされているようです。今回の例では16GBのプロファイルを使用しているので、z/OSとして見えるメモリとしては約13GBということになります。
IODF
IODF
I/O Device List Row 1 of 7 More: >
Command ===> ___________________________________________ Scroll ===> CSR
Select one or more devices, then press Enter. To add, use F11.
----------Device------ --#--- --------Control Unit Numbers + --------
/ Number Type + CSS OS 1--- 2--- 3--- 4--- 5--- 6--- 7--- 8---
_ 0060 3277-2 1 ____ ____ ____ ____ ____ ____ ____ ____
_ 0061 3277-2 1 ____ ____ ____ ____ ____ ____ ____ ____
_ 0580,4 3490 1 ____ ____ ____ ____ ____ ____ ____ ____
_ 1500,16 OSA 1 ____ ____ ____ ____ ____ ____ ____ ____
_ DE00,41 3390 1 ____ ____ ____ ____ ____ ____ ____ ____
_ DE29 3390 1 ____ ____ ____ ____ ____ ____ ____ ____
_ DE2A,214 3390 1 ____ ____ ____ ____ ____ ____ ____ ____
******************************* Bottom of data ********************************
※使用しているIODFを確認するコマンド: 「D IOS,CONFIG」
DASD
オンラインになっているDASD一覧
D U,DASD,ONLINE
IEE457I 08.13.30 UNIT STATUS 345
UNIT TYPE STATUS VOLSER VOLSTATE SS
DE00 3390 A USRVS1 PRIV/RSDNT 0
DE01 3390 A DEVVS1 PRIV/RSDNT 0
DE24 3390 A ZFSVS1 PRIV/RSDNT 0
DE26 3390 O Z24VS1 PRIV/RSDNT 0
DE27 3390 S D24VS1 PRIV/RSDNT 0
DE28 3390 A OPEVS1 PRIV/RSDNT 0
DE29 3390 A STGVS1 STRG/RSDNT 0
DE2A 3390 A JSPVS1 PRIV/RSDNT 0
DE2B 3390 A PRDVS1 PRIV/RSDNT 0
DE2C 3390 A JCKVS1 PRIV/RSDNT 0
各VOLのVTOC情報
Volume . : USRVS1
Unit . . : 3390
Volume Data VTOC Data Free Space Tracks Cyls
Tracks . : 450,765 Tracks . : 44 Size . . : 184,132 12,268
%Used . : 59 %Used . . : 57 Largest . : 183,315 12,221
Trks/Cyls: 15 Free DSCBS: 958 Free
Extents . : 39
Volume . : DEVVS1
Unit . . : 3390
Volume Data VTOC Data Free Space Tracks Cyls
Tracks . : 491,400 Tracks . : 44 Size . . : 105,764 7,050
%Used . : 78 %Used . . : 11 Largest . : 100,080 6,672
Trks/Cyls: 15 Free DSCBS: 1,962 Free
Extents . : 5
Volume . : ZFSVS1
Unit . . : 3390
Volume Data VTOC Data Free Space Tracks Cyls
Tracks . : 491,400 Tracks . : 44 Size . . : 235,420 15,694
%Used . : 52 %Used . . : 1 Largest . : 235,420 15,694
Trks/Cyls: 15 Free DSCBS: 2,188 Free
Extents . : 1
Volume . : Z24VS1
Unit . . : 3390
Volume Data VTOC Data Free Space Tracks Cyls
Tracks . : 491,400 Tracks . : 29 Size . . : 137,209 9,146
%Used . : 72 %Used . . : 29 Largest . : 137,190 9,146
Trks/Cyls: 15 Free DSCBS: 1,042 Free
Extents . : 3
Volume . : D24VS1
Unit . . : 3390
Volume Data VTOC Data Free Space Tracks Cyls
Tracks . : 491,400 Tracks . : 29 Size . . : 40,274 2,682
%Used . : 91 %Used . . : 29 Largest . : 34,075 2,271
Trks/Cyls: 15 Free DSCBS: 1,036 Free
Extents . : 9
Volume . : OPEVS1
Unit . . : 3390
Volume Data VTOC Data Free Space Tracks Cyls
Tracks . : 150,255 Tracks . : 44 Size . . : 50,424 3,359
%Used . : 66 %Used . . : 6 Largest . : 41,580 2,772
Trks/Cyls: 15 Free DSCBS: 2,084 Free
Extents . : 15
Volume . : STGVS1
Unit . . : 3390
Volume Data VTOC Data Free Space Tracks Cyls
Tracks . : 50,085 Tracks . : 44 Size . . : 20,939 1,394
%Used . : 58 %Used . . : 2 Largest . : 9,525 635
Trks/Cyls: 15 Free DSCBS: 2,177 Free
Extents . : 14
Volume . : JSPVS1
Unit . . : 3390
Volume Data VTOC Data Free Space Tracks Cyls
Tracks . : 50,085 Tracks . : 44 Size . . : 0 0
%Used . : 100 %Used . . : 1 Largest . : 0 0
Trks/Cyls: 15 Free DSCBS: 2,196 Free
Extents . : 0
Volume . : PRDVS1
Unit . . : 3390
Volume Data VTOC Data Free Space Tracks Cyls
Tracks . : 491,400 Tracks . : 44 Size . . : 10,999 730
%Used . : 97 %Used . . : 23 Largest . : 10,952 730
Trks/Cyls: 15 Free DSCBS: 1,710 Free
Extents . : 7
Volume . : JCKVS1
Unit . . : 3390
Volume Data VTOC Data Free Space Tracks Cyls
Tracks . : 16,695 Tracks . : 44 Size . . : 9,896 659
%Used . : 40 %Used . . : 1 Largest . : 9,885 659
Trks/Cyls: 15 Free DSCBS: 2,196 Free
カタログ
マスター・カタログ: CATALOG.VS01.MASTER
ユーザー・カタログ
LISTC USERCATALOG ALL
結果
1IDCAMS SYSTEM SERVICES TIME: 14:18:45 03/27/23 PAGE 1
0
LISTC USERCATALOG ALL
1IDCAMS SYSTEM SERVICES TIME: 14:18:45 03/27/23 PAGE 2
- LISTING FROM CATALOG -- CATALOG.VS01.MASTER
0USERCATALOG --- CATALOG.VS01.DEVTEST
HISTORY
RELEASE----------------2
ENCRYPTIONDATA
DATA SET ENCRYPTION-----(NO)
VOLUMES
VOLSER------------DEVVS1 DEVTYPE------X'3010200F' VOLFLAG------------PRIME
ASSOCIATIONS
ALIAS----GO
ALIAS----IDZ
ALIAS----NODEJS
ALIAS----ROCKET
ALIAS----SMPEDEV
ALIAS----TWS
ALIAS----EQAW
ALIAS----BGZ
ALIAS----BGY
ALIAS----AKG
ALIAS----FEK
ALIAS----FEL
ALIAS----BZU
ALIAS----HUH
ALIAS----IPV
ALIAS----RL2
ALIAS----FEU
ALIAS----REXX
ALIAS----ZCONEE
0USERCATALOG --- CATALOG.VS01.PROGPROD
HISTORY
RELEASE----------------2
ENCRYPTIONDATA
DATA SET ENCRYPTION-----(NO)
VOLUMES
VOLSER------------PRDVS1 DEVTYPE------X'3010200F' VOLFLAG------------PRIME
ASSOCIATIONS
ALIAS----DB2
ALIAS----JAVA
ALIAS----IGY
ALIAS----PLI
ALIAS----PYTHON
ALIAS----IRLM
ALIAS----CICSTS
ALIAS----ZOAU
ALIAS----SA
ALIAS----NETVIEW
ALIAS----DB2PROV
ALIAS----IMS
1IDCAMS SYSTEM SERVICES TIME: 14:18:45 03/27/23 PAGE 3
- LISTING FROM CATALOG -- CATALOG.VS01.MASTER
0 ALIAS----MQCD
0USERCATALOG --- CATALOG.VS01.SYS
HISTORY
RELEASE----------------2
ENCRYPTIONDATA
DATA SET ENCRYPTION-----(NO)
VOLUMES
VOLSER------------OPEVS1 DEVTYPE------X'3010200F' VOLFLAG------------PRIME
ASSOCIATIONS
ALIAS----SMPE
ALIAS----ICSF
ALIAS----OMVS
ALIAS----SYSDUMP
ALIAS----IXGLOGR
ALIAS----MVSCLNT
0USERCATALOG --- CATALOG.VS01.TSO
HISTORY
RELEASE----------------2
ENCRYPTIONDATA
DATA SET ENCRYPTION-----(NO)
VOLUMES
VOLSER------------OPEVS1 DEVTYPE------X'3010200F' VOLFLAG------------PRIME
ASSOCIATIONS
ALIAS----IBMUSER
0USERCATALOG --- USERCAT.CICSTS61
HISTORY
RELEASE----------------2
ENCRYPTIONDATA
DATA SET ENCRYPTION-----(NO)
VOLUMES
VOLSER------------USRVS1 DEVTYPE------X'3010200F' VOLFLAG------------PRIME
ASSOCIATIONS
ALIAS----CICSTS61
0USERCATALOG --- USERCAT.DBD1
HISTORY
RELEASE----------------2
ENCRYPTIONDATA
DATA SET ENCRYPTION-----(NO)
1IDCAMS SYSTEM SERVICES TIME: 14:18:45 03/27/23 PAGE 4
- LISTING FROM CATALOG -- CATALOG.VS01.MASTER
0 VOLUMES
VOLSER------------USRVS1 DEVTYPE------X'3010200F' VOLFLAG------------PRIME
ASSOCIATIONS
ALIAS----DBD1
0USERCATALOG --- USERCAT.IMS15
HISTORY
RELEASE----------------2
ENCRYPTIONDATA
DATA SET ENCRYPTION-----(NO)
VOLUMES
VOLSER------------USRVS1 DEVTYPE------X'3010200F' VOLFLAG------------PRIME
ASSOCIATIONS
ALIAS----IMS15
1IDCAMS SYSTEM SERVICES TIME: 14:18:45 03/27/23 PAGE 5
- LISTING FROM CATALOG -- CATALOG.VS01.MASTER
0 THE NUMBER OF ENTRIES PROCESSED WAS:
AIX -------------------0
ALIAS -----------------0
CLUSTER ---------------0
DATA ------------------0
GDG -------------------0
INDEX -----------------0
NONVSAM ---------------0
PAGESPACE -------------0
PATH ------------------0
SPACE -----------------0
USERCATALOG -----------7
TAPELIBRARY -----------0
TAPEVOLUME ------------0
TOTAL -----------------7
0 THE NUMBER OF PROTECTED ENTRIES SUPPRESSED WAS 0
0IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
1IDCAMS SYSTEM SERVICES TIME: 14:18:45 03/27/23 PAGE 6
0
0IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 0
IPL情報
IPLINFO
IPLINFO
D IPLINFO
IEE254I 14.13.38 IPLINFO DISPLAY 771
SYSTEM IPLED AT 19.47.48 ON 02/27/2023
RELEASE z/OS 02.04.00 LICENSE = z/OS
USED LOADK2 IN SYS0.IPLPARM ON 0DE28
ARCHLVL = 2 MTLSHARE = N
IEASYM LIST = K2
IEASYS LIST = (00) (OP)
IODF DEVICE: ORIGINAL(0DE28) CURRENT(0DE28)
IPL DEVICE: ORIGINAL(0DE27) CURRENT(0DE27) VOLUME(D24VS1)
VM CPID = zHYPaaS
VM UUID = F939909D-C002-4DF7-8214-5D855446BC38
VM NAME = k8s_1fc8
VM EXT NAME = k8s_1fc8373f538a408187ffedbe62e5796a_02e7_f939909d-c002
-4df7-8214-5d855446bc38
LOADxx
IODF 00 PROV DEFAULT 00
INITSQA 0001M
SYSCAT OPEVS1143CCATALOG.VS01.MASTER
IEASYM K2
SYSPLEX LOCAL
PARMLIB K2.PARMLIB USRVS1
PARMLIB SYS1.PARMLIB
PARMLIB SYS1.PARMLIB.INSTALL
PARMLIB関連
IEASYMxx
SYSDEF
SYMDEF(&JESNAME='VSIPLEX')
SYMDEF(&HOMEIPADDRESS1.='10.1.1.2')
SYMDEF(&DEFAULTROUTEADDR.='10.1.1.1')
SYMDEF(&OSAPORTNAME.='OSAFE')
SYMDEF(&NAMESERVERADDR1.='10.1.1.1')
SYMDEF(&NAMESERVERPORT.='53')
SYMDEF(&OWNNODE='00')
SYMDEF(&VTAMCFG='00')
SYMDEF(&VTAMSA='00')
SYSPARM(00)
SYMDEF(&IZUPRM='00')
SYMDEF(&COMMAND='00')
SYMDEF(&CONSOLE='00')
SYMDEF(&COUPLE='00')
SYMDEF(&IOEPRM='00')
SYMDEF(&LPALST='00')
SYMDEF(&OMVSPARM='00')
SYMDEF(&OPT='00')
SYMDEF(&PROGNME='00')
SYMDEF(&SCHED='00')
SYSDEF SYSNAME(VS01)
SYMDEF(&J2SPVL='JSPVS')
SYMDEF(&J2CKVL1='JCKVS1')
SYMDEF(&J2CKHLQ='VS01')
SYMDEF(&IPADDR4A='10')
SYMDEF(&IPADDR4B='1')
SYMDEF(&IPADDR4C='1')
SYMDEF(&IPADDR4D='2')
SYMDEF(&IPROUT4A='10')
SYMDEF(&IPROUT4B='1')
SYMDEF(&IPROUT4C='1')
SYMDEF(&IPROUT4D='0')
SYMDEF(&IPDRUT4A='10')
SYMDEF(&IPDRUT4B='1')
SYMDEF(&IPDRUT4C='1')
SYMDEF(&IPDRUT4D='1')
SYMDEF(&NODE='63')
SYMDEF(&SSCPID='5065')
SYMDEF(&HOSTSA='4')
SYMDEF(&NAMSVRA='10')
SYMDEF(&NAMSVRB='1')
SYMDEF(&NAMSVRC='1')
SYMDEF(&NAMSVRD='1')
SYMDEF(&J2CKVL2='')
SYMDEF(&TCPHOSTNAME_.='wazi01')
SYMDEF(&TCPDOMAIN_.='')
SYMDEF(&VPCVSIIPADDRESS.='10.244.0.7')
SYMDEF(&CERTEXPIRE='2024-02-04')
SYMDEF(&CNMDOMN='CNM01')
SYMDEF(&CNMNETID='NETA')
SYMDEF(&CNMTCPN='TCPIP')
/* Begin Ansible Block Insert */
SYMDEF(&CNMDOMN='CNM01')
SYMDEF(&CNMTCPN='TCPIP')
SYMDEF(&CNMNETID='EXPNET')
SYMDEF(&JES2STR_='(COLD,NOREQ)')
SYMDEF(&DBGMGR='IPL')
SYMDEF(&EQAPROF='IPL')
SYMDEF(&EQARMTD='IPL')
SYMDEF(&CICSTS61='IPL')
SYMDEF(&CSQ9MSTR='IPL')
SYMDEF(&CSQ9CHIN='IPL')
SYMDEF(&IMS15RL1='IPL')
SYMDEF(&IMS15CR1='IPL')
SYMDEF(&DBD1MSTR='IPL')
SYMDEF(&IZUANG1='IPL')
SYMDEF(&IZUSVR1='IPL')
SYMDEF(&JMON='IPL')
SYMDEF(&RSED='IPL')
SYMDEF(&RSEAPI='IPL')
SYMDEF(&DBB='IPL')
SYMDEF(&DBBS='IPL')
SYMDEF(&ZOSCSRV='IPL')
SYMDEF(&RESOLV_='RESSETUP')
/* End Ansible Block Insert */
IEASYSxx
AUTOR=(00,01),
OPI=YES,
CMD=(NV,01),
COUPLE=(00),
HZS=00,
HZSPROC=HZSPROC,
LOGREC=VSPROV.&SYSNAME..LOGREC,
LPA=(00,01,L),
OMVS=(00,01),
OPT=(00),
PAGE=(VSPROV.&SYSNAME..PAGE.PLPA,
VSPROV.&SYSNAME..PAGE.COMMON,
VSPROV.&SYSNAME..PAGE.LOCAL1,
VSPROV.&SYSNAME..PAGE.LOCAL,L),
PLEXCFG=MONOPLEX,
PROG=(00,01,IM,L),
SCH=(00,01),
IZU=00,
VIODSN=IGNORE,
ALLOC=00,
CLOCK=00,
CLPA,
CON=00,
CSA=(2M,400M),
CSCBLOC=ABOVE,
DEVSUP=00,
DIAG=00,
DUMP=DASD,
GRS=NONE,
GRSCNF=00,
GRSRNL=00,
IOS=00,
LFAREA=(1M=(25%,0%),NOPROMPT),
LOGCLS=N,
LOGLMT=050000,
MAXUSER=2000,
MLPA=00,
MSTRJCL=(00,L),
PROD=(00,01),
RACF=00,
REAL=0,
RSU=0,
RSVNONR=15,
RSVSTRT=5,
SMF=00,
SMS=00,
SQA=(1M,100M),
SSN=(00,01),
SVC=(00,01),
VAL=00,
VRREGN=0
COMMDxx
COM='SET MPF=01'
COM='D U,DASD,ONLINE,,2000'
COM='D U,UR,ONLINE'
COM='D U,TAPE,ONLINE'
COM='D CONSOLES'
COM='D DUMP,T'
COM='S IRRDPTAB'
COM='S EZAZSSI'
COM='D M'
COM='S CNMPSSI,SUB=MSTR'
COM='S CNMPROC,SUB=MSTR'
COM='DD NAME=SYSDUMP.&SYSNAME..D&LYYMMDD..T&LHHMMSS..SV&SEQ.'
COM='DD ALLOC=ACTIVE'
COM='DD ADD,VOL=(Z24VS1,SDUMP1,SDUMP2,SDUMP3)'
COM='CD SET,SDUMP,MAXSPACE=6000M'
BPXPRMxx
IPCSEMNSEMS(32767)
IPCSHMMPAGES(2621440)
IPCSHMSPAGES(2621440)
MAXASSIZE(536870912)
MAXCPUTIME(2147483647)
MAXFILEPROC(3000)
MAXPROCSYS(1500)
MAXPROCUSER(1250)
MAXPTYS(256)
MAXSHAREPAGES(2000000)
MAXTHREADS(10000)
MAXTHREADTASKS(1500)
MAXUIDS(200)
SHRLIBRGNSIZE(1610612736)
CTRACE(CTIBPX00)
FORKCOPY(COPY)
RESOLVER_PROC(RESOLVER)
SYSPLEX(NO)
FILESYSTYPE TYPE(TFS) ENTRYPOINT(BPXTFS)
FILESYSTYPE TYPE(HFS) ENTRYPOINT(GFUAINIT)
FILESYSTYPE TYPE(ZFS) ENTRYPOINT(IOEFSCM)
ASNAME(ZFS,'SUB=MSTR')
PARM('PRM=(&IOEPRM.)')
FILESYSTYPE TYPE(UDS) ENTRYPOINT(BPXTUINT)
FILESYSTYPE TYPE(AUTOMNT) ENTRYPOINT(BPXTAMD)
FILESYSTYPE TYPE(NFS) ENTRYPOINT(GFSCINIT) ASNAME(MVSNFSC)
NETWORK DOMAINNAME(AF_UNIX) DOMAINNUMBER(1) MAXSOCKETS(10000)
TYPE(UDS)
FILESYSTYPE TYPE(INET) ENTRYPOINT(EZBPFINI)
NETWORK DOMAINNAME(AF_INET) DOMAINNUMBER(2) MAXSOCKETS(35000)
TYPE(INET) INADDRANYPORT(6000) INADDRANYCOUNT(1000)
/********************************************************************/
/* System File Systems */
/********************************************************************/
ROOT FILESYSTEM('OMVS.VS01.ROOT.ZFS')
TYPE(ZFS)
MODE(READ)
MOUNT FILESYSTEM('OMVS.VS01.FONTS.ZFS')
TYPE(ZFS)
MODE(READ)
MOUNTPOINT('/usr/lpp/fonts')
MOUNT FILESYSTEM('OMVS.VS01.ETC.ZFS')
TYPE(ZFS)
MODE(RDWR)
MOUNTPOINT('/etc')
UNMOUNT
MOUNT FILESYSTEM('OMVS.VS01.VAR.ZFS')
TYPE(ZFS)
MODE(RDWR)
MOUNTPOINT('/var')
UNMOUNT
MOUNT FILESYSTEM('OMVS.VS01.VARWBEM.ZFS')
TYPE(ZFS)
MODE(RDWR)
MOUNTPOINT('/var/wbem')
UNMOUNT
MOUNT FILESYSTEM('OMVS.VS01.DEV.ZFS')
TYPE(ZFS)
MODE(RDWR)
MOUNTPOINT('/dev')
UNMOUNT
MOUNT FILESYSTEM('/TMP&SYSNAME.')
TYPE(TFS)
MOUNTPOINT('/tmp')
PARM('-s 1000 -p 1777')
UNMOUNT
MOUNT FILESYSTEM('OMVS.VS01.WLP.ZFS')
TYPE(ZFS)
MODE(READ)
MOUNTPOINT('/usr/lpp/liberty_zos')
UNMOUNT
MOUNT FILESYSTEM('OMVS.VS01.ZCX.ZFS')
TYPE(ZFS)
MODE(READ)
MOUNTPOINT('/usr/lpp/zcx_zos')
UNMOUNT
MOUNT FILESYSTEM('OMVS.VS01.SIZUUSRD.ZFS')
TYPE(ZFS)
MODE(RDWR)
MOUNTPOINT('/global/zosmf')
UNMOUNT
MOUNT FILESYSTEM('OMVS.VS01.SSH.ZFS')
TYPE(ZFS)
MODE(RDWR)
MOUNTPOINT('/etc/ssh')
UNMOUNT
/********************************************************************/
/* Program Product File Systems */
/********************************************************************/
MOUNT FILESYSTEM('CICSTS.V6R1M0.ZFS')
TYPE(ZFS)
MODE(READ)
MOUNTPOINT('/usr/lpp/cicsts')
UNMOUNT
MOUNT FILESYSTEM('DB2.V13R1M0.ZFS')
TYPE(ZFS)
MODE(RDWR)
MOUNTPOINT('/usr/lpp/db2d10')
UNMOUNT
MOUNT FILESYSTEM('JAVA.V8R0M0.ZFS')
TYPE(ZFS)
MODE(READ)
MOUNTPOINT('/usr/lpp/java/java8')
UNMOUNT
MOUNT FILESYSTEM('JAVA.V11R0M0.ZFS')
TYPE(ZFS)
MODE(READ)
MOUNTPOINT('/usr/lpp/java/java11')
UNMOUNT
MOUNT FILESYSTEM('IGY.V6R4M0.ZFS')
TYPE(ZFS)
MODE(READ)
MOUNTPOINT('/usr/lpp/IBM/cobol/igyv6r4')
UNMOUNT
MOUNT FILESYSTEM('IMS.V15R1M0.ZFS')
TYPE(ZFS)
MODE(READ)
MOUNTPOINT('/usr/lpp/ims')
UNMOUNT
MOUNT FILESYSTEM('MQCD.V9R3M0.ZFS')
TYPE(ZFS)
MODE(READ)
MOUNTPOINT('/usr/lpp/mqm')
UNMOUNT
MOUNT FILESYSTEM('NETVIEW.V6R4M0.ZFS')
TYPE(ZFS)
MODE(READ)
MOUNTPOINT('/usr/lpp/netview/v6r4')
UNMOUNT
MOUNT FILESYSTEM('PLI.V6R1M0.ZFS')
TYPE(ZFS)
MODE(READ)
MOUNTPOINT('/usr/lpp/IBM/pli/v6r1')
UNMOUNT
MOUNT FILESYSTEM('PYTHON.V3R9M0.ZFS')
TYPE(ZFS)
MODE(READ)
MOUNTPOINT('/usr/lpp/IBM/cyp/v3r9')
UNMOUNT
MOUNT FILESYSTEM('PYTHON.V3R10M0.ZFS')
TYPE(ZFS)
MODE(READ)
MOUNTPOINT('/usr/lpp/IBM/cyp/v3r10')
UNMOUNT
MOUNT FILESYSTEM('SA.V4R3M0.ZFS')
TYPE(ZFS)
MODE(READ)
MOUNTPOINT('/usr/lpp/ing')
UNMOUNT
MOUNT FILESYSTEM('ZOAU.V1R1M0.ZFS')
TYPE(ZFS)
MODE(READ)
MOUNTPOINT('/usr/lpp/IBM/zoautil')
UNMOUNT
MOUNT FILESYSTEM('IDZ.ZFS')
MOUNTPOINT('/usr/lpp/IBM/idz')
TYPE(ZFS) MODE(RDWR)
MOUNT FILESYSTEM('NODEJS.V16R0M0.ZFS')
MOUNTPOINT('/usr/lpp/IBM/cnj')
TYPE(ZFS) MODE(RDWR)
MOUNT FILESYSTEM('GO.V1R19M0.ZFS')
MOUNTPOINT('/usr/lpp/IBM/cvg/v1r19')
TYPE(ZFS) MODE(RDWR)
MOUNT FILESYSTEM('GO.V1R18M0.ZFS')
MOUNTPOINT('/usr/lpp/IBM/cvg/v1r18')
TYPE(ZFS) MODE(RDWR)
MOUNT FILESYSTEM('ZCONEE.ZFS')
MOUNTPOINT('/usr/lpp/IBM/zosconnect')
TYPE(ZFS) MODE(READ)
MOUNT FILESYSTEM('ZCONEE.VAR.ZFS')
MOUNTPOINT('/var/zosconnect')
TYPE(ZFS) MODE(RDWR)
MOUNT FILESYSTEM('ZFS.JAVASC')
MOUNTPOINT('/javasc')
TYPE(ZFS) MODE(RDWR)
CLOCKxx
OPERATOR NOPROMPT
TIMEZONE W.04.00.00
STPMODE NO
STPZONE NO
ETRMODE NO
ETRZONE NO
IFAPRDxx
/* ========== IBM LICENSING TERMS AND CONDITIONS NOTICE ========== */
/* */
/* THIS IFAPRD00 MEMBER HAS BEEN CUSTOMIZED BY IBM TO REFLECT THE */
/* IBM PRODUCTS AND OPTIONAL INTEGRATED FEATURES SPECIFICALLY */
/* ORDERED BY YOU. */
/* */
/* THE PRODUCTS AND OPTIONAL FEATURES WHICH WERE ORDERED HAVE BEEN */
/* 'ENABLED' IN THIS MEMBER. THOSE OPTIONAL FEATURES, WHICH WERE */
/* NOT ORDERED BUT SHIPPED TO YOU AS A PART OF THE INTEGRATED */
/* PRODUCT, HAVE BEEN 'DISABLED'. */
/* */
/* CHANGES TO THE 'ENABLED' OR 'DISABLED' STATE OF ANY OF THE IBM */
/* PRODUCTS AND OPTIONAL FEATURES PROVIDED IN THIS MEMBER MUST BE */
/* DONE IN ACCORDANCE WITH IBM'S LICENSING TERMS AND CONDITIONS AS */
/* DESCRIBED IN SUCH PRODUCT'S LICENSED PROGRAM SPECIFICATIONS AND */
/* THE TERMS AND CONDITIONS FOR z/OS DESCRIBED IN "z/OS */
/* LICENSED PROGRAM SPECIFICATIONS" GA32-0888. SEE "Z/OS MVS */
/* PRODUCT MANAGEMENT" GC28-1730 FOR ADDITIONAL INFORMATION. */
/* */
/* ================================================================ */
/* */
/* CHANGE ACTIVITY: */
/* OS/390 : - Dynamic Enablement support was introduced */
/* since OS/390. For detailed information */
/* on using dynamic enablement, please refer */
/* to "Planning for Installation" GC28-1726. */
/* z/OS V1R1: - Changes required: */
/* ID(5647-0A1) changed to ID(5694-A01)) */
/* NAME(OS/390) changed to NAME('z/OS') */
/* */
/* z/OS V1R2: - Changes required: */
/* 1. DFSORT became exclusive in z/OS V1R2 */
/* 2. SOMobjects ADE was no longer an element, it */
/* has been removed from this list. */
/* */
/* z/OS V1R3: - Changes required: */
/* 1. Added program number for z/OS.e */
/* ID(5655-G52) - NAME remains as ('z/OS') */
/* */
/* z/OS V1R5: - Changes required: */
/* 1. Added DFSMStvs */
/* 2. Removed C/C++ with DEBUG */
/* */
/* z/OS V1R6: - Changes required: */
/* 1. Added DFSMStvs in z/OS.e section */
/* 2. Removed C/C++ with DEBUG from z/OS.e section */
/* */
/* z/OS V1R7: - Changes required: */
/* 1. Added High Level Assembler Toolkit DISASSEM, */
/* SUPERC, XRF */
/* */
/* z/OS V1R8: - Changes required: */
/* 1. Removed Infoprint Server Transforms since it */
/* is no longer service supported. */
/* */
/* z/OS V1R9: - Changes required: */
/* 1. z/OS.e is no longer supported */
/* */
/* z/OS V1R11:- Changes required: */
/* 1. removed PSF for OS/390, IBM COBOL OS/390, */
/* IBM COBOL MVS/VM, IBM PL/I MVS/VM */
/* since these products are no longer supported */
/* */
/* z/OS V1R12:- Changes none */
/* */
/* z/OS V1R13:- Changes none */
/* */
/* z/OS V2R1 :- updated the z/OS program number to 5650-ZOS */
/* */
/* z/OS V2R2 - removed BookManager/Build feature of z/OS */
/* */
/* z/OS V2R3 - added IBM Print Transform from AFP to PDF */
/* for Infoprint Server for z/OS V1.2.0 (5655-TF1) */
/* - added IBM Print Transform from AFP to PCL */
/* for Infoprint Server for z/OS V1.2.0 (5655-TF2) */
/* - added IBM Print Transform from AFP to PostScript */
/* for Infoprint Server for z/OS V1.2.0 (5655-TF3) */
/* */
/* z/OS V2R4 - updated for IBM Print Transform from AFP to */
/* Accessible PDF for z/OS, and IBM Print Transform */
/* from AFP to IBM Signed Secure PDF for z/OS */
/* */
/* */
/* */
/* */
/* ================================================================ */
WHEN (HWNAME(*))
PRODUCT OWNER('IBM CORP')
NAME('z/OS')
ID(5650-ZOS)
VERSION(*) RELEASE(*) MOD(*)
FEATURENAME('z/OS')
STATE(ENABLED)
PRODUCT OWNER('IBM CORP')
NAME('z/OS')
ID(5650-ZOS)
VERSION(*) RELEASE(*) MOD(*)
FEATURENAME('TCP/IP BASE')
STATE(ENABLED)
PRODUCT OWNER('IBM CORP')
NAME('z/OS')
ID(5650-ZOS)
VERSION(*) RELEASE(*) MOD(*)
FEATURENAME('TCP/IP CICS')
STATE(ENABLED)
PRODUCT OWNER('IBM CORP')
NAME('z/OS')
ID(5650-ZOS)
VERSION(*) RELEASE(*) MOD(*)
FEATURENAME('TCP/IP IMS')
STATE(ENABLED)
PRODUCT OWNER('IBM CORP')
NAME('z/OS')
ID(5650-ZOS)
VERSION(*) RELEASE(*) MOD(*)
FEATURENAME(DFSMSDSS)
STATE(ENABLED)
PRODUCT OWNER('IBM CORP')
NAME('z/OS')
ID(5650-ZOS)
VERSION(*) RELEASE(*) MOD(*)
FEATURENAME(DFSMSHSM)
STATE(ENABLED)
PRODUCT OWNER('IBM CORP')
NAME('z/OS')
ID(5650-ZOS)
VERSION(*) RELEASE(*) MOD(*)
FEATURENAME(DFSMSRMM)
STATE(ENABLED)
PRODUCT OWNER('IBM CORP')
NAME('z/OS')
ID(5650-ZOS)
VERSION(*) RELEASE(*) MOD(*)
FEATURENAME(DFSMSTVS)
STATE(ENABLED)
PRODUCT OWNER('IBM CORP')
NAME('z/OS')
ID(5650-ZOS)
VERSION(*) RELEASE(*) MOD(*)
FEATURENAME(GDDM-REXX)
STATE(ENABLED)
PRODUCT OWNER('IBM CORP')
NAME('z/OS')
ID(5650-ZOS)
VERSION(*) RELEASE(*) MOD(*)
FEATURENAME(JES3)
STATE(DISABLED)
PRODUCT OWNER('IBM CORP')
NAME('z/OS')
ID(5650-ZOS)
VERSION(*) RELEASE(*) MOD(*)
FEATURENAME(BDTFTF)
STATE(DISABLED)
PRODUCT OWNER('IBM CORP')
NAME('z/OS')
ID(5650-ZOS)
VERSION(*) RELEASE(*) MOD(*)
FEATURENAME(BDTNJE)
STATE(DISABLED)
PRODUCT OWNER('IBM CORP')
NAME('z/OS')
ID(5650-ZOS)
VERSION(*) RELEASE(*) MOD(*)
FEATURENAME('C/C++')
STATE(ENABLED)
PRODUCT OWNER('IBM CORP')
NAME('z/OS')
ID(5650-ZOS)
VERSION(*) RELEASE(*) MOD(*)
FEATURENAME('RUCSA')
STATE(DISABLED)
PRODUCT OWNER('IBM CORP')
NAME('z/OS')
ID(5650-ZOS)
VERSION(*) RELEASE(*) MOD(*)
FEATURENAME(DFSORT)
STATE(ENABLED)
PRODUCT OWNER('IBM CORP')
NAME('z/OS')
ID(5650-ZOS)
VERSION(*) RELEASE(*) MOD(*)
FEATURENAME(GDDM-PGF)
STATE(ENABLED)
PRODUCT OWNER('IBM CORP')
NAME(GDDM-PGF)
ID(5668-812)
VERSION(*) RELEASE(*) MOD(*)
FEATURENAME(GDDM-PGF)
STATE(DISABLED)
PRODUCT OWNER('IBM CORP')
NAME('z/OS')
ID(5650-ZOS)
VERSION(*) RELEASE(*) MOD(*)
FEATURENAME('TOOLKIT DEBUGGER')
STATE(ENABLED)
PRODUCT OWNER('IBM CORP')
NAME('HI LVL ASSEMBLER')
ID(5696-234)
VERSION(*) RELEASE(*) MOD(*)
FEATURENAME('TOOLKIT DEBUGGER')
STATE(DISABLED)
PRODUCT OWNER('IBM CORP')
NAME('z/OS')
ID(5650-ZOS)
VERSION(*) RELEASE(*) MOD(*)
FEATURENAME('TOOLKIT DISASSEM')
STATE(ENABLED)
PRODUCT OWNER('IBM CORP')
NAME('HI LVL ASSEMBLER')
ID(5696-234)
VERSION(*) RELEASE(*) MOD(*)
FEATURENAME('TOOLKIT DISASSEM')
STATE(DISABLED)
PRODUCT OWNER('IBM CORP')
NAME('z/OS')
ID(5650-ZOS)
VERSION(*) RELEASE(*) MOD(*)
FEATURENAME('TOOLKIT SUPERC')
STATE(ENABLED)
PRODUCT OWNER('IBM CORP')
NAME('HI LVL ASSEMBLER')
ID(5696-234)
VERSION(*) RELEASE(*) MOD(*)
FEATURENAME('TOOLKIT SUPERC')
STATE(DISABLED)
PRODUCT OWNER('IBM CORP')
NAME('z/OS')
ID(5650-ZOS)
VERSION(*) RELEASE(*) MOD(*)
FEATURENAME('TOOLKIT XREF')
STATE(ENABLED)
PRODUCT OWNER('IBM CORP')
NAME('HI LVL ASSEMBLER')
ID(5696-234)
VERSION(*) RELEASE(*) MOD(*)
FEATURENAME('TOOLKIT XREF')
STATE(DISABLED)
PRODUCT OWNER('IBM CORP')
NAME('z/OS')
ID(5650-ZOS)
VERSION(*) RELEASE(*) MOD(*)
FEATURENAME('SECURITY SERVER')
STATE(ENABLED)
PRODUCT OWNER('IBM CORP')
NAME('z/OS')
ID(5650-ZOS)
VERSION(*) RELEASE(*) MOD(*)
FEATURENAME(RMF)
STATE(ENABLED)
PRODUCT OWNER('IBM CORP')
NAME('z/OS')
ID(5650-ZOS)
VERSION(*) RELEASE(*) MOD(*)
FEATURENAME(SDSF)
STATE(ENABLED)
PRODUCT OWNER('IBM CORP')
NAME('z/OS')
ID(5650-ZOS)
VERSION(*) RELEASE(*) MOD(*)
FEATURENAME(zEDC)
STATE(ENABLED)
PRODUCT OWNER('IBM CORP')
NAME('z/OS')
ID(5650-ZOS)
VERSION(*) RELEASE(*) MOD(*)
FEATURENAME('HCM')
STATE(DISABLED)
PRODUCT OWNER('IBM CORP')
NAME('z/OS')
ID(5650-ZOS)
VERSION(*) RELEASE(*) MOD(*)
FEATURENAME('INFOPRINT SERVER')
STATE(DISABLED)
PRODUCT OWNER('IBM CORP')
NAME('z/OS')
ID(5650-ZOS)
VERSION(*) RELEASE(*) MOD(*)
FEATURENAME('ZACS')
STATE(DISABLED)
PRODUCT OWNER('IBM CORP')
NAME('z/OS')
ID(5650-ZOS)
VERSION(*) RELEASE(*) MOD(*)
FEATURENAME('WorkloadIntCorr')
STATE(DISABLED)
/********************************************************************/
/* Program Products */
/********************************************************************/
PRODUCT OWNER('IBM CORP')
NAME('DB2 UTIL SUITE')
ID(5770-AF4)
VERSION(*) RELEASE(*) MOD(*)
FEATURENAME('*')
STATE(ENABLED)
PRODUCT OWNER('IBM CORP')
NAME('ENTERPRISE COBOL')
ID(5655-EC6)
VERSION(*) RELEASE(*) MOD(*)
FEATURENAME(*)
STATE(ENABLED)
PRODUCT OWNER('IBM CORP')
NAME('ZOAU')
ID(5698-PA1)
VERSION(*) RELEASE(*) MOD(*)
FEATURENAME(*)
STATE(ENABLED)
PRODUCT OWNER('IBM CORP')
NAME('IBM IDz EE')
ID(5755-A05)
VERSION(*) RELEASE(*) MOD(*)
FEATURENAME(*)
STATE(ENABLED)
PRODUCT OWNER('IBM CORP')
NAME('VIRT TEST PLTFM')
ID(5697-VTP)
VERSION(*) RELEASE(*) MOD(*)
FEATURENAME(*)
STATE(ENABLED)
JES
MSTJCLxx
//MSTJCL00 JOB MSGLEVEL=(1,1),TIME=1440
// EXEC PGM=IEEMB860,DPRTY=(15,15)
//STCINRDR DD SYSOUT=(A,INTRDR)
//TSOINRDR DD SYSOUT=(A,INTRDR)
//IEFPDSI DD DSN=K2.PROCLIB,DISP=SHR
// DD DSN=SYS1.PROCLIB,DISP=SHR
//IEFPARM DD DSN=SYS1.PARMLIB,DISP=SHR
//SYSUADS DD DSN=SYS1.VS01.UADS,
// DISP=SHR
//SYSLBC DD DSN=SYS1.VS01.BRODCAST,
// DISP=SHR
JES2起動プロシージャー
//JES2 PROC
//IEFPROC EXEC PGM=HASJES20,
// DPRTY=(15,15),TIME=1440,PERFORM=9,
// PARM=(COLD,NOREQ)
//ALTPARM DD DISP=SHR,DSN=SYS1.PARMLIB(HASJES2)
//HASPPARM DD DISP=SHR,DSN=K2.PARMLIB(JES2PARM)
//PROC00 DD DSN=K2.PROCLIB,DISP=SHR
// DD DISP=SHR,DSN=SYS1.PROCLIB
// DD DISP=SHR,DSN=SYS1.PROCLIB.INSTALL
//PROC01 DD DISP=SHR,DSN=SYS1.PROCLIB.INSTALL
//HASPLIST DD DDNAME=IEFRDER
VTAM関連
※VTAMはNET
という名前のプロシージャーで起動される
Netviewから自動起動されるコマンド
...
MVS S NET,,,(LIST=00)
...
VTAM起動プロシージャー
//NET EXEC PGM=ISTINM01,REGION=4096K
//VTAMLST DD DSNAME=SYS1.VTAMLST,DISP=SHR
// DD DSNAME=NETVIEW.V6R4USER.&CNMDOMN..VTAMLST,DISP=SHR
//VTAMLIB DD DSNAME=SYS1.VTAMLIB,DISP=SHR
// DD DSNAME=NETVIEW.V6R4USER.VTAMLIB,DISP=SHR
//SISTCLIB DD DSN=SYS1.SISTCLIB,DISP=SHR
ATCSTRxx
SSCPID=&SSCPID. ** UNIQUE VALUE IN SYSPLEX CLPA 5062, CLPB 5063 **X
SSCPNAME=EXP, X
NETID=EXPNET, X
CONFIG=00, X
NOPROMPT, X
MAXSUBA=31, X
SUPP=NOSUP, X
HOSTSA=&HOSTSA. ** UNIQUE VALUE IN SYSPLEX CLPA 1, CLPB 2 **X
CRPLBUF=(208,,15,,1,16), X
IOBUF=(100,128,19,,1,20), X
LFBUF=(104,,0,,1,1), X
SFBUF=(163,,0,,1,1)
*/*
*/*THIS MEMBER CONTAINS ACF/VTAM START OPTIONS - STARNDARD
ATCCONxx
OSATRLE,A0600,TCPAPPL,IVPLU,SMCSAPPL,A01APPLS
OSATRLE,A0600,EXLOCAL,TCPAPPL,IVPLU,SMCSAPPL,SMCSCONS, X
CICSANSB,DBD1APPL,IVPAPLI,IVPLCLI,IVPLCLT
OSATRLE
OSATRLE VBUILD TYPE=TRL
OSA1500 TRLE LNCTL=MPC, X
READ=1500, X
WRITE=1501, X
DATAPATH=(1502,1503), X
PORTNAME=OSAFE, X
MPCLEVEL=QDIO
***
CICSANSB
* Begin Insert *
CICSANSB VBUILD TYPE=APPL
CICS* APPL AUTH=(ACQ,VPACE,PASS),EAS=100,HAVAIL=YES, X
PARSESS=YES,SONSCIP=YES,VPACING=5
* End Insert *
TCP/IP関連
TCPIP起動プロシージャー
//TCPIP PROC PARMS='CTRACE(CTIEZB00)'
//S1 EXEC PGM=IKJEFT01,DYNAMNBR=75,TIME=1440,
// PARM='RACFCRT VPCVSIIPADDRESS VSICA CERTEXPIRE'
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSEXEC DD DSN=SYS1.VS01.TSO.CLIST,DISP=SHR
//SYSTSIN DD *
//TCPIP EXEC PGM=EZBTCPIP,PARM='&PARMS',REGION=0M,TIME=1440
//SYSPRINT DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSERROR DD SYSOUT=*
//ERRORFIL DD SYSOUT=*
//SYSDEBUG DD SYSOUT=*
//PROFILE DD DISP=SHR,DSN=K2.TCPPARMS(PROFILE)
//SYSTCPD DD DISP=SHR,DSN=K2.TCPPARMS(TCPDATA)
PROFILE
;
ITRACE OFF
;
; ----------------------------------------------------------------------
;
; ----------------------------------------------------------------------
;
; Flush the arp tables every 5 minutes. default is 20 in 3.3
;
ARPAGE 20
;
DATASETPREFIX TCPIP
TCPCONFIG TTLS
; ----------------------------------------------------------------------
;
; AUTOLOG the following servers.
;
AUTOLOG 5
;
;
;
PAGENT ; Policy Agent
;
ENDAUTOLOG ;
; ----------------------------------------------------------------------
;
; Reserve PORTs for the following servers.
;
; NOTES:
;
; A port that is not reserved in this list can be used by any user.
; If you are have TCP/IP hosts in your network that reserve ports
; in the range 1-1023 for privileged applications, you should
; reserve them here to prevent users from using them.
;
; The port values below are from RFC 1060, "Assigned Numbers"
;
; commented out so any proc name can bind
; 111 TCP PMAPOE ; Portmap Server
; 111 UDP PMAPOE ; Portmap Server
; 2049 UDP MVSNFS ; NFS Server
PORT
20 TCP OMVS NOAUTOLOG ; FTP Server
21 TCP OMVS ; FTP Server
22 TCP OMVS ; Secure Shell (SSH)
; 23 TCP TN3270 ; TELNET Server
25 TCP SMTP ; SMTP Server
53 TCP NAMESRV ; Domain Name Server
53 UDP NAMESRV ; Domain Name Server
111 TCP RPCBIND1 ; Portmap Server
111 UDP RPCBIND1 ; Portmap Server
135 UDP NCSLLBD ; NCS Location Broker
161 UDP SNMPD ; SNMP Agent
162 UDP SNMPQE ; SNMPQE Agent
512 TCP OMVS ; REXEC BOSKO
514 TCP OMVS ; RSH BOSKO
515 TCP LPDSRV ; LPD Server
520 UDP ROUTED ; RouteD Server
750 TCP MVSKERB ; Kerberos
750 UDP MVSKERB ; Kerberos
751 TCP ADM@SRV ; Kerberos Admin Server
751 UDP ADM@SRV ; Kerberos Admin Server
992 TCP TN3270 ; Secure TELNET Server
3000 TCP CICSTCP ; CICS Socket
;
; ----------------------------------------------------------------------
;
; Hardware definitions:
;
INTERFACE OSA1500
DEFINE IPAQENET
IPADDR &HOMEIPADDRESS1
PORTNAME &OSAPORTNAME
INBPERF DYNAMIC
PRIROUTER
;
; ----------------------------------------------------------------------
;
; HOME internet (IP) addresses of each link in the host.
;
; NOTES:
;
; The IP addresses for the links of an offload box are specified in
; the LINK statements themselves, and should not be in the HOME list.
;
;HOME
; &HOMEIPADDRESS1 OSA1500
;
; ---------------------------------------------------------------------
;
; The new PRIMARYINTERFACE statement is used to specify which interface
; is the primary interface. This is required for specifying a offload
; box as being the primary interface, since the offload box's links
; cannot appear in the HOME statement.
;
; A link of any type, not just an offload box, can be specified in the
; PRIMARYINTERFACE statement. If PRIMARYINTERFACE not specified, then
; the first link in the HOME statement is the primary interface, as
; usual.
;
PRIMARYINTERFACE OSA1500
;
; ----------------------------------------------------------------------
;
; IP Routing information for the host. All static IP routes should
; be added here.
;
BEGINROUTES
; Destination First Hop Link Packet size
ROUTE DEFAULT &DEFAULTROUTEADDR OSA1500 MTU 1500
ENDROUTES
;
; ----------------------------------------------------------------------
;
; Use TRANSLATE to specify the hardware address of a specific internet
; address. See the Planning and Customization manual for more
; information
;
;TRANSLATE
;
; ----------------------------------------------------------------------
;
; Start all the defined devices.
;
START OSA1500
TCPDATA
; TCPIPJOBNAME specifies the name of the started procedure which was
; used to start the TCPIP address space. TCPIP is the default.
;
TCPIPJOBNAME TCPIP
;
; HOSTNAME specifies the TCP host name of this system. If not
; specified, the default HOSTNAME will be the node name specified
; in the IEFSSNxx PARMLIB member.
;
; For example, if this TCPIP.DATA data set is shared between two
; systems, OURMVSNAME and YOURMVSNAME, then the following
; two lines will define the HOSTNAME correctly on each system.
;
HostName &TCPHOSTNAME_
;
; DOMAINORIGIN specifies the domain origin that will be appended
; to host names passed to the resolver. If a host name contains
; any dots, then the DOMAINORIGIN will not be appended to the
; host name.
;
DOMAINORIGIN &TCPDOMAIN_
;
; SEARCH statement
; ================
; SEARCH specifies a list of 1 to 6 domain origin values that will be
; appended to host names passed to the resolver. If a host name
; ends with a dot, then none of the domain origin values will be
; appended to the host name.
; The first domain origin value specified by SEARCH will be used as the
; DOMAINORIGIN/DOMAIN value.
;
;EARCH IBM.COM
;
; LOOPBACK (14.0.0.0) specifies your local name server. If a name
; server will not be used, then do not code an NSINTERADDR statement
; (Comment out the NSINTERADDR line below). This will cause all names
; to be resolved via site table lookup.
;
NSINTERADDR &NAMESERVERADDR1
;
; NSPORTADDR specifies the foreign port of the Name Server.
; 53 is the default value.
;
NSPORTADDR &NAMESERVERPORT
;
; RESOLVEVIA specifies how the Resolver is to communicate with the
; name server. TCP indicates use of TCP virtual circuits. UDP
; indicates use of UDP datagrams. The default is UDP.
;
RESOLVEVIA UDP
;
; RESOLVERTIMEOUT specifies the time in seconds that the Resolver
; will wait to complete an open to the name server (either UDP or TCP).
; The default is 30 seconds.
;
RESOLVERTIMEOUT 30
;
; RESOLVERUDPRETRIES specifies the number of times the resolver
; should try to connect to the name server when using UDP datagrams.
; The default is 1.
;
RESOLVERUDPRETRIES 1
;
; TRACE RESOLVER will cause a complete trace of all queries to and
; responses from the name server or site tables to be written to
; the user's console. This command is for debugging purposes only.
; 2004/02/26 RJK commented out
;TRACE RESOLVER
;
; You can specify DATASETPREFIX in the tcpip.v3r1.PROFILE.TCPIP and
; tcpip.v3r1.TCPIP.DATA data sets. The character string specified as a
; parameter on DATASETPREFIX takes precedence over both the distributed
; or modified data set prefix name as changed by the EZAPPRFX
; installation job. If this statement is used in a profile or
; configuration data set that is allocated to a client or a server then
; that client or server dynamically allocates additional required data
; sets using the value specified for DATASETPREFIX as the data set name
; prefix. The DATASETPREFIX parameter may be up to 26 characters long
; and the parameter must NOT end with a period.
;
; For more information please see "TCP/IP Data Set Names" in the
; Planning and Customizing manual.
;
DATASETPREFIX TCPIP
RESOLVER
//RESOLVER PROC PARMS='CTRACE(CTIRES00)'
//UPDATE EXEC PGM=IRXJCL,PARM='UPDRESOL',TIME=1440
//SYSEXEC DD DSN=K2.PROCLIB,DISP=SHR
//INODES DD DISP=SHR,DSN=K2.TCPPARMS(INODES)
//EZBREINI EXEC PGM=EZBREINI,REGION=0M,TIME=1440,PARM=&PARMS
//SETUP DD DSN=K2.TCPPARMS(RESSETUP),DISP=SHR,FREE=CLOSE
RESSETUP
GLOBALTCPIPDATA('K2.TCPPARMS(TCPDATA)')
GLOBALIPNODES('K2.TCPPARMS(INODES)')
COMMONSEARCH
Netview関連
COMMDxxによるNetview起動/停止コマンド
...
COM='S CNMPSSI,SUB=MSTR'
COM='S CNMPROC,SUB=MSTR'
...
プロシージャー:CNMPSSI
//*CNMSJ010 JOB 'ACCOUNTING INFORMATION','NETVIEW SUBSYSTEM',
//* CLASS=A MSGCLASS=A,MSGLEVEL=(1,1)
//*********************************************************************
//** +----------------------------------------------------------+ **
//** | Licensed Materials - Property of IBM | **
//** | 5697-NV6 ゥ Copyright IBM Corp. 1986, 2021 | **
//** | All rights reserved. | **
//** | US Government Users Restricted Rights - Use, duplication | **
//** | or disclosure restricted by GSA ADP Schedule Contract | **
//** | with IBM Corp. | **
//** +----------------------------------------------------------+ **
//*********************************************************************
//* NAME(CNMPSSI) SAMPLE(CNMSJ010) RELATED-TO(SSI) *
//* DESCRIPTION: PROC TO START IBM Z NETVIEW SUBSYSTEM ADDRESS SPACE *
//* CNMSJ010 CHANGED ACTIVITY: *
//* CHANGE CODE DATE DESCRIPTION *
//* ----------- -------- ------------------------------------------*
//*********************************************************************
//* The following symbolics are for user defined datasets.
//CNMPSSI PROC SQ1='NETVIEW.V6R4M0', ** SYSTEM DSN HIGH LEVEL QUALIFIER
// PROG=CNMINIT, ** Pgm used to start NetView subsystem
// REG=16600, ** REGION SIZE (IN K)
// MBUF='RETIRED', ** (Retired) message buffers
// CBUF='RETIRED', ** (Retired) command buffers
// DSIG='RETIRED', ** (Retired) command designator
//* See MVSPARM.CMD.DESIGNATOR in CNMSTYLE for command designator info
// MSGIFAC='RETIRED', ** (Retired) message interface setting
// PPIOPT='PPI', ** PPI OPTIONS SWITCH
//*
//* ** NOPPI = PPI is not requested
//* ** PPI = PPI is requested
//* ** default option = PPI requested
//* The following symbolic "ARM" is used to both enable the NetView
//* subsystem for MVS automatic restart management (ARM) and to supply
//* a name (up to 16 characters) by which this NetView subsystem will
//* be known to ARM
// ARM='*NOARM', ** AUTOMATIC RESTART (ARM) USAGE
//* ** *ARM = ARM ENABLEMENT BY SYMBOL,
//* ** NETVIEW WILL GENERATE AN ARM
//* ** ELEMENT NAME AS FOLLOWS:
//* ** 'NETVIEW$' CONCATENATED WITH
//* ** THE SSI/PPI SUBSYSTEM NAME
//* ** CONCATENATED WITH &SYSCLONE
//* ** NAME = ARM ENABLEMENT BY NAME
//* ** *NOARM = NO ARM ENABLEMENT
//* ** DEFAULT OPTION = *NOARM
//* ** COMMENTING OUT THE 'ARM=...' PARAMETER
//* ** RESULTS IN NO NETVIEW ARM ENABLEMENT
//*
// PFXREG='RETIRED', ** Prefix Registration option.
// P256BUF=300, ** Number of 256 byte PPI buffers to use
// P4000BUF=0, ** Number of 4000 byte PPI buffers to use
//*
// ROUTECDE=1 ** Route code to be used for WTOs issued
//* ** by the SSI address space. Messages
//* ** that may be issued before this parm
//* ** is processed will use route code 1
//* ** regardless of the value set here.
//*
//NETVIEW EXEC PGM=&PROG,TIME=1440,REGION=®.K,
// PARM=(&MBUF,&CBUF,'&DSIG','&MSGIFAC','&PPIOPT','&ARM',
// '&PFXREG',&P256BUF,&P4000BUF,&ROUTECDE),DPRTY=(13,13)
//* Note1: All STEPLIB data sets have to be APF authorized.
//*
//* Note2: If you are starting the NetView subsystem before JES, you
//* must catalog any steplib PDS in the MVS master catalog or
//* you must add volume specific references to all DD statements
//*
//* Note3: The region size is 16600K in this sample as specified in the
//* reg parameter above. This includes allowances for the
//* MBUF and CBUF shown here and for modest sized tables for
//* Message and Command Revision. To calculate the correct
//* region size for your network, please reference the NetView
//* Tuning Guide.
//*
//STEPLIB DD DSN=&SQ1..CNMLINK,DISP=SHR
//*
//* PEND
//*CNMPSSI EXEC PROC=CNMPSSI
プロシージャー:CNMPROC
//*CNMSJ009 JOB 'ACCOUNTING INFORMATION','NETVIEW STARTUP PROC',
//* CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
//*********************************************************************
//* Licensed Materials - Property of IBM *
//* 5697-NV6 Copyright IBM Corp. 2009, 2019
//* ALL RIGHTS RESERVED. *
//* *
//* US GOVERNMENT USERS RESTRICTED RIGHTS *
//* - USE, DUPLICATION OR DISCLOSURE RESTRICTED BY *
//* GSA ADP SCHEDULE CONTRACT WITH IBM CORPORATION. *
//*********************************************************************
//* NAME(CNMPROC) SAMPLE(CNMSJ009) RELATED-TO() *
//* DESCRIPTION: IBM Z NETVIEW APPLICATION START UP PROC FOR z/OS *
//* CNMSJ009 CHANGED ACTIVITY: *
//* CHANGE CODE DATE DESCRIPTION *
//* ----------- -------- ------------------------------------------*
//*********************************************************************
//* THE FOLLOWING SYMBOLICS ARE FOR USER DEFINED DATA SETS.
//CNMPROC PROC Q1='NETVIEW.V6R4USER', ** USER DSN HIGH LEVEL QUALIFIER
//*
// DOMAIN=CNM01, ** NETVIEW DOMAIN NAME
// DOMAINPW='', ** NETVIEW DOMAIN PASSWORD
// PROG=DSIMNT, ** PGM USED TO START NETVIEW
// SQ1='NETVIEW.V6R4M0', ** SYSTEM DSN HIGH LEVEL QUALIFIER
// REXX='REXX.V1R4M0', ** REXX DSN HIGH LEVEL QUALIFIER
//*
//* THE FOLLOWING SYMBOLIC "VQ1" IS USED WITH "DOMAIN" TO BUILD
//* THE HIGH LEVEL INDEX FOR ALL VSAM DATA SETS THAT NETVIEW WRITES TO.
// VQ1=NETVIEW, ** HIGH LVL DSN QUALIFIER-VSAM DSNS
//*
// TQ1=NETVIEW, ** SEQUENTIAL DSN HIGH LEVEL QUALIFIER
//*
//* COMMENT OUT THE FOLLOWING SYMBOLIC IF STARTING NETVIEW BEFORE JES
// SOUTA='*', ** DEFAULT PRINTED OUTPUT CLASS
//*
// REG=256, ** REGION SIZE(IN M) FOR NETVIEW
//* (16M-SYSTEM OVERHEAD) = 24-BIT REGION
//* 64M = 31-BIT REGION
//* NOTE: AVOID USING A REGION SIZE <16M.
//* SEE THE NETVIEW TUNING GUIDE AND HELP
//* FOR THE "RESOURCE" COMMAND.
// BFSZ=24, ** BUFFER SIZE(IN K)
// SLSZ=200, **
//*
//* THE FOLLOWING SYMBOLIC "ARM" IS USED TO BOTH ENABLE NETVIEW FOR
//* MVS AUTOMATIC RESTART MANAGEMENT (ARM) AND TO SUPPLY A NAME (UP TO
//* 16 CHARACTERS) BY WHICH THIS NETVIEW WILL BE KNOWN TO ARM
// ARM='*NOARM', ** NETVIEW AUTOMATIC RESTART (ARM) USAGE
//* ** *ARM = REGISTER WITH ARM USING A
//* ** NETVIEW-GENERATED ELEMENT
//* ** NAME, WHICH IS 'NETVIEW@'
//* ** CONCATENATED WITH THE VALUE
//* ** OF THE DOMAIN POSITIONAL
//* ** KEYWORD IN THE JCL EXEC PARMS.
//* ** IF NO VALUE IS PROVIDED FOR
//* ** THE DOMAIN KEYWORD, THEN
//* ** NETVIEW USES 'NETVIEW@' PADDED
//* ** WITH BLANKS
//* ** NAME = NETVIEW ARM ENABLEMENT BY NAME
//* ** *NOARM = NO NETVIEW ARM ENABLEMENT
//* ** DEFAULT OPTION = *NOARM
//*
// SUBSYM='', ** NETVIEW SYMBOLIC SUBSTITUTION SWITCH
//* ** *SUBSYM = ENABLE SYMBOLIC SUBSTITUTION
//* ** *NOSUBSYM = DISABLE SYMBOLIC
//* ** SUBSTITUTION
//* ** DEFAULT OPTION = *SUBSYM
// NV2I='NM',
//* ** UNIQUE AID A two character value
//* ** used to build a symbolic in NetView
//* ** It is used to create unique names
//* ** for the particular NetView.
//* ** If you specify a value, you MUST
//* ** rename/copy CNMSTYLE to CxxSTYLE
//* ** to match.
// TRSIZE=4000
//* ** INTERNAL TRACE TABLE SIZE - Number
//* ** of pages to be allocated for the
//* ** NetView Internal Trace table. The
//* ** trace table is located in a data
//* ** space, so the value can be up to
//* ** 524286. If no value is specified,
//* ** the default of 4000 is used. If
//* ** a value of 0 is passed, internal
//* ** trace is not started early. Trace
//* ** options in CNMSTYLE take effect
//* ** even if trace is not started early.
//*
//**********************************************************************
//*
//NETVIEW EXEC PGM=&PROG,TIME=1440,
// REGION=®.M,
// PARM=(&BFSZ.K,&SLSZ,
// '&DOMAIN','&DOMAINPW','&ARM','&SUBSYM','&NV2I','&TRSIZE'),
// DPRTY=(13,13)
//*
//* NOTE1: ALL STEPLIB DATA SETS HAVE TO BE APF AUTHORIZED.
//*
//* NOTE2: TO AVOID ANY POSSIBLE PROBLEMS MAINTAINING LIBRARIES,
//* THE STEPLIB CODE LEVELS FOR NETVIEW BASE SHOULD MATCH
//* THE STEPLIB DEFINITION IN THE IBM Z NETVIEW SUBSYSTEM
//* PROC
//*
//* NOTE3: IF YOU ARE STARTING THE NETVIEW SUBSYSTEM BEFORE JES, YOU
//* MUST CATALOG ANY STEPLIB PDS IN THE MVS MASTER CATALOG OR
//* YOU MUST ADD VOLUME SPECIFIC REFERENCES TO ALL DD STATEMENTS
//*
//* NOTE4: USER DEFINED DATA SETS SHOULD BE THE FIRST IN THE
//* CONCATENATION FOLLOWED BY THE MOST FREQUENTLY USED DATA
//* SETS.
//*
//* NOTE5: IF YOU WISH TO RUN LE/370 PROGRAMS WITH IBM Z NETVIEW, AND
//* HAVE NOT INSTALLED THE RUN-TIME LIBRARIES IN LNKLST, THEN
//* BE SURE THE LIBRARY NAMES IN THE STEPLIB BELOW ARE
//* CORRECT AND REMOVE THE ASTERISKS.
//*
//* IF YOU ARE RUNNING A JAPANESE SYSTEM, UNCOMMENT THE STEPLIB
//* STATEMENT FOR SCNMMJPN AND DELETE THE WORD "STEPLIB" FROM THE
//* LINE FOR THE CNMLINK DATA SET
//*STEPLIB DD DSN=&SQ1..SCNMMJPN,DISP=SHR
//STEPLIB DD DSN=&SQ1..SAQNLINK,DISP=SHR
// DD DSN=&SQ1..CNMLINK,DISP=SHR
//***************************************************************
//*
//* YOU WILL NEED ACCESS TO EITHER THE REXX/370 RUNTIME LIBRARY
//* OR THE REXX ALTERNATE LIBRARY AS FOLLOWS:
//*
//* - IF YOU HAVE THE REXX/370 LIBRARY ON YOUR SYSTEM BUT SEAGLPA
//* IS NOT ACCESSIBLE FROM THE PAGEABLE LINK PACK AREA (PLPA),
//* THEN YOU MUST UNCOMMENT THE "SEAGLPA" LINE BELOW.
//*
//* OR
//*
//* - IF YOU HAVE THE REXX ALTERNATE LIBRARY ON YOUR SYSTEM,
//* BUT SEAGALT IS NOT ACCESSIBLE FROM THE PLPA OR LINKLST,
//* THEN YOU MUST UNCOMMENT THE "SEAGALT" LINE BELOW.
//*
//* WHEN YOU UNCOMMENT EITHER OF THE LINES BELOW, MAKE SURE
//* THAT THE DSN ACTUALLY MATCHES THE NAME ON YOUR SYSTEM.
//* IN ADDITION, MAKE SURE THAT THE DATA SET IS APF-AUTHORIZED.
//*
//* DD DSN=&REXX..SEAGLPA,DISP=SHR
// DD DSN=&REXX..SEAGALT,DISP=SHR
//*
//***************************************************************
//* UNCOMMENT THE FOLLOWING LINE IF YOU WILL BE USING LE/370 LIBRARIES
//* DD DSN=CEE.SCEERUN,DISP=SHR
//* UNCOMMENT THE FOLLOWING LINE IF YOU WILL BE USING DB2 LIBRARIES
//* DD DSN=DSN510.SDSNLOAD,DISP=SHR
//DSICLD DD DSN=&Q1..&DOMAIN..CNMCLST,DISP=SHR
// DD DSN=NETVIEW.STOCK.CNMCLST,DISP=SHR
// DD DSN=&SQ1..SAQNCLST,DISP=SHR
// DD DSN=&SQ1..CNMCLST,DISP=SHR
// DD DSN=&SQ1..CNMSAMP,DISP=SHR
//* DD DSN=SYS1.PROCLIB,DISP=SHR
//DSIOPEN DD DSN=&Q1..&DOMAIN..SDSIOPEN,DISP=SHR
// DD DSN=&SQ1..SDSIOPEN,DISP=SHR
//DSIPARM DD DSN=&Q1..&DOMAIN..DSIPARM,DISP=SHR
// DD DSN=NETVIEW.STOCK.DSIPARM,DISP=SHR
// DD DSN=&SQ1..SAQNPARM,DISP=SHR
// DD DSN=&SQ1..DSIPARM,DISP=SHR
//DSILIST DD DSN=&Q1..&DOMAIN..DSILIST,DISP=SHR
//DSIASRC DD DSN=&Q1..&DOMAIN..DSIASRC,DISP=SHR
//DSIARPT DD DSN=&Q1..&DOMAIN..DSIARPT,DISP=SHR
//DSIVTAM DD DSN=&Q1..&DOMAIN..VTAMLST,DISP=SHR
//* DD DSN=SYS1.VTAMLST,DISP=SHR
//DSIPRF DD DSN=&Q1..&DOMAIN..DSIPRF,DISP=SHR
// DD DSN=&SQ1..DSIPRF,DISP=SHR
//DSIMSG DD DSN=&SQ1..SDSIMSG1,DISP=SHR
//*
//* HARDWARE MONITOR U.S. ENGLISH PANEL DATA SET
//BNJPNL1 DD DSN=&SQ1..BNJPNL1,DISP=SHR
//*
//* HARDWARE MONITOR JAPANESE PANEL DATA SET. IF RUNNING JAPANESE,
//* COMMENT OUT THE ABOVE BNJPNL1 DD LINE, AND UNCOMMENT THE
//* FOLLOWING LINE.
//*BNJPNL1 DD DSN=&SQ1..SBNJPNL3,DISP=SHR
//*
//* HARDWARE MONITOR COLOR MAP DATA SET
//BNJPNL2 DD DSN=&SQ1..BNJPNL2,DISP=SHR
//*
//* USER HELP DATA SET (PANELS)
//CNMPNL1 DD DSN=&Q1..&DOMAIN..CNMPNL1,DISP=SHR
//*
//* JAPANESE ONLINE HELP DATA SET (PANELS). UNCOMMENT FOLLOWING LINE IF
//* RUNNING JAPANESE.
//* DD DSN=&SQ1..SCNMPNL2,DISP=SHR
//*
//* U.S. ENGLISH ONLINE HELP DATA SET (PANELS). REQUIRED FOR BOTH
//* ENGLISH AND JAPANESE.
// DD DSN=&SQ1..CNMPNL1,DISP=SHR
//*
//* SAMPLE I/O FILES FOR USE WITH PL/I AND/OR C PROGRAMS
//* MAY GO HERE. IF DESIRED, REMOVE ASTERISKS. MAKE SURE
//* YOU HAVE ALLOCATED THE DATA SETS BEFORE YOU RUN THE
//* PROC.
//*
//*PINFILE DD DSN=USER.HLL.INFILE,DISP=SHR
//*POUTFILE DD DSN=USER.HLL.OUTFILE,DISP=SHR
//*CINFILE DD DSN=USER.HLL.INFILE,DISP=SHR
//*COUTFILE DD DSN=USER.HLL.OUTFILE,DISP=SHR
//*
//* NETVIEW LOG DATA SETS
//*
//* BUFNI AND BUFND ARE SET TO 20 FOR IMPROVED RESPONSE
//* TIME WHEN BROWSING THE LOGS. THESE MAY BE ADJUSTED
//* TO DIFFERENT VALUES FOR TUNING PURPOSES IF NECESSARY.
//* EACH BUFNI USES 1K OF NETVIEW VIRTUAL STORAGE, EACH
//* BUFND USES 4K OF NETVIEW VIRTUAL STORAGE. REDUCING
//* THESE ALLOCATIONS WILL SAVE VIRTUAL STORAGE BUT MAY
//* DEGRADE LOG BROWSE RESPONSE TIME WHEN MANY RECORDS
//* ARE SEARCHED.
//*
//DSILOGP DD DSN=&VQ1..&DOMAIN..DSILOGP,
// DISP=SHR,AMP='AMORG,BUFNI=20,BUFND=20'
//DSILOGS DD DSN=&VQ1..&DOMAIN..DSILOGS,
// DISP=SHR,AMP='AMORG,BUFNI=20,BUFND=20'
//*
//* TRACE LOG DATA SETS
//*
//DSITRCP DD DSN=&VQ1..&DOMAIN..DSITRCP,
// DISP=SHR,AMP=AMORG
//DSITRCS DD DSN=&VQ1..&DOMAIN..DSITRCS,
// DISP=SHR,AMP=AMORG
//*
//* TCP CONNECTION VSAM DATA BASES
//*
//DSITCONP DD DSN=&VQ1..&DOMAIN..DSITCONP,
// DISP=SHR,AMP='AMORG'
//DSITCONS DD DSN=&VQ1..&DOMAIN..DSITCONS,
// DISP=SHR,AMP='AMORG'
//*
//* SAVED PACKET TRACE VSAM DATA BASE
//*
//FKXPKTS DD DSN=&VQ1..&DOMAIN..FKXPKTS,
// DISP=SHR,AMP=AMORG
//*
//* SESSION MONITOR VSAM DATA BASES
//*
//AAUVSPL DD DSN=&VQ1..&DOMAIN..AAUVSPL,
// DISP=SHR,AMP='AMORG'
//AAUVSSL DD DSN=&VQ1..&DOMAIN..AAUVSSL,
// DISP=SHR,AMP='AMORG'
//*
//* HARDWARE MONITOR VSAM DATA BASES
//*
//BNJLGPR DD DSN=&VQ1..&DOMAIN..BNJLGPR,
// DISP=SHR,AMP='AMORG'
//BNJLGSE DD DSN=&VQ1..&DOMAIN..BNJLGSE,
// DISP=SHR,AMP='AMORG'
//*
//* CENTRAL SITE CONTROL FACILITY VSAM DATA BASE
//*
//DSIKPNL DD DSN=&VQ1..&DOMAIN..DSIKPNL,
// DISP=SHR,AMP=AMORG
//*
//* SAVE/RESTORE FACILITY VSAM DATA BASE
//*
//DSISVRT DD DSN=&VQ1..&DOMAIN..DSISVRT,
// DISP=SHR,AMP=AMORG
//**********************************************************************
//* THESE DATA SETS ARE REQUIRED IF YOU WANT TO COLLECT DISTRIBUTED
//* DVIPA WORKLOAD STATISTICS IN NETVIEW.
//**********************************************************************
//CNMDVIPP DD DSN=&TQ1..&DOMAIN..CNMDVIPP,DISP=SHR
//CNMDVIPS DD DSN=&TQ1..&DOMAIN..CNMDVIPS,DISP=SHR
//**********************************************************************
//*
//* UNCOMMENT THE FOLLOWING LINES IF YOU WILL BE USING AON AUTOMATION
//*
//**********************************************************************
//* AON AUTOMATION STATUS FILE
//*
//*EZLSTAT DD DSN=&VQ1..&DOMAIN..STATS,
//* DISP=SHR,AMP='AMORG,BUFNI=10,BUFND=5'
//*
//* AON PASSWORD DATA SET - FOR GATEWAY SESSION PASSWORD MANAGEMENT
//*
//*EZLPSWD DD DSN=&VQ1..&DOMAIN..PASSWORD,
//* DISP=SHR,AMP='AMORG,BUFNI=10,BUFND=5'
//*
//* AON AUTOMATION LOG DATA SETS
//*
//*EZLLOGP DD DSN=&VQ1..&DOMAIN..LOGP,
//* DISP=SHR,AMP='AMORG,BUFNI=10,BUFND=5'
//*EZLLOGS DD DSN=&VQ1..&DOMAIN..LOGS,
//* DISP=SHR,AMP='AMORG,BUFNI=10,BUFND=5'
//*
//**********************************************************************
//* NOTE: IF WRITING TO A SEQUENTIAL LOG USING BSAM IS DESIRED,
//* DEFINE PRIMARY AND SECONDARY LOG DATA BASES BELOW USING
//* DD STATEMENTS OR USE THE NETVIEW ALLOCATE COMMAND
//**********************************************************************
//* USE THE FOLLOWING CARD TO AVOID A SYSOUT REFERENCE IF YOU ARE
//* STARTING NETVIEW BEFORE STARTING JES
//*SYSPRINT DD DUMMY
//SYSPRINT DD SYSOUT=&SOUTA
//*
//*******************************************************************
//* If you are using TCP/IP, ensure that the following DD statement
//* specifies the correct data set and is uncommented. This data,
//* TCPIP.DATA, is used to specify configuration information
//* required by TCP/IP client programs.
//*
//*SYSTCPD DD DSN=TCPIP.DATA,DISP=SHR
//*
//* For more information please see your TCP/IP customization
//* and administration guide.
//*
//*******************************************************************
//* If you are using the TCP/IP translate data set TCPXLBIN,
//* specify the appropriate data set name and uncomment the
//* following DD statement to prevent dynamic allocation
//* messages from being issued each time the data set is needed.
//*
//*CNMXLBIN DD DISP=SHR,DSN=datasetprefix.STANDARD.TCPXLBIN
//*
//* For more information please see your IP Configuration Guide.
//*
//*******************************************************************
//*
//* SAMPLE STATEMENTS FOR IDCAMS COMMAND.
//* THESE JCL STATEMENTS ALLOW THE IDCAMS COMMAND TO BE USED TO
//* REORGANIZE THE SESSION MONITOR AND HARDWARE MONITOR PRIMARY VSAM
//* DATA BASES ONLINE USING THE NETVIEW IDCAMS COMMAND. IN ORDER
//* TO USE THESE JCL STATEMENTS, CHANGE THE "//***" TO "//".
//*
//* TEMPORARY SEQUENTIAL VSAM BACKUP FILE
//*
//***VSAMSEQ DD UNIT=SYSDA,SPACE=(CYL,(XX,XX)),
//*** DCB=(RECFM=VB,LRECL=4090,BLKSIZE=4094)
//*
//*
//* ACCESS METHODS SERVICES COMMAND FILE TO REORGANIZE SESSION
//* MONITOR VSAM DATA BASE.
//*
//***RORGNLDM DD DSN=&SQ1..CNMSAMP(CNMSJV03),DISP=SHR
//*
//*
//* ACCESS METHODS SERVICES COMMAND FILE TO REORGANIZE HARDWARE
//* MONITOR VSAM DATA BASE.
//*
//***RORGNPDA DD DSN=&SQ1..CNMSAMP(CNMSJV04),DISP=SHR
//*
//*******************************************************************
//*
//* NOTE: CHANGE THE "//***" TO "//" ON THE NEXT FOUR(4)
//* STEPS IF YOU WOULD LIKE TO HAVE THE NETVIEW LOGS AND TRACE
//* DATABASES AUTOMATICALLY PRINTED WHEN THE PROC IS BROUGHT
//* DOWN.
//*
//* NOTE: DO NOT RUN THE REMAINING STEPS IN THIS PROC IF YOU START
//* IBM Z NETVIEW WITH THE START COMMAND USING OPERAND
//* SUB=MSTR, MOVE STEPS TO THEIR OWN PROC IN THIS CASE.
//* YOUR NEW PROC STATEMENT WILL HAVE TO DEFINE ALL THE SYMBOLIC
//* PARAMETERS REFERENCED IN THESE STEPS.
//*
//* *** PRINT PRIMARY NETVIEW LOG ***
//*
//***PRNTLOGP EXEC PGM=DSIPRT,COND=EVEN
//***STEPLIB DD DSN=&SQ1..CNMLINK,DISP=SHR
//***DSILT DD DSN=&VQ1..&DOMAIN..DSILOGP,
//*** DISP=SHR,AMP=AMORG
//***SYSPRINT DD SYSOUT=&SOUTA
//***DSILST DD SYSOUT=&SOUTA,DCB=(LRECL=121,RECFM=F,BLKSIZE=121)
//***DSIINP DD DUMMY,DCB=(LRECL=80,RECFM=F,BLKSIZE=80)
//*
//* *** PRINT SECONDARY NETVIEW LOG ***
//*
//***PRNTLOGS EXEC PGM=DSIPRT,COND=EVEN
//***STEPLIB DD DSN=&SQ1..CNMLINK,DISP=SHR
//***DSILT DD DSN=&VQ1..&DOMAIN..DSILOGS,
//*** DISP=SHR,AMP=AMORG
//***SYSPRINT DD SYSOUT=&SOUTA
//***DSILST DD SYSOUT=&SOUTA,DCB=(LRECL=121,RECFM=F,BLKSIZE=121)
//***DSIINP DD DUMMY,DCB=(LRECL=80,RECFM=F,BLKSIZE=80)
//*
//* *** PRINT PRIMARY TRACE LOG ***
//*
//***PRNTTRCP EXEC PGM=DSIPRT,COND=EVEN
//***STEPLIB DD DSN=&SQ1..CNMLINK,DISP=SHR
//***DSILT DD DSN=&VQ1..&DOMAIN..DSITRCP,
//*** DISP=SHR,AMP=AMORG
//***SYSPRINT DD SYSOUT=&SOUTA
//***DSILST DD SYSOUT=&SOUTA,DCB=(LRECL=121,RECFM=F,BLKSIZE=121)
//***DSIINP DD DUMMY,DCB=(LRECL=80,RECFM=F,BLKSIZE=80)
//*
//* *** PRINT SECONDARY TRACE LOG ***
//*
//***PRNTTRCS EXEC PGM=DSIPRT,COND=EVEN
//***STEPLIB DD DSN=&SQ1..CNMLINK,DISP=SHR
//***DSILT DD DSN=&VQ1..&DOMAIN..DSITRCS,
//*** DISP=SHR,AMP=AMORG
//***SYSPRINT DD SYSOUT=&SOUTA
//***DSILST DD SYSOUT=&SOUTA,DCB=(LRECL=121,RECFM=F,BLKSIZE=121)
//***DSIINP DD DUMMY,DCB=(LRECL=80,RECFM=F,BLKSIZE=80)
//*
//* PEND
//*CNMPROC EXEC PROC=CNMAPROC
Netviewで最初に実行されるREXX
/* REXX */
/* LICENSED MATERIAL - PROPERTY OF IBM */
/* C) COPYRIGHT IBM CORP. 2019,2020 - ALL RIGHTS RESERVED. */
/* US GOVERNMENT USERS RESTRICTED RIGHTS - USE, DUPLICATION OR DISCLOSURE */
/* RESTRICTED BY GSA ADP SCHEDULE CONTRACT WITH IBM CORP. */
/* BELOW WILL PREVENT DB2 ETC FROM STARTING */
/*GLBVARS = "$GL"||DOMAIN() */
GLBVARS = "GLB"||DOMAIN()
'WTO NETVIEW IS SETTING GLOBAL VARIABLES AND COMMENCING'
'WTO POST IPL SUBSYSTEM STARTUPS.'
INTERPRET CALL GLBVARS IPL
'MVS MN JOBNAMES,T'
SYS_TYPE = MVSVAR("SYMDEF","NTVTYPE")
CALL STARTUPS
CALL DSPSTAT
CALL STARTSYS
CALL $TIMERS
EXIT
Netviewから起動されるサブシステムの起動コマンド
/* REXX */
/* LICENSED MATERIAL - PROPERTY OF IBM */
/* C) COPYRIGHT IBM CORP. 2019,2020 - ALL RIGHTS RESERVED. */
/* US GOVERNMENT USERS RESTRICTED RIGHTS - USE, DUPLICATION OR DISCLOSURE */
/* RESTRICTED BY GSA ADP SCHEDULE CONTRACT WITH IBM CORP. */
/* THIS EXEC WILL SET ALL THE INTERNAL */
/* GLOBAL VARIABLES USED TO CONTROL */
/* SYSTEM STARTUP/SHUTDOWN/DISPLAY */
/* */
/* THIS EXEC IS GENERATED .. */
/* DO NOT ALTER IT MANUALLY */
ARG STATUS
SYSSTR = 'SY'||SUBSTR(DOMAIN(),LENGTH(DOMAIN()),1)
SYSCHR = SUBSTR(DOMAIN(),LENGTH(DOMAIN()),1)
X = 0
/*** CSQ9MSTR START ***/
X = X + 1
VARNAME = SYSSTR||TASK.X
INTERPRET SYSSTR||TASK.X ' = "CSQ9MSTR"'
'GLOBALV PUTC 'VARNAME
VARNAME = 'CSQ9MSTR'
CSQ9MSTR = X
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STRT.X
INTERPRET SYSSTR||STRT.X ' = "MVS %CSQ9 START QMGR"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DESC.X
INTERPRET SYSSTR||DESC.X ' = "MQ MSTR"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STOP.X
INTERPRET SYSSTR||STOP.X ' = "MVS %CSQ9 STOP QMGR"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||PARN.X
INTERPRET SYSSTR||PARN.X ' = "RRS,TCPIP"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STAT.X
INTERPRET SYSSTR||STAT.X ' = '
IF STATUS <> '' THEN
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DWNL.X
INTERPRET SYSSTR||DWNL.X ' = "5"'
'GLOBALV PUTC 'VARNAME
/*** CSQ9MSTR END ***/
/*** CSQ9CHIN START ***/
X = X + 1
VARNAME = SYSSTR||TASK.X
INTERPRET SYSSTR||TASK.X ' = "CSQ9CHIN"'
'GLOBALV PUTC 'VARNAME
VARNAME = 'CSQ9CHIN'
CSQ9CHIN = X
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STRT.X
INTERPRET SYSSTR||STRT.X ' = "MVS %CSQ9 START CHINIT"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DESC.X
INTERPRET SYSSTR||DESC.X ' = "MQ CHINIT"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STOP.X
INTERPRET SYSSTR||STOP.X ' = "MVS %CSQ9 STOP CHINIT"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||PARN.X
INTERPRET SYSSTR||PARN.X ' = "RRS,CSQ9MSTR"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STAT.X
INTERPRET SYSSTR||STAT.X ' = '
IF STATUS <> '' THEN
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DWNL.X
INTERPRET SYSSTR||DWNL.X ' = "5"'
'GLOBALV PUTC 'VARNAME
/*** CSQ9CHIN END ***/
/*** IMS15RL1 START ***/
X = X + 1
VARNAME = SYSSTR||TASK.X
INTERPRET SYSSTR||TASK.X ' = "IMS15RL1"'
'GLOBALV PUTC 'VARNAME
VARNAME = 'IMS15RL1'
IMS15RL1 = X
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STRT.X
INTERPRET SYSSTR||STRT.X ' = "MVS S IMS15RL1"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DESC.X
INTERPRET SYSSTR||DESC.X ' = "IMS IRLM"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STOP.X
INTERPRET SYSSTR||STOP.X ' = "MVS P IMS15RL1"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||PARN.X
INTERPRET SYSSTR||PARN.X ' = "RRS,TCPIP"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STAT.X
INTERPRET SYSSTR||STAT.X ' = '
IF STATUS <> '' THEN
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DWNL.X
INTERPRET SYSSTR||DWNL.X ' = "5"'
'GLOBALV PUTC 'VARNAME
/*** IMS15RL1 END ***/
/*** IMS15CR1 START ***/
X = X + 1
VARNAME = SYSSTR||TASK.X
INTERPRET SYSSTR||TASK.X ' = "IMS15CR1"'
'GLOBALV PUTC 'VARNAME
VARNAME = 'IMS15CR1'
IMS15CR1 = X
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STRT.X
INTERPRET SYSSTR||STRT.X ' = "MVS S IMS15CR1"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DESC.X
INTERPRET SYSSTR||DESC.X ' = "IMS CONTROL REGION"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STOP.X
INTERPRET SYSSTR||STOP.X ' = "IMSSTOP IMS15CR1"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||PARN.X
INTERPRET SYSSTR||PARN.X ' = "IMS15RL1"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STAT.X
INTERPRET SYSSTR||STAT.X ' = '
IF STATUS <> '' THEN
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DWNL.X
INTERPRET SYSSTR||DWNL.X ' = "5"'
'GLOBALV PUTC 'VARNAME
/*** IMS15CR1 END ***/
/*** DBB START ***/
X = X + 1
VARNAME = SYSSTR||TASK.X
INTERPRET SYSSTR||TASK.X ' = "DBB"'
'GLOBALV PUTC 'VARNAME
VARNAME = 'DBB'
DBB = X
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STRT.X
INTERPRET SYSSTR||STRT.X ' = "MVS S DBB"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DESC.X
INTERPRET SYSSTR||DESC.X ' = "DBB Personal Build Manager"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STOP.X
INTERPRET SYSSTR||STOP.X ' = "MVS C DBB"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||PARN.X
INTERPRET SYSSTR||PARN.X ' = "RESTCASH"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STAT.X
INTERPRET SYSSTR||STAT.X ' = '
IF STATUS <> '' THEN
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DWNL.X
INTERPRET SYSSTR||DWNL.X ' = "5"'
'GLOBALV PUTC 'VARNAME
/*** DBB END ***/
/*** DBBS START ***/
X = X + 1
VARNAME = SYSSTR||TASK.X
INTERPRET SYSSTR||TASK.X ' = "DBBS"'
'GLOBALV PUTC 'VARNAME
VARNAME = 'DBBS'
DBBS = X
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STRT.X
INTERPRET SYSSTR||STRT.X ' = "MVS S DBBS"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DESC.X
INTERPRET SYSSTR||DESC.X ' = "DBBS Build Manager"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STOP.X
INTERPRET SYSSTR||STOP.X ' = "MVS C DBBS"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||PARN.X
INTERPRET SYSSTR||PARN.X ' = "RESTCASH"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STAT.X
INTERPRET SYSSTR||STAT.X ' = '
IF STATUS <> '' THEN
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DWNL.X
INTERPRET SYSSTR||DWNL.X ' = "5"'
'GLOBALV PUTC 'VARNAME
/*** DBBS END ***/
/*** DBGMGR START ***/
X = X + 1
VARNAME = SYSSTR||TASK.X
INTERPRET SYSSTR||TASK.X ' = "DBGMGR"'
'GLOBALV PUTC 'VARNAME
VARNAME = 'DBGMGR'
DBGMGR = X
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STRT.X
INTERPRET SYSSTR||STRT.X ' = "MVS S DBGMGR"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DESC.X
INTERPRET SYSSTR||DESC.X ' = "DEBUG MGR"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STOP.X
INTERPRET SYSSTR||STOP.X ' = "MVS P DBGMGR"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||PARN.X
INTERPRET SYSSTR||PARN.X ' = "TCPIP"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STAT.X
INTERPRET SYSSTR||STAT.X ' = '
IF STATUS <> '' THEN
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DWNL.X
INTERPRET SYSSTR||DWNL.X ' = "5"'
'GLOBALV PUTC 'VARNAME
/*** DBGMGR END ***/
/*** EQAPROF START ***/
X = X + 1
VARNAME = SYSSTR||TASK.X
INTERPRET SYSSTR||TASK.X ' = "EQAPROF"'
'GLOBALV PUTC 'VARNAME
VARNAME = 'EQAPROF'
EQAPROF = X
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STRT.X
INTERPRET SYSSTR||STRT.X ' = "MVS S EQAPROF"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DESC.X
INTERPRET SYSSTR||DESC.X ' = "DEBUG PROFILE API"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STOP.X
INTERPRET SYSSTR||STOP.X ' = "MVS P EQAPROF1"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||PARN.X
INTERPRET SYSSTR||PARN.X ' = "DBGMGR,RESTCASH"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STAT.X
INTERPRET SYSSTR||STAT.X ' = '
IF STATUS <> '' THEN
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DWNL.X
INTERPRET SYSSTR||DWNL.X ' = "5"'
'GLOBALV PUTC 'VARNAME
/*** EQAPROF END ***/
/*** EQARMTD START ***/
X = X + 1
VARNAME = SYSSTR||TASK.X
INTERPRET SYSSTR||TASK.X ' = "EQARMTD"'
'GLOBALV PUTC 'VARNAME
VARNAME = 'EQARMTD'
EQARMTD = X
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STRT.X
INTERPRET SYSSTR||STRT.X ' = "MVS S EQARMTD"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DESC.X
INTERPRET SYSSTR||DESC.X ' = "Remote Debug Service"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STOP.X
INTERPRET SYSSTR||STOP.X ' = "MVS C EQARMTD"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||PARN.X
INTERPRET SYSSTR||PARN.X ' = "DBGMGR,RESTCASH"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STAT.X
INTERPRET SYSSTR||STAT.X ' = '
IF STATUS <> '' THEN
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DWNL.X
INTERPRET SYSSTR||DWNL.X ' = "5"'
'GLOBALV PUTC 'VARNAME
/*** EQARMTD END ***/
/*** CICSTS61 START ***/
X = X + 1
VARNAME = SYSSTR||TASK.X
INTERPRET SYSSTR||TASK.X ' = "CICSTS61"'
'GLOBALV PUTC 'VARNAME
VARNAME = 'CICSTS61'
CICSTS61 = X
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DESC.X
INTERPRET SYSSTR||DESC.X ' = "CICS"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STRT.X
INTERPRET SYSSTR||STRT.X ' = "MVS S CICSTS61"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STOP.X
INTERPRET SYSSTR||STOP.X ' = "MVS F CICSTS61,CEMT P SHUT"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||PARN.X
INTERPRET SYSSTR||PARN.X ' = "TCPIP,RRS"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STAT.X
INTERPRET SYSSTR||STAT.X ' = '
IF STATUS <> '' THEN
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DWNL.X
INTERPRET SYSSTR||DWNL.X ' = "6"'
'GLOBALV PUTC 'VARNAME
/*** CICSTS61 END ***/
/*** CSF START ***/
X = X + 1
VARNAME = SYSSTR||TASK.X
INTERPRET SYSSTR||TASK.X ' = "CSF"'
'GLOBALV PUTC 'VARNAME
VARNAME = 'CSF'
CSF = X
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DESC.X
INTERPRET SYSSTR||DESC.X ' = "CRYPTOGRAPHIC SERVICES"'
'GLOBALV PUTC 'VARNAME X
VARNAME = SYSSTR||STRT.X
INTERPRET SYSSTR||STRT.X ' = "MVS S CSF"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STOP.X
INTERPRET SYSSTR||STOP.X ' = "MVS P CSF"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||PARN.X
INTERPRET SYSSTR||PARN.X ' = "JES2"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STAT.X
INTERPRET SYSSTR||STAT.X ' = 'STATUS
IF STATUS <> '' THEN
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DWNL.X
INTERPRET SYSSTR||DWNL.X ' = "4"'
'GLOBALV PUTC 'VARNAME
/*** CSF END ***/
/*** DBD1MSTR START ***/
X = X + 1
VARNAME = SYSSTR||TASK.X
INTERPRET SYSSTR||TASK.X ' = "DBD1MSTR"'
'GLOBALV PUTC 'VARNAME
VARNAME = 'DBD1MSTR'
DBD1MSTR = X
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DESC.X
INTERPRET SYSSTR||DESC.X ' = "DB2"'
'GLOBALV PUTC 'VARNAME X
VARNAME = SYSSTR||STRT.X
INTERPRET SYSSTR||STRT.X ' = "MVS -DBD1 START DB2"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STOP.X
INTERPRET SYSSTR||STOP.X ' = "MVS -DBD1 STOP DB2"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||PARN.X
INTERPRET SYSSTR||PARN.X ' = "TCPIP,RRS"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STAT.X
INTERPRET SYSSTR||STAT.X ' = '
IF STATUS <> '' THEN
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DWNL.X
INTERPRET SYSSTR||DWNL.X ' = "6"'
'GLOBALV PUTC 'VARNAME
/*** DBD1MSTR END ***/
/*** IZUANG1 START ***/
X = X + 1
VARNAME = SYSSTR||TASK.X
INTERPRET SYSSTR||TASK.X ' = "IZUANG1"'
'GLOBALV PUTC 'VARNAME
VARNAME = 'IZUANG1'
IZUANG1 = X
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DESC.X
INTERPRET SYSSTR||DESC.X ' = "Z/OSMF ANGEL SERVICE"'
'GLOBALV PUTC 'VARNAME X
VARNAME = SYSSTR||STRT.X
INTERPRET SYSSTR||STRT.X ' = "MVS S IZUANG1"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STOP.X
INTERPRET SYSSTR||STOP.X ' = "MVS P IZUANG1"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||PARN.X
INTERPRET SYSSTR||PARN.X ' = "TCPIP"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STAT.X
INTERPRET SYSSTR||STAT.X ' = '
IF STATUS <> '' THEN
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DWNL.X
INTERPRET SYSSTR||DWNL.X ' = "6"'
'GLOBALV PUTC 'VARNAME
/*** IZUANG1 END ***/
/*** IZUSVR1 START ***/
X = X + 1
VARNAME = SYSSTR||TASK.X
INTERPRET SYSSTR||TASK.X ' = "IZUSVR1"'
'GLOBALV PUTC 'VARNAME
VARNAME = 'IZUSVR1'
IZUSVR1 = X
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DESC.X
INTERPRET SYSSTR||DESC.X ' = "Z/OSMF SERVER"'
'GLOBALV PUTC 'VARNAME X
VARNAME = SYSSTR||STRT.X
INTERPRET SYSSTR||STRT.X ' = "MVS S IZUSVR1"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STOP.X
INTERPRET SYSSTR||STOP.X ' = "MVS P IZUSVR1"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||PARN.X
INTERPRET SYSSTR||PARN.X ' = "IZUANG1,RESTCASH"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STAT.X
INTERPRET SYSSTR||STAT.X ' = '
IF STATUS <> '' THEN
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DWNL.X
INTERPRET SYSSTR||DWNL.X ' = "6"'
'GLOBALV PUTC 'VARNAME
/*** IZUSVR1 END ***/
/*** JES2 START ***/
X = X + 1
VARNAME = SYSSTR||TASK.X
INTERPRET SYSSTR||TASK.X ' = "JES2"'
'GLOBALV PUTC 'VARNAME
VARNAME = 'JES2'
JES2 = X
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STRT.X
INTERPRET SYSSTR||STRT.X ' = "MVS S JES2,SUB=MSTR,PARM=&JES2STR_"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DESC.X
INTERPRET SYSSTR||DESC.X ' = "Z/OS JOB ENTRY SUBSYSTEM"'
'GLOBALV PUTC 'VARNAME X
VARNAME = SYSSTR||STOP.X
INTERPRET SYSSTR||STOP.X ' = "@STOPJES"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||PARN.X
INTERPRET SYSSTR||PARN.X ' = "MVS,LLA,VLF"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STAT.X
INTERPRET SYSSTR||STAT.X ' = 'STATUS
IF STATUS <> '' THEN
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DWNL.X
INTERPRET SYSSTR||DWNL.X ' = "1"'
'GLOBALV PUTC 'VARNAME
/*** JES2 END ***/
/*** JMON START ***/
X = X + 1
VARNAME = SYSSTR||TASK.X
INTERPRET SYSSTR||TASK.X ' = "JMON"'
'GLOBALV PUTC 'VARNAME
VARNAME = 'JMON'
JMON = X
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DESC.X
INTERPRET SYSSTR||DESC.X ' = "Z/OS EXPLOROR JES MONITOR"'
'GLOBALV PUTC 'VARNAME X
VARNAME = SYSSTR||STRT.X
INTERPRET SYSSTR||STRT.X ' = "MVS S JMON"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STOP.X
INTERPRET SYSSTR||STOP.X ' = "MVS P JMON"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||PARN.X
INTERPRET SYSSTR||PARN.X ' = "TCPIP"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STAT.X
INTERPRET SYSSTR||STAT.X ' = '
IF STATUS <> '' THEN
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DWNL.X
INTERPRET SYSSTR||DWNL.X ' = "5"'
'GLOBALV PUTC 'VARNAME
/*** JMON END ***/
/*** RESTCASH START ***/
X = X + 1
VARNAME = SYSSTR||TASK.X
INTERPRET SYSSTR||TASK.X ' = "RESTCASH"'
'GLOBALV PUTC 'VARNAME
VARNAME = 'RESTCASH'
RESTCASH = X
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STRT.X
INTERPRET SYSSTR||STRT.X ' = "MVS S RESTCASH,SFW=ALL"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DESC.X
INTERPRET SYSSTR||DESC.X ' = "Java Cache Restore"'
'GLOBALV PUTC 'VARNAME X
VARNAME = SYSSTR||STOP.X
INTERPRET SYSSTR||STOP.X ' = "MVS C RESTCASH"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||PARN.X
INTERPRET SYSSTR||PARN.X ' = "TCPIP"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STAT.X
INTERPRET SYSSTR||STAT.X ' = 'STATUS
IF STATUS <> '' THEN
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DWNL.X
INTERPRET SYSSTR||DWNL.X ' = "4"'
'GLOBALV PUTC 'VARNAME
/*** RESTCASH END ***/
/*** LLA START ***/
X = X + 1
VARNAME = SYSSTR||TASK.X
INTERPRET SYSSTR||TASK.X ' = "LLA"'
'GLOBALV PUTC 'VARNAME
VARNAME = 'LLA'
LLA = X
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DESC.X
INTERPRET SYSSTR||DESC.X ' = "Z/OS LIBRARY LOOKASIDE"'
'GLOBALV PUTC 'VARNAME X
VARNAME = SYSSTR||STRT.X
INTERPRET SYSSTR||STRT.X ' = "MVS S LLA,SUB=MSTR"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STOP.X
INTERPRET SYSSTR||STOP.X ' = "MVS P LLA"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||PARN.X
INTERPRET SYSSTR||PARN.X ' = "VLF"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STAT.X
INTERPRET SYSSTR||STAT.X ' = 'STATUS
IF STATUS <> '' THEN
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DWNL.X
INTERPRET SYSSTR||DWNL.X ' = "1"'
'GLOBALV PUTC 'VARNAME
/*** LLA END ***/
/*** MVS START ***/
X = X + 1
VARNAME = SYSSTR||TASK.X
INTERPRET SYSSTR||TASK.X ' = "MVS"'
'GLOBALV PUTC 'VARNAME
VARNAME = 'MVS'
MVS = X
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STRT.X
INTERPRET SYSSTR||STRT.X ' = '
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DESC.X
INTERPRET SYSSTR||DESC.X ' = "MVS DUMMY TASK"'
'GLOBALV PUTC 'VARNAME X
VARNAME = SYSSTR||STOP.X
INTERPRET SYSSTR||STOP.X ' = "SHUTSYS"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||PARN.X
INTERPRET SYSSTR||PARN.X ' = "NULL"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STAT.X
INTERPRET SYSSTR||STAT.X ' = "UP"'
IF STATUS <> '' THEN
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DWNL.X
INTERPRET SYSSTR||DWNL.X ' = "0"'
'GLOBALV PUTC 'VARNAME
/*** MVS END ***/
/*** OMVS START ***/
X = X + 1
VARNAME = SYSSTR||TASK.X
INTERPRET SYSSTR||TASK.X ' = "OMVS"'
'GLOBALV PUTC 'VARNAME
VARNAME = 'OMVS'
OMVS = X
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STRT.X
INTERPRET SYSSTR||STRT.X ' = '
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DESC.X
INTERPRET SYSSTR||DESC.X ' = "Z/OS OPEN MVS SERVER"'
'GLOBALV PUTC 'VARNAME X
VARNAME = SYSSTR||STOP.X
INTERPRET SYSSTR||STOP.X ' = "F OMVS,SHUTDOWN"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||PARN.X
INTERPRET SYSSTR||PARN.X ' = "JES2"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STAT.X
INTERPRET SYSSTR||STAT.X ' = "DOWN"'
IF STATUS <> '' THEN
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DWNL.X
INTERPRET SYSSTR||DWNL.X ' = "2"'
'GLOBALV PUTC 'VARNAME
/*** OMVS END ***/
/*** RRS START ***/
X = X + 1
VARNAME = SYSSTR||TASK.X
INTERPRET SYSSTR||TASK.X ' = "RRS"'
'GLOBALV PUTC 'VARNAME
VARNAME = 'RRS'
RRS = X
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DESC.X
INTERPRET SYSSTR||DESC.X ' = "Z/OS RECOVERY SERVICES"'
'GLOBALV PUTC 'VARNAME X
VARNAME = SYSSTR||STRT.X
INTERPRET SYSSTR||STRT.X ' = "MVS S RRS,SUB=MSTR,GNAME=&SYSNAME"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STOP.X
INTERPRET SYSSTR||STOP.X ' = "MVS SETRRS SHUTDOWN"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||PARN.X
INTERPRET SYSSTR||PARN.X ' = "MVS"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STAT.X
INTERPRET SYSSTR||STAT.X ' = 'STATUS
IF STATUS <> '' THEN
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DWNL.X
INTERPRET SYSSTR||DWNL.X ' = "2"'
'GLOBALV PUTC 'VARNAME
/*** RRS END ***/
/*** RSED START ***/
X = X + 1
VARNAME = SYSSTR||TASK.X
INTERPRET SYSSTR||TASK.X ' = "RSED"'
'GLOBALV PUTC 'VARNAME
VARNAME = 'RSED'
RSED = X
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DESC.X
INTERPRET SYSSTR||DESC.X ' = "Z/OS EXPLORER SERVER"'
'GLOBALV PUTC 'VARNAME X
VARNAME = SYSSTR||STRT.X
INTERPRET SYSSTR||STRT.X ' = "MVS S RSED"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STOP.X
INTERPRET SYSSTR||STOP.X ' = "MVS P RSED"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||PARN.X
INTERPRET SYSSTR||PARN.X ' = "TCPIP,RESTCASH"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STAT.X
INTERPRET SYSSTR||STAT.X ' = '
IF STATUS <> '' THEN
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DWNL.X
INTERPRET SYSSTR||DWNL.X ' = "5"'
'GLOBALV PUTC 'VARNAME
/*** RSED END ***/
/*** RSEAPI START ***/
X = X + 1
VARNAME = SYSSTR||TASK.X
INTERPRET SYSSTR||TASK.X ' = "RSEAPI"'
'GLOBALV PUTC 'VARNAME
VARNAME = 'RSEAPI'
RSEAPI = X
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DESC.X
INTERPRET SYSSTR||DESC.X ' = "Z/OS EXPLORER SERVER"'
'GLOBALV PUTC 'VARNAME X
VARNAME = SYSSTR||STRT.X
INTERPRET SYSSTR||STRT.X ' = "MVS S RSEAPI"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STOP.X
INTERPRET SYSSTR||STOP.X ' = "MVS C RSEAPI"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||PARN.X
INTERPRET SYSSTR||PARN.X ' = "RSED"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STAT.X
INTERPRET SYSSTR||STAT.X ' = '
IF STATUS <> '' THEN
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DWNL.X
INTERPRET SYSSTR||DWNL.X ' = "5"'
'GLOBALV PUTC 'VARNAME
/*** RSEAPI END ***/
/*** SDSF START ***/
X = X + 1
VARNAME = SYSSTR||TASK.X
INTERPRET SYSSTR||TASK.X ' = "SDSF"'
'GLOBALV PUTC 'VARNAME
VARNAME = 'SDSF'
SDSF = X
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DESC.X
INTERPRET SYSSTR||DESC.X ' = "Z/OS SYSTEM DISPLAY/SEARCH"'
'GLOBALV PUTC 'VARNAME X
VARNAME = SYSSTR||STRT.X
INTERPRET SYSSTR||STRT.X ' = "MVS S SDSF"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STOP.X
INTERPRET SYSSTR||STOP.X ' = "MVS P SDSF"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||PARN.X
INTERPRET SYSSTR||PARN.X ' = "JES2"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STAT.X
INTERPRET SYSSTR||STAT.X ' = 'STATUS
IF STATUS <> '' THEN
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DWNL.X
INTERPRET SYSSTR||DWNL.X ' = "5"'
'GLOBALV PUTC 'VARNAME
/*** SDSF END ***/
/*** TCPIP START ***/
X = X + 1
VARNAME = SYSSTR||TASK.X
INTERPRET SYSSTR||TASK.X ' = "TCPIP"'
'GLOBALV PUTC 'VARNAME
VARNAME = 'TCPIP'
TCPIP = X
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DESC.X
INTERPRET SYSSTR||DESC.X ' = "Z/OS TCPIP SERVER"'
'GLOBALV PUTC 'VARNAME X
VARNAME = SYSSTR||STRT.X
INTERPRET SYSSTR||STRT.X ' = "MVS S TCPIP"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STOP.X
INTERPRET SYSSTR||STOP.X ' = "MVS P TCPIP"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||PARN.X
INTERPRET SYSSTR||PARN.X ' = "NET,OMVS"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STAT.X
INTERPRET SYSSTR||STAT.X ' = 'STATUS
IF STATUS <> '' THEN
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DWNL.X
INTERPRET SYSSTR||DWNL.X ' = "3"'
'GLOBALV PUTC 'VARNAME
/*** TCPIP END ***/
/*** TN3270 START ***/
X = X + 1
VARNAME = SYSSTR||TASK.X
INTERPRET SYSSTR||TASK.X ' = "TN3270"'
'GLOBALV PUTC 'VARNAME
VARNAME = 'TN3270'
TN3270 = X
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DESC.X
INTERPRET SYSSTR||DESC.X ' = "TELNET 3270 SERVER"'
'GLOBALV PUTC 'VARNAME X
VARNAME = SYSSTR||STRT.X
INTERPRET SYSSTR||STRT.X ' = "MVS S TN3270"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STOP.X
INTERPRET SYSSTR||STOP.X ' = "MVS P TN3270"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||PARN.X
INTERPRET SYSSTR||PARN.X ' = "TCPIP"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STAT.X
INTERPRET SYSSTR||STAT.X ' = 'STATUS
IF STATUS <> '' THEN
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DWNL.X
INTERPRET SYSSTR||DWNL.X ' = "4"'
'GLOBALV PUTC 'VARNAME
/*** TN3270 END ***/
/*** TSO START ***/
X = X + 1
VARNAME = SYSSTR||TASK.X
INTERPRET SYSSTR||TASK.X ' = "TSO"'
'GLOBALV PUTC 'VARNAME
VARNAME = 'TSO'
TSO = X
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DESC.X
INTERPRET SYSSTR||DESC.X ' = "TIME SHARING OPTION"'
'GLOBALV PUTC 'VARNAME X
VARNAME = SYSSTR||STRT.X
INTERPRET SYSSTR||STRT.X ' = "MVS S TSO"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STOP.X
INTERPRET SYSSTR||STOP.X ' = "MVS P TSO"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||PARN.X
INTERPRET SYSSTR||PARN.X ' = "TN3270"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STAT.X
INTERPRET SYSSTR||STAT.X ' = 'STATUS
IF STATUS <> '' THEN
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DWNL.X
INTERPRET SYSSTR||DWNL.X ' = "5"'
'GLOBALV PUTC 'VARNAME
/*** TSO END ***/
/*** VLF START ***/
X = X + 1
VARNAME = SYSSTR||TASK.X
INTERPRET SYSSTR||TASK.X ' = "VLF"'
'GLOBALV PUTC 'VARNAME
VARNAME = 'VLF'
VLF = X
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DESC.X
INTERPRET SYSSTR||DESC.X ' = "Z/OS VIRUTAL LOOKASIDE"'
'GLOBALV PUTC 'VARNAME X
VARNAME = SYSSTR||STRT.X
INTERPRET SYSSTR||STRT.X ' = "MVS S VLF,SUB=MSTR"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STOP.X
INTERPRET SYSSTR||STOP.X ' = "MVS P VLF"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||PARN.X
INTERPRET SYSSTR||PARN.X ' = "MVS"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STAT.X
INTERPRET SYSSTR||STAT.X ' = 'STATUS
IF STATUS <> '' THEN
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DWNL.X
INTERPRET SYSSTR||DWNL.X ' = "1"'
'GLOBALV PUTC 'VARNAME
/*** VLF END ***/
/*** NET START ***/
X = X + 1
VARNAME = SYSSTR||TASK.X
INTERPRET SYSSTR||TASK.X ' = "NET"'
'GLOBALV PUTC 'VARNAME
VARNAME = 'NET'
NET = X
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DESC.X
INTERPRET SYSSTR||DESC.X ' = "VIRTUAL TELCOM ACCESS METHOD"'
'GLOBALV PUTC 'VARNAME X
VARNAME = SYSSTR||STRT.X
INTERPRET SYSSTR||STRT.X ' = "MVS S NET,,,(LIST=00)"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STOP.X
INTERPRET SYSSTR||STOP.X ' = "MVS Z NET,QUICK"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||PARN.X
INTERPRET SYSSTR||PARN.X ' = "JES2"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STAT.X
INTERPRET SYSSTR||STAT.X ' = 'STATUS
IF STATUS <> '' THEN
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DWNL.X
INTERPRET SYSSTR||DWNL.X ' = "2"'
'GLOBALV PUTC 'VARNAME
/*** NET END ***/
/*** ZOSCSRV START ***/
X = X + 1
VARNAME = SYSSTR||TASK.X
INTERPRET SYSSTR||TASK.X ' = "ZOSCSRV"'
'GLOBALV PUTC 'VARNAME
VARNAME = 'ZOSCSRV'
ZOSCSRV = X
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DESC.X
INTERPRET SYSSTR||DESC.X ' = "Z/OS CONNECT SERVER"'
'GLOBALV PUTC 'VARNAME X
VARNAME = SYSSTR||STRT.X
INTERPRET SYSSTR||STRT.X ' = "MVS S ZOSCSRV"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STOP.X
INTERPRET SYSSTR||STOP.X ' = "MVS P ZOSCSRV"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||PARN.X
INTERPRET SYSSTR||PARN.X ' = "TCPIP,RESTCASH"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STAT.X
INTERPRET SYSSTR||STAT.X ' = '
IF STATUS <> '' THEN
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DWNL.X
INTERPRET SYSSTR||DWNL.X ' = "6"'
'GLOBALV PUTC 'VARNAME
/*** ZOSCSRV END ***/
/*** CFZCIM START ***/
X = X + 1
VARNAME = SYSSTR||TASK.X
INTERPRET SYSSTR||TASK.X ' = "CFZCIM"'
'GLOBALV PUTC 'VARNAME
VARNAME = 'CFZCIM'
CFZCIM = X
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DESC.X
INTERPRET SYSSTR||DESC.X ' = "CFZCIM SERVER"'
'GLOBALV PUTC 'VARNAME X
VARNAME = SYSSTR||STRT.X
INTERPRET SYSSTR||STRT.X ' = "MVS S CFZCIM"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STOP.X
INTERPRET SYSSTR||STOP.X ' = "MVS C CFZCIM"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||PARN.X
INTERPRET SYSSTR||PARN.X ' = "TCPIP"'
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||STAT.X
INTERPRET SYSSTR||STAT.X ' = '
IF STATUS <> '' THEN
'GLOBALV PUTC 'VARNAME
VARNAME = SYSSTR||DWNL.X
INTERPRET SYSSTR||DWNL.X ' = "6"'
'GLOBALV PUTC 'VARNAME
/*** CFZCIM END ***/
/***** TOTAL TASK COUNTER *****/
VARNAME = SYSSTR||'TASKS'
INTERPRET VARNAME '= X'
'GLOBALV PUTC 'VARNAME
Netview管理サブシステムのステータス
F CNMPROC,GETSTAT
TASKNAME DESCRIPTION CURRENT STATUS
-------------------------------------------------------------------
CSQ9MSTR MQ MSTR STATUS = UP
CSQ9CHIN MQ CHINIT STATUS = UP
IMS15RL1 IMS IRLM STATUS = UP
IMS15CR1 IMS CONTROL REGION STATUS = UP
DBB DBB Personal Build Manager STATUS = UP
DBBS DBBS Build Manager STATUS = UP
DBGMGR DEBUG MGR STATUS = UP
EQAPROF DEBUG PROFILE API STATUS = UP
EQARMTD Remote Debug Service STATUS = UP
CICSTS61 CICS STATUS = UP
CSF CRYPTOGRAPHIC SERVICES STATUS = UP
DBD1MSTR DB2 STATUS = UP
IZUANG1 Z/OSMF ANGEL SERVICE STATUS = UP
IZUSVR1 Z/OSMF SERVER STATUS = UP
JES2 Z/OS JOB ENTRY SUBSYSTEM STATUS = UP
JMON Z/OS EXPLOROR JES MONITOR STATUS = UP
RESTCASH Java Cache Restore STATUS = COMPLETE
LLA Z/OS LIBRARY LOOKASIDE STATUS = UP
MVS MVS DUMMY TASK STATUS = UP
OMVS Z/OS OPEN MVS SERVER STATUS = UP
RRS Z/OS RECOVERY SERVICES STATUS = UP
RSED Z/OS EXPLORER SERVER STATUS = UP
RSEAPI Z/OS EXPLORER SERVER STATUS = UP
SDSF Z/OS SYSTEM DISPLAY/SEARCH STATUS = UP
TCPIP Z/OS TCPIP SERVER STATUS = UP
TN3270 TELNET 3270 SERVER STATUS = UP
TSO TIME SHARING OPTION STATUS = UP
VLF Z/OS VIRUTAL LOOKASIDE STATUS = UP
NET VIRTUAL TELCOM ACCESS METHOD STATUS = UP
ZOSCSRV Z/OS CONNECT SERVER STATUS = UP
CFZCIM CFZCIM SERVER STATUS = UP
Stock Imageに含まれるいくつかのアドレス・スペースはNetview管理のスクリプトで自動起動されるよう制御されています。自動起動の有無は、IEASYMxxの変数で制御できるようになってます。以下のIEASYMxxの各変数でIPL
と指定されているコンポーネントはIPL時に自動起動の対象となります。NOS
と指定されているコンポーネントはIPL時に自動起動されません。(IPL時に自動起動させたくないコンポーネントについてはIPL
⇒NOS
に変更すればOKです。)
IEASYMxx抜粋
...
SYMDEF(&DBGMGR='IPL')
SYMDEF(&EQAPROF='IPL')
SYMDEF(&EQARMTD='IPL')
SYMDEF(&CICSTS61='IPL')
SYMDEF(&CSQ9MSTR='IPL')
SYMDEF(&CSQ9CHIN='IPL')
SYMDEF(&IMS15RL1='IPL')
SYMDEF(&IMS15CR1='IPL')
SYMDEF(&DBD1MSTR='IPL')
SYMDEF(&IZUANG1='IPL')
SYMDEF(&IZUSVR1='IPL')
SYMDEF(&JMON='IPL')
SYMDEF(&RSED='IPL')
SYMDEF(&RSEAPI='IPL')
SYMDEF(&DBB='IPL')
SYMDEF(&DBBS='IPL')
SYMDEF(&ZOSCSRV='IPL')
...
SMS関連
IGDSMSxx
SMS
ACDS(VSPROV.ACDS)
COMMDS(VSPROV.COMMDS)
INTERVAL(5)
SYSTEMS(32)
TRACE(ON)
TYPE(ERROR)
D SMS
D SMS
IGD002I 08:46:46 DISPLAY SMS 843
SCDS = VSPROV.DFSMS.SCDS
ACDS = VSPROV.ACDS
COMMDS = VSPROV.COMMDS
ACDS LEVEL = z/OS V2.4
DINTERVAL = 150
REVERIFY = NO
ACSDEFAULTS = NO
SYSTEM CONFIGURATION LEVEL INTERVAL SECONDS
VS01 2023/03/28 08:46:43 5
ACS Routine
ACS OBJECT DISPLAY
CDS Name : ACTIVE
ACS Rtn Source Data Set ACS Member Last Trans Last Date Last Time
Type Routine Translated from Name Userid Translated Translated
-------- ----------------------- -------- ---------- ---------- ----------
DATACLAS VSPROV.DFSMS.CNTL DATACLAS IBMUSER 2022/02/28 13:45
MGMTCLAS ----------------------- -------- -------- ---------- -----
STORCLAS VSPROV.DFSMS.CNTL STORCLAS IBMUSER 2022/02/28 14:27
STORGRP VSPROV.DFSMS.CNTL STORGRP IBMUSER 2022/02/28 14:24
Data Class
PROC DATACLAS /* DATACLASS START */
FILTLIST DB2_DB INCLUDE(**.DSNDBC.**,
**.DSNDBD.**)
IF &SIZE > 4052MB THEN
DO
IF (&STORCLAS NE 'SCNOSMS') THEN
DO
SET &DATACLAS = 'DCEXTEAV'
EXIT CODE(0)
END
END
IF &DSN = &DB2_DB THEN
DO
SET &DATACLAS = 'DCDB2EXT'
EXIT CODE(0)
END
IF &DSN(1) = 'ZCX' THEN
DO
IF &DSN(2) = 'VS' THEN
DO
SET &DATACLAS='CXDC'
END
END
IF &DSN(2) = 'ZCX' THEN
DO
IF &DSN(3) = 'FS' THEN
DO
SET &DATACLAS='CXDC'
END
END
END /* DATACLASS END */
Storage Class
PROC STORCLAS
/* */
/* To include other DB2, CICS, IMS, MQS or ARCH HLQs then you can */
/* modify the appropriate FILTLIST statement and include other HLQs */
/* */
/* */
FILTLIST DB2_HLQ INCLUDE(DSN*.**,
DB2.**,
DSN.**,
DB2*.**,
DY00*.**,
DY01*.**)
FILTLIST CICS_HLQ INCLUDE(DFH*.**,
CICS.**,
DFH.**,
CICS*.**)
FILTLIST IMS_HLQ INCLUDE(DFS*.**,
DFS.**,
IMS.**,
IMS*.**)
FILTLIST MQS_HLQ INCLUDE(CSQ*.**,
CSQ.**,
MQS.**,
MQS*.**)
FILTLIST APPL_HLQ INCLUDE(APPL.**,
PROD.**,
TEST.**)
FILTLIST ARCH_DSN INCLUDE(DS*.*.ARC*.**,
DB*.*.ARC*.**)
FILTLIST IODF_DS INCLUDE(PROV.IODF*.**,
*.IODF*.**)
FILTLIST ZCX_VS INCLUDE('ZCX.VS')
FILTLIST ZCX_FS INCLUDE('ZCX.FS')
FILTLIST SORT_DD INCLUDE(SORTWK*,
SORTDK*)
SELECT
WHEN (&DSN = &IODF_DS)
DO
SET &STORCLAS = ''
EXIT CODE(0)
END
WHEN (&STORCLAS = 'SCNOSMS')
DO
SET &STORCLAS = ''
EXIT CODE(0)
END
WHEN (&STORCLAS = 'SCNOVIO')
DO
SET &STORCLAS = 'SCNOVIO'
EXIT CODE(0)
END
WHEN (&DATACLAS = 'DCDB2EXT')
DO
SET &STORCLAS = 'SCDB2'
EXIT CODE(0)
END
WHEN (&DATACLAS = 'DCEXTEAV')
DO
SET &STORCLAS = 'SCEXTEAV'
EXIT CODE(0)
END
WHEN (&STORCLAS = 'SCAPPL')
DO
SET &STORCLAS = 'SCAPPL'
EXIT CODE(0)
END
WHEN (&DSN = &APPL_HLQ)
DO
SET &STORCLAS = 'SCAPPL'
EXIT CODE(0)
END
WHEN (&DSN = &ARCH_DSN)
DO
SET &STORCLAS = 'SCARCH'
EXIT CODE(0)
END
WHEN (&DSN = &IMS_HLQ)
DO
SET &STORCLAS = 'SCIMS'
EXIT CODE(0)
END
WHEN (&DSN = &CICS_HLQ)
DO
SET &STORCLAS = 'SCCICS'
EXIT CODE(0)
END
WHEN (&DSN = &MQS_HLQ)
DO
SET &STORCLAS = 'SCMQS'
EXIT CODE(0)
END
WHEN (&DSN = &ARCH_DSN)
DO
SET &STORCLAS = 'SCARCH'
EXIT CODE(0)
END
WHEN (&HLQ = &DB2_HLQ)
DO
SET &STORCLAS = 'SCDB2'
EXIT CODE(0)
END
WHEN (&DSN(1) = 'ZCX')
DO
IF &DSN(2) = 'VS' THEN
DO
SET &STORCLAS='CXROOTSC'
END
END
WHEN (&DSN(1) = 'ZCX')
DO
IF &DSN(2) = 'FS' THEN
DO
SET &STORCLAS='CXROOTSC'
END
END
WHEN (&DSTYPE = 'TEMP')
DO
SELECT
WHEN (&DD = &SORT_DD) SET &STORCLAS = 'SCNOVIO'
WHEN (&DSORG = 'VS') SET &STORCLAS = 'SCNOVIO'
OTHERWISE SET &STORCLAS = 'SCBASE'
END
EXIT CODE(0)
END
OTHERWISE
DO
SET &STORCLAS = 'SCBASE'
EXIT CODE(0)
END
END /* END SELECT */
END /* END oF STORAGE CLASS ROUTINE PROC */
Storage Group
PROC STORGRP 00010000
/* */ 00080027
/* Storage group is set based on what Storage Class was */ 00081027
/* assigned. All Storage Groups fall back to SGBASE */ 00082027
/* in case application specific Volumes are not there */ 00082127
/* */ 00083027
SELECT 00090000
00112000
WHEN (&STORCLAS = 'SCNOSMS') 00112120
DO 00112220
EXIT CODE(0) 00112420
END 00112520
00112609
WHEN (&DSTYPE = 'TEMP' && &STORCLAS = 'SCNOVIO') 00112716
DO 00112809
SET &STORGRP = 'SGBASE','SGEXTEAV' 00112931
EXIT CODE(0) 00113009
END 00113109
00113215
WHEN (&DSTYPE = 'TEMP' && &SIZE < 2000001KB) 00113318
DO 00113415
SET &STORGRP = 'SGVIO','SGBASE','SGEXTEAV' 00113531
EXIT CODE(0) 00113615
END 00113715
00113815
WHEN (&STORCLAS= 'SCAPPL') 00113925
DO 00114015
SET &STORGRP = 'SGAPPL','SGBASE','SGEXTEAV' 00114131
EXIT CODE(0) 00114223
END 00114305
00114425
WHEN (&STORCLAS= 'SCIMS') 00114525
DO 00114625
SET &STORGRP = 'SGIMS','SGBASE','SGEXTEAV' 00114731
EXIT CODE(0) 00114825
END 00114925
00115025
WHEN (&STORCLAS= 'SCMQS') 00115125
DO 00115225
SET &STORGRP = 'SGMQS','SGBASE','SGEXTEAV' 00115331
EXIT CODE(0) 00115425
END 00115525
00115625
WHEN (&STORCLAS= 'SCCICS') 00115725
DO 00115825
SET &STORGRP = 'SGCICS','SGBASE','SGEXTEAV' 00115931
EXIT CODE(0) 00116025
END 00116125
00116225
WHEN (&STORCLAS= 'SCARCH') 00116325
DO 00116425
SET &STORGRP = 'SGARCH' 00116533
EXIT CODE(0) 00116625
END 00116725
00116825
WHEN (&STORCLAS= 'SCEXTEAV') 00116925
DO 00117025
SET &STORGRP = 'SGEXTEAV','SGBASE' 00117125
EXIT CODE(0) 00117226
END 00117425
00117525
WHEN (&STORCLAS = 'SCDB2') 00117625
DO 00118000
SET &STORGRP = 'SGDB2','SGBASE','SGEXTEAV' 00119031
EXIT CODE(0) 00119126
END 00130000
00131005
00200005
WHEN (&STORCLAS= 'SCBASE') 00210008
DO 00220005
SET &STORGRP = 'SGBASE','SGEXTEAV' 00230030
EXIT CODE(0) 00231026
END 00250005
00251032
WHEN (&STORCLAS= 'CXROOTSC') 00252032
SET &STORGRP = 'CXROOTSG' 00253032
00260005
END /* end select 00272000
END /* END OF STORAGE GROUP ROUTINE PROC */ 00273000
END /* END OF STORAGE GROUP ROUTINE PROC */ 00274003
※上のACS Routineで明示的に指定されているHLQ以外は"SCBASE"というStorage Classが使われるようになっており、"SCBASE"の場合"SGBASE", "SGEXTEAV"というStorage Groupが選択されるようになっています。
"SGBASE"というStorage Groupの定義を見てみると、以下のようになっています。
SGBASE: Volume List
VOLUME LIST 2023/03/28 09:02
Entries 1-15 of 182
Enter Line Operators below: Data Columns 3-15 of 45
LINE VOLUME FREE % ALLOC FRAG LARGEST FREE INDEX FREE FREE DEVICE DEV SHR USE
OPERATOR SERIAL SPACE FREE SPACE INDEX EXTENT EXTENTS STATUS DSCBS VIRS TYPE NUM DASD ATTR
---(1)---- -(2)-- ---(3)--- (4)- ---(5)--- -(6)- ---(7)--- --(8)-- --(9)--- -(10)-- -(11)-- -(12)-- (13) (14) (15)
D4USR1 --------- --- --------- --- --------- ------- -------- ------- ------- ------- ---- --- ----
USER0A --------- --- --------- --- --------- ------- -------- ------- ------- ------- ---- --- ----
USER0B --------- --- --------- --- --------- ------- -------- ------- ------- ------- ---- --- ----
USER0C --------- --- --------- --- --------- ------- -------- ------- ------- ------- ---- --- ----
USER0D --------- --- --------- --- --------- ------- -------- ------- ------- ------- ---- --- ----
USER0E --------- --- --------- --- --------- ------- -------- ------- ------- ------- ---- --- ----
USER0F --------- --- --------- --- --------- ------- -------- ------- ------- ------- ---- --- ----
USER00 --------- --- --------- --- --------- ------- -------- ------- ------- ------- ---- --- ----
USER01 --------- --- --------- --- --------- ------- -------- ------- ------- ------- ---- --- ----
USER02 --------- --- --------- --- --------- ------- -------- ------- ------- ------- ---- --- ----
USER03 --------- --- --------- --- --------- ------- -------- ------- ------- ------- ---- --- ----
USER04 --------- --- --------- --- --------- ------- -------- ------- ------- ------- ---- --- ----
USER05 --------- --- --------- --- --------- ------- -------- ------- ------- ------- ---- --- ----
USER06 --------- --- --------- --- --------- ------- -------- ------- ------- ------- ---- --- ----
USER07 --------- --- --------- --- --------- ------- -------- ------- ------- ------- ---- --- ----
...
USER48 --------- --- --------- --- --------- ------- -------- ------- ------- ------- ---- --- ----
USER49 --------- --- --------- --- --------- ------- -------- ------- ------- ------- ---- --- ----
USRVS1 10256405K 41 14687099K 4 10200350K 39 ENABLED 961 238 3390-9 DE00 YES PRIV
ZDT000 --------- --- --------- --- --------- ------- -------- ------- ------- ------- ---- --- ----
ZDT001 --------- --- --------- --- --------- ------- -------- ------- ------- ------- ---- --- ----
ZDT002 --------- --- --------- --- --------- ------- -------- ------- ------- ------- ---- --- ----
ZDT003 --------- --- --------- --- --------- ------- -------- ------- ------- ------- ---- --- ----
...
ZDT097 --------- --- --------- --- --------- ------- -------- ------- ------- ------- ---- --- ----
ZDT098 --------- --- --------- --- --------- ------- -------- ------- ------- ------- ---- --- ----
ZDT099 --------- --- --------- --- --------- ------- -------- ------- ------- ------- ---- --- ----
SGBASEに含まれるVOLUMEで実際に存在しているものはUSRVS1
だけのようです。このVOLUMEの情報を見てみると以下のようになっています。
Vol:USRVS1
ssssssssssssssssssssssssss VTOC Summary Information ssssssssssssssssssssssssss
Volume . : USRVS1
Unit . . : 3390
Volume Data VTOC Data Free Space Tracks Cyls
Tracks . : 450,765 Tracks . : 44 Size . . : 185,348 12,349
%Used . : 58 %Used . . : 57 Largest . : 184,335 12,289
Trks/Cyls: 15 Free DSCBS: 961 Free
Extents . : 39
450,765Track ≒ 25GB のうち約60%使用されているので、約40%(約10GB)くらいはデータ用に利用できる状況です。
※SMS管理外のVOLを明示指定したい時のために、"SCNOSMS"というStorage Classが提供されています。SMS管理外のVOLを追加した場合、Storage Classとして"SCNOSMS"を指定してVOLを明示指定すればSMS管理外のVOLを使用することもできます。
automount
参考:
How does the automount facility work?
automount - Configure the automount facility
rcスクリプトによる自動起動
# Initialization shell script, pathname = /etc/rc
#
# LICENSED MATERIALS - PROPERTY OF IBM
# 5650-ZOS COPYRIGHT IBM CORP. 1993, 2015
#
# Initial setup for z/OS UNIX
export _BPX_JOBNAME='ETCRC'
# Provide z/OS UNIX Startup Diagnostics
set -v -x
# Setup utmpx file
>/etc/utmpx
chmod 644 /etc/utmpx
# Reset all slave tty files
chmod 666 /dev/tty*
chown 0 /dev/tty*
# Allow only file owner to remove files from /tmp
chmod 1777 /tmp
# Allow only file owner to remove files from /var
chmod 1777 /var
# Allow only file owner to remove files from /dev
chmod 1755 /dev
# Setup write, talk, mesg utilities
# chgrp TTY /bin/write
# chgrp TTY /bin/mesg
# chgrp TTY /bin/talk
# chmod 2755 /bin/write
# chmod 2755 /bin/mesg
# chmod 2755 /bin/talk
# Performed at install in HOT7707
# Commented out in HOT6609 and performed in SAMPLIB job FOMISCHO
# Setup mailx utility
# No need to CHGRP /usr/mail directory
# No need to CHGRP mailx utility
# No need to CHMOD mailx to turn on SETGID
# Setup uucp utility
# chown uucp:uucpg /usr/lib/uucp
# chown uucp:uucpg /usr/lib/uucp/IBM
# chown uucp:uucpg /usr/spool/uucp
# chown uucp:uucpg /usr/spool/locks
# chown uucp:uucpg /usr/spool/uucppublic
# chown uucp:uucpg /usr/spool/uucp/.Xqtdir
# chown uucp:uucpg /usr/spool/uucp/.Sequence
# chown uucp:uucpg /usr/spool/uucp/.Status
# chown uucp:uucpg /bin/uucp
# chown uucp:uucpg /bin/uuname
# chown uucp:uucpg /bin/uustat
# chown uucp:uucpg /bin/uux
# chown uucp:uucpg /usr/lib/uucp/uucico
# chown uucp:uucpg /usr/lib/uucp/uuxqt
# chown uucp:uucpg /usr/lib/uucp/uucc
# chmod 4755 /bin/uucp
# chmod 4755 /bin/uuname
# chmod 4755 /bin/uustat
# chmod 4755 /bin/uux
# chmod 4754 /usr/lib/uucp/uucico
# chmod 4754 /usr/lib/uucp/uuxqt
# chmod 4754 /usr/lib/uucp/uucc
# Performed at install in HOT7707
# Commented out in HOT6609 and performed in SAMPLIB job FOMISCHO
# Invoke vi recovery
#
#
# mkdir -m 777 /var/tmp
# export TMP_VI="/var/tmp"
if [ -e /etc/recover ]
then
chmod 1777 /etc/recover
else
mkdir -m 1777 /etc/recover
fi
/usr/lib/exrecover
# Create TERMINFO database
# tic /usr/share/lib/terminfo/ibm.ti
# tic /usr/share/lib/terminfo/dec.ti
# tic /usr/share/lib/terminfo/wyse.ti
# tic /usr/share/lib/terminfo/dtterm.ti
# commented tic out in HOT1180 - all TERMINFO files are shipped
#-------------------------------------------------------------------------------
# Added in HOT7750 to eliminate a manual migration action.
#
# Remove all files in the man cache that were created by the man command for
# the default MANPATH directory.
#
# NOTE: This loop only removes files for a subset of the LANG values
# possible. Administrators should customize the loop to include
# the LANG values supported on their system.
#-------------------------------------------------------------------------------
for MAN_CACHE_LANG in C Ja_JP Zh_CN ; do
[[ -d /var/man/$MAN_CACHE_LANG ]] && rm /var/man/$MAN_CACHE_LANG/*.[0-9].*
done
# Start the INET daemon for remote login activity
#_BPX_JOBNAME='INETD' /usr/sbin/inetd /etc/inetd.conf &
# Start the SSH daemon
_BPX_JOBNAME='SSHD' /usr/sbin/sshd >/tmp/sshd.err &
# Start the automount facility
_BPX_JOBNAME='AUTOMNTD' /usr/sbin/automount /etc/auto.master &
sleep 5
echo /etc/rc script executed, `date`
automount設定
/u /etc/auto.map
name *
type ZFS
filesystem OMVS.USER.<uc_name>.ZFS
mode rdwr
delay 0
duration 5
parm FSFULL(50,5)
allocany space(10,5) cyl vol(OPEVS1) pathperm(755) euid
通常、OMVSセグメントを付与したTSOユーザーの属性としてUSS上のホームディレクトリを設定することになりますが、一般的には/u/ディレクトリ下に各ユーザーのホーム・ディレクトリを設定します。
Wazi aaSのStock Imageでは、/u/以下のディレクトリについてはautomount機能が設定されています。これは/u/以下のディレクトリにアクセスされたタイミングで、ディレクトリがなければディレクトリ(マウントポイント)、および、ファイル・システムを作成してマウントしてくれます。使用されなくなったら自動でアンマウントされます。
新規でユーザーを作成する際は、ホーム・ディレクトリを/u/以下にするとこの機能が使えるので便利です。
auto.mapにvol(OPEVS1)
という指定がされていますが、上のSMSの設定の通りSGBASEというStorage Groupが使われるので実際にはzFS用のデータセットはUSRVS1というVOLに作成されることになります。
RACF
SETROPTS LIST
SETROPTS LIST
ATTRIBUTES = INITSTATS NOWHEN(PROGRAM)
STATISTICS = NONE
ACTIVE CLASSES = DATASET USER GROUP ACCTNUM ACICSPCT AIMS APPL BCICSPCT
CCICSCMD CIMS CSFKEYS CSFSERV DASDVOL DCICSDCT DIGTCERT
DIGTRING DIMS DSNR ECICSDCT EJBROLE FACILITY FCICSFCT
GCICSTRN GCSFKEYS GDASDVOL GEJBROLE GIMS GSDSF GXCSFKEY
GXFACILI GZMFAPLA HCICSFCT IIMS JCICSJCT JESJOBS JESSPOOL
JIMS KCICSJCT LIMS MCICSPPT MIMS NCICSPPT OPERCMDS PCICSPSB
PTKTDATA PTKTVAL QCICSPSB RCICSRES RIMS SCICSTST SDSF
SERVAUTH SERVER STARTED SURROGAT TCICSTRN TIMS TSOAUTH
TSOPROC UCICSTST UNIXPRIV VCICSCMD WBEM WCICSRES XCSFKEY
XFACILIT ZMFAPLA ZMFCLOUD
GENERIC PROFILE CLASSES = DATASET AIMS APPL CIMS CSFKEYS CSFSERV DASDVOL
DSNR EJBROLE FACILITY IIMS JESJOBS JESSPOOL
LIMS OPERCMDS PTKTDATA PTKTVAL RIMS SDSF SERVAUTH
SERVER STARTED SURROGAT TIMS XCSFKEY XFACILIT
ZMFAPLA ZMFCLOUD
GENERIC COMMAND CLASSES = DATASET AIMS APPL CIMS CSFKEYS CSFSERV DASDVOL
DSNR EJBROLE FACILITY IIMS JESJOBS JESSPOOL
LIMS OPERCMDS PTKTDATA PTKTVAL RIMS SDSF SERVAUTH
SERVER STARTED SURROGAT TIMS XCSFKEY XFACILIT
ZMFAPLA ZMFCLOUD
GENLIST CLASSES = NONE
GLOBAL CHECKING CLASSES = NONE
SETR RACLIST CLASSES = ACCTNUM APPL CSFKEYS CSFSERV DASDVOL DIGTCERT
DIGTRING DSNR EJBROLE FACILITY JESJOBS JESSPOOL
OPERCMDS PTKTDATA PTKTVAL SDSF SERVAUTH SERVER
STARTED SURROGAT TSOAUTH TSOPROC UNIXPRIV WBEM
XCSFKEY XFACILIT ZMFAPLA ZMFCLOUD
GLOBAL=YES RACLIST ONLY = CIMS IIMS LIMS RIMS SCICSTST TIMS
AUTOMATIC DATASET PROTECTION IS IN EFFECT
ENHANCED GENERIC NAMING IS IN EFFECT
REAL DATA SET NAMES OPTION IS INACTIVE
JES-BATCHALLRACF OPTION IS INACTIVE
JES-XBMALLRACF OPTION IS INACTIVE
JES-EARLYVERIFY OPTION IS INACTIVE
PROTECT-ALL OPTION IS NOT IN EFFECT
TAPE DATA SET PROTECTION IS INACTIVE
SECURITY RETENTION PERIOD IN EFFECT IS 0 DAYS.
ERASE-ON-SCRATCH IS INACTIVE
SINGLE LEVEL NAMES NOT ALLOWED
LIST OF GROUPS ACCESS CHECKING IS ACTIVE.
INACTIVE USERIDS ARE NOT BEING AUTOMATICALLY REVOKED.
NO DATA SET MODELLING BEING DONE.
PASSWORD PROCESSING OPTIONS:
THE ACTIVE PASSWORD ENCRYPTION ALGORITHM IS LEGACY
PASSWORD CHANGE INTERVAL IS 30 DAYS.
PASSWORD MINIMUM CHANGE INTERVAL IS 0 DAYS.
MIXED CASE PASSWORD SUPPORT IS IN EFFECT
SPECIAL CHARACTERS ARE ALLOWED.
5 GENERATIONS OF PREVIOUS PASSWORDS BEING MAINTAINED.
USERIDS NOT BEING AUTOMATICALLY REVOKED.
NO PASSWORD EXPIRATION WARNING MESSAGES WILL BE ISSUED.
INSTALLATION PASSWORD SYNTAX RULES:
RULE 1 LENGTH(8) ********
LEGEND:
A-ALPHA C-CONSONANT L-ALPHANUM N-NUMERIC V-VOWEL W-NOVOWEL *-ANYTHING
c-MIXED CONSONANT m-MIXED NUMERIC v-MIXED VOWEL $-NATIONAL s-SPECIAL
x-MIXED ALL
DEFAULT RVARY PASSWORD IS IN EFFECT FOR THE SWITCH FUNCTION.
DEFAULT RVARY PASSWORD IS IN EFFECT FOR THE STATUS FUNCTION.
SECLABEL CONTROL IS NOT IN EFFECT
GENERIC OWNER ONLY IS NOT IN EFFECT
COMPATIBILITY MODE IS NOT IN EFFECT
MULTI-LEVEL QUIET IS NOT IN EFFECT
MULTI-LEVEL STABLE IS NOT IN EFFECT
NO WRITE-DOWN IS NOT IN EFFECT
MULTI-LEVEL ACTIVE IS NOT IN EFFECT
CATALOGUED DATA SETS ONLY, IS NOT IN EFFECT
USER-ID FOR JES NJEUSERID IS : ????????
USER-ID FOR JES UNDEFINEDUSER IS : ++++++++
PARTNER LU-VERIFICATION SESSIONKEY INTERVAL MAXIMUM/DEFAULT IS 30 DAYS.
ADDCREATOR IS NOT IN EFFECT
KERBLVL = 0
MULTI-LEVEL FILE SYSTEM IS NOT IN EFFECT
MULTI-LEVEL INTERPROCESS COMMUNICATIONS IS NOT IN EFFECT
MULTI-LEVEL NAME HIDING IS NOT IN EFFECT
SECURITY LABEL BY SYSTEM IS NOT IN EFFECT
PRIMARY LANGUAGE DEFAULT : ENU
SECONDARY LANGUAGE DEFAULT : ENU
パスワード変更のインターバルは30日になっています。変更履歴は5つ分まで保持。