cobol學習02——基本語句


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.

  注意:讀取文件時需要指定的文件名,而寫入文件時需要指定寫入的記錄名。

 


免責聲明!

本站轉載的文章為個人學習借鑒使用,本站對版權不負任何法律責任。如果侵犯了您的隱私權益,請聯系本站郵箱yoyou2525@163.com刪除。



 
粵ICP備18138465號   © 2018-2025 CODEPRJ.COM