韩国仁川机场免税店品牌大全:COBOL-SAMPLE-SORT
来源:百度文库 编辑:偶看新闻 时间:2024/03/28 21:52:00
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM-4341.
OBJECT-COMPUTER. IBM-4341.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT EMP-FILE-INPUT ASSIGN TO EMPFIL.
SELECT SORT-FILE ASSIGN TO SORTFIL.
SELECT EMP-FILE-SORTED ASSIGN TO EMPOUT.
*---------------------------
DATA DIVISION.
FILE SECTION.
FD EMP-FILE-INPUT.
01 EMP-FILE-REC.
05 EMP-NO PIC 9(5).
05 EMP-NAME PIC X(20).
05 FILLER PIC X(55).
FD EMP-FILE-SORTED.
01 EMP-FILE-SORTED-REC.
05 EMP-NO PIC 9(5).
05 EMP-NAME PIC X(20).
05 FILLER PIC X(55).
SD SORT-FILE.
01 SORT-FILE-REC.
05 EMP-NO PIC 9(5).
05 EMP-NAME PIC X(20).
05 FILLER PIC X(55).
PROCEDURE DIVISION.
00000-MAIN.
SORT SORT-FILE
ASCENDING KEY EMP-NO OF SORT-FILE-REC
USING EMP-FILE-INPUT
GIVING EMP-FILE-SORTED.
STOP RUN. JCL-//STEP0010 EXEC PGM=ELTEST20
//STEPLIB DD DSN=SERS.MSI.RABIL.LOADLIB,
// DISP=SHR
//EMPFIL DD DISP=SHR,DSN=RABIL.BEL.EMP.FILE
//SORTFIL DD SPACE=(TRK,(10,1))
//EMPOUT DD DISP=SHR,DSN=RABIL.BEL.EMP.FILE.OUT
//SYSOUT DD SYSOUT=*
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM-4341.
OBJECT-COMPUTER. IBM-4341.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT EMP-FILE-INPUT ASSIGN TO EMPFIL.
SELECT SORT-FILE ASSIGN TO SORTFIL.
SELECT EMP-FILE-SORTED ASSIGN TO EMPOUT.
*---------------------------
DATA DIVISION.
FILE SECTION.
FD EMP-FILE-INPUT.
01 EMP-FILE-REC.
05 EMP-NO PIC 9(5).
05 EMP-NAME PIC X(20).
05 FILLER PIC X(55).
FD EMP-FILE-SORTED.
01 EMP-FILE-SORTED-REC.
05 EMP-NO PIC 9(5).
05 EMP-NAME PIC X(20).
05 FILLER PIC X(55).
SD SORT-FILE.
01 SORT-FILE-REC.
05 EMP-NO PIC 9(5).
05 EMP-NAME PIC X(20).
05 FILLER PIC X(55).
PROCEDURE DIVISION.
00000-MAIN.
SORT SORT-FILE
ASCENDING KEY EMP-NO OF SORT-FILE-REC
USING EMP-FILE-INPUT
GIVING EMP-FILE-SORTED.
STOP RUN. JCL-//STEP0010 EXEC PGM=ELTEST20
//STEPLIB DD DSN=SERS.MSI.RABIL.LOADLIB,
// DISP=SHR
//EMPFIL DD DISP=SHR,DSN=RABIL.BEL.EMP.FILE
//SORTFIL DD SPACE=(TRK,(10,1))
//EMPOUT DD DISP=SHR,DSN=RABIL.BEL.EMP.FILE.OUT
//SYSOUT DD SYSOUT=*
sort code
cobol教程
cobol编译器
翻译:sAMPLE
negotiation sample
sample是什么意思
Q-sort technique是什么?
sort of什么意思
comb sort method
1,sort by Tybe2,sort by Name3,sort by Date4,sort File Tybe的中文意思
sort of 是什么意思?
cobol 1~100 합
COBOL将来有用吗
求一份COBOL文档......
COBOL教程 下载地址
COBOL高手请进!!!!
求助COBOL编译器
cobol中小数显示
求COBOL谭浩强版教材
cobol调用子程序
a sort of wonderful feel
什么叫Sample Text
结束程序sample
Create Sample Failed