和孩子一起阅读的感受:VSAM -SAMPLE- AIX

来源：百度文库 编辑：中财网 时间：2024/04/19 05:11:24
1.JCL-//STEP0010 EXEC  PGM=ELAIX001                            
//STEPLIB  DD  DSN=SERS.MSI.RABIL.LOADLIB,               
//             DISP=SHR                                  
//EMPFIL   DD DISP=SHR,DSN=RABIL.BEL.EMP.V01D            
//EMPFIL1  DD DISP=SHR,DSN=RABIL.BEL.EMP.V01D.AIX.PATH         //*note: DDNAME-BASE  DDNAME(N) -AIX PATH//SYSOUT DD SYSOUT=*         2. COBOL SAMPLEFILE-CONTROL.                                       
    SELECT EMP-FILE  ASSIGN TO EMPFIL                                            //* EMp-FILE IS base ksds file        
       ORGANIZATION  IS INDEXED                     
       ACCESS        IS DYNAMIC                     
       RECORD KEY    IS EMP-NO                      
       ALTERNATE KEY  IS EMP-NAME WITH DUPLICATES   
       FILE STATUS   IS WS-EMPFIL-STATUS.            DATA DIVISION.                    
FILE SECTION.                     
FD EMP-FILE.                      
01 EMP-FILE-REC.                  
   05 EMP-NO  PIC 9(18).          
   05 EMP-NAME PIC X(11).         
   05 EMP-OTHER PIC X(51).         PROCEDURE DIVISION.                                
0000-MAIN.                                         
    OPEN I-O EMP-FILE                               
     MOVE 'QIN FEI'  TO EMP-NAME                    
    READ EMP-FILE  RECORD KEY IS EMP-NAME           
    DISPLAY 'EMP-NO:'    EMP-NO.                   
    DISPLAY 'EMP-NAME:'  EMP-NAME                  
    STOP RUN.                                      
0000-EXIT.                                         
    EXIT.                                                                        
AIX操作系统 翻译：sAMPLE negotiation sample sample是什么意思 AIX虚拟机，如何用？ AIX 5L 是什么 AIX Version 4 是什么啊？ 如何给AIX 配置网络地址? 什么叫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？