*DECK FCMMSIV 
          IDENT  CMMSIV 
 CMMSIV   TITLE  CMMSIV - SET IDENTIFIED VALUE. 
          COMMENT  SET IDENTIFIED VALUE 
          SYSCOM B1 
*CALL FCMMCOM 
***       CMMSIV - SET IDENTIFIED VALUE.
* 
*         CALL CMMSIV(VALUE,ID,UNIQID)
* 
*                VALUE  - ANY 30 BIT VALUE. 
*                ID     - SEE CMM REFERANCE MANULA PAGE 2-3.
*                UNIQID - SEE CMM REFERANCE MANULA PAGE 2-3.
* 
 CMMSIV   SPACE  4,4
          SUBRTN CMMSIV 
          SA2    X1          VALUE
          SA1    A1+B1
          SA3    X1          ID 
          SA0    A1+B1       ADDRESS OF UNIQID
+         RJ     =XCMM.SIV
-         VFD    12/0,18/CMMSIV-1 
          BX6    X1 
          SA1    A0 
          SA6    X1 
          RTRN   CMMSIV 
          END 
