コボル基本語法

1、基本語法一、COBOL基本語法 compla項目使用的Cobol是Micro Focus 公司生產(chǎn)的Cobol,采用在HP-UNIX上運行。一、cobol的書寫格式（每行）1、 前6列為序號區(qū)(一般不編輯)2、 第7列為標(biāo)示列，僅可以寫如下幾個標(biāo)示符。a. “” 注釋符(注釋當(dāng)前行的代碼)b “/“ 注釋符(注釋當(dāng)前行的代碼,程序編譯時，強(qiáng)制程序清單另起一頁,不建議使用) c “ 字符串連接符 d “D” DEBUG行標(biāo)示符(程序為DEBUG模式時，標(biāo)有該標(biāo)示符的語句行代碼執(zhí)行，否則和注釋行效果一樣) 3、第8列-11列為A區(qū)，包括以下內(nèi)容。 a 部、節(jié)名。 b 層號01 4、第12列-72列

2、為B區(qū)，過程部的程序必須寫在B區(qū)中。 5、第72以后部分不能編輯。二、cobol的語法結(jié)構(gòu) (幾大部分)1、 標(biāo)示部(IDENTIFICATION DIVISION):提供程序的一般性文檔說明,本項目只保留程序名(PROGRAM-ID)一項。2、 環(huán)境部(ENVIRONMENT DIVISION): 提供程序外部有關(guān)的項目。a. 配置節(jié)(CONFIGURATION SECTION).指定源計算機(jī)(SOURCE-COMPUTE).目標(biāo)計算機(jī)(OBJECT-COMPUTE).設(shè)置debug模式(SOURCE-COMPUTE H9000V WITH DEBUGGING MODE). 指定讀環(huán)境變量設(shè)

3、置. SPECIAL-NAMES. ENVIRONMENT-VALUE IS CNS-ENV-PARM ENVIRONMENT-NAME IS CNS-ENV-NAME.b. 輸入輸出節(jié)(INPUT-OUTPUT SECTION). 文件的物理路徑的定義。 方法一：(寫死文件路徑) SELECT FILE-LOG ASSIGN /usr3/WSI/commonlog/WSI1101.log ORGANIZATION IS LINE SEQUENTIAL. 方法二:(過程部中動態(tài)指定文件) SELECT FILE-LOG ASSIGN TO SELECT-FILE ORGANIZATION IS

4、 LINE SEQUENTIAL. 在數(shù)據(jù)部定義字符串變量SELECT-FILE,在文件FILE-LOG打開前動態(tài)指定文件路徑。 方法三:(環(huán)境變量中動態(tài)指定文件) SELECT FILE-LOG ASSIGN TO EXTERNAL EXTFILELOG ORGANIZATION IS LINE SEQUENTIAL. 在該程序運行前，設(shè)置環(huán)境變量: setenv dd_ EXTFILELOG /usr3/WSI/nco035/lsc/tstlog/WSIXXXX.log 3、數(shù)據(jù)部(DATA DIVISION)。 程序中的變量都在數(shù)據(jù)部中定義，Cobol中沒有全局變量和局部之分。（變量的類

5、型結(jié)構(gòu)參照5.變量類型）a. 文件節(jié)(FILE SECTION) 給環(huán)境部定義的文件指定一個RECORD變量，讀寫文件用: FD FILE-LOG. 01 RECORD-LOG PIC X(2000). b. 工作存儲節(jié) 定義程序中用到的臨時變量。a) COBOL變量定義需要加層號(表示層次關(guān)系), 層號從01開始 如: 01 I PIC X(10). 組合項 如: 01 WORK-AREA. 05 NUM-1 PIC 9(09). 05 STR-1 PIC X(10). b) 層號依次排列順序為:01 ,05,10,15,20,30 c. 連接節(jié)子程序的參數(shù)的定義。 4、 過程部(PROCE

6、DURE DIVISION) 程序的主體:程序的邏輯運算在此操作。a、 每個程序分為四大節(jié)(模塊), 前處理(初始化變量,設(shè)定初始值等) 主處理(程序業(yè)務(wù)處理部分) 后處理(程序正常結(jié)束時的出口) 錯誤處理(程序異常結(jié)束時的出口)b、 對于子程序，PROCEDURE DIVISION 后應(yīng)列出LINK節(jié)中定義的參數(shù)。如: PROCEDURE DIVISION USING LINK-INPUT-DATA LINK-OUTPUT-DATA.c、 程序結(jié)束。 主程序 STOP RUN. 子程序 GO BACK.5、變量類型COBOL程序的基本變量類型分為兩大類字符串型(X)、數(shù)值型(9)。a 字符串

7、型 01 STRING-A PIC X(100). 100個字符長的變量，程序可以局部操作一個變量( STRING-A(start: length)如： MOVE ALL “X” TO STRING-A(2:10) (將變量STRING-A第2位開始10長度的內(nèi)容全賦為”X”字符) b 數(shù)值型 種類類型說明備注DISPLAY9(m)無符號整數(shù)，每位占用一個字節(jié)，顯示或輸出到文件時，為零的數(shù)位顯示”0”(1=m =18)例如: 01 I PIC 9(8).變量I占用8個字節(jié)。I = 1 時，輸出顯示時為00000001S9(m)帶符號整數(shù)，每位占用一個字節(jié)，符號位不占位，顯示時，為零的數(shù)位顯示”

8、0”，符號顯示在最后，輸出到文件時，為零的數(shù)位顯示”0”，符號丟失。(1=m =18)例如: 01 I PIC 9(8).變量I占用8個字節(jié)。I = 1 時，顯示時為00000001+輸出到文件時為00000001DISPLAY9(m)V9(n)無符號小數(shù)(小數(shù)點不顯示，不占位)每位占用一個字節(jié)，顯示或輸出到文件時，為零的數(shù)位顯示”0”(1=m + n =18)例如: 01 I PIC 9(4)V9(2).變量I占用6個字節(jié),整數(shù)位4位，小數(shù)位2位。I = 1.1 時，輸出顯示時為000110S9(m)V9(n)帶符號小數(shù)(小數(shù)點不顯示，不占位)每位占用一個字節(jié)，符號位不占位，顯示時，為零的數(shù)

9、位顯示”0”，符號顯示在最后，輸出到文件時，為零的數(shù)位顯示”0”，符號丟失。 (1=m + n =18)例如: 01 I PIC 9(4)V9(2).變量I占用6個字節(jié),整數(shù)位4位，小數(shù)位2位。I = 1.1 時，顯示時為000110+輸出到文件時為000110出力+Z(m)帶符號整數(shù)，每位占用一個字節(jié)，符號位占位，顯示和輸出到文件時，為零的高位顯示為空格,正數(shù)時，符號位為”+”負(fù)數(shù)時，符號位為”-”(1=m =18)例如: 01 I PIC +Z(4).變量I占用5個字節(jié),I = 1 時， 輸出顯示時為+ 1I = -1 時，輸出顯示時為- 1-Z(m)帶符號整數(shù)，每位占用一個字節(jié)，符號位占

10、位，顯示和輸出到文件時，為零的高位顯示為空格,正數(shù)時，符號位為空格負(fù)數(shù)時，符號位為”-”(1=m =18)例如: 01 I PIC +Z(4).變量I占用5個字節(jié),I = 1 時， 輸出顯示時為 1I = -1 時，輸出顯示時為- 1+Z(m).Z(n)帶符號小數(shù)，每位占用一個字節(jié)，符號、小數(shù)點占位，顯示和輸出到文件時，整數(shù)部為零的高位顯示為空格，小數(shù)部為零的低位顯示為0；正數(shù)時，符號位為”+” 負(fù)數(shù)時，符號位為”-”(1=m +n =18)例如: 01 I PIC +Z(4).Z(2)變量I占用8個字節(jié),I = 1.1 時，輸出顯示時為+ 1.10I = -1.1 時，輸出顯示時為- 1.1

11、0-Z(m).Z(n)帶符號小數(shù)，每位占用一個字節(jié)，符號、小數(shù)點占位，顯示和輸出到文件時，整數(shù)部為零的高位顯示為空格，小數(shù)部為零的低位顯示為空格；正數(shù)時，符號位為”+” 負(fù)數(shù)時，符號位為”-”(1=m +n =18)例如: 01 I PIC +Z(4).Z(2)變量I占用8個字節(jié),I = 1.1 時， 輸出顯示時為 1.1 I = -1 時，輸出顯示時為- 1.1 Comp,comp-5,comp-39(m) comp-5無符號整數(shù)，數(shù)據(jù)以二進(jìn)制方式存貯，顯示和9(m) 一樣，不能出力(1= m =18) S9(m) comp-5有符號整數(shù)，數(shù)據(jù)以二進(jìn)制方式存貯，顯示和S9(m) 類似，只是符

12、號在前面，不能出力，(1= m = 18) 9(m)v9(n) comp-5無符號小數(shù)，數(shù)據(jù)以二進(jìn)制方式存貯，顯示和9(m)v9(n) 一樣，不能出力(1= m + n =18) S9(m)v9(n) comp-5有符號整數(shù)，數(shù)據(jù)以二進(jìn)制方式存貯，顯示和S9(m)v9(n) 類似，只是符號在前面，不能出力，(1= m + n 大于IS LESS THAN =小于等于IS NOT LESS THANNOT =大于等于ISNOT EQUAL TONOT =不等于注: 判斷字符串能否轉(zhuǎn)換為數(shù)字。NUMERIC NOT NUMERICIS NOT NUMERIC11、PERFORM 語句 PERFOR

13、M XXX-RTN. 調(diào)用子節(jié)，直到遇到第一個只包含EXIT語句的段中止，回到該調(diào)用語句的下一條語句。 EXIT只與它搭配有效。 所以節(jié)的定義規(guī)定如下: XXX-RTN SECTION. 語句塊 XXX-EXT. EXIT. PERFORM XXX-RTN N TIMES. 循環(huán)調(diào)用子節(jié)N次 PERFORM XXX-RTN UNTIL N 30. 循環(huán)調(diào)用子節(jié)，直到N 大于30。PERFORM UNTIL 表達(dá)式 語句 END-PERFORM. 循環(huán)調(diào)用語句塊,表達(dá)式判斷在語句塊前進(jìn)行。 PERFORMVARYING X FROM A BY B UNTIL X 12 語句 END-PERFOR

14、M. 循環(huán)調(diào)用語句塊,相當(dāng)于FOR 循環(huán)。12、EVALUATE 語句EVALUATE 變量、常量、表達(dá)式 WHEN ANY TRUE FALSE (NOT) 常量1 THRU (THROUGH) 常量2 WHEN OTHER .END EVALUATE ANY ：任何變量、常量值 TRUE、FALSE ：關(guān)系表達(dá)式的結(jié)果 (NOT) 常量1 THRU (THROUGH) 常量2: 值(不)在常量1和常量2 構(gòu)成的閉區(qū)間 另外，在WHEN 后面可以包含簡單的關(guān)系表達(dá)式。 如: EVALUATE A WHEN = 10 EVALUATE B WHEN = 1 OR = 2 OR = 3 語句 W

15、HEN OTHER 語句 END-EVALUATE WHEN OTHER 語句 END-EVALUATE. 13、另外,不同的COBOL系統(tǒng)提供了不同內(nèi)部函數(shù)，建議少用內(nèi)部函數(shù)，以下提供幾個通用的內(nèi)部函數(shù) ORD 取得字符的ASICII碼 如： MOVE FUNCTION ORD (“A”) TO NUMBER. UPPER-CASE 字母小寫轉(zhuǎn)換成大寫 如： MOVE FUNCTION UPPER-CASE (STRING(START:1) TO STRING(START:1) LOWER -CASE 字母小寫轉(zhuǎn)換成大寫 如： MOVE FUNCTION LOWER-CASE (STRING

16、(START:1) TO STRING(START:1) REVERSE 對字符串中所有字符進(jìn)行倒序 如： MOVE FUNCTION REVERSE(STRING-1) TO STRING LENGTH 取得變量的定義長度，如： COMPUTE LEN = FUNCTION LENGTH(STRING)二、PRO*COBOL基本語法 COMPLA使用的PRO*COBOL是ORACLE公司提供的在COBOL程序中嵌入SQL語句的一種方法，使得程序方便地訪問操作ORACLE數(shù)據(jù)庫；PRO*COBOL程序經(jīng)過ORACLE提供的預(yù)編譯器預(yù)編譯生成中間COBOL程序后，程序中所有的SQL語句直接調(diào)用O

17、RACLE庫函數(shù)，再經(jīng)過COBOL編譯器同一般COBOL程序一樣編譯生成各種可執(zhí)行模塊,由于程序中直接調(diào)用ORACLE庫函數(shù)，所以它們訪問操作ORACLE數(shù)據(jù)庫的速度很快，基本語法如下。一、特點。 所有的SQL或數(shù)據(jù)庫操作相關(guān)語句均被括在” EXEC SQL” 和 “END-EXEC”之間，并且它們只能包含一條語句，如: EXEC SQL SQL語句 END-EXEC. 所有訪問操作數(shù)據(jù)庫的變量都必須是主變量。 “EXEC SQL” ，”END-EXEC及其包含的語句都必須從12列或12列以后開始。三、 數(shù)據(jù)部內(nèi)容。 引用兩個對象SQLCA, ORACA.EXEC SQL INCLUDE SQ

18、LCA END-EXEC.EXEC SQL INCLUDE ORACA END-EXEC. 主變量定義。 EXEC SQL BEGIN DECLARE SECTION END-EXEC. （主變量定義開始） EXEC SQL END DECLARE SECTION END-EXEC.（主變量定義結(jié)束） 主變量都必須定義在這里，具體定義和一般的COBOL變量一樣。 VARCHAR型變量(可變長度). 該變量定義就是在X型變量后加關(guān)鍵字VARYING.如: 05 STRING PIC X(100) VARYING. 它實際包含兩部分(預(yù)編譯后的中間COBOL程序可見) 05 STRING. 06

19、STRING-LEN PIC S9(4) COMP. 06 STRING-ARR PIC X(100). STRING-LEN 表示字符串的實際長度，STRING-ARR 表示字符串的實際內(nèi)容。 SQL語句中，只能用STRING. 從表中得到值時，STRING-LEN 自動被賦值。 向表中寫入值時，STRING-LEN 需要手工指定長度，SQL將STRING(1:STRING-LEN)部分有效字符串寫到表中。 定義主變量時，引用COPY句: EXEC SQL INCLUDE WSIT1101.cpy END-EXEC. 游標(biāo)的定義可以放在數(shù)據(jù)中。四、 數(shù)據(jù)部中SQL語句的基本語法1）、錯誤撲獲

20、 ORACLE錯誤撲獲是一個全局性的標(biāo)志，在一個事務(wù)(在PRO*COBOL中，ORACLE事務(wù)以COMMIT或ROLLBACK為分割點)中，后一個錯誤撲獲會覆蓋前一個錯誤撲獲設(shè)置。 遇到SQL警告(SQLCODE 0 )繼續(xù)EXEC SQL WHENEVER SQLWARNING CONTINUE END-EXEC. 遇到SQL錯誤(SQLCODE 0 )繼續(xù)EXEC SQL WHENEVER SQLERROR CONTINUE END-EXEC. 遇到SQL錯誤(SQLCODE 0 )跳轉(zhuǎn)EXEC SQL WHENEVER SQLERROR GOTO ORA-ERROR END-EXEC.

21、2）、 數(shù)據(jù)連接 數(shù)據(jù)庫連接在一般的項目開發(fā)中用不到，只用于測試程序中(不連接外部數(shù)據(jù)庫) 方式一（USERNAME 和PASSWORD分開,如：USERNAME = “OPS$LAPROC51” PASSWORD = “LAPROC”）EXEC SQL CONNECT :USERNAME IDENTIFIED BY :PASSWDEND-EXEC. 方式二（USERNAME 和PASSWORD合并,如：UID = “OPS$LAPROC51/LAPROC”）EXEC SQL CONNECT :UIDEND-EXEC.3）、 靜態(tài)SQL語句 單條記錄的檢索EXEC SQL SELECT ENA

22、ME, SAL, COMMINTO :EMP-NAME, :SALARY, :COMMISSION:COMM-INDFROM EMPWHERE EMPNO = :EMP-NUMBEREND-EXEC. 注: 上例中的COMM-IND為指示變量,在檢索操作中每個接受主變量都可指定一個指示變量(9(04) COMP型)，它用來判斷主變量是不是接受到一個空值(NULL)（主變量不能接受空值），當(dāng)指示變量為-1時，表示對應(yīng)的主變量應(yīng)該接受到一個空值（主變量自己表示不出來） 多條記錄的檢索（CURSOR 游標(biāo)） 游標(biāo)的定義 EXEC SQL DECLARE CUR_NAME CURSOR FOR SEL

23、ECT MSG_CD , MSG_1,MSG_2FROMWWWTMSG1 END-EXEC. 游標(biāo)的定義：將SQL查詢語句聲明為一個游標(biāo)，不調(diào)用ORACLE庫函數(shù)，不會更新SQLCODE的值。 游標(biāo)的打開 EXEC SQL OPEN CUR_NAME END-EXEC. 游標(biāo)的打開：用游標(biāo)定義的SQL語句檢索數(shù)據(jù)庫，將檢索結(jié)果生成一個游標(biāo)對象，(此時游標(biāo)指針在第一條記錄前一位置，無法確定游標(biāo)中有沒有記錄)。 游標(biāo)中記錄的抽取 EXEC SQL FETCH CUR_NAME INTO : HST-MSG-CD , : HST-MSG-1,:HST-MSG-2 END-EXEC. 游標(biāo)中記錄的抽取

24、：將游標(biāo)中的記錄抽取到相應(yīng)的主變量中，一次抽取一條。 游標(biāo)的關(guān)閉 EXEC SQL CLOSE CUR_NAME END-EXEC. 游標(biāo)的關(guān)閉: 將現(xiàn)有的游標(biāo)對象釋放，游標(biāo)再次打開前，必須關(guān)閉。 更新 EXEC SQL UPDATE WWWTMSG1 SET MSG_1 = : WK-MSG-1, MSG_2 = : WK-MSG-2 WHERE MSG_CD = : WK-MSG-CD END-EXEC. 刪除 EXEC SQL DELETE FROM WWWTMSG1 WHERE MSG_CD = : WK-MSG-CD END-EXEC 插入 EXEC SQL INSERT INTO

25、WWWTMSG1(MSG_CD, MSG_1, MSG_2) VALUES (:WK-MSG-CD, :WK-MSG-1, :WK-MSG-2) END-EXEC 事務(wù)的提交 方式一（釋放連接） EXEC SQL COMMIT WORK RELEASE END-EXEC. 方式二（不釋放連接） EXEC SQL COMMIT WORK END-EXEC. 事務(wù)的回滾 方式一（釋放連接） EXEC SQL ROLLBACK WORK RELEASE END-EXEC. 方式二（不釋放連接） EXEC SQL ROLLBACK WORK END-EXEC. 典型的SQLCODE值 SELECT 1

26、403 : 沒有檢索到記錄 FETCH（游標(biāo)中記錄的抽?。?1403 : 游標(biāo)指針FETCH到游標(biāo)的尾部 UPDATE 1403 : 沒有更新的記錄 -60 : 死鎖 -2049: 由于死鎖導(dǎo)致系統(tǒng)超時 DELETE 1403 : 沒有刪除的記錄 -60 : 死鎖 -2049: 由于死鎖導(dǎo)致系統(tǒng)超時 INSERT -1 : 插入的記錄已存在 -60 : 死鎖 -2049: 由于死鎖導(dǎo)致系統(tǒng)超時 典型ORACLE內(nèi)部變量 SQLCODE : SQL語句運行后得到的返回值 SQLERRMC: SQL語句運行后得到的返回信息 SQLERRD(3): SQL語句運行處理的記錄條數(shù) 4）、動態(tài)SQL語句

27、 動態(tài)一（直接執(zhí)行SQL字符串） 方式一 MOVE INSERT INTO DYN1 VALUES (TEST) TO DYNSTMT.EXEC SQL EXECUTE IMMEDIATE :DYNSTMT END-EXEC. 方式二EXEC SQL EXECUTE IMMEDIATE INSERT INTO DYN1 VALUES (TEST)END-EXEC. 動態(tài)一：只用于沒有任何參數(shù)和返回結(jié)果的SQL語句操作 動態(tài)二(用于非檢索SQL語句) 方式一(帶參數(shù))MOVE INSERT INTO EMP (EMPNO, DEPTNO) VALUES (:V1, :V2) TO DYNSTMT

28、-ARR. EXEC SQL PREPARE S FROM :DYNSTMT END-EXEC. EXEC SQL EXECUTE S USING :EMPNO, :DEPTNO1 END-EXEC. 其中V1,V2為形參，S為PREPARE生成的臨時對象 方式二(不帶參數(shù)) STRING INSERT INTO DELIMITED BY SIZE EMP (EMPNO, DELIMITED BY SIZE DEPTNO) DELIMITED BY SIZE VALUES ( DELIMITED BY SIZE EMPNO DELIMITED BY SIZE , DELIMITED BY SI

29、ZE DEPTNO1 DELIMITED BY SIZE ) DELIMITED BY SIZEINTO DYNSTMT.EXEC SQL PREPARE S FROM :DYNSTMT END-EXEC.EXEC SQL EXECUTE S END-EXEC. 動態(tài)三(用于檢索SQL語句) 方式一(帶參數(shù)) MOVE SELECT ENAME FROM EMP WHERE DEPTNO = :V1TO DYNSTMT.EXEC SQL PREPARE S FROM :DYNSTMT END-EXEC.EXEC SQL DECLARE C CURSOR FOR S END-EXEC.EXEC

30、SQL OPEN C USING :DEPTNO END-EXEC.EXEC SQL FETCH C INTO :ENAME END-EXEC.EXEC SQL CLOSE C END-EXEC. 方式二(不帶參數(shù)) STRING SELECT ENAME FROM DELIMITED BY SIZE EMP WHERE DEPTNO = DELIMITED BY SIZE DEPTNO DELIMITED BY SIZE DELIMITED BY SIZEINTO DYNSTMT.EXEC SQL DECLARE C CURSOR FOR S END-EXEC.EXEC SQL OPEN C

31、 END-EXEC.EXEC SQL FETCH C INTO :ENAME END-EXEC.EXEC SQL CLOSE C END-EXEC. 所有的檢索SQL語句都必須采用游標(biāo)方式。 三、開發(fā)環(huán)境一、概要 Compla項目的開發(fā)環(huán)境 以HP UNIX B.11.11 為操作系統(tǒng) 以 OPENTP1 SERVER(日立制品)為APPLICATION SERVER，COMPLA所有的程序都基于OPENTP1. 以MQ SERVER(INFOR STAR MQ ,IBM MQ的改造品)完成異步通信方式。 以 ORACLE SERVER 為數(shù)據(jù)庫系統(tǒng) 二、通信處理方式 Compla項目采用兩種

32、處理方式RPC(同步),MQ(異步). MQ（Message Queue）方式 如上圖所示，AP制御以SUP的方式常駐于OPENTP1下，監(jiān)視受信MQ SERVER，受信MQ SERVER中一有MQ數(shù)據(jù)，AP制御就取出來，傳給DB同期更新程序進(jìn)行處理，更新關(guān)聯(lián)DB，發(fā)信方和受信方以受信MQ SERVER隔離，互相不影響，完成異步處理，在項目開發(fā)中，主要開發(fā)DB同期更新，不涉及具體環(huán)境。 RPC (Remote Process Call )方式 RPC方式為OPENTP1 SERVER 提供的進(jìn)程間訪問方式，由SUP( Service Use Process) 和 SPP ( Service P

33、rovide Process)組成。Compla項目就是制作若干SPP,常駐于OPENTP1中，供其它系統(tǒng)調(diào)用。如下具體介紹SUP 和 SPP的基本結(jié)構(gòu)和基本函數(shù). SUP (服務(wù)使用者) RPCOPEN (開始) 01 RPC-OP-ARG. 02 REQEST PIC X(8) VALUE OPEN . 02 STATUS-CODE PIC X(5) VALUE SPACE. 02 FILLER PIC X(3). 02 FLAGS PIC S9(9) COMP VALUE ZERO. CALL CBLDCRPC USING RPC-OP-ARG. 進(jìn)入OPENTP1 環(huán)境 RPC ADM

34、(開始処理完了報告) 01 ADM-ARG. 02 REQUEST PIC X(8) VALUE COMPLETE. 02 STATUS-CODE PIC X(5) VALUE SPACE. 02 FILLER PIC X(3). 02 FLAGS PIC S9(9) COMP VALUE ZERO. 02 FILLER PIC X(3).CALL CBLDCADM USING ADM-ARG. 如果SUP常駐OPENTP1下，該函數(shù)向OPENTP1報告注冊信息。（不常駐OPENTP1下的SUP程序不調(diào)用該函數(shù)） RPC CALL (遠(yuǎn)隔要求)01 RPC-CALL-ARG1. (CALL-MAIN) 02 REQEST PI