/*------------------------------------------------------------------
THE PROGRAM IS PROVIDED ON AN "AS IS" BASIS, WITHOUT WARRANTIES OR
CONDITIONS OF ANY KIND, EITHER EXPRESS OR IMPLIED INCLUDING, WITHOUT
LIMITATION, ANY WARRANTIES OR CONDITIONS OF TITLE, NON-INFRINGEMENT,
MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.
NEITHER RECIPIENT NOR ANY CONTRIBUTORS SHALL HAVE ANY LIABILITY FOR
ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
DAMAGES (INCLUDING WITHOUT LIMITATION LOST PROFITS), HOWEVER CAUSED
AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF
THE USE OR DISTRIBUTION OF THE PROGRAM OR THE EXERCISE OF ANY RIGHTS
GRANTED HEREUNDER, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGES
-------------------------------------------------------------------*/
/* MK1LNXID EXEC: create one user ID for a Linux system */
/* Arg 1: the user ID to create                         */
parse arg userid .
if (userid = '') then do
  say 'Usage: MK1LNXID userid'
  exit 1
end
sourceFile = 'zvl282 direct a'
targetFile = userid 'direct a'
say 'Creating the user ID' userid
'copy' sourceFile targetFile '(rep'
'xedit' targetfile '(profile chuserid)' userid
'EXEC DIRMAINT EXECLOAD'
'EXEC DVHSAPI ADD' userid
retVal = rc
'PIPE STEM DVHSAPI. | CONSOLE'
if (retVal \= 0) then do
  say 'return code from DIRM ADD =' retVal
  exit 1
end
'EXEC DVHSAPI FOR' userid 'amdisk 100 xxxx autog 2016 userdata mr'
retVal = rc
'PIPE STEM DVHSAPI. | CONSOLE'
if (retVal \= 0) then do
  say 'return code from DIRM AMDISK =' retVal
  exit 1
end
'EXEC DIRMAINT EXECDROP'
'rac PERMIT lnxmaint.192 CLASS(VMMDISK) ID('||userid||') ACCESS(READ)'
exit