Es-cobol-cobol-internal-sort
提供:Dev Guides
COBOL-ClasificaciónInterna
史上最高の歴史的建造物歴史的建造物歴史的建造物歴史的建造物 下位組織の登録および組織化された手続きの組織化のための組織的利用 COBOLを使用した干し草の使用法:
- Tipo Externo utilise para ordenar los archivos mediante el tipo de utilidad。 JCLcapítuloen disc idoの血。 実際には、国際センターである。
- Clasificacióninterna *は、COBOLをプログラムするために使用します。 *TIPO アーカイブの詳細な使用方法。
ティポ・バーボ
Tres archivos se utilizan en el proceso de ordenar COBOL:
- Archivo de entrada es el archivo que tenemos que ordenar en orden ascendente o descendente。
- *トラバホの建築*マンテナーの登録簿の登録と手続きの完了。 歴史的建造物の登録は、セレクシオンのトラバホの歴史的遺産です。 ファイルセクションの基本的なSDエントリのアーカイブ。
- Archivo de salida es el archivo que se obtienedespuésde laclasificación。 Es el resultado final del tipo verbo。
シンタクシス
Siguiente es la sintaxis para ordenar un archivo:
SORT work-file ON ASCENDING KEY rec-key1
[ON DESCENDING KEY rec-key2]
USING input-file GIVING output-file.
TIPO realiza las siguientes operaciones:
- トラバホデアーボボセエルアンI-O、アーキボデデエントラダエンエルモデデエントラダイサリダデアーキボエンエルモドデサリダ。
- エルトラバホデエントラダパラエルトラバホデアーキボのトランスレジスト
- ティップエルティポデアーキボアンオセンデンアセンデント/ディセンデンテセクエンシアデレック
- Transfiere los registros ordenados por el trabajo de archivo en el archivo de salida。
- シエラエルアルキボデエントラダイエルアルキボデサリダイエリミナエルトラバホデアルキボ。
エジェプロ
En el siguiente ejemplo、la entrada es el archivo de entrada que tiene que ser en orden ascendente:
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INPUT ASSIGN TO IN.
SELECT OUTPUT ASSIGN TO OUT.
SELECT WORK ASSIGN TO WRK.
DATA DIVISION.
FILE SECTION.
FD INPUT.
01 INPUT-STUDENT.
05 STUDENT-ID-I PIC 9(5).
05 STUDENT-NAME-I PIC A(25).
FD OUTPUT.
01 OUTPUT-STUDENT.
05 STUDENT-ID-O PIC 9(5).
05 STUDENT-NAME-O PIC A(25).
SD WORK.
01 WORK-STUDENT.
05 STUDENT-ID-W PIC 9(5).
05 STUDENT-NAME-W PIC A(25).
PROCEDURE DIVISION.
SORT WORK ON ASCENDING KEY STUDENT-ID-O
USING INPUT GIVING OUTPUT.
DISPLAY 'Sort Successful'.
STOP RUN.
*JCL* COBOLプログラムの例:
//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C
//STEP1 EXEC PGM=HELLO
//IN DD DSN=INPUT-FILE-NAME,DISP=SHR
//OUT DD DSN=OUTPUT-FILE-NAME,DISP=SHR
//WRK DD DSN=&&TEMP
プログラムの作成と編集、結果の生成:
Sort Successful
コンビナーバーボ
文書の整理と統合マージを統合します。 組み合わせのアーカイブ:
- Archivos de entrada:Entrada-1、Entrada-2
- トラボホ遺跡
- アルチボデサリダ
シンタクシス
コンビナートドマスオスアーカイブのシンギタックス:
MERGE work-file ON ASCENDING KEY rec-key1
[ON DESCENDING KEY rec-key2]
USING input-1, input-2 GIVING output-file.
Combinar Realiza Las Siguientesの操作:
- エルトラバホデアルボボエルアルI-Oモッドデエントラダ、デロスアルキボアンエンエルモドデエントラダイサライダデアルキボエンエルモドデサライダ。
- Transferencias los registrosは、エルトラバホデアーキボにあるロスアーキボアンスエントラダデロスアーキボを紹介しています。
- ティップエルティポデアーキボアンオセンデンアセンデント/ディセンデンテセクエンシアデレック
- Transfiere los registros ordenados por el trabajo de archivo en el archivo de salida。
- シエラエルアルキボデエントラダイエルアルキボデサリダイエリミナエルトラバホデアルキボ。
エジェプロ
En el siguiente ejemplo、ENTRADA1 y entrada ENTRADA2 son los archivos que se van a unir en orden ascendente:
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INPUT1 ASSIGN TO IN1.
SELECT INPUT2 ASSIGN TO IN2.
SELECT OUTPUT ASSIGN TO OUT.
SELECT WORK ASSIGN TO WRK.
DATA DIVISION.
FILE SECTION.
FD INPUT1.
01 INPUT1-STUDENT.
05 STUDENT-ID-I1 PIC 9(5).
05 STUDENT-NAME-I1 PIC A(25).
FD INPUT2.
01 INPUT2-STUDENT.
05 STUDENT-ID-I2 PIC 9(5).
05 STUDENT-NAME-I2 PIC A(25).
FD OUTPUT.
01 OUTPUT-STUDENT.
05 STUDENT-ID-O PIC 9(5).
05 STUDENT-NAME-O PIC A(25).
SD WORK.
01 WORK-STUDENT.
05 STUDENT-ID-W PIC 9(5).
05 STUDENT-NAME-W PIC A(25).
PROCEDURE DIVISION.
MERGE WORK ON ASCENDING KEY STUDENT-ID-O
USING INPUT1, INPUT2 GIVING OUTPUT.
DISPLAY 'Merge Successful'.
STOP RUN.
*JCL* COBOLプログラムの例:
//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C
//STEP1 EXEC PGM=HELLO
//IN1 DD DSN=INPUT1-FILE-NAME,DISP=SHR
//IN2 DD DSN=INPUT2-FILE-NAME,DISP=SHR
//OUT DD DSN=OUTPUT-FILE-NAME,DISP=SHR
//WRK DD DSN=&&TEMP
プログラムの作成と編集、結果の生成:
Merge Successful