因為專業所以放心

//數據類型的說明,不區分大小寫
String name="xmddl"
Integer i
Real s?????? //這里為單行注釋
Integer a[1 to 10]
real i_s[4]={1,2,3,4}
CONSTANT String j="HELLO"

real ii_s[2,4]={1,1,1,1,2,2,2,2}
string s_s[2,3,4]

dec{2} fj
dec jj,ii
double d
/*
這里為多行注釋
fdsfsdfds
*/
time mytime
date mydate=2006-07-07
datetime mydatetime
char c='w'
string hello="it~'s a dog"http://it's a dog

any my,you,he

blob bk
boolean b
long l
int iss
ResultSet rs
resultsets rss //不區分大小寫
//運算符
/*
1、算術運算符:*、/、+、-、^
2、邏輯運算符:NOT、AND、OR
3、關系運算符:=、>=、>、<、<=、<>
4、連接運算符:&
*/
jj+=jj+ii
jj=jj/ii
jj=jj*ii
jj -=ii
jj +=ii

//程序控制語句：選擇、循環、其他語句
if jj>ii then
?//todo......
end if?

if jj>ii then
?//todo...
elseif jj=ii then
?//todo...
end if

string sss_s
sss_s = create using "string"

transaction DBTrans
DBTrans=create transaction
DBTrans.autocommit=false

DESTROY DBTrans//銷毀create創建的對象，open創建可視化對象

CHOOSE CASE jj
?CASE 1
??//TODO...
?CASE 2
??//TODO...
?CASE ELSE
??//TODO...
END CHOOSE

/*(循環判斷)
.... DO UNTIL condition …LOOP
.... DO WHILE condition … LOOP
.... DO … LOOP UNTIL condition
.... DO … LOOP WHILE condition

FOR varname = start TO end [STEP increment]
statementblock
NEXT

*/

SQLCA.dbms="localhost"
//SQLCode=0成功，SQLCode＝-1失敗，SQLCode=100SQL語句沒有返回數據

CONNECT USING SQLCA;

DECLARE EMP_cur CURSOR FOR
select employee.fname
from employee
where employee.job_id =:i;
OPEN EMP_cur;
FETCH EMP_cur INTO :sss_s;
CLOSE EMP_cur;

select employee.fname into :sss_s //嵌入sql編程，pb的特色
from employee
where employee.job_id =:i

using DBTrans;

if DBTrans.sqlcode=0 then
?//todo...
?COMMIT USING DBTrans;//事務提交
else
?//toto...
?ROLLBACK USING DBTrans;//事務回滾
end if
DISCONNECT USING SQLCA;

(1)、HALT、HALT(CLOSE)
(2)、RETURN
(3)、CREATE
(4)、DESTROY
語句不以分號結束