add calc.exec, small changes for start of VM Workshop

Author: mike99mac

execs/README.md

@@ -73,6 +73,28 @@ $ git clone https://github.com/openmainframeproject/zvm-community-tools
 ## REXX EXECs
 Following are descriptions of each REXX EXEC.
 
+### CALC EXEC
+The ``CALC EXEC`` calculates a numerical expression. 
+
+- Here is the help:
+```
+calc -h                                    
+Name:  CALC - calculate a numerical expression  
+Usage: CALC expression                          
+Exmpl: CALC 5 + 6                               
+```
+
+- Here is an example of using it:
+```
+calc 21 * 5                                     
+21 * 5 = 105                                    
+```
+
+- Here is an example of using it:
+
+```
+calcdasd                                             
+
 ### CALCDASD EXEC
 The ``CALCDASD EXEC`` calculates the size of all disk space. 
 

execs/calc.exec

@@ -0,0 +1,16 @@
+/*-------------------------------------------------------------------*/
+/* CALC EXEC - calculate a numeric expression                        */
+/* Usage: CALC expr                                                  */
+/* Licensed under the Apache License, Version 2.0                    */
+/* https://github.com/openmainframeproject/zvm-community-tools/execs */
+/*-------------------------------------------------------------------*/
+parse upper arg args
+if args = '' | args = "?" | args = "-H" then do
+  say "Name:  CALC - calculate a numerical expression"
+  say "Usage: CALC expression"
+  say "Exmpl: CALC 5 + 6"
+  exit
+end
+interpret "result =" args
+say args "=" result
+ 

execs/calcosa.exec

@@ -15,14 +15,18 @@ allOSA.0 = 0
 call mergeOSA                        /* merge free & used OSA by rdev */
 call prtOutput                       /* print results */
 exit                                 /* CALCOSA EXEC */
-
+ 
 /*-------------------------------------------------------------------*/
 parseArgs: procedure expose debug verbose
 /* Parse arguments                                                   */
 /*-------------------------------------------------------------------*/
-  parse arg arg1 '(' flags ')'
+  parse upper arg arg1 '(' flags ')'
   if arg1 = "?" | arg1 = "-H" then
     call help
+  if arg1 = "-V" then
+    verbose = 2
+  if arg1 = "-D" then
+    debug = 1
   if flags = "" then
     return                             /* all done */
   do i = 1 to LENGTH(flags)
@@ -39,7 +43,7 @@ parseArgs: procedure expose debug verbose
     end
   end
 return                               /* parseArgs() */
-
+ 
 /*-------------------------------------------------------------------*/
 getOSAs: procedure expose usedOSA. freeOSA. debug verbose
 /* Get the used and free OSAs                                        */
@@ -62,7 +66,7 @@ getOSAs: procedure expose usedOSA. freeOSA. debug verbose
       freeOSA.0 = freeIndex
   end
 return                               /* getOSAs() */
-
+ 
 /*-------------------------------------------------------------------*/
 setColor:
 /* Change color of next line                                         */
@@ -73,7 +77,7 @@ setColor:
   'conwait'                          /* flush output stack */
   'pipe cp screen outarea' color '| hole' /* no COMMAND COMPLETE */
 return                               /* setColor() */
-
+ 
 /*-------------------------------------------------------------------*/
 debugMsg: procedure expose verbose
 /* issue message in debug mode                                       */
@@ -85,7 +89,7 @@ debugMsg: procedure expose verbose
     call setColor "green"
   end
 return                               /* debugMsg() */
-
+ 
 /*-------------------------------------------------------------------*/
 parseFreeLine: procedure expose freeOSA. freeIndex verbose
 /* get a line of 1 - 4 free OSA and populate stem var freeOSA.       */
@@ -119,7 +123,7 @@ parseFreeLine: procedure expose freeOSA. freeIndex verbose
     freeOSA.freeIndex = rdev4 "FREE"
   end
 return                               /* parseFreeLine() */
-
+ 
 /*-------------------------------------------------------------------*/
 mergeOSA: procedure expose allOSA. freeOSA. numAllOSA usedOSA. verbose
 /* merge used and free OSA lists                                     */
@@ -170,7 +174,7 @@ mergeOSA: procedure expose allOSA. freeOSA. numAllOSA usedOSA. verbose
   end
   allOSA.0 = allIndex - 1
 return                               /* mergeOSA() */
-
+ 
 /*-------------------------------------------------------------------*/
 getPchid: procedure expose verbose
 /* Given a CHPID, return the PCHID or "NONE"                         */
@@ -181,7 +185,7 @@ getPchid: procedure expose verbose
   if pchid = "physical" then         /* no PCHID found */
     pchid = "NONE"
 return pchid                         /* getPchid() */
-
+ 
 /*-------------------------------------------------------------------*/
 prtLn: procedure expose verbose
 /* print one line of output formatting the 7 fields                  */
@@ -197,7 +201,7 @@ prtLn: procedure expose verbose
     JUSTIFY(devType,8) JUSTIFY(OSAType, 8) JUSTIFY(chpid,6),
     JUSTIFY(pchid,6)
 return                               /* prtLn() */
-
+ 
 /*-------------------------------------------------------------------*/
 prtFree: procedure expose verbose
 /* print one line of a free OSA - need to get CHPID and PCHID        */
@@ -217,7 +221,7 @@ Device 2340, Status ONLINE
   dash = "-"
   call prtLn rdev "FREE" dash dash dash chpid pchid
 return                               /* prtFree() */
-
+ 
 /*-------------------------------------------------------------------*/
 prtUsed: procedure expose verbose
 /* print one line of a used OSA - need to get PCHID from CHPID       */
@@ -228,7 +232,7 @@ OSA  0340 ATTACHED TO DTCVSW1  0600 DEVTYPE OSA         CHPID F0 OSD */
   pchid = getPchid(chpid)
   call prtLn rdev userID vdev devType OSAType chpid pchid
 return                               /* prtUsed() */
-
+ 
 /*-------------------------------------------------------------------*/
 prtOutput: procedure expose allOSA. freeOSA. usedOSA. verbose
 /* print merged free and used OSAs                                   */
@@ -248,15 +252,15 @@ prtOutput: procedure expose allOSA. freeOSA. usedOSA. verbose
   say "           ----"
   say "    Total:" FORMAT(allOSA.0, 4)
 return                               /* prtOutput() */
-
+ 
 /*-------------------------------------------------------------------*/
 help:
 /* give help                                                         */
 /*-------------------------------------------------------------------*/
   say "Name:  CALCOSA EXEC - compute OSA statistics"
   say "Usage: CALCOSA {-h|?} {(vd)}"
-  say "Where: -h or '|' = give help"
+  say "Where: -h or '?' = give help"
   say "       v = verbose"
   say "       d = debug"
 exit 2                               /* help() */
-  
+ 

execs/cpformat.exec

@@ -7,7 +7,7 @@
 address COMMAND
 firstchar = "J"                      /* first character of label */
 arg dasds "AS " type .
-if dasds = "" | dasds = "?" then
+if dasds = "" | dasds = "-H" | dasds = "?" then
   call help
 labelPrefix = firstchar || getLabelPrefix(type)
 numDasd = parseDasd(dasds)

execs/diff.exec

@@ -181,7 +181,7 @@ compareFiles: procedure expose fn1 ft1 fm1 fn2 ft2 fm2 flags,
     end
     diffs = 1
   end
-return
+return                               /* compareFiles() */
 
 /*-------------------------------------------------------------------*/
 usage:

execs/grep.exec

@@ -2,7 +2,7 @@
 /* Name:  GREP EXEC - search files for text patterns                  */
 /* Usage: grep [lxFlags] ptrn FN [FT [FM]] [(vmFlags)]                */
 /* Licensed under the Apache License, Version 2.0                     */
-/* https://github.com/openmainframeproject/zvm-community-tools/execs */
+/* https://github.com/openmainframeproject/zvm-community-tools/execs  */
 /*--------------------------------------------------------------------*/
 /* parse for quoted pattern, if not found => single word pattern */
 /* trace i */
@@ -218,10 +218,10 @@ regex: procedure expose chkCase debug numbers ptrn
   call debugMsg "ptrn:" ptrn "ptrnLen:" ptrnLen
   call debugMsg "line:" line "lineLen:" lineLen
 
-  /* check for leading � */
-  if LEFT(ptrn, 1) = "�" then do       /* must match begining of line */
-    call debugMsg "found leading �"
-    ptrnLen = ptrnLen - 1              /* discount '�' */
+  /* check for leading 5 */
+  if LEFT(ptrn, 1) = "5" then do       /* must match begining of line */
+    call debugMsg "found leading 5"
+    ptrnLen = ptrnLen - 1              /* discount '5' */
     if LEFT(line, ptrnLen) = RIGHT(ptrn, ptrnLen) then
       return 1                         /* match */
     else

execs/mkarczct.exec

@@ -0,0 +1,27 @@
+/*-------------------------------------------------------------------*/
+/* MKVMARC EXEC - Create a VMARC file of all zvm-tools               */
+/* Usage: MKVMARC                                                    */
+/* Licensed under the Apache License, Version 2.0                    */
+/* Source: https://github.com/mike99mac/zvm-tools                    */
+/*-------------------------------------------------------------------*/
+vmarcFile = "ZVMTOOLS VMARC A"       /* output file */
+'ESTATE' vmarcFile
+if rc = 0 then do
+  say "Erasing old file:" vmarcFile
+  'ERASE' vmarcFile
+  if rc <> 0 then do
+    say "ERROR: ERASE" vmarcFile "returned" rc
+    exit rc
+  end
+end
+ 
+/* List of EXECs */
+execs = "CALCDASD CALCOSA CFM CFN CFT COPYDISK CPFORMAT ",
+||"DIFF GREP HEAD HISTORY MAN MKVMARC QA RFN RFT RM ",
+||"SPC SSICMD TAIL WC WCZVMTLS WHICH WHO"
+do i = 1 to WORDS(execs)             /* Add each to the VMARC file */
+  nextFile = SUBWORD(execs,i,1) "EXEC A"
+  address COMMAND "VMARC PACK" nextFile vmarcFile "(APPEND"
+end
+say "Created file:" vmarcFile
+ 

execs/mkvmarc.exec

@@ -28,7 +28,7 @@ exit
 /*-------------------------------------------------------------------*/
 /* process one line of QUERY NAMES output                            */
 /*-------------------------------------------------------------------*/
-processLine: procedure expose userIDs. userNum
+processLine: procedure expose userIDs. userNum filter
   parse arg line                     /* get 4 triplets per line */
   line = TRANSLATE(line, " ", ",")   /* remove commas */
   line = TRANSLATE(line, " ", "-")   /* remove dashes */
@@ -82,11 +82,11 @@ printOutput:
         say userIDs.i
       end
     end
-    else                             /* no filter applied */
+    else do                          /* no filter applied */
+      numUsers = numUsers + 1
       say userIDs.i
+    end
   end
-  if numUsers = 0 then               /* no filter */
-    numUsers = userNum - 1
   say "Total:    " numUsers
 return                               /* printOutput() */