;+ ; Define new-format OPCOM messages and options. ; Last update: VMS V5.2 fiche ;- .macro _opcdef gbl $defini opc,gbl $def opc$b_rqstcode .blkb 1 ; request type $def opc$b_scope .blkb 1 ; request scope $def opc$l_options .blkl 1 ; request-independent opts. $def opc$l_rq_options .blkl 1 ; reqest-dependent opts. $def opc$l_attnmask1 .blkl 1 ; operator mask (low part) $def opc$l_attnmask2 .blkl 1 ; operator mask (high part) $def opc$l_rqstid .blkl 1 ; user request no. $def opc$l_uic .blkl 1 ; user UIC $def opc$k_hdr_size ; size of common header __save = . . = __save $def opc$w_request_length .blkw 1 ; length of request text $def opc$t_request_text ; request text $def opc$k_request_min_size ; minimum size of message . = __save $def opc$w_security_length .blkw 1 ; length of security text $def opc$t_security_text ; security text $def opc$k_security_min_size ; minimum size of message . = __save $def opc$t_reply_opr ; counted-string for oper. ; device, followed by reply text $def opc$k_reply_min_size ; minimum size of message . = __save $def opc$t_oprenable_opr ; oper. device name $def opc$k_operenable_min_size ; minimum size of message . = __save $def opc$t_logfile_opr ; (not used yet) ; (to be logfile-spec?) $def opc$k_logfile_min_size ; minimum size of message . = __save $def opc$t_status_opr ; (not used) $def opc$k_status_min_size ; minimum size of message . = __save ; (no special fields) $def opc$k_cancel_min_size ; minimum size of message . = __save ; (no special fields) $def opc$k_timestamp_min_size ; minimum size of message . = __save ; (no special fields) $def opc$k_shutdown_min_size ; minimum size of message $vield opc,0,<- ; request-independent opts. - ; do not log - ; do not broadcast - ; not clusterwide > $vield opc,0,<- ; ENABLE request options - ; disable specified opers. - ; permanent operators - ; don't remind > $vield opc,0,<- ; LOGFILE request opts. - ; initialise new logfile - ; close current logfile - ; disable logfile - ; enable logfile > $vield opc,0,<- ; CANCEL request opts. - ; request completed > $vield opc,0,<- ; SHUTDOWN request opts. - ; clusterwide > $vield opc,0,<- ; DEBUG options (offset 4) - ; full hex info - ; memory stats - ; operators - - - ; message counters - ; ocd blocks > $equlst opc$k_,gbl,,,<- ; SCOPE - - - - ; (scan from user to system) > $equlst opc$k_,gbl,,,<- ; misc parameters - - - - > $equlst opc$_x_,gbl,,,<- ; new request codes - - - - - - - - - - - - > $defend opc,gbl .endm _opcdef