/**********************************************************************/


   /* This is the attribute table for NWGetDefaultConnectionID.   */

routine NWGetDefaultConnectionID
minarg=1
maxarg=1
arch=bit16
stackorder=l2r
stackpop=called
module=NWCALLS
returns=short;
arg 1 num update byaddr format=ib2.;


/**********************************************************************/


   /* This is the attribute table for NWGetConnectionNumber.      */

routine NWGetConnectionNumber
minarg=2
maxarg=2
arch=bit16
stackorder=l2r
stackpop=called
module=NWCALLS
returns=short;
arg 1 num input byvalue format=ib2.;
arg 2 num update byaddr format=ib2.;


/**********************************************************************/


   /* This is the attribute table for NWGetConnectionInformation. */

routine NWGetConnectionInformation
minarg=6
maxarg=6
arch=bit16
stackorder=l2r
stackpop=called
module=NWCALLS
returns=short;
arg 1 num input byvalue format=ib2.;
arg 2 num input byvalue format=ib2.;
arg 3 char update byaddr format=$cstr48.;
arg 4 num update byaddr format=ib2.;
arg 5 num update byaddr format=ib4.;
arg 6 char update byaddr format=$cstr7.;


/**********************************************************************/


   /* This DATA step will return the user's login id.             */

filename sascbtbl 'c:\sas\attr.txt';

data _null_;
   length Name $48 logtime $7;
   rc=modulen('NWGetDefaultConnectionID',ID);
   rc=modulen('NWGetConnectionNumber',ID,Handle);
   rc=modulen('NWGetConnectionInformation',ID,Handle,Name,Type,
               UserID,logtime);
   put Name=;
run;


/**********************************************************************/


   /* Something similar could be done in the INIT section of a    */
   /* FRAME entry.                                                */

INIT:
length Name $48 logtime $7;
Name=repeat('  ',24);
logtime='       ';
rc=filename('sascbtbl','c:\sas\attr.txt');
rc=modulen('NWGetDefaultConnectionID',ID);
rc=modulen('NWGetConnectionNumber',ID,HANDLE);
rc=modulen('NWGetConnectionInformation',ID,HANDLE,Name,Type,
            UserID,logtime);
return;


/**********************************************************************/