final changes before VM Workshop

Author: mike99mac

execs/README.md

@@ -20,7 +20,7 @@ The following EXECs for z/VM are in this directory:
     | HEAD     EXEC    | Output the first part of files                  |
     | HISTORY  EXEC    | Display list of commands previously run         |
     | MAN      EXEC    | Give help on CMS/CP/XEDIT/TCPIP/REXX commands   |
-    | MKARCZCT EXEC    | Create the VMARC file with all EXECs inside     |
+    | MKVMARC  EXEC    | Create the VMARC file with all EXECs inside     |
     | QA       EXEC    | Run QUERY ACCESSED                              |
     | RFN      EXEC    | Rename file changing only file name             |
     | RFT      EXEC    | Rename file changing only file type             |
@@ -90,11 +90,6 @@ 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. 
 
@@ -497,6 +492,38 @@ For example, ``man q da`` takes you to the ``CP QUERY DASD`` help screen, and ``
 ### MKZVMARC EXEC
 The ``MKZVMARC EXEC`` creates the z/VM file ``ZVMTOOLS VMARC`` from all of these REXX EXECs.
 
+Here is an example of using it:
+```
+mkvmarc                                                                         
+Erasing old file: ZVMTOOLS VMARC A                                              
+CALC     EXEC     A1. Bytes in=       735, bytes out=       640 (    87%).      
+CALCDASD EXEC     A1. Bytes in=      4581, bytes out=      2560 (    55%).      
+CALCOSA  EXEC     A1. Bytes in=     10372, bytes out=      4240 (    40%).      
+CFM      EXEC     A1. Bytes in=      1254, bytes out=       880 (    70%).      
+CFN      EXEC     A1. Bytes in=      1252, bytes out=       880 (    70%).      
+CFT      EXEC     A1. Bytes in=      1298, bytes out=       960 (    73%).      
+COPYDISK EXEC     A1. Bytes in=      1765, bytes out=      1200 (    67%).      
+CPFORMAT EXEC     A1. Bytes in=      7773, bytes out=      3840 (    49%).      
+DIFF     EXEC     A1. Bytes in=      6250, bytes out=      3040 (    48%).      
+GREP     EXEC     A1. Bytes in=     12292, bytes out=      4880 (    39%).      
+HEAD     EXEC     A1. Bytes in=      3996, bytes out=      2080 (    52%).      
+HISTORY  EXEC     A1. Bytes in=      4273, bytes out=      2240 (    52%).      
+MAN      EXEC     A1. Bytes in=      1812, bytes out=      1200 (    66%).      
+MKVMARC  EXEC     A1. Bytes in=      1274, bytes out=      1040 (    81%).      
+QA       EXEC     A1. Bytes in=       371, bytes out=       320 (    86%).      
+RFN      EXEC     A1. Bytes in=      1088, bytes out=       800 (    73%).      
+RFT      EXEC     A1. Bytes in=      1090, bytes out=       800 (    73%).      
+RM       EXEC     A1. Bytes in=      1548, bytes out=      1120 (    72%).      
+SPC      EXEC     A1. Bytes in=      1089, bytes out=       720 (    66%).      
+SSICMD   EXEC     A1. Bytes in=      1291, bytes out=      1040 (    80%).      
+TAIL     EXEC     A1. Bytes in=      1217, bytes out=       800 (    65%).      
+WC       EXEC     A1. Bytes in=      4337, bytes out=      2240 (    51%).      
+WCZVMTLS EXEC     A1. Bytes in=       428, bytes out=       400 (    93%).      
+WHICH    EXEC     A1. Bytes in=     20735, bytes out=     10480 (    50%).      
+WHO      EXEC     A1. Bytes in=      3301, bytes out=      1840 (    55%).      
+Created file: ZVMTOOLS VMARC A 
+```
+
 ### QA EXEC
 The ``QA EXEC`` simply calls ``QUERY ACCESSED`` to save keystrokes. 
 

execs/calc.exec

@@ -11,6 +11,13 @@ if args = '' | args = "?" | args = "-H" then do
   say "Exmpl: CALC 5 + 6"
   exit
 end
-interpret "result =" args
-say args "=" result
+ 
+signal on syntax name mathError      /* trap non-numerice expressions */
+interpret "result =" args            /* do the math */
+say args "=" result                  /* show expression and answer */
+exit
+ 
+mathError:
+say "SYNTAX ERROR"
+exit
 

execs/grep.exec

@@ -4,8 +4,6 @@
 /* Licensed under the Apache License, Version 2.0                     */
 /* https://github.com/openmainframeproject/zvm-community-tools/execs  */
 /*--------------------------------------------------------------------*/
-/* parse for quoted pattern, if not found => single word pattern */
-/* trace i */
 parse arg args                       /* get all args */
 numArgs = WORDS(args)                /* get number of args */
 call parseArgs args                  /* parse them */

execs/mkvmarc.exec

@@ -4,9 +4,15 @@
 /* Licensed under the Apache License, Version 2.0                    */
 /* Source: https://github.com/mike99mac/zvm-tools                    */
 /*-------------------------------------------------------------------*/
+parse upper arg args                 /* get all args */
+if args = "?" | args = "-H" then do  /* give help */
+  say "Name:  MKVMARC EXEC - Create a VMARC file of all EXECs"
+  say "Usage: MKVMARC"
+  exit
+end
 vmarcFile = "ZVMTOOLS VMARC A"       /* output file */
 'ESTATE' vmarcFile
-if rc = 0 then do
+if rc = 0 then do                    /* old file exists */
   say "Erasing old file:" vmarcFile
   'ERASE' vmarcFile
   if rc <> 0 then do
@@ -16,12 +22,13 @@ if rc = 0 then do
 end
 
 /* List of EXECs */
-execs = "CALCDASD CALCOSA CFM CFN CFT COPYDISK CPFORMAT ",
+execs = "CALC 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 */
+numExecs = WORDS(execs)
+do i = 1 to numExecs                 /* 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
+say "Created file:" vmarcFile "with" numExecs "EXECs"
 

execs/wczvmtls.exec

@@ -0,0 +1,16 @@
+/*-------------------------------------------------------------------*/
+/* WCZVMTLS EXEC - count words in zvm-community-tools EXECs          */
+/* This assumes all the execs are on your A disk                     */
+/* Licensed under the Apache License, Version 2.0                    */
+/* Source: https://github.com/mike99mac/zvm-tools                    */
+/*-------------------------------------------------------------------*/
+execs = "CALC CALCDASD CALCOSA CFM CFN CFT COPYDISK CPFORMAT ",
+||"DIFF GREP HEAD HISTORY MAN MKVMARC QA RFN RFT RM ",
+||"SPC SSICMD TAIL WC WCZVMTLS WHICH WHO"
+files = ""                           /* list of EXECs */
+do i = 1 to WORDS(execs)
+  nextFile = SUBWORD(execs,i,1) "EXEC A" /* change if different fm */
+  files = files nextFile
+end
+wc files
+