Hauptmenü

Library QryRxUsr;
 
Uses RexxSAA;
 
function QryUserID(Name:PChar; argc : LongInt;
                   var rxArgs: RxArguments;
                   var qName : cString;
                   var retstr: RXSTRING) : LongWord; ApiEntry;
 
Begin
  Result:=0;
  if argc=0
    then
      Begin
        MakeRXStringPas(Retstr, 'RV=QryUserID');
        Result:=0;
      end
    else
      result:=40;
end;
 
exports
  QryUserID index  1;
 
{ ---------------------------------------------------- }
 
Begin
end.

/* Text QryRxUser */
 
call RxFuncAdd 'QryUserID', 'QryRXUsr', 'QryUserID'
 
Say QryUserID()
 
Say "Okay"
 
exit