/* rexx */                                                                      
/*-------------------------------------------------------------------*/         
/*                                                                   */         
/*                       REXX Exec : CPUCHECK                        */         
/*                                                                   */         
/*  Description : Checks to see if the exec is running on an allowed */         
/*                systems or not.                                    */         
/*                                                                   */         
/*  Created on : 1 Apr 2018                                          */         
/*  Created by : KEVIN FERGUSON                                      */         
/*             : Userid(MIT001)                                      */         
/*             : using ABBYDALE.XFER.REXX(CPUCHECK)                  */         
/*                                                                   */         
/*  Called by :                                                      */         
/*                                                                   */         
/*  Calls :                                                          */         
/*                                                                   */         
/*  Change Activity :                                                */         
/*                                                                   */         
/*                ©Copyright of Abbydale Systems LLC.                */         
/*                                                                   */         
/*-------------------------------------------------------------------*/         
system = MVSVAR(sysname)                                                        
allow = 'CPU2CPU3'                                                              
x = POS(system,allow)                                                           
if x = 0 then                                                                   
    rc = 8                                                                      
  else                                                                          
    rc = 0                                                                      
exit rc                                                                         
/*-------------------------------------------------------------------*/         
/*                          End of CPUCHECK                          */         
/*-------------------------------------------------------------------*/