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...
方法1 は、SORT ステートメント INPUT PROCEDURE を前処理に、SORT ステートメント OUTPUT PROCEDURE を 後処理に使用します。 INPUT および OUTPUT PROCEDURE を使用しているため、NOFASTSRT が入出力処理に有効です。 INPUT PROCEDURE または OUTPUT PROCEDURE は、レコードの追加、削除、変更、編集、...
01 END-OF-RECORDS PIX X VALUE 'N'.PROCEDURE DIVISION.SORT SORT-PROC-FILE ON ASCENDING KEY S-KEY USING IN-FILE OUTPUT PROCEDURE IS SORT-OUT-PROC.STOP RUN.SORT-OUT-PROC RETURN SORT-PROC-FILE AT END SET END-OF-RECORDS TO TRUE.PERFORM UNTILL END-OF-RECORDS DISPLAY 'SORTED-REC...
|OUTPUT PROCEDURE IS routine-name|. sd-file-name a temporary sort work file SD in the DATA DIVISION SELECT statement in the ENVIRONMENT DIVISION MUST be CLOSED when the sort is called sd-key-name key field from the SD record description USING input-file-name this is the file that will be...
An internal sort can use two different syntax’s:1。)USING, GIVING sorts are comparable to external sorts with no extra file processing; 2)INPUT PROCEDURE,OUTPUT PROCEDURE sorts allow for data manipulation before and/or after the sort。 Q:解释下内部排序和外部排序的区别和内部排序的语法 A:外部...
cobol的编程实例[精华]一个COBOL的编程实例 通常一个程序分为几个处理过程，然后有序地组合起来使用，以实现我们所希望的处理结果。这里，给出一个销售公司对销售数据处理的范例，通过实际的编程，掌握COBOL编程的技巧和步骤。销售数据处理系统简介 用户需求 （1）某销售公司有若干个销售商店，公司想获得每个商品的销售...
2 、可以在一个SORT语句中混合用“ 自动”及“手动”方式。比 如可以混合用“ 自动输入(USING)”和”输出过程(OUTPUT PROCEDURE)”。 2008-9-22 Cobol for Z900 语言程序设计 MERGE (合并)语句 MERGE 文件名1 ON (ASCENDING /DESCENDING) KEY 数据名1[,数据名2]… ,ON (ASCENDING/DESCENDING) KEY 数据名...
这点经常搞错Q69:解释下内部排序和外部排序的区别和内部排序的语法A69:外部排序不是COBOL,他是通过JCL和PGM=SORT的形式排序的。这种方式不引用代码却容易理解。内部排序用两中语法:1)USING,GIVING,这种方式比得上外边排序,不用额外的文件处理。2)INPUT PROCEDURE, OUTPUT PROCEDURE,这种方式适用用文件操作,并且在...
这点常 常弄错 Q69:说明下内部排序和外部排序的区别和内部排序的语法 A69:外部排序不是 COBOL,他是通过 JCL 和 PGM=SORT 的形式排序的。这种方式不引 用代码却容易明白得。内部排序用两中语法:1)USING,GIVING,这种方式比得上外边 排序,不用额外的文件处置。2)INPUT PROCEDURE, OUTPUT PROCEDURE,这种方式 适用...
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 ...