8. CA MICS NSM Integration (MTI) › 8.7 MTI Unit Level Parameters › 8.7.3 Original System Id Assignment (cccSYSID)

8.7.3 Original System Id Assignment (cccSYSID)

The data element ORGSYSID is used by CA MICS to identify the
originating system of the data.  Additionally, the ORGSYSID
is used by CA MICS Checkpoint processing to prevent inclusion
of duplicate data into the CA MICS database.

As discussed in section 8.6.1, MACHINE (the long name of the
originating system) is converted to the four byte ORGSYSID.

By default, MTI assigns the first four bytes of MACHINE to
ORGSYSID.  If the default ORGSYSIDs do not provide acceptable
uniqueness to distinguish between various machines (i.e.
multiple machines start with the same four characters),
cccSYSID can be used to manually assign ORGSYSIDs.  cccSYSID
is invoked after COMMONEXIT statements.

WARNING:  Each ORGSYSID must be defined in
          prefix.MICS.PARMS(SYSID).

The shared MICF Inquiry MTILD3 can be used to produce a list
of all encountered machine names (reference section 8.4.3).

Below is a sample cccSYSID exit using the information
extracted from the MTILD3 report:

    IF MACHINE =: 'NTW' THEN ORGSYSID = 'NTWK';
       ELSE IF MACHINE = : 'NTS' THEN ORGSYSID = 'NTSV' ;
       ELSE IF MACHINE = : 'SOL' THEN ORGSYSID = 'SUN';

If you have numerous machines it will be very inefficient to
use IF, THEN, ELSE logic.  Alternatively, you can use the
machines from the MTILD3 report to create a format of machine
IDs and their corresponding ORGSYSID assignments.  For
example:

  ORGSYSID = PUT(MACHINE,$MTIORGS.);
  IF ORGSYSID = 'UNKN' THEN DO;

  /* 'UNKN' IS THE OTHER CLAUSE IN THE USER WRITTEN  */
  /* $MTIORGS FORMAT.  SEE SMG 4.5 FOR DETAIL ON     */
  /* CREATING AND ACCESSING USER WRITTEN FORMATS     */

   INLINE  = 'MACHINE '|| MACHINE || ' NOT FOUND IN FORMAT' ;
   WARNX   = 'DEFAULTING TO ORGSYSID UNKN';
   CALL MICSLOG('BAS00195') ;

  END;

This additional logic tests for the OTHER value which
indicates that no match was found for this machine name
within the format and issues a BAS00195W message, containing
the machine name, to the MICSLOG.  This approach may assist
in tracking new machine names.  You can also abort the job
when an unidentified machine is encountered by inserting an:

     ABORT ABEND nnn;

prior to the END statement above.  Substitute any number for
nnn other than 998 or 999 which are used by CA MICS and SAS.

Note that during the DAILY update step the machine names are
already noted on the MICSLOG.  Additionally, if the resulting
ORGSYSID is not already defined in SYSID (either the complex
or unit level) the job will terminate abnormally if
UNDEFINEDORGSYSID ABORT has been specified.

Another option is to use WHEN/SELECT processing such as:

     SELECT(MACHINE);
       WHEN ('unixabcd')
         ORGSYSID = 'UNIX' ;
       WHEN ('WINNT40DEV')
         ORGSYSID = 'NT' ;
       WHEN .....
       OTHERWISE ORGSYSID = 'UNKN' ;

Remember that SELECT/WHEN processing performs the action, in
this case the assignment of ORGSYSID, indicated in the
"FIRST" true WHEN statement.  Therefore the order of your
statements may be critical to their success.  Additionally,
you will need to test on the actual machine name (unlike the
IF, THEN, ELSE example above) which tested that the machine
name simply 'began' with those characters.