Es-cobol-cobol-file-handling-verbs

提供：Dev Guides
移動先:案内、検索

COBOL-Manejo de Archivos Los Verbos

アーカイブの詳細は、アーカイブの実物化に使用されます。 継続的、アーキボスの詳細な説明：

  • アブリル
  • Leer
  • エスクリビル
  • ヌエバヴァーシオン
  • エリミナー
  • イニシオ *セラー

アブラバーボ

入門書の実演。 エクシト、アーキソニックの可能性のある現実的な操作を記録します。 アーキボでの開発、アーキテクチュアでの構造の変数、およびプロセスの責任に関する責任。* ESTADO DEL ARCHIVO *アーカイブアーカイブの実際の変数。

  • シンタクシス *
OPEN "mode" file-name.

カステ、カデナ通り、カスティナ・ユティリザ・パラ・シニョーネ、アルキボ通り。 アーカイブモードのアーカイブ：

Modo Descripción
Entrada Modo de entrada se utiliza para archivos existentes. De este modo, se puede leer el archivo, se permite ninguna otra operación en el archivo.
Salida Modo de salida se utiliza para insertar registros en archivos. Si un* archivo secuencial se utiliza y si el archivo es que algunos registros, los registros existentes se eliminarán en primer lugar y, a continuación, nuevos registros insertados en el archivo. Eso no va a ocurrir en el caso de archivo indexado o archivo relativa. *
Ampliar Modo de extensión se usa para agregar registros en un* archivo secuencial*. En este modo, los registros se insertan al final. Si el acceso al archivo es aleatoria *o modo dinámico*, entonces modo de extensión no se puede utilizar.
I-O Modo Input-Output se utiliza para leer y escribir los registros de un archivo.

レアー・バーボ

より詳細な情報を提供します。 過去の登録簿の登録簿。 詳細については、英語版をご覧ください。 講義の練習、I-O modoについての詳細な説明。 詳細な説明、追加、拡張、登録簿の登録が必要です。

シンタクシス

Siguiente es la sintaxis para leer las actas cuando el modo de acceso del archivo es secucial。 

READ file-name NEXT RECORD INTO ws-file-structure
   AT END DISPLAY 'End of File'
   NOT AT END DISPLAY 'Record Details:' ws-file-structure
END-READ.

連続使用、ロスパラメトリックユーティリティーの説明：

  • レジストラ・シギエンテは、歴史的および社会的指標の選択と特定の分野に特化しています。

  • CláusulaINTOはオプションです。 ws-esstructura de archivo se define en la Working-Storagesecciónpara obtener los valores de lainstrucciónREAD。

  • AL FINAL se convierte en un verdadero estado cuando el final del archivo。

    *Ejemplo* 中央組織の中央組織の中央組織。 中央プログラムと中央プログラムのプログラムを作成します。*プレバロ*オプティコンエンラクエセモストララントドスロスレギストロスアンドエルアーキボ。
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

ENVIRONMENT DIVISION.
   INPUT-OUTPUT SECTION.
      FILE-CONTROL.
      SELECT STUDENT ASSIGN TO 'input.txt'
      ORGANIZATION IS LINE SEQUENTIAL.

DATA DIVISION.
   FILE SECTION.
   FD STUDENT.
   01 STUDENT-FILE.
      05 STUDENT-ID PIC 9(5).
      05 NAME PIC A(25).

   WORKING-STORAGE SECTION.
   01 WS-STUDENT.
      05 WS-STUDENT-ID PIC 9(5).
      05 WS-NAME PIC A(25).
   01 WS-EOF PIC A(1).

PROCEDURE DIVISION.
   OPEN INPUT STUDENT.
      PERFORM UNTIL WS-EOF='Y'
         READ STUDENT INTO WS-STUDENT
            AT END MOVE 'Y' TO WS-EOF
            NOT AT END DISPLAY WS-STUDENT
         END-READ
      END-PERFORM.
   CLOSE STUDENT.
STOP RUN.

Supongamos que los datos del archivo de entrada disponible en la input.txt contiene los siguientes： 

20003 Mohtashim M.
20004 Nishant Malik
20005 Amitabh Bachhan

プログラムの作成と編集、結果の生成： 

20003 Mohtashim M.
20004 Nishant Malik
20005 Amitabh Bachhan

シンタクシス

Siguiente es la sintaxis para un registro de lectura cuando el modo de acceso del archivo es aleatorio： 

READ file-name RECORD INTO ws-file-structure
   KEY IS rec-key
   INVALID KEY DISPLAY 'Invalid Key'
   NOT INVALID KEY DISPLAY 'Record Details: ' ws-file-structure
END-READ.
  • 例：*組織図の中央に存在します。 メインフレームは、JCLに加えて、メインフレームにアーカイブされています。 メインフレームサーバーは、テキストアーカイブを使用しません。 en su lugar、Archivos PSを使用します。

