/* ro2ssthorn.c - ROPM: interface for THORN */
static char *rcsid
= "$Header: /f/osi/rosap/RCS/ro2ssthorn.c,v 7.1 91/02/22 09:41:24 mrose Interim $";
* $Header: /f/osi/rosap/RCS/ro2ssthorn.c,v 7.1 91/02/22 09:41:24 mrose Interim $
* Revision 7.1 91/02/22 09:41:24 mrose
* Revision 6.0 89/03/18 23:42:20 mrose
* Acquisition, use, and distribution of this module and related
* materials are subject to the restrictions of a license agreement.
* Consult the Preface in the User's Manual for the full terms of
static PE
qb2Rpe (qb
, len
, result
)
register struct qbuf
*qb
;
return qb2pe (qb
, len
, 2, result
);
/* \f modify underling service */
struct RoSAPindication
*roi
;
register struct assocblk
*acb
;
if ((acb
= findacblk (sd
)) == NULL
) {
(void) sigiomask (smask
);
return rosaplose (roi
, ROS_PARAMETER
, NULLCP
,
"invalid association descriptor");
if (acb
-> acb_flags
& ACB_ROS
) {
acb
-> acb_getosdu
= qb2Rpe
;
result
= rosaplose (roi
, ROS_OPERATION
, NULLCP
,
"not an association descriptor for ROS");
(void) sigiomask (smask
);