\MAC ID=(ACT=NIL,CRT=NIL,PORT=NIL);
\PRIVLIB XXX@LM ,LM,MEDIA=DS01;

\DCV UCACT ,CHAR='&ACT ' ,LEN=3 ;
\DCV UCCRT ,CHAR='&CRT ' ,LEN=16;
\DCV UCPORT,CHAR='&PORT ' ,LEN=5 ;

\STEP RPCOMM;
\ASSIGN TCPIPSG,TCPIPSG,MEDIA=EXSD,SHR=FREE;
\DEFINE TCPIPSG,RSZ=80,BSZ=2400;
\ENDSTEP ;