FALSE

Page Nav

HIDE

Grid

GRID_STYLE

INSERT A RECORD IN KSDS CLUSTER

***** INSERT A RECORD IN KSDS CLUSTER *****            IDENTIFICATION DIVISION.               PROGRAM-ID...


***** INSERT A RECORD IN KSDS CLUSTER *****          

 IDENTIFICATION DIVISION.             
 PROGRAM-ID. DELR.                    
 ENVIRONMENT DIVISION.                
 INPUT-OUTPUT SECTION.                
 FILE-CONTROL.                        
         SELECT IN-FILE ASSIGN TO DD1   
         ORGANIZATION IS INDEXED        
         ACCESS MODE IS RANDOM          
         RECORD KEY IS ENO               
         FILE STATUS IS FS1.            
 DATA DIVISION.                       
 FILE SECTION.                        
 FD IN-FILE.                          
 01 IN-REC.                           
    05 ENO PIC 9(4).                  
    05 ENAME PIC X(4).                
    05 SAL PIC 9(5).
    05 FILLER PIC X(67).      
 WORKING-STORAGE SECTION.     
 01 FS1  PIC 9(2).            
 PROCEDURE DIVISION.          
           OPEN I-O IN-FILE.      
           DISPLAY "FS1: " FS1.   
           MOVE 0002 TO ENO.      
           MOVE "TTTT" TO ENAME.  
           MOVE 70000 TO SAL.     
           DISPLAY "FS1: " FS1.   
          WRITE IN-REC.          
          CLOSE IN-FILE.         

No comments