FALSE

Page Nav

HIDE

Grid

GRID_STYLE

DELETE A RECORD IN RRDS CLUSTER

***** DELETE A RECORD IN RRDS CLUSTER *****  IDENTIFICATION DIVISION.                PROGRAM-ID. DELR.  ...




***** DELETE A RECORD IN RRDS CLUSTER *****

 IDENTIFICATION DIVISION.              
 PROGRAM-ID. DELR.                     
 ENVIRONMENT DIVISION.                  
 INPUT-OUTPUT SECTION.                 
 FILE-CONTROL.                         
         SELECT IN-FILE ASSIGN TO DD1    
         ORGANIZATION IS RELATIVE        
         RELATIVE KEY IS REL-KEY         
         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).                 
 01 REL-KEY PIC 9(4).              
 PROCEDURE DIVISION.               
           OPEN I-O IN-FILE.           
           DISPLAY "FS1: " FS1.        
           MOVE 2 TO REL-KEY.          
           DELETE IN-FILE              
           DISPLAY "FS1: " FS1.        
           CLOSE IN-FILE.              
           STOP RUN.                    

***** DELETE 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        
       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.       
       DELETE IN-FILE          
       DISPLAY "FS1: " FS1.    
       CLOSE IN-FILE.           

1 comment

Anonymous said...

just check some tags related to delete command of vsam files in cobol . you have written the same program for different vsam structures.