//數(shù)據(jù)類型的說明,不區(qū)分大小寫
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 //不區(qū)分大小寫
//運算符
/*
1、算術(shù)運算符:*、/、+、-、^
2、邏輯運算符:NOT、AND、OR
3、關(guān)系運算符:=、>=、>、<、<=、<>
4、連接運算符:&
*/
jj+=jj+ii
jj=jj/ii
jj=jj*ii
jj -=ii
jj +=ii
//程序控制語句：選擇、循環(huán)、其他語句
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創(chuàng)建的對象，open創(chuàng)建可視化對象
CHOOSE CASE jj
?CASE 1
??//TODO...
?CASE 2
??//TODO...
?CASE ELSE
??//TODO...
END CHOOSE
/*(循環(huán)判斷)
.... 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語句沒有返回數(shù)據(jù)
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;//事務(wù)提交
else
?//toto...
?ROLLBACK USING DBTrans;//事務(wù)回滾
end if
DISCONNECT USING SQLCA;
(1)、HALT、HALT(CLOSE)
(2)、RETURN
(3)、CREATE
(4)、DESTROY
語句不以分號結(jié)束