メインフレームのスポンガモスque el archivo presents tienen el mismo contenido que la entrada.txt en el ejemplo anterior。 

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

ENVIRONMENT DIVISION.
   INPUT-OUTPUT SECTION.
   FILE-CONTROL.
   SELECT STUDENT ASSIGN TO IN1
      ORGANIZATION IS INDEXED
      ACCESS IS RANDOM
      RECORD KEY IS STUDENT-ID
      FILE STATUS IS FS.

DATA DIVISION.
   FILE SECTION.
   FD STUDENT.
      01 STUDENT-FILE.
      05 STUDENT-ID PIC 9(5).
      05 NAME PIC A(25).

   WORKING-STORAGE SECTION.
   01 WS-STUDENT.
      05 WS-STUDENT-ID PIC 9(5).
      05 WS-NAME PIC A(25).

PROCEDURE DIVISION.
   OPEN INPUT STUDENT.
      MOVE 20005 TO STUDENT-ID.

      READ STUDENT RECORD INTO WS-STUDENT-FILE
         KEY IS STUDENT-ID
         INVALID KEY DISPLAY 'Invalid Key'
         NOT INVALID KEY DISPLAY WS-STUDENT-FILE
      END-READ.

   CLOSE STUDENT.
STOP RUN.
*JCL* COBOLプログラムの例：
//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C
//STEP1 EXEC PGM=HELLO
//IN1 DD DSN=STUDENT-FILE-NAME,DISP=SHR

プログラムの作成と編集、結果の生成： 

20005 Amitabh Bachhan

エスクリールバーボ

Escribir verbo se usa para insertar registros en un archivo。 Una vez que el registro se escribe、ya noestádisponible en el registro buffer。 過去の登録簿への追加登録、バッファへの登録者の移動、継続、現実的なエスクリバーの詳細。

Escribir se puede utilizar con * DE *opciónde escribir directament a los registros de la memoria de trabajo variables。 Es unacláusulaオプション。 継続的、継続的、登録的、拡張的、拡張的かつ近代的です。 Siのmodo de acceso es aleatorio odinámico、escribir un registro、el archivo debe abrirse en modo de salida o I-O modoに参加します。

シンタクシス

Siguiente es la sintaxis para leer el registro cuando laorganizaciónde los archivos es secuencial。 

WRITE record-buffer [FROM ws-file-structure]
END-WRITE.

シンシナティのパラグラフと関連性の高い文書の登録： 

WRITE record-buffer [FROM ws-file-structure]
   INVALID KEY DISPLAY 'Invalid Key'
   NOT INVALID KEY DISPLAY 'Record Inserted'
END-WRITE.
  • 例：*エル・シギエンテ・イエメンプロ・ムエストラ・ラ・フォルマ・デ・インサーター・アン・ヌエボ・レジストリスト・アンド・アン・アーキボ・ヌエボ・エン・エル・ケ・ラ・オーガニゼーション・セキュエンシャル。
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

ENVIRONMENT DIVISION.
   INPUT-OUTPUT SECTION.
   FILE-CONTROL.
   SELECT STUDENT ASSIGN TO OUT1
      ORGANIZATION IS SEQUENTIAL
      ACCESS IS SEQUENTIAL
      FILE STATUS IS FS.

DATA DIVISION.
   FILE SECTION.
   FD STUDENT
   01 STUDENT-FILE.
      05 STUDENT-ID PIC 9(5).
      05 NAME PIC A(25).
      05 CLASS PIC X(3).

   WORKING-STORAGE SECTION.
   01 WS-STUDENT.
      05 WS-STUDENT-ID PIC 9(5).
      05 WS-NAME PIC A(25).
      05 WS-CLASS PIC X(3).

PROCEDURE DIVISION.
   OPEN EXTEND STUDENT.
      MOVE 1000 TO STUDENT-ID.
      MOVE 'Tim' TO NAME.
      MOVE '10' TO CLASS.
      WRITE STUDENT-FILE
      END-WRITE.
   CLOSE STUDENT.
STOP RUN.
*JCL* COBOLプログラムの例：
//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C
//STEP1 EXEC PGM=HELLO
//OUT1 DD DSN=OUTPUT-FILE-NAME,DISP=(NEW,CATALOG,DELETE)

プログラムの開始と終了、登録および登録は必要ありません。 

1000 Tim         10

NuevaVersiónVerbo

NuevaVersiónは、登録簿の実際の使用について詳細に説明しています。 Archivoのデベロッパーは、I-Oモードの操作を実行します。 演劇の実演を活用してください。 Escribir verbo sobrescribe elúltimoregistro leer。

シンタクシス

Siguiente es la sintaxis para leer el registro cuando laorganizaciónde los archivos es secuencial。 

REWRITE record-buffer [FROM ws-file-structure]
END-REWRITE.

シンシナティのパラグラフと関連性の高い文書の登録： 

