From 267e0a87f17d2111102577af6195be1febcc1d28 Mon Sep 17 00:00:00 2001
From: moshix <moshix@gmail.com>
Date: Wed, 30 Dec 2020 18:32:53 -0600
Subject: [PATCH] z/VM CPU information utility

---
 CPU.EXEC | 42 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100644 CPU.EXEC

diff --git a/CPU.EXEC b/CPU.EXEC
new file mode 100644
index 0000000..39045be
--- /dev/null
+++ b/CPU.EXEC
@@ -0,0 +1,42 @@
+/* cpu indicator */
+ 
+parse value translate(diag(8,"INDICATE LOAD"), " ", "15"x) ,
+       with 1 "AVGPROC-" cpu "%" 1 "PAGING-"  page "/"
+ 
+/* parse value Value("CPU_HIGH" ,, GlobalVS) with highwater hipct hitime hidate hiju  */
+ 
+cpu = right( cpu+0, 3)
+ 
+say 'All CPU avg: 'cpu '%     Paging: 'page
+parse value stsi(1,1,1) with 49  type   +4 ,
+                             81  seq   +16 ,
+                            101  model +16 .
+ 
+parse value stsi(2,2,2) with 33 lnum   +2 ,  /* Partition number       */
+                             39 lcpus  +2 ,  /* # of CPUs in the LPAR  */
+                             45 lname  +8    /* partition name         */
+ 
+parse value stsi(3,2,2) with 39 vcpus  +2 ,  /* # of CPUs in the v.m.  */
+                             57 cp_id +16
+ 
+parse value c2d(lnum) c2d(lcpus) c2d(vcpus) right(seq,5) lname model ,
+       with     lnum      lcpus      vcpus        ser    lname model .
+ 
+blist = "- 2097 z10-EC 2098 z10-BC 2817 z196 2818 z114",
+        "  2827 zEC12  2828 zBC12 2964 z13 2965 z13s"
+ 
+brand = strip(translate( word(blist, wordpos(type, blist)+1), " ", "-"))
+ 
+cfg = htopversion lcpus" CPUs" brand
+parse value diag(8,"QUERY STORAGE")   with . . rstor rstor? . "15"x
+if rstor? <> "" then     /* We have real storage */
+  cfg = cfg " " rstor
+ 
+cfg = type
+ 
+ 
+say 'Machine type: 'cfg'     RAM: 'rstor
+say 'Number of CPU: in LPAR: 'lcpus
+say '==================================='
+ 
+exit