Wazi aaS: クラウド上でのメインフレーム開発環境構築 - (5) Stock Iamge確認

# はじめに
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) 概要](https://qiita.com/tomotagwork/items/487d91ea8ddfb50e7257)
[Wazi aaS: クラウド上でのメインフレーム開発環境構築 - (2) 仮想サーバー作成](https://qiita.com/tomotagwork/items/9cea4c804f260d609eed)
[Wazi aaS: クラウド上でのメインフレーム開発環境構築 - (3) ネットワーク構成](https://qiita.com/tomotagwork/items/be2803e504b87cf364e5)
[Wazi aaS: クラウド上でのメインフレーム開発環境構築 - (4) Wazi aaS への接続](https://qiita.com/tomotagwork/items/b59717d767a91628b825)
[Wazi aaS: クラウド上でのメインフレーム開発環境構築 - (5) Stock Iamge確認](https://qiita.com/tomotagwork/items/40b7eaec61e31f830cbe)
[Wazi aaS: クラウド上でのメインフレーム開発環境構築 - (6) Stock Iamge基本操作/カスタマイズ](https://qiita.com/tomotagwork/items/0f2e914fd6263f2b40db)
[Wazi aaS: クラウド上でのメインフレーム開発環境構築 - (7) Wazi Image Builder](https://qiita.com/tomotagwork/items/fcfd295aaa54fa597c4b)
[Wazi aaS: クラウド上でのメインフレーム開発環境構築 - (7)' Wazi Image Builder - Trouble Shootingメモ](https://qiita.com/tomotagwork/items/fd804734595644a09d47)
[Wazi aaS: クラウド上でのメインフレーム開発環境構築 - (8) Wazi aaS仮想サーバーの複製](https://qiita.com/tomotagwork/items/ef23025b1ca3800b73c1)
[Wazi aaS: クラウド上でのメインフレーム開発環境構築 - (9) TerraformによるWazi aaS仮想サーバーの管理](https://qiita.com/tomotagwork/items/883652c1534d12f2b042)

# 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

<details><summary><font color="blue">IODF</font></summary><div>

```xxx:PROV.IODF00
                             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 ******************************** 
```

</div></details>

※使用しているIODFを確認するコマンド: 「D IOS,CONFIG」

## DASD

<details><summary><font color="blue">オンラインになっているDASD一覧</font></summary><div>

```
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    
```

</div></details>

<details><summary><font color="blue">各VOLのVTOC情報</font></summary><div>

```
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                       
```

</div></details>

## カタログ

マスター・カタログ: CATALOG.VS01.MASTER

<details><summary><font color="blue">ユーザー・カタログ</font></summary><div>

`LISTC USERCATALOG ALL`結果

```LISTCAT
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
```

</div></details>



## IPL情報

### IPLINFO

<details><summary><font color="blue">IPLINFO</font></summary><div>

```
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                                  
                                                                        
                                                                        
                                                                        
```

</div></details>

<details><summary><font color="blue">LOADxx</font></summary><div>

```SYS0.IPLPARM(LOADK2)
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                                    
```

</div></details>


## PARMLIB関連

<details><summary><font color="blue">IEASYMxx</font></summary><div>

```K2.PARMLIB(IEASYMK2)  
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 */
```

</div></details>

<details><summary><font color="blue">IEASYSxx</font></summary><div>

```SYS1.PARMLIB(IEASYS00)
 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
```

</div></details>


<details><summary><font color="blue">COMMDxx</font></summary><div>

```SYS1.PARMLIB(COMMNDNV)
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'
```

</div></details>

<details><summary><font color="blue">BPXPRMxx</font></summary><div>

```SYS1.PARMLIB(BPXPRM00)
   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
```


```SYS1.PARMLIB(BPXPRM01)
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)
```

</div></details>



<details><summary><font color="blue">CLOCKxx</font></summary><div>

```SYS1.PARMLIB(CLOCK00)
OPERATOR NOPROMPT
TIMEZONE W.04.00.00
STPMODE NO
STPZONE NO
ETRMODE NO
ETRZONE NO
```

</div></details>


<details><summary><font color="blue">IFAPRDxx</font></summary><div>

```SYS1.PARMLIB(IFAPRD00)
/* ========== 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)
```

```SYS1.PARMLIB(IFAPRD01)
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)
```

</div></details>


## JES

<details><summary><font color="blue">MSTJCLxx</font></summary><div>

```K2.PARMLIB(MSTJCL00)
//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
```

</div></details>

<details><summary><font color="blue">JES2起動プロシージャー</font></summary><div>

```K2.PROCLIB(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

```

</div></details>


## VTAM関連

※VTAMは`NET`という名前のプロシージャーで起動される

<details><summary><font color="blue">Netviewから自動起動されるコマンド</font></summary><div>

```NETVIEW.V6R4USER.CNM01.CNMCLST(GLBCNM01)抜粋
...
MVS S NET,,,(LIST=00)
...
```

</div></details>

<details><summary><font color="blue">VTAM起動プロシージャー</font></summary><div>

```SYS1.PROCLIB(NET)
//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
```

</div></details>

<details><summary><font color="blue">ATCSTRxx</font></summary><div>

```SYS1.VTAMLST(ATCSTR00)
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
```

</div></details>

<details><summary><font color="blue">ATCCONxx</font></summary><div>

```SYS1.VTAMLST(ATCCON00) 
OSATRLE,A0600,TCPAPPL,IVPLU,SMCSAPPL,A01APPLS
OSATRLE,A0600,EXLOCAL,TCPAPPL,IVPLU,SMCSAPPL,SMCSCONS,                 X
CICSANSB,DBD1APPL,IVPAPLI,IVPLCLI,IVPLCLT
```

</div></details>

<details><summary><font color="blue">OSATRLE</font></summary><div>

```SYS1.VTAMLST(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                                             
***                                                                      
```

</div></details>

<details><summary><font color="blue">CICSANSB</font></summary><div>

```SYS1.VTAMLST(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  *
```

</div></details>


## TCP/IP関連

<details><summary><font color="blue">TCPIP起動プロシージャー</font></summary><div>

```K2.PROCLIB(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)
```

</div></details>


<details><summary><font color="blue">PROFILE</font></summary><div>

```K2.TCPPARMS(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
```

</div></details>


<details><summary><font color="blue">TCPDATA</font></summary><div>

```K2.TCPPARMS(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
```

</div></details>


<details><summary><font color="blue">RESOLVER</font></summary><div>

```K2.PROCLIB(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  
```

</div></details>

<details><summary><font color="blue">RESSETUP</font></summary><div>

```K2.TCPPARMS(RESSETUP)
GLOBALTCPIPDATA('K2.TCPPARMS(TCPDATA)')    
GLOBALIPNODES('K2.TCPPARMS(INODES)')       
COMMONSEARCH                               
```

</div></details>



## Netview関連

<details><summary><font color="blue">COMMDxxによるNetview起動/停止コマンド</font></summary><div>

```SYS.PARMLIB(COMMNDNV)抜粋
...
COM='S CNMPSSI,SUB=MSTR'
COM='S CNMPROC,SUB=MSTR'
...
```

</div></details>

<details><summary><font color="blue">プロシージャー:CNMPSSI</font></summary><div>

```SYS1.PROCLIB(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=&REG.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
```

</div></details>

<details><summary><font color="blue">プロシージャー:CNMPROC</font></summary><div>

```SYS1.PROCLIB(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=&REG.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
```

</div></details>

<details><summary><font color="blue">Netviewで最初に実行されるREXX</font></summary><div>

```NETVIEW.STOCK.CNMCLIST(NTVINIT)
/* 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
```

</div></details>

<details><summary><font color="blue">Netviewから起動されるサブシステムの起動コマンド</font></summary><div>

```NETVIEW.V6R4USER.CNM01.CNMCLST(GLBCNM01)
/* 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

```

</div></details>


<details><summary><font color="blue">Netview管理サブシステムのステータス</font></summary><div>

```
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        
```

</div></details>

Stock Imageに含まれるいくつかのアドレス・スペースはNetview管理のスクリプトで自動起動されるよう制御されています。自動起動の有無は、IEASYMxxの変数で制御できるようになってます。以下のIEASYMxxの各変数で`IPL`と指定されているコンポーネントはIPL時に自動起動の対象となります。`NOS`と指定されているコンポーネントはIPL時に自動起動されません。(IPL時に自動起動させたくないコンポーネントについては`IPL`⇒`NOS`に変更すればOKです。)

<details><summary><font color="blue">IEASYMxx抜粋</font></summary><div>

```K2.PARMLIB(IEASYMK2)抜粋
...
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')
...
```

</div></details>



## SMS関連

<details><summary><font color="blue">IGDSMSxx</font></summary><div>

```SYS1.PARMLIB(IGDSMS00)
SMS                   
ACDS(VSPROV.ACDS)     
COMMDS(VSPROV.COMMDS) 
INTERVAL(5)           
SYSTEMS(32)           
TRACE(ON)             
TYPE(ERROR) 
```

</div></details>


<details><summary><font color="blue">D SMS</font></summary><div>

```
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            
```

</div></details>


<details><summary><font color="blue">ACS Routine</font></summary><div>

```
                              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      
```

</div></details>


<details><summary><font color="blue">Data Class</font></summary><div>

```VSPROV.DFSMS.CNTL(DATACLAS)
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  */
```

</div></details>

<details><summary><font color="blue">Storage Class</font></summary><div>

```VSPROV.DFSMS.CNTL(STORCLAS)
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 */
```

</div></details>

<details><summary><font color="blue">Storage Group</font></summary><div>

```VSPROV.DFSMS.CNTL(STORGRP)
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
```

</div></details>


※上のACS Routineで明示的に指定されているHLQ以外は"SCBASE"というStorage Classが使われるようになっており、"SCBASE"の場合"SGBASE", "SGEXTEAV"というStorage Groupが選択されるようになっています。
"SGBASE"というStorage Groupの定義を見てみると、以下のようになっています。

<details><summary><font color="blue">SGBASE: Volume List</font></summary><div>

```
                                                            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 ---------   ---  ---------    ---  ---------  -------  --------  -------  -------  -------  ----  ---   ----
```

</div></details>

SGBASEに含まれるVOLUMEで実際に存在しているものは`USRVS1`だけのようです。このVOLUMEの情報を見てみると以下のようになっています。

<details><summary><font color="blue">Vol:USRVS1</font></summary><div>

```
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          
```

</div></details>

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?](https://www.ibm.com/docs/en/zos/2.4.0?topic=facility-how-does-automount-work)
[automount - Configure the automount facility](https://www.ibm.com/docs/en/zos/2.4.0?topic=descriptions-automount-configure-automount-facility)

<details><summary><font color="blue">rcスクリプトによる自動起動</font></summary><div>

```xxx:/etc/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`
```

</div></details>


<details><summary><font color="blue">automount設定</font></summary><div>

```/etc/auto.master
/u /etc/auto.map
```

```/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
```

</div></details>

通常、OMVSセグメントを付与したTSOユーザーの属性としてUSS上のホームディレクトリを設定することになりますが、一般的には/u/ディレクトリ下に各ユーザーのホーム・ディレクトリを設定します。
Wazi aaSのStock Imageでは、/u/以下のディレクトリについてはautomount機能が設定されています。これは/u/以下のディレクトリにアクセスされたタイミングで、ディレクトリがなければディレクトリ(マウントポイント)、および、ファイル・システムを作成してマウントしてくれます。使用されなくなったら自動でアンマウントされます。
新規でユーザーを作成する際は、ホーム・ディレクトリを/u/以下にするとこの機能が使えるので便利です。
auto.mapに`vol(OPEVS1)`という指定がされていますが、上のSMSの設定の通りSGBASEというStorage Groupが使われるので実際にはzFS用のデータセットはUSRVS1というVOLに作成されることになります。


## RACF

<details><summary><font color="blue">SETROPTS LIST</font></summary><div>

```
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
```

</div></details>

パスワード変更のインターバルは30日になっています。変更履歴は5つ分まで保持。