聚狼庄网:VSAM - SAMPLE - KSDS SEQUENTIAL READ
来源:百度文库 编辑:偶看新闻 时间:2024/05/04 15:12:02
ENVIRONMENT DIVISION.INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT EMP-FILE ASSIGN TO EMPFIL
ORGANIZATION IS INDEXED
ACCESS MODE IS DYNAMIC
RECORD KEY IS EMP-NO
FILE STATUS IS WS-EMPFIL-STATUS. DATA DIVISION. PROCEDURE DIVISION. OPEN INPUT EMP-FILE. PERFORM UNTIL C-EMPFIL-EOF
READ EMP-FILE NEXT RECORD ->[next record ] can't be ignore in access mode is dynamic -> it can be ignored in access mode is sequential
IF C-EMPFIL-OK
DISPLAY EMP-FILE-REC
END-IF
END-PERFORM CLOSE EMP-FILE
FILE-CONTROL.
SELECT EMP-FILE ASSIGN TO EMPFIL
ORGANIZATION IS INDEXED
ACCESS MODE IS DYNAMIC
RECORD KEY IS EMP-NO
FILE STATUS IS WS-EMPFIL-STATUS. DATA DIVISION. PROCEDURE DIVISION. OPEN INPUT EMP-FILE. PERFORM UNTIL C-EMPFIL-EOF
READ EMP-FILE NEXT RECORD ->[next record ] can't be ignore in access mode is dynamic -> it can be ignored in access mode is sequential
IF C-EMPFIL-OK
DISPLAY EMP-FILE-REC
END-IF
END-PERFORM CLOSE EMP-FILE
翻译:sAMPLE
negotiation sample
sample是什么意思
什么叫Sample Text
结束程序sample
Create Sample Failed
definition of sample
pre-production sample
sample playlists是什么意思
free sample翻译
翻译sample only
Sample lnstall是什么软件
Sample Compliance什么意思?
sample toolband serach是什么意思?
msg和sample是什么?
as indicative sample forming gross indicative sample是什么意思?
Sample Text的意思是什么?!
DC游戏上贴有“SAMPLE”
翻译Sample-and-hold circuits?
什么是sample invoice 和 commercial invoice
mino.2005.DVDRip.XviD-AFO-Sample
翻译英文gather 1 more plant sample
关于日本CD中的sample盘问题
this sample is riquired in cases