Es-cobol-cobol-table-processing

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

COBOL-プロブレソデタブラ

COBOLのconsidos como tablasのラス行列。 直線的な配列の配列は、他の要素のリストを保存します。 ロスタトスデウナタブラセクラシフィカンインターナメント。

デクララシオンメサ

Tabla de Datos se declara enDivisión。 これらの農産物タブラの定義を参照してください。 名声の定義を繰り返します。 49年2月1日 el uso concláusulaが再定義されることはありません。 二次元の表形式の説明：

一次元タブラ

多次元のタブラを生成し、*生成します*宣言を使用します。 WS-TABLAは、タブラのグループ要素です。 WS-Bは、10のベクトルを生成するタブラクエンスの要素です。

シンタクシス

Siguiente es la sintaxis para definir una tabla多次元： 

01 WS-TABLE.
   05 WS-A PIC A(10) OCCURS 10 TIMES.

エジェプロ 

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 WS-TABLE.
      05 WS-A PIC A(10) VALUE 'TUTORIALS' OCCURS 5 TIMES.

PROCEDURE DIVISION.
   DISPLAY "ONE-D TABLE : "WS-TABLE.
STOP RUN.
*JCL* COBOLプログラムの例：
//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C
//STEP1 EXEC PGM=HELLO

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

ONE-D TABLE : TUTORIALS TUTORIALS TUTORIALS TUTORIALS TUTORIALS

二次元タブラ

長い変数である2次元の2次元データの要素を設定します。 レファレンス、シンタクシスの旅、連続、タブラの意図的解釈。 ラ・プリマ・マトリス（WS-A）プエデ・オカリル1パート1 a 10 veces yラ・マトリス・インターナ（WS-C）プエデocurrir de 1 a 5 veces。 WS-Aのlas entradasのパラグラフ、WS-Cの5のentradas通信員。

シンタクシス

次元のタブラの定義について 

01 WS-TABLE.
   05 WS-A OCCURS 10 TIMES.
      10 WS-B PIC A(10).
      10 WS-C OCCURS 5 TIMES.
         15 WS-D PIC X(6).

エジェプロ 

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 WS-TABLE.
      05 WS-A OCCURS 2 TIMES.
         10 WS-B PIC A(10) VALUE ' TUTORIALS'.
         10 WS-C OCCURS 2 TIMES.
            15 WS-D PIC X(6) VALUE ' POINT'.

PROCEDURE DIVISION.
   DISPLAY "TWO-D TABLE : "WS-TABLE.

STOP RUN.
*JCL* COBOLプログラムの例：
//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C
//STEP1 EXEC PGM=HELLO

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

TWO-D TABLE :  TUTORIALS POINT POINT TUTORIALS POINT POINT

添字

タブラの要素は、中央補助金を受け入れます。 Subíndicevalor puede oscilar entre 1 y elnúmerode veces que el cuadro seプロデュース。 Subíndicepuede ser cualquiernúmeropositivo。 必要な人事宣言はありません。 農産物の生産を管理します。

エジェプロ 

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 WS-TABLE.
      05 WS-A OCCURS 3 TIMES.
         10 WS-B PIC A(2).
         10 WS-C OCCURS 2 TIMES.
            15 WS-D PIC X(3).

PROCEDURE DIVISION.
   MOVE '12ABCDEF34GHIJKL56MNOPQR' TO WS-TABLE.
   DISPLAY 'WS-TABLE  : ' WS-TABLE.
   DISPLAY 'WS-A(1)   : ' WS-A(1).
   DISPLAY 'WS-C(1,1) : ' WS-C(1,1).
   DISPLAY 'WS-C(1,2) : ' WS-C(1,2).
   DISPLAY 'WS-A(2)   : ' WS-A(2).
   DISPLAY 'WS-C(2,1) : ' WS-C(2,1).
   DISPLAY 'WS-C(2,2) : ' WS-C(2,2).
   DISPLAY 'WS-A(3)   : ' WS-A(3).
   DISPLAY 'WS-C(3,1) : ' WS-C(3,1).
   DISPLAY 'WS-C(3,2) : ' WS-C(3,2).

STOP RUN.
*JCL* プログラムのCOBOLに似ています。
//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C
//STEP1 EXEC PGM=HELLO

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

WS-TABLE  : 12ABCDEF34GHIJKL56MNOPQR
WS-A(1)   : 12ABCDEF
WS-C(1,1) : ABC
WS-C(1,2) : DEF
WS-A(2)   : 34GHIJKL
WS-C(2,1) : GHI
WS-C(2,2) : JKL
WS-A(3)   : 56MNOPQR
WS-C(3,1) : MNO
WS-C(3,2) : PQR

ndice

タブラタンビエンエレメントプエデアクセンターメディアント タブラの要素について説明します。 クラウス・コンクラウスラの宣言は、INDEXADO PORクラウスラの中央値を生成します。 エル・バロール・デル・インディツェ・セ・プエデ・カンビアー・メディアン・インストラクション・セット・イ・リアーザー・ディファレンテス・オプシオン。

シンタクシス

Es la siguiente sintaxis para definirÍndiceen una tabla： 

01 WS-TABLE.
   05 WS-A PIC A(10) OCCURS 10 TIMES INDEXED BY I.

エジェプロ 

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 WS-TABLE.
      05 WS-A OCCURS 3 TIMES INDEXED BY I.
         10 WS-B PIC A(2).
         10 WS-C OCCURS 2 TIMES INDEXED BY J.
            15 WS-D PIC X(3).

PROCEDURE DIVISION.
   MOVE '12ABCDEF34GHIJKL56MNOPQR' TO WS-TABLE.
   PERFORM A-PARA VARYING I FROM 1 BY 1 UNTIL I >3
   STOP RUN.

   A-PARA.
   PERFORM C-PARA VARYING J FROM 1 BY 1 UNTIL J>2.

   C-PARA.
   DISPLAY WS-C(I,J).
*JCL* プログラムのCOBOLに似ています。
//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C
//STEP1 EXEC PGM=HELLO

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

ABC
DEF
GHI
JKL
MNO
PQR

Instrucciónセット

Instrucciónは、カンビアエルバロールデルインディツェに設定されています。 詳細は、イニシアリザーに設定してください。 タブラのローカル要素のリストを作成し、タブラで使用します。

シンタクシス

シンプルなシンタックスの使用法と設定のセット： 

SET I J TO positive-number
SET I TO J
SET I TO 5
SET I J UP BY 1
SET J DOWN BY 5

エジェプロ 

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 WS-TABLE.
      05 WS-A OCCURS 3 TIMES INDEXED BY I.
         10 WS-B PIC A(2).
         10 WS-C OCCURS 2 TIMES INDEXED BY J.
            15 WS-D PIC X(3).

PROCEDURE DIVISION.
   MOVE '12ABCDEF34GHIJKL56MNOPQR' TO WS-TABLE.
   SET I J TO 1.
   DISPLAY WS-C(I,J).
   SET I J UP BY 1.
   DISPLAY WS-C(I,J).

STOP RUN.
*JCL* プログラムのCOBOLに似ています。
//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C
//STEP1 EXEC PGM=HELLO

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

ABC
JKL

バスカー

Búsquedalineal es unmétododebúsqueda、que se utiliza para buscar elementos dentro de la tabla。 クラシフィカドの現実、コモの罪のクラシフィカ。 óndicefraseのパラソルの使用。 イニシア・コン・エル・バロールイニシャル・デル・インディツェ。 原文の記事や、最終的なタブラの最終段階への継続的な追加などがあります。

エジェプロ 

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 WS-TABLE.
      05 WS-A PIC X(1) OCCURS 18 TIMES INDEXED BY I.
   01 WS-SRCH PIC A(1) VALUE 'M'.

PROCEDURE DIVISION.
   MOVE 'ABCDEFGHIJKLMNOPQR' TO WS-TABLE.
   SET I TO 1.
   SEARCH WS-A
     AT END DISPLAY 'M NOT FOUND IN TABLE'
     WHEN WS-A(I)=WS-SRCH
     DISPLAY 'LETTER M FOUND IN TABLE'
   END-SEARCH.

STOP RUN.
*JCL* プログラムのCOBOLに似ています。
//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C
//STEP1 EXEC PGM=HELLO

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

LETTER M FOUND IN TABLE

バスカーの仕事

バスケのトスカーナのバスケbinaria、バスの要素のバスカーの要素のタブラ。 タブラデベセルデフォルマオルデナダパララブスケダ。 El ndice no requiereninicialización。 ビスカリアビーナリアエルクアドロエスタディヴィーディッドアンドドミタデーズアンドディターミナティアンエンケラケラミタデデロスエレメントブスカドエスタプレゼンテ Este proceso se repite hasta que el elemento se encuentra o se llega al final。

エジェプロ 

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 WS-TABLE.
      05 WS-RECORD OCCURS 10 TIMES ASCENDING KEY IS WS-NUM INDEXED BY I.
      10 WS-NUM PIC 9(2).
      10 WS-NAME PIC A(3).

PROCEDURE DIVISION.
   MOVE '12ABC56DEF34GHI78JKL93MNO11PQR' TO WS-TABLE.
   SEARCH ALL WS-RECORD
     AT END DISPLAY 'RECORD NOT FOUND'
     WHEN WS-NUM(I)=93
     DISPLAY 'RECORD FOUND '
     DISPLAY WS-NUM(I)
     DISPLAY WS-NAME(I)

END-SEARCH.
*JCL* COBOLプログラムの例：
//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C
//STEP1 EXEC PGM=HELLO

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

RECORD FOUND
93
MNO
「https://www.finddevguides.com/index.php?title=Es-cobol-cobol-table-processing&oldid=31225」から取得
Powered by MediaWiki