sy.prg

来自「帐务管理系统」· PRG 代码 · 共 16 行

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: SY.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 PARAMETER LNAME
 PRIVATE ALL 
 IF EMPTY(LNAME)
    RETURN 
 ENDIF 
 IF  .NOT. USED(LNAME)
    USE IN 0 EXCLUSIVE (LNAME) ALIAS (LNAME)
 ENDIF 
 SELECT (LNAME)
*