Es-cobol-cobol-subroutines

COBOL-サブルーチン

コボルサブルティナエスウンプログラムプログラムプエデセルコンピラードコントータルインデペンデンシア Hay dos tipos de subrutinas： subrutinas internas como * realizar declaraciones y externas subrutinas como LLAMAR * verbo。

ラマダバーボ

Llamada verbo se usa para transferir el control de un programa a otro programa。 エルラマドコンティエンララプログラムの詳細*ラマダプログラム* ララマド海プログラム*ラマドプログラム。 プログラムを実行するプログラムは、プログラムを終了します。 プログラムの転送を制御するためのプログラムを実行します。

Programma llamado Limitaciones

Estos son los llamados requisitos del programa：

• * Varillajesección* deben ser definidos en el programa llamado。 プログラムの要素を構成します。 Los elementos de datos nodeberíatenercláusulade valor。 CláusulaPIC deben ser compatibles con las variables que se pasan atravésdel llamado programa。
• *プロシージャの使用方法*変数のリストと変数のリストの作成、プログラムの作成
• Salir del programa 制御プログラムを使用してプログラムを実行します。 デラセルラウルティマデラクラシオンアンエルプログラマーラマド。

ロスのプログラムは、マネラスのプログラムの一部です：

• ポル・リフェレンシア *ポル・コンテニド

Llamada por referencia

Si los valores de las variables en el programa llamado son modificadas、acontinuación、los nuevos valores se reflejan en el programa que realiza la llamada。 Si* POR *は、特定の変数ではなく、las変数を参照します。

シンタクシス

シンタクシス・デ・ラ・ラマダ・イン・クルーシィ・イン・クルー・イン・サブルティナ・ポル・レフェレンシア：

CALL sub-prog-name USING variable-1, variable-2.

Copy

エジェプロ

*Ejemplo siguiente* es el principal programa de llamadas y UTIL es el programa llamado：

Copy

IDENTIFICATION DIVISION.
PROGRAM-ID. MAIN.

DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 WS-STUDENT-ID PIC 9(4) VALUE 1000.
   01 WS-STUDENT-NAME PIC A(15) VALUE 'Tim'.

PROCEDURE DIVISION.
   CALL 'UTIL' USING WS-STUDENT-ID, WS-STUDENT-NAME.
   DISPLAY 'Student Id : ' WS-STUDENT-ID
   DISPLAY 'Student Name : ' WS-STUDENT-NAME
STOP RUN.

Copy

プログラマーラマド

IDENTIFICATION DIVISION.
PROGRAM-ID. UTIL.

DATA DIVISION.
   LINKAGE SECTION.
   01 LS-STUDENT-ID PIC 9(4).
   01 LS-STUDENT-NAME PIC A(15).

PROCEDURE DIVISION USING LS-STUDENT-ID, LS-STUDENT-NAME.
   DISPLAY 'In Called Program'.
   MOVE 1111 TO LS-STUDENT-ID.
EXIT PROGRAM.

Copy

*JCL* COBOLプログラムの例：

Copy

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

Copy

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

In Called Program
Student Id : 1111
Student Name : Tim

Copy

ラマダポルコンテニド

Si los valores de las variables en el programa llamado son modificadas、acontinuación、los nuevos valores no sereflejaráen el programa que realiza la llamada。

シンタクシス

継続性のあるシンタクシスデララマダアサブルティナポルコンテニド：

CALL sub-prog-name USING
BY CONTENT variable-1, BY CONTENT variable-2.

Copy

エジェプロ

*Ejemplo siguiente* es el principal programa de llamadas y UTIL es el programa llamado：

Copy

IDENTIFICATION DIVISION.
PROGRAM-ID. MAIN.

DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 WS-STUDENT-ID PIC 9(4) VALUE 1000.
   01 WS-STUDENT-NAME PIC A(15) VALUE 'Tim'.

PROCEDURE DIVISION.
   CALL 'UTIL' USING BY CONTENT WS-STUDENT-ID, BY CONTENT WS-STUDENT-NAME.
   DISPLAY 'Student Id : ' WS-STUDENT-ID
   DISPLAY 'Student Name : ' WS-STUDENT-NAME
STOP RUN.

Copy

プログラマーラマド

IDENTIFICATION DIVISION.
PROGRAM-ID. UTIL.

DATA DIVISION.
   LINKAGE SECTION.
   01 LS-STUDENT-ID PIC 9(4).
   01 LS-STUDENT-NAME PIC A(15).

PROCEDURE DIVISION USING LS-STUDENT-ID, LS-STUDENT-NAME.
   DISPLAY 'In Called Program'.
   MOVE 1111 TO LS-STUDENT-ID.
EXIT PROGRAM.

Copy

*JCL* COBOLプログラムの例：

Copy

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

Copy

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

In Called Program
Student Id : 1000
Student Name : Tim

Copy

ティポスデラマダ

Hay dos tipos de llamadas：

• *ラマダエスタティカ*コンピレーションドコンピラードコンディラドールノディナムをプロデュースします。 カルマのプログラムを作成し、コンピレーションを取得します。
• * LamaadaDinámica*は、コンパニオンダイナミとNODLLのコンピレーションプログラムを作成します。 普遍的なプログラムは、教育と教育を提供します。