Warning, /include/cspack/tsosub.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.1 1996/03/08 15:44:16 mclareni
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_CSPACK_TSOSUB_INC
0010 #define CERNLIB_CSPACK_TSOSUB_INC
0011 *
0012 * ext. def. for /TCPAW/TSOSUB and /TSOSER/TSOSER rpc rout.
0013 *
0014 * tsosub.inc
0015 *
0016 #define TSOSUB 500000000
0017 #define VERSION 1
0018 #define TSOSPROC 1
0019
0020 struct info
0021 {
0022 char *remote_machine;
0023 char *remote_user;
0024 char *remote_tty;
0025 char *mvs_userid;
0026 char *mvs_passwd;
0027 char *tso_command;
0028 unsigned short mvs_sport;
0029 } info;
0030
0031 xdr_info(xdrsp,infop)
0032 XDR *xdrsp;
0033 struct info *infop;
0034 {
0035 if (!xdr_wrapstring(xdrsp,&infop->remote_machine))
0036 return(0);
0037 if (!xdr_wrapstring(xdrsp,&infop->remote_user))
0038 return(0);
0039 if (!xdr_wrapstring(xdrsp,&infop->remote_tty))
0040 return(0);
0041 if (!xdr_wrapstring(xdrsp,&infop->mvs_userid))
0042 return(0);
0043 if (!xdr_wrapstring(xdrsp,&infop->mvs_passwd))
0044 return(0);
0045 if (!xdr_wrapstring(xdrsp,&infop->tso_command))
0046 return(0);
0047 if (!xdr_u_short(xdrsp,&infop->mvs_sport))
0048 return(0);
0049 return(1);
0050 }
0051
0052 struct retn
0053 {
0054 char *servreply;
0055 unsigned short mvs_sport;
0056 } retn;
0057
0058 xdr_retn(xdrsp,retnp)
0059 XDR *xdrsp;
0060 struct retn *retnp;
0061 {
0062 if (!xdr_wrapstring(xdrsp,&retnp->servreply))
0063 return(0);
0064 if (!xdr_u_short(xdrsp,&retnp->mvs_sport))
0065 return(0);
0066 return(1);
0067 }
0068
0069
0070 #endif
