DEFINE ch base.Channel

LETch=base.Channel.create() #-----创建一个通道

CALLch.openFile('/u1/topprod/tiptop/azz/4gl/pwd.log','r') #----打开这个文件

LETl_status=ch.read(l_temp) ###读取文件行数

WHILEl_status #-循环读取每一行文件,并且写入l_text

LETl_text=l_text.trim(),l_temp.trim()

LETl_status=ch.read(l_temp)

ENDWHILE