INTEGER*4 FUNCTION oprmsg(msg) c Send msg to opcom C Copyright 9c) 1993, 1994 Glenn C. Everhart c All Rights Reserved c Glenn C. Everhart 1993 INCLUDE '($SSDEF)' include '($JPIDEF)' include '($OPCDEF)' INTEGER*4 UNLEN,STAT,UNID(2),ID,CNTX,L character*(*) msg c set up area for $sndopr message character*152 wrk2 byte bwrk2(152) integer*4 iwrk2(38) equivalence(iwrk2(1),bwrk2(1),wrk2) integer*4 sys$getjpiw,sys$brkthru,sys$sndopr external sys$getjpiw,sys$brkthru,sys$sndopr c brk$c_device = 1 c now send an alarm about problem c Send the info we have about who did what to what... c (there is not guaranteed to be a username at the terminal unlocked c anymore; ACMS could have taken it over.) wrk2(9:152)= char(13) // char(10) // msg iwrk2(1)=256*(OPC$M_NM_DEVICE) + OPC$_RQ_RQST iwrk2(2)=1 kkk=sys$sndopr(wrk2,) 300 continue oprmsg=kkk return END