东方卫视娱乐节目2017:VSAM - SAMPLE- KSDS -WRITE

来源：百度文库编辑：中财网时间：2024/05/05 19:06:05

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.
FILE SECTION.
FD EMP-FILE
RECORD IS VARYING FROM 1 TO 80.
01 EMP-FILE-REC.
05 EMP-NO    PIC X(18).
05 FILLER    PIC X(1).
05 EMP-NAME PIC X(11).
05 FILLER    PIC X(50).
PROCEDURE DIVISION.
OPEN I-O    EMP-FILE.                                                                 I-o add new record/rewrite(update)
outputreplace exist records with new reocrds if file exist
MOVE '420115000000000004' TO EMP-NO
MOVE 'WANG ZHONG JUN'     TO EMP-NAME
WRITE EMP-FILE-REC
DISPLAY 'WRITE FILE STATUS: ' WS-EMPFIL-STATUS
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