COBOL-Diseñode Datos

COBOLのプレゼンテーションと、カンポとロスバロレスのプレゼンテーションを紹介します。 COBOLの継続的な記述：COBOLを使用したCOBOLの記述：

クラスラの再定義
クラウスラカンビア
クラウスラ・ウソ
クアデルノス

クラスラの再定義

クラウスーラは、ロス・ダトスの記述の異なる定義を使用して再定義します。連続して使用されている基本的な要素のデータは、継続的であり、他の要素と同様に、他の要素に基づいて作成されています。ロタント、エルミスモティップデアルマセナミエントセプエデヘーサーレフェレンシアアダイフェレンテトエレメンスデダトス。

シンタクシス

Siguiente es la sintaxis para Redefinecláusula：

01 WS-OLD PIC X(10).
01 WS-NEW1 REDEFINES WS-OLD PIC 9(8).
01 WS-NEW2 REDEFINES WS-OLD PIC A(10).

継続的な使用、ロスの詳細な説明：

WS-ANTIGUO Tema es redefinida
WS-NUEVO1およびWS-NUEVO2の再定義

Nivel de elementoの定義とredefinir elemento debe ser el mismo y no puede ser de 66 o 88númerode nivel。実用的な再定義はありません。 EnSecciónArchivo、no utilice unacláusularedefine 01númerode nivel。定義の定義を再定義します。 unaredefinicióntema siempretendráel mismo valor que un nuevo elemento。

エジェプロ

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 WS-DESCRIPTION.
   05 WS-DATE1 VALUE '20140831'.
   10 WS-YEAR PIC X(4).
   10 WS-MONTH PIC X(2).
   10 WS-DATE PIC X(2).
   05 WS-DATE2 REDEFINES WS-DATE1 PIC 9(8).

PROCEDURE DIVISION.
   DISPLAY "WS-DATE1 : "WS-DATE1.
   DISPLAY "WS-DATE2 : "WS-DATE2.

STOP RUN.

*JCL* プログラムのCOBOLに似ています。

//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C
//STEP1 EXEC PGM=HELLO

プログラムを作成して結果を表示する：

WS-DATE1 : 20140831
WS-DATE2 : 20140831

クラウスラカンビア

存在する要素については、カンブリア州のカンブリア地方にあります。再アグラーパー・ロス・ダトス・ノムブルズ・イ・ダール・ウン・ヌエボ・オンブル・ア・エロス。 Los nuevos nombres de datos puede cambiar el nombre de todos los grupos o elemental。 Nivelnúmero66estáreservado para el nombre。

シンタクシス

カンブリア州のクラウスーラの聖歌隊

01 WS-OLD.
10 WS-A PIC 9(12).
10 WS-B PIC X(20).
10 WS-C PIC A(25).
10 WS-D PIC X(12).
66 WS-NEW RENAMES WS-A THRU WS-C.

Es posible cambiar el nombre al mismo nivel。 En el ejemplo anterior、WS-A、WS-B y WS-Cestánen el mismo nivel。定義は、カンビアのデビッドセルラシギエンテデロスデトシオンデロスデトスケデシーカンビアエルナンブレです。実用的でありません01,77 o 66númerode nivel。 Los datos los nombres que se usan para el nombre debe venir en secuencia。ロス・エレモス・デ・ダトス・セ・プロデュース・コン・クラウスラ・ノー・セ・プエデ・カンビア・デ・オンブレ。

エジェプロ

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 WS-DESCRIPTION.
   05 WS-NUM.
   10 WS-NUM1 PIC 9(2) VALUE 20.
   10 WS-NUM2 PIC 9(2) VALUE 56.
   05 WS-CHAR.
   10 WS-CHAR1 PIC X(2) VALUE 'AA'.
   10 WS-CHAR2 PIC X(2) VALUE 'BB'.
   66 WS-RENAME RENAMES WS-NUM2 THRU WS-CHAR2.

PROCEDURE DIVISION.
   DISPLAY "WS-RENAME : " WS-RENAME.

STOP RUN.

*JCL* プログラムのCOBOLに似ています。

//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C
//STEP1 EXEC PGM=HELLO

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

WS-RENAME : 56AABB

クラウスラ・ウソ

Usocláusulaespecifica el sistema operativo en el que el el formato se almacenan los datos。ニベル66 o 88の数値は使用できません。続きを読む

モストラー

ASCII形式および1バイトの個人用データシート Es uso predeterminado。

*El ejemplo siguiente* calcula elnúmerode bytes necesarios：

01 WS-NUM PIC S9(5)V9(3) USAGE IS DISPLAY.
It requires 8 bytes as sign and decimal doesn't require any byte.

01 WS-NUM PIC 9(5) USAGE IS DISPLAY.
It requires 5 bytes as sign.

COMPUTACIÓN/COMP。

Elemento de datos se almacenan en formato binario。 Aquíelementos de datos debe ser unnúmeroentero。

*El siguiente ejemplo se* calcula elnúmerode bytes necesarios：

01 WS-NUM PIC S9(n) USAGE IS COMP.

If 'n' = 1 to 4, it takes 2 bytes.
If 'n' = 5 to 9, it takes 4 bytes.
If 'n' = 10 to 18, it takes 8 bytes.

COMP-1

似たようなフロートの要素は、正確なフロートのデコマースを表します。 Los datos se almacenan en formato 16進数。 COMP-1 aceptacláusulaPICなし。 1パラグラフは4バイトです。

COMP-2

同様の要素は、倍精度の数値を表しています。 Los datos se almacenan en formato 16進数。 COMP-2 no especificacláusulaPIC。 Aquí2パラグラフは8バイトです。

COMP-3

Elementate de datos se almacena en el paquete formato decimal。 Cadadígitoocupa la mitad un byte（1porción）y el signo se almacena en el nibblemása la derecha。

*El siguiente ejemplo se* calcula elnúmerode bytes necesarios：

01 WS-NUM PIC 9(n) USAGE IS COMP.
Number of bytes = n/2 (If n is even)
Number of bytes = n/2 + 1(If n is odd, consider only integer part)

01 WS-NUM PIC 9(4) USAGE IS COMP-3 VALUE 21.
It requires 2 bytes of storage as each digit occupies half a byte.

01 WS-NUM PIC 9(5) USAGE IS COMP-3 VALUE 21.
It requires 3 bytes of storage as each digit occupies half a byte.

クアデルノス

copia COBOLの定義とコードの定義は、データ構造を定義します。多くのプログラムのプログラム、継続的な利用、継続的な教育、およびその他の教科書の作成、教育、教育、教育、および教育コピーブックとプログラムの両方を使用して、copiadeclaraciónpara incluirを使用します。 COPIARは、Working-StorageSecciónで使用されています。

*El siguiente ejemplo* para incluir programa COBOL Copybook interior：

DATA DIVISION.
WORKING-STORAGE SECTION.
COPY ABC.

AquíABC es el copybook nombre。 ABCのコピーブックを使用して、プログラムを使用してください。

01 WS-DESCRIPTION.
   05 WS-NUM.
      10 WS-NUM1 PIC 9(2) VALUE 20.
      10 WS-NUM2 PIC 9(2) VALUE 56.
   05 WS-CHAR.
      10 WS-CHAR1 PIC X(2) VALUE 'AA'.
      10 WS-CHAR2 PIC X(2) VALUE 'BB'.

Es-cobol-cobol-data-layout

目次