1.MOVE語句
是整個COBOL中最常用額語句。可以實現變量的賦值,參數傳遞等類似功能。
可以對單個數據進行復制,也開業對一組數據進行復制。
a、復制單個數據
例:
01 IN-STATUS PIC X(5).
--> MOVE 'READY' TO IN-STATUS.
--> MOVE IN-STATUS TO OUT-STATUS.
說明:當復制的數據為數值類型時
如果目標數據的長度大於源數據項內容的長度時,則在目標數據項的高位以0進行填充
如果目標數據的長度小於源數據項內容的長度,對高位超出部分進行截斷。
如果數值含有小數部分,需要作為浮點數做相應處理。
b、復制一組數據
通過MOVE語句對一組數據進行復制。MOVE語句中的兩個變量分別是數據組的名稱。
注意點:
所復制的組內數據必須同名,不同名的數據將不被復制。
如果數據項在分組中,則分組名稱也必須相同。
數據項在組內的順序可以任意。
以FILLER命名的數據項不被復制。
2.PERFORM語句
執行COBOL中所編寫的相應的處理過程。過程處理相當於COBOL中的函數,PERFORM用於調用這些函數。
可通過THRU選項同時對多個處理過程進行執行。
3.ACCEPT和DISPLAY語句
可以方便調試。
a、ACCEPT語句接收數據
既可以接收用戶從終端輸入的數據,也可以接收由系統產生的相應數據。
接收的數據存放在 COBOL數據部中所定義的相應變量中。
4.REDEFINES語句
用於同一塊內存區域內進行重定義。可以定義多個指向同一內存區域的變量。
01 TEST-AREA.
05 TEST-A PIC X(4).
05 TEST-B REDEFINES TEST-A.
5.文件相關語句
文件包括常規文件,以及VSAM文件。基本操作包括文件的打開、關閉、文件讀寫。
a、OPEN和CLOSE語句
OPEN語句用於文件的打開操作。在做文件操作之前。
例:
OPEN INPUT IN-FILE1 IN-FILE2
注意:文件名需要在輸入/輸出節中由SELECT語句所指出的文件名一致。
可出現在程序的任何位置。
如果讀寫文件之前沒有打開文件,程序會非正常終止。
CLOSE語句用於關閉已經打開的文件。
例:
CLOSE INPUT IN-FILE1 IN-FILE2
c、READ語句
用於從文件中讀取數據。
實際是將文件中的數據讀到FD語句所定義的變量之中。
由於READ語句每次只能讀取一條語句,通常將READ語句置於一個循環結構體中。順序讀取文件中的每一條記錄。
例:READ CUSTOMER-FILE
AT END MOVE 'Y'
END READ
d、WRITE語句
用於對文件進行寫入。
WRITE CUSTOMER-RECORD.
WRITE PRINT-LINE
AFTER ADVANCING 1 LINE.
WRITE PRINT-LINE
FROM PAGE-HEADER
AFTER ADVANCING PAGE.
注意:讀取文件時需要指定的文件名,而寫入文件時需要指定寫入的記錄名。