GENEROBDL231語法(3)

1、GENERO BDL 2.31 （三）鼎捷軟件 TOP GP 華東事業(yè)部學習對象及目標必修：必修：系統(tǒng)工程師、服務人員、研發(fā)人員、系統(tǒng)工程師、服務人員、研發(fā)人員、MIS人員人員學習對象學習對象學習目標學習目標1. 了解了解ARRAY應用；應用；2. 掌握掌握REPORT的撰寫；的撰寫；3. 清楚清楚DEBUGGER的用法。的用法。課程大綱1ARRAY應用應用2REPORT3DEBUGGERARRAY 應用1ARRAY應用應用2REPORT3DEBUGGERARRAY固定數(shù)組（固定數(shù)組（Static Array）定義）定義ARRAY intconst ,intconst ,intconst OF

2、 datatype動態(tài)數(shù)組（動態(tài)數(shù)組（Dynamic Array）定義）定義DYNAMIC ARRAY WITH DIMENSION rank OF datatypeARRAY MAIN DEFINE g_desc ARRAY3 OF CHAR(14) DEFINE g_x ARRAY10 OF RECORD a CHAR(10), b CHAR(10), c CHAR(10) END RECORD END MAINEX:固定數(shù)組（固定數(shù)組（Static Array）ARRAYEX:動態(tài)數(shù)組（動態(tài)數(shù)組（Dynamic Array） DEFINE g_i DYNAMIC ARRAY OF INT

3、EGER DEFINE a DYNAMIC ARRAY WITH DIMENSION 2 OF INTEGEROR DEFINE g_x DYNAMIC ARRAY OF RECORD a CHAR(10), b CHAR(10), c CHAR(10) END RECORD一維數(shù)組一維數(shù)組 DEFINE b DYNAMIC ARRAY WITH DIMENSION 3 OF INTEGER二維數(shù)組二維數(shù)組三維數(shù)組三維數(shù)組OBJECT METHODS對象名稱對象名稱說說 明明getLength( )RETURNING INTEGER回傳一維數(shù)組的長度回傳一維數(shù)組的長度clear()將動態(tài)數(shù)組（

4、將動態(tài)數(shù)組（Dynamic Array）中，所有記錄移除。）中，所有記錄移除。將固定數(shù)組（將固定數(shù)組（Static Array）中，所有紀錄值清為）中，所有紀錄值清為NULL。appendElement()在動態(tài)數(shù)組（在動態(tài)數(shù)組（Dynamic Array）后面加上一筆新的記錄。這）后面加上一筆新的記錄。這個對象在固定數(shù)組（個對象在固定數(shù)組（Static Array）中無效。）中無效。insertElement( INTEGER )在指定位置新增記錄，并將指定位置后之資料往下移。在指定位置新增記錄，并將指定位置后之資料往下移。動態(tài)數(shù)組（動態(tài)數(shù)組（Dynamic Array）的筆數(shù)加）的筆數(shù)加1

5、。OBJECT METHODS - getlength()對象名稱對象名稱說說 明明getLength( )RETURNING INTEGER回傳一維數(shù)組的長度回傳一維數(shù)組的長度clear()將動態(tài)數(shù)組（將動態(tài)數(shù)組（Dynamic Array）中，所有記錄移除。）中，所有記錄移除。將固定數(shù)組（將固定數(shù)組（Static Array）中，所有紀錄值清為）中，所有紀錄值清為NULL。appendElement()在動態(tài)數(shù)組（在動態(tài)數(shù)組（Dynamic Array）后面加上一筆新的記錄。這）后面加上一筆新的記錄。這個對象在固定數(shù)組（個對象在固定數(shù)組（Static Array）中無效。）中無效。inse

6、rtElement( INTEGER )在指定位置新增記錄，并將指定位置后之資料往下移。在指定位置新增記錄，并將指定位置后之資料往下移。動態(tài)數(shù)組（動態(tài)數(shù)組（Dynamic Array）的筆數(shù)加）的筆數(shù)加1。OBJECT METHODS - getlength() MAIN DEFINE a DYNAMIC ARRAY OF INTEGER LET a5000 = 12456 DISPLAY a.getLength() END MAIN SHOW:5000舉例舉例OBJECT METHODS - clear()對象名稱對象名稱說說 明明getLength( )RETURNING INTEGER回

7、傳一維數(shù)組的長度回傳一維數(shù)組的長度clear()將動態(tài)數(shù)組（將動態(tài)數(shù)組（Dynamic Array）中，所有記錄移除。）中，所有記錄移除。將固定數(shù)組（將固定數(shù)組（Static Array）中，所有紀錄值清為）中，所有紀錄值清為NULL。appendElement()在動態(tài)數(shù)組（在動態(tài)數(shù)組（Dynamic Array）后面加上一筆新的記錄。這）后面加上一筆新的記錄。這個對象在固定數(shù)組（個對象在固定數(shù)組（Static Array）中無效。）中無效。insertElement( INTEGER )在指定位置新增記錄，并將指定位置后之資料往下移。在指定位置新增記錄，并將指定位置后之資料往下移。動態(tài)數(shù)組

8、（動態(tài)數(shù)組（Dynamic Array）的筆數(shù)加）的筆數(shù)加1。OBJECT METHODS - clear() MAIN DEFINE a DYNAMIC ARRAY OF INTEGER LET a10 = 11 DISPLAY Before Clear :,a.getLength() CALL a.clear() DISPLAY After Clear :,a.getLength() END MAIN SHOW: Before Clear : 10 After Clear : 0舉例舉例OBJECT METHODS - appendElement()對象名稱對象名稱說說 明明getLeng

9、th( )RETURNING INTEGER回傳一維數(shù)組的長度回傳一維數(shù)組的長度clear()將動態(tài)數(shù)組（將動態(tài)數(shù)組（Dynamic Array）中，所有記錄移除。）中，所有記錄移除。將固定數(shù)組（將固定數(shù)組（Static Array）中，所有紀錄值清為）中，所有紀錄值清為NULL。appendElement()在動態(tài)數(shù)組（在動態(tài)數(shù)組（Dynamic Array）后面加上一筆新的記錄。這）后面加上一筆新的記錄。這個對象在固定數(shù)組（個對象在固定數(shù)組（Static Array）中無效。）中無效。insertElement( INTEGER )在指定位置新增記錄，并將指定位置后之資料往下移。在指定位置

10、新增記錄，并將指定位置后之資料往下移。動態(tài)數(shù)組（動態(tài)數(shù)組（Dynamic Array）的筆數(shù)加）的筆數(shù)加1。OBJECT METHODS - appendElement() MAIN DEFINE a DYNAMIC ARRAY OF INTEGER LET a10 = 10 CALL a.appendElement() LET aa.getLength() = a.getLength() DISPLAY a.getLength() DISPLAY a10 DISPLAY a11 END MAIN SHOW: 11 10 11舉例舉例OBJECT METHODS- insertElement(

11、)對象名稱對象名稱說說 明明getLength( )RETURNING INTEGER回傳一維數(shù)組的長度回傳一維數(shù)組的長度clear()將動態(tài)數(shù)組（將動態(tài)數(shù)組（Dynamic Array）中，所有記錄移除。）中，所有記錄移除。將固定數(shù)組（將固定數(shù)組（Static Array）中，所有紀錄值清為）中，所有紀錄值清為NULL。appendElement()在動態(tài)數(shù)組（在動態(tài)數(shù)組（Dynamic Array）后面加上一筆新的記錄。這）后面加上一筆新的記錄。這個對象在固定數(shù)組（個對象在固定數(shù)組（Static Array）中無效。）中無效。insertElement( INTEGER )在指定位置新增記

12、錄，并將指定位置后之資料往下移。在指定位置新增記錄，并將指定位置后之資料往下移。動態(tài)數(shù)組（動態(tài)數(shù)組（Dynamic Array）的筆數(shù)加）的筆數(shù)加1。OBJECT METHODS- insertElement() MAIN DEFINE a DYNAMIC ARRAY OF INTEGER LET a10 = 11 CALL a.insertElement(10) LET a10 = 10 DISPLAY a.getLength() DISPLAY a10 DISPLAY a11 END MAIN SHOW: 11 10 11舉例舉例DISPLAY ARRAY舉例舉例舉例舉例 DISPLAY

13、ARRAY arr TO srec.* DISPLAY ARRAY record-array TO screen-array.* HELP help-number ATTRIBUTE ( ,. )DISPLAY ARRAYEXIT DISPLAYCONTINUE DISPLAYACCEPT DISPLAYDISPLAY ARRAY架構架構:BEFORE DISPLAYAFTER DISPLAYBEFORE ROWAFTER ROWON IDLE idle-secondsON ACTION action-nameON FILL BUFFEREND DISPLAYINPUT ARRAY語法語法舉例

14、舉例 INPUT ARRAY custarr WITHOUT DEFAULTS FROM sr_cust.*INPUT ARRAY array WITHOUT DEFAULTS FROM screen-array.* HELP help-number ATTRIBUTE ( ,. )BEFORE INPUTAFTER INPUTBEFORE ROWAFTER ROWBEFORE FIELD field-listAFTER FIELD field-listON CHANGE field-listON ROW CHANGEON IDLE idle-secondsON ACTION action-n

15、ameBEFORE INSERT AFTER INSERTBEFORE DELETEAFTER DELETEEND INPUT INPUT ARRAYACCEPT INPUTCONTINUE INPUTEXIT INPUTNEXT FIELDCURRENT | NEXT |PREVIOUS | field-nameCANCEL INSERTCANCEL INSERTCANCEL DELETE架構架構ATTRIBUTES 控制屬性屬性名稱屬性名稱說明說明APPEND ROW =bool 定義用戶可否在最后一行新增資料定義用戶可否在最后一行新增資料COUNT = row-count 定義當前數(shù)組的

16、總行數(shù)定義當前數(shù)組的總行數(shù)DELETE ROW =bool 定義用戶可否刪除資料定義用戶可否刪除資料INSERT ROW =bool 定義用戶可否新增資料定義用戶可否新增資料MAXCOUNT = row-count 定義數(shù)組最大資料行數(shù)定義數(shù)組最大資料行數(shù)UNBUFFERED =bool 定義數(shù)組即時顯示資料定義數(shù)組即時顯示資料WITHOUT DEFAULTS =bool 保留原先資料，不清為保留原先資料，不清為NULLCANCEL = bool 定義定義”CANCLE”功能可否使用功能可否使用ACCEPT = bool 定義定義”ACCEPT”功能可否使用功能可否使用控制段運行順序用戶動作用

17、戶動作控制段運行順序控制段運行順序進入數(shù)組進入數(shù)組BEFORE INPUTBEFORE ROWBEFORE FIELD移動至其它行移動至其它行AFTER FIELD (for field A in the current row)AFTER INSERT (if a new row was inserted or new row was appended)ON ROW CHANGE (if values have changed in current row)AFTER ROW (for the current)BEFORE ROW (the new row)BEFORE FIELD (for

18、 field B in the new row)移動至同行中的移動至同行中的不同字段不同字段ON CHANGE (for field A, if value has changed)AFTER FIELD (for field A)BEFORE FIELD (for field B)控制段運行順序用戶動作用戶動作控制段運行順序控制段運行順序刪除一刪除一行行BEFORE DELETE (the row to be deleted)AFTER DELETE (the deleted row)AFTER ROW (the deleted row)BEFORE ROW (the new current

19、 row)BEFORE FIELD新增一行新增一行（插在兩行中）（插在兩行中）AFTER FIELDAFTER INSERT (if a new row was created)ON ROW CHANGE (if values have changed)AFTER ROW (the previous row)BEFORE INSERTBEFORE FIELD新增一行新增一行（進入最后一行）（進入最后一行）AFTER FIELDAFTER INSERT (if a new row was created)ON ROW CHANGE (if values have changed)AFTER RO

20、W (the previous row)BEFORE ROW (the new current row)BEFORE INSERTBEFORE FIELD控制段運行順序用戶動作用戶動作控制段運行順序控制段運行順序按下確定按下確定ON CHANGEAFTER FIELDAFTER INSERT (if a new row was created)ON ROW CHANGE (if values have changed)AFTER ROWAFTER INPUT按下取消按下取消AFTER ROWAFTER INPUTREPORT1ARRAY應用應用2REPORT3DEBUGGERREPORT 的三

21、個主要指令 START REPORT report_name TO SCREEN | FILE filename | PRINTER OUTPUT TO REPORT report_name(variable_list) FINISH REPORT report_nameReport 的三個的三個主要主要指令指令REPORT 的三個主要指令MAIN DEFINE p_employee RECORD LIKE employee.* DECLARE emp1_curs CURSOR FOR SELECT * FROM emplyee START REPORT employee_report FOR

22、EACH emp1_curs INTO p_emplyee.* OUTPUT TO REPORT employee_report(p_employee.*) END FOREACH FINISH REPORT employee_reportEND MAINREPORT employee_report(r_employee) DEFINE r_employee RECORD LIKE employee.* FORMAT ON EVERY ROWEND REPORT范例范例REPORT FUNCTION 的組成REPORT report_name(expr_list) DEFINE define_

23、statement OUTPUT output_statement ORDER BY sort_list FORMAT control_block statement : :END REPORTOUTPUT SECTIONOUTPUT TOP MARGIN 0 LEFT MARGIN 0 BOTTOM MARGIN 5 PAGE LENGTH 6661566報表結果報表結果ORDER SECTION語法語法ORDER EXTERNAL BY variable-list說明說明ORDER BY 區(qū)間，區(qū)間，主要是作排序字段用主要是作排序字段用，以逗號分開，以逗號分開。ORDER EXTERNAL

24、 BY表表示示錄入資料錄入資料排序后不存在暫存檔排序后不存在暫存檔中。中。ORDER BY 會先將資料會先將資料排序過并存在暫存檔排序過并存在暫存檔中中，配合，配合BEFORE GROUP OF 或或 AFTER GROUP OF區(qū)段排序后再由暫存檔印出區(qū)段排序后再由暫存檔印出。最前面的字段為主最前面的字段為主KEY，同時只能用，同時只能用所接收參數(shù)內的字段所接收參數(shù)內的字段來排序。來排序。ORDER SECTIONREPORT i252_rep(sr) DEFINE sr RECORD pmw01 LIKE pmw_file.pmw01, pmw03 LIKE pmw_file.pmw03,

25、 . pmx02 LIKE pmx_file.pmx02, pmx08 LIKE pmx_file.pmx08, . END RECORD OUTPUT. ORDER BY sr.pmw01,sr.pmx02 . BEFORE GROUP OF sr.pmw01 . AFTER GROUP OF sr.pmw01 .END REPORT 范例范例ORDER SECTION料號料號數(shù)量數(shù)量A0110A02100C1050A0120A0150A02200料號料號數(shù)量數(shù)量A01 10A0120A0150A02100A02 200C10 50Order by 料號料號FORMAT SECTION FI

26、RST PAGE HEADER PAGE HEADER BEFORE GROUP OF ON EVERY ROW AFTER GROUP OF ON LAST ROW PAGE TRAILER主要主要CONTROL BLOCKSBEFORE GROUT OF 料號原程序代碼原程序代碼ON EVERY ROW PRINT 料號料號, 規(guī)格規(guī)格, 數(shù)量數(shù)量, 金額金額BEFORE GROUT OF 料號料號料號規(guī)格規(guī)格數(shù)量數(shù)量金額金額A01HDD 2.51030,000A01HDD 2.52060,000A01HDD 2.550150,000A02HDD 3.5100200,000A02HDD 3

27、.5200400,000C10Mouse5025,000BEFORE GROUP OF 料號BEFORE GROUP OF 料號料號PRINT 料號料號, 規(guī)格規(guī)格 ;ON EVERY ROWPRINT 數(shù)量數(shù)量, 金額金額BEFORE GROUP OF 料號料號料號規(guī)格規(guī)格數(shù)量數(shù)量金額金額A01HDD 2.51030,0002060,00050150,000A02HDD 3.5100200,000200400,000C10Mouse5025,000AFTER GROUP OF 料號料號料號規(guī)格規(guī)格數(shù)量數(shù)量金額金額A01HDD 2.51030,0002060,00050150,000A02HD

28、D 3.5100200,000200400,000C10Mouse5025,000AFTER GROUP OF 料號BEFORE GROUP OF 料號料號 PRINT 料號料號, 規(guī)格規(guī)格;ON EVERY ROW PRINT 數(shù)量數(shù)量, 金額金額AFTER GROUP OF 料號料號 PRINT “小計小計”, GROUP SUM(數(shù)量數(shù)量), GROUP SUM(金額金額)AFTER GROUP OF 料號料號料號規(guī)格規(guī)格數(shù)量數(shù)量金額金額A01HDD 2.51030,0002060,00050150,000小計小計80240,000A02HDD 3.5100200,000200400,0

29、00其它報表指令表達式表達式舉例舉例PRINT ”員工編號：員工編號：”, ,employee_no結果印出結果印出 員工編號員工編號 : : 2000 PRINT說明說明: :制作報表時印出資料的指令。制作報表時印出資料的指令。其它報表指令表達式表達式舉例舉例 SKIP 2 LINES 跳兩行跳兩行 SKIP TO TOP OF PAGE 跳頁跳頁 SKIP說明說明: :制作報表時跳行或跳頁的敘述。制作報表時跳行或跳頁的敘述。其它報表指令表達式表達式舉例舉例 LET a=“鼎鼎 ” LET b=“捷捷 ” PRINT a CLIPPED,b CLIPPED 結果印出結果印出 鼎捷鼎捷 CLI

30、PPED說明說明: :將字符串后面的空白將字符串后面的空白去掉。去掉。其它報表指令表達式表達式說明說明 COLUMN指定輸出的指定輸出的列列位置位置 PAGENO取得當前打印頁的頁號值取得當前打印頁的頁號值 SPACES傳回一串空白傳回一串空白其它報表指令舉例舉例 LET money = 1000 PRINT 這是第這是第,PAGENO, 頁頁 PRINT COLUMN 10, money USING #&.& PRINT 9 SPACES, money USING # 結果印出結果印出這是第這是第 X 頁頁 -1000.00 -1000USING (設置格式)符號符號說說 明

31、明#不會對輸出的字符作任何影響不會對輸出的字符作任何影響, 通常用于限制字符串輸出時的最大長度通常用于限制字符串輸出時的最大長度將數(shù)字改為向左靠將數(shù)字改為向左靠&以以 0 置換空格符置換空格符,在指定位置以逗號顯示在指定位置以逗號顯示-當輸出的數(shù)字小于零，會在其前面以負號顯示當輸出的數(shù)字小于零，會在其前面以負號顯示+當輸出的數(shù)字大于零，會在其前面以正號顯示當輸出的數(shù)字大于零，會在其前面以正號顯示當輸出的數(shù)字小于零，會在其前面以負號顯示當輸出的數(shù)字小于零，會在其前面以負號顯示$在指定位置以錢字號顯示在指定位置以錢字號顯示USING 示范12,34512345012,345.00$12,3

32、45+12345-12,345-12,345值值 = 12345USING #,#USING USING &#,#.&USING $#,#USING +值值 = -12345USING -,-USING +,+內建函數(shù)函函 數(shù)數(shù)說說 明明GROUP PERCENT(*)GROUP區(qū)塊中，資料的百分比區(qū)塊中，資料的百分比GROUP COUNT(*)GROUP區(qū)塊中，資料的總數(shù)區(qū)塊中，資料的總數(shù)GROUP AVG(expr)GROUP區(qū)塊中，取得數(shù)值的平均值區(qū)塊中，取得數(shù)值的平均值GROUP MAX(expr)GROUP區(qū)塊中，取得數(shù)值的最大值區(qū)塊中，取得數(shù)值的最大值GROUP M

33、IN(expr)GROUP區(qū)塊中，取得數(shù)值的最小值區(qū)塊中，取得數(shù)值的最小值GROUP SUM(expr)GROUP區(qū)塊中，數(shù)值的加總區(qū)塊中，數(shù)值的加總DEBUGGER1ARRAY應用應用2REPORT3DEBUGGERDEBUGGER語法語法舉例舉例 $FGLRUN d test $FGLRUN d 程序名稱程序名稱.42rDEBUGGER 指令指令指令說明說明示范示范縮寫縮寫B(tài)reak設置斷點設置斷點break test01_abRun運行程序運行程序runruStep逐步運行程序逐步運行程序step 10sContinue運行到下一個斷點運行到下一個斷點continuecoList列出程序

34、代碼列出程序代碼linelistlPrint顯示變量值顯示變量值print g_sqlpQuit結束結束Debugger環(huán)境環(huán)境quitqDelete刪除斷點刪除斷點delete 1dHelp查看指令內容查看指令內容help listhDEBUGGER 舉例Debugger范例范例DEBUGGER 舉例-help舉例舉例 (fgldb) help #查看所有指令查看所有指令 或或 (fgldb) help list (指令名稱指令名稱) #查看查看具體具體指令指令help 縮寫：縮寫：h (fgldb) help list List specified function or line DEB

35、UGGER 舉例-helpbreak - Set breakpoint at specified line or function tbreak - Set a temporary breakpoint backtrace - Print backtrace of all stack frames bt - Print backtrace of all stack frames continue - Continue program being debugged call - Call a function in the program clear - Clear breakpoint at

36、specified line or function. delete - Delete some breakpoints or auto-display expressions define - Define a new command name. display - Print value of expression EXP each time the program stops disable - Disable some breakpoints down - Select and print FUNCTION called by this one enable - Enable some

37、 breakpoints echo - Print a constant string file - Use FILE as program to be debugged finish - Execute until selected stack frame returns frame - Select and print a stack framehelp - Print list of commands. info - Generic command for showing things about the program being debugged. ignore - Set igno

38、re-count of breakpoint number N to COUNT. list - List specified function or line next - Step program, proceeding through subroutine calls. (fgldb) help DEBUGGER 舉例-run舉例舉例 (fgldb) run #運行程序運行程序 run 縮寫：縮寫：r(fgldb) run Breakpoint 1, main() at apm_apmi252.4gl:139 139 IF (NOT cl_user() THEN (fgldb) cont

39、inue Continuing. DEBUGGER 舉例-quit舉例舉例 (fgldb) quit #離開程序離開程序 quit 縮寫：縮寫：q$FGLRUN -d apmi252.42r (fgldb) quit DEBUGGER 舉例-break舉例舉例 (fgldb) break 10 # #設中斷行數(shù)設中斷行數(shù) (fgldb) break function_name break 縮寫：縮寫：b(fgldb) break 139Breakpoint 1 at 0 x00000000: file apm_apmi252.4gl, line 139 (fgldb) break i252_b Breakpoint 2 at 0 x00000000: file apm_apmi252.4gl, line 1479DEBUGGER 舉例-print舉例舉例 (fgldb) print l_str #顯示顯示變變量值量值 (fgldb) print status (fgl