PROGRESS编程其实很简单（一）

一、变量定义。
变量必须在第一次被使用之前定义，可以定义在程序的任何地方！但是通常为了增加程序的可读性，变量定义都放在程序的开始处！以下是变量定义的几个实例：

define variable str01 as string label "DemoString" initial "hello".
def var str02 like str01.
def var dt01 as date extent 5.
def var inte01 as inte format ">>>9".

说明，第一行：
str01 是变量名， 变量名不要与系统关键字重复，字符或者下划线开头，比如strModel,_Model ；
string 表示变量类型，本例指字符型变量，其它类似的比如integer，date，logical等 ；
label 就是后续程序中对变量的描述，比如需要用户输入这个变量值时，系统提示“DemoString" ；
initial 变量的初始值
第二行：
def和var都是简写，def是define的简写，var是variable的简写；PROGRESS支持语法简写，但是初学者最好先写全，后面有经验了再简写。
like和as的不同点是：as后面直接说明变量类型，而like后面跟另外一个变量或者字段。
第三行：
extent 5 ，表示该变量是数组变量。 
第四行：
format ">>>9"  变量格式
指定变量的格式一个最大的好处就是预留宽度，这个对变量的输入或者报表的输出都很有用的。
比如年份的宽度一定是4位的，那么你就可以指定格式 format "9999"。

PROGRESS程序每行结束必须有个“.”号！！！

二、注释。
注释就是用/*  ...   */ ，可以嵌套，比如
/*---注释1
   /* 注释2 */
   ---*/
  
三、记录的显示。
如果进入PROGRESS编程模式以后连接了数据库，那么直接显示记录的值即可，比如：
for each TABLE_NAME:
    display TABLE_NAME.
end.
/*显示TABLE_NAME所有字段所有记录*/
或者：
find first TABLE_NAME.
display TABLE_NAME.
/*显示TABLE_NAME第一条记录所有字段的值*/

通常显示记录值都是采用这2种方式！当然，可以按要求显示特殊的字段，比如：
for each pt_mstr where pt_model begins "E" no-lock break by pt_price:
    disp pt_model pt_price.
end.
这个程序看起来真的很容易明白，简单说明：
1、where 后面带条件，比如 =  <>  <= >= 等等，这种关系符，对数字、日期或者字符串，都适用；
关于条件的几种组合举例：
条件1 and 条件2
( 条件1  or 条件2）and (条件3 or 条件4)
not 条件1
2、no-lock，这是关键字，你只要记住：
如果接下来的程序要对记录进行修改，那么不能加no-lock，如果不要，请加上no-lock；
3、break by ，就是按某个字段排列，默认是按这个字段的升序，如果降序则后面加上 desc，比如：
break by pt_price desc。
如果需要多次排列，那么by几次就可以，比如：
break by pt_price by pt_date

另外一个常用的显示或者更新记录的语句是find！比如：
find pt_mstr where pt_model = "mainboard" no-lock no-error.
find first pt_mstr where pt_price <= 10 no-error.
find last pt_mstr where pt_price <= 10 no-error.
说明：
1、where后面的条件跟for each语句类似；
2、no-lock的作用跟for each的no-lock也是一样的；
3、no-error，通常是find就加上，否则如果找不到满足条件的记录，系统会出错误提示；而实际上，通常需要在程序自己判断结果；
4、find first 就是定位第一天满足条件的记录；find last 定位最后一条满足条件的记录；
4、还有一种叫find next，就是定位当前记录的下一条；
5、find 和 find first / find last 不同的是，find后面带的条件，通常是满足TABLE的某个唯一索引。

关于for each 和 find，这章你只要了解到这里就OK了！

四、判断。
判断最简单了，就是一个if 条件 then ... else ...，比如：
if str01 = "cpu" then disp "CPU"
                 else disp "Not CPU".
当然，这个”条件“可能有很复杂的组合。如果，涉及到的动作比较多，那么做法是用do: ... end.，比如
if str01 = "cpu" then do:
   str01 = "my cpu".
   disp "CPU".
end.
else do:
   str01 = "my memory".
   disp "Not CPU".
end.
if 支持嵌套，怎么嵌套？你自己会了！不是吗？

五、循环。
PROGRESS的循环功能实在令人不敢恭维，没有when 没有while，没有loop、for什么的，只有一个repeat！
不过，用好了这个repeat，一样实现任何功能。
通常实现循环的模式：
repeat:
      /*处理事务*/
      if 条件 then leave. /* 退出循环 */
end.  
现在，你试试用find 和 repeat 实现 for each的功能！

六、赋值和计算。
＋ － *  / ，就是 加 减 乘  除了！比如：
ttl_amoount = ttl_ammount + dtl_amount.
x_a = x_b / x_c.
str_ttl = "I'm" + "sure!".
dt01 = today - 1.
dt01 = 3/22/2005. /* 日期 */
当然，日期和字符串不能做乘法或者除法！

七、其它零星的语法。
显示：display 简写disp
退出编程模式：quit
执行UNIX命令： unix COMMAND

好了，这章你学会了，如果熟悉数据库表和字段的结构，你也大概能看任何东西了，甚至做一些常规的统计也肯定没问题！  

原文转自：http://www.ltesting.net