日期:2014-05-17  浏览次数:21178 次

progress编程的几个问题,请指教
1. 定义变量 DEFINE VARIABLE m_acct AS CHARACTER NO-UNDO. 这里的NO-UNDO是什么意思?
2. 一段代码里看到两个form,第一个运行起来看到的是画面的内容,可以看懂,但第二个form 如下
/* DISPLAY SELECTION FORM */
form
  vd_mod_date column-label "XXXXXXXXXXXXX"
  vd_userid

类似这样的却不能在UI里找到相关的内容,是不是运行之后出来的报表里的内容???

3. FOR FIRST code_mstr WHERE code_fldname = "xxvnrp01.p_outputfile"
  AND code_value <> ""
  NO-LOCK:

这里 FOR FIRST是什么意思

4.
FOR FIRST code_mstr WHERE code_fldname = "xxvnrp01.p_outputfile"
  AND code_value <> ""
  NO-LOCK:
END.
IF AVAILABLE code_mstr THEN
  m_filename = code_value.
ELSE DO:
  m_arg1 = getTermLabel("FILENAME",9).
  /* GCM is not defined for # */
  {pxmsg.i &msgnum=9610 &errorlevel=4 &msgarg1=m_arg1 &pauseafter=10}
  RETURN.

这段代码中 getTermLabel("FILENAME",9).这句是什么意思?还有之后的{}这样用括号括起来是什么意思?里面的东东能否解释。

5. 
 IF LOOKUP(m_temp,'t,p,b') = 0 THEN DO:
  /* 712 Invalid option */
  {pxmsg.i &msgnum=712 &errorlevel=3}
  NEXT-PROMPT m_temp WITH FRAME a.
  UNDO, RETRY.
  END.

这段代码是什么意思?请解释。

6. if (c-application-mode <> 'web') then do:
  bcdparm = "".
  {mfquoter.i code }
  {mfquoter.i code1 }
这个又是什么意思?

7. 
  OUTPUT STREAM strout TO VALUE(m_workpath + m_filename). /* MJCR01 */
  PUT STREAM strout UNFORMATTED
  getTermLabel("SUPPLIER",9) ','
  getTermLabel("NAME",5) ','
这句也不是很清楚,OUTPUT STREAM 这样的语法网上没有找到。
还有
  PUT UNFORMATTED
  getTermLabel("SUPPLIER",9) ',' 这句也不清楚。

8. 

 EXPORT STREAM strout DELIMITER ','
  vd_addr
  ad_name 

这句是什么意思?
------最佳解决方案--------------------
发错版块了,CSDN没有POSTEGRESS数据库专区,发到数据库其它版块去,

建议去专业的论坛