感冒揪痧与性日志:VSAM - SAMPLE - KSDS - REWRITE & DELETE
来源:百度文库 编辑:偶看新闻 时间:2024/05/07 10:54:41
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. PROCEDURE DIVISION. OPEN I-O EMP-FILE.*
* DYNAMIC READ/REWRITE
* MOVE '420115000000000004' TO EMP-NO -> NO NEED READ FILE
READ EMP-FILE RECORD KEY IS EMP-NO MOVE 'HUANG NEI' TO EMP-NAME
REWRITE EMP-FILE-REC ** DYNAMIC READ/DELETE *MOVE '420115000000000001' TO EMP-NO -> NO NEED READ FILE
READ EMP-FILE RECORD KEY IS EMP-NO
DELETE EMP-FILE 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. PROCEDURE DIVISION. OPEN I-O EMP-FILE.*
* DYNAMIC READ/REWRITE
* MOVE '420115000000000004' TO EMP-NO -> NO NEED READ FILE
REWRITE EMP-FILE-REC ** DYNAMIC READ/DELETE *MOVE '420115000000000001' TO EMP-NO -> NO NEED READ 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