REWRITE record-buffer [FROM ws-file-structure]
   INVALID KEY DISPLAY 'Invalid Key'
   NOT INVALID KEY DISPLAY 'Record Updated'
END-REWRITE.
  • 例：*存在する前の血の挿入物の存在を確認するためのエル・シギエンテ・イエメンプロ・ムエストラ・コーモアクチュアライザー：
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

ENVIRONMENT DIVISION.
   INPUT-OUTPUT SECTION.
   FILE-CONTROL.
   SELECT STUDENT ASSIGN TO IN1
      ORGANIZATION IS INDEXED
      ACCESS IS RANDOM
      RECORD KEY IS STUDENT-ID
      FILE STATUS IS FS.

DATA DIVISION.
   FILE SECTION.
   FD STUDENT
   01 STUDENT-FILE.
      05 STUDENT-ID PIC 9(4).
      05 NAME PIC A(12).
      05 CLASS PIC X(3).

   WORKING-STORAGE SECTION.
   01 WS-STUDENT.
      05 WS-STUDENT-ID PIC 9(5).
      05 WS-NAME PIC A(25).
      05 WS-CLASS PIC X(3).

PROCEDURE DIVISION.
   OPEN I-O STUDENT.
   MOVE '1000' TO STUDENT-ID.

   READ STUDENT
      KEY IS STUDENT-ID
      INVALID KEY DISPLAY ‘KEY IS NOT EXISTING’
   END-READ.

   MOVE 'Tim Dumais' TO NAME.
   REWRITE STUDENT-FILE
   END-REWRITE.
   CLOSE STUDENT.
STOP RUN.
*JCL* COBOLプログラムの例：
//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C
//STEP1 EXEC PGM=HELLO
//IN1 DD DSN=OUTPUT-FILE-NAME,DISP=SHR

前のプログラムを編集し、実際に登録する： 

1000 Tim Dumais  10

エリミナー・バーボ

Eliminar verbosólopuede realizarse en archivos indexados y relativa。 I-O modoを使用したアーカイブ。 公文書館、ロス・レジストロス・ノー・セ・プエデン・エリミナー。 インストラクターの講座を読む 継続的な登録、継続的な登録、特別な操作を行ってください。

シンタクシス

Siguiente es la sintaxis para eliminar un registro： 

DELETE file-name RECORD
   INVALID KEY DISPLAY 'Invalid Key'
   NOT INVALID KEY DISPLAY 'Record Deleted'
END-DELETE.
*Ejemplo* エリミナルレジストレーションの存在：
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

ENVIRONMENT DIVISION.
   INPUT-OUTPUT SECTION.
   FILE-CONTROL.
   SELECT STUDENT ASSIGN TO OUT1
      ORGANIZATION IS INDEXED
      ACCESS IS RANDOM
      RECORD KEY IS STUDENT-ID
      FILE STATUS IS FS.

DATA DIVISION.
   FILE SECTION.
   FD STUDENT
   01 STUDENT-FILE.
      05 STUDENT-ID PIC 9(4).
      05 NAME PIC A(12).
      05 CLASS PIC X(3).
   WORKING-STORAGE SECTION.
   01 WS-STUDENT.
      05 WS-STUDENT-ID PIC 9(5).
      05 WS-NAME PIC A(25).
      05 WS-CLASS PIC X(3).

PROCEDURE DIVISION.
   OPEN I-O STUDENT.
   MOVE '1000' TO STUDENT-ID.

   DELETE STUDENT RECORD
      INVALID KEY DISPLAY 'Invalid Key'
      NOT INVALID KEY DISPLAY 'Record Deleted'
   END-DELETE.

   CLOSE STUDENT.
STOP RUN.
*JCL* COBOLプログラムの例：
//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C
//STEP1 EXEC PGM=HELLO
//OUT1 DD DSN=OUTPUT-FILE-NAME,DISP=SHR

プログラムの作成と編集、結果の生成： 

Registro eliminado

イニシオバーボ

関連する索引索引の詳細についてはこちらをご覧ください。 コロコロ・エル・プネテロ・デル・アーキボ・アン・レジストロ・エスペシフィコ。 El modo de acceso deben ser secuenciales odinámica。 I-Oまたはmodo de entradaを使用してください。

シンタクシス

Siguiente es la sintaxis para colocar el puntero en un registroespecífico： 

START file-name KEY IS [=, >, <, NOT, <= or >=] rec-key
   INVALID KEY DISPLAY 'Invalid Key'
   NOT INVALID KEY DISPLAY 'File Pointer Updated'
END-START.

ヴァーボ・セラー

Cierre verbo se utiliza para cerrar un archivo。 Cierre lasの変数の実在性を検証します。 エルヴィンクロエンタープライズプログラム

シンタクシス

Siguiente es la sintaxis para cerrar un archivo： 

CLOSE file-name.
「https://www.finddevguides.com/index.php?title=Es-cobol-cobol-file-handling-verbs&oldid=31216」から取得
Powered by MediaWiki