2017婚姻保卫战:VSAM - SAMPLE - RRDS RANDOM ACCESS
来源:百度文库 编辑:偶看新闻 时间:2024/04/28 10:39:52
ENVIRONMENT DIVISION.INPUT-OUTPUT SECTION.SELECT EMP-FILE ASSIGN TO EMPFIL
ORGANIZATION IS RELATIVE
ACCESS MODE IS DYNAMIC
RELATIVE KEY IS RN1
FILE STATUS IS WS-EMPFIL-STATUS. DATA DIVISION. WORKING-STORAGE SECTION.01 WS-WORK-AREA.
05 RN1 PIC 9(3). PROCEDURE DIVISION. OPEN INPUT EMP-FILE. MOVE 2 TO RN1 -> slot number is start from 1.
READ EMP-FILE
DISPLAY EMP-FILE-REC
CLOSE EMP-FILE.
ORGANIZATION IS RELATIVE
ACCESS MODE IS DYNAMIC
RELATIVE KEY IS RN1
FILE STATUS IS WS-EMPFIL-STATUS. DATA DIVISION. WORKING-STORAGE SECTION.01 WS-WORK-AREA.
05 RN1 PIC 9(3). PROCEDURE DIVISION. OPEN INPUT EMP-FILE. MOVE 2 TO RN1 -> slot number is start from 1.
READ EMP-FILE
DISPLAY EMP-FILE-REC
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