PL/I Sample program's

(ZERODIVIDE):                      
EXCEP:PROC OPTIONS(MAIN) REORDER;  
ON ZERODIVIDE BEGIN;                
  PUT SKIP LIST('KARTHI ERROR');    
END;                                
PUT SKIP LIST('ZDIVSOURCE',1/0);    
PUT SKIP LIST('LAST LINE');        
END;
************************************************************
 EXCEP:PROC OPTIONS(MAIN) REORDER;            
 ON ZERODIVIDE BEGIN;                        
   PUT SKIP LIST('KARTHI ERROR');            
 END;                                        
 (ZERODIVIDE):PUT SKIP LIST('ZDIVSOURCE',1/0);
 PUT SKIP LIST('LAST LINE');                  
 END;                                        
*************************************************************
EXCEP:PROC OPTIONS(MAIN) REORDER;              
ON ZERODIVIDE BEGIN;                          
  PUT SKIP LIST('KARTHI ERROR');              
  GO TO E1;                                     DOES NOT PRD CEEDUMP
END;                                          
(ZERODIVIDE):PUT SKIP LIST('ZDIVSOURCE',1/0);  
E1:PUT SKIP LIST('LAST LINE');                
END;                                          
*************************************************************
    EXCEP:PROC OPTIONS(MAIN) REORDER;          
ON SIZE BEGIN;                            
  PUT SKIP LIST('KARTHI ERROR');          
  GO TO E1;                                
END;                                      
DCL VAR1 FIXED DEC(7,2);                  
DCL VAR2 FIXED DEC(10,2) INIT(22222222.22);
(SIZE):VAR1=VAR2;                          
E1:PUT SKIP LIST('LAST LINE');            
END;                                      
*****************************************************************
UPKSDS:PROC OPTIONS(MAIN) REORDER;                      
DCL INFILE FILE RECORD INPUT DIRECT KEYED ENV(VSAM);    
DCL 01 INREC,                                            
       05 EID PIC'(4)9',                                
       05 FILLER1 CHAR(1) INIT(' '),                    
       05 ENAME CHAR(11),                                
       05 DESIG CHAR(10),                                
       05 DAT CHAR(15),                                  
       05 SAL PIC'(4)9',                                
       05 FILLER2 CHAR(10) INIT(' '),                    
       05 DEPTNO PIC'99',                                
       05 FILLER3 CHAR(23) INIT(' ');                    
DCL ONCODE BUILTIN;                                      
ON KEY(INFILE) BEGIN;                                    
   IF ONCODE=51 THEN                                    
       PUT SKIP LIST('HAI MOULI.ERROR');                
END;                                                
OPEN FILE(INFILE);                        
READ FILE(INFILE) INTO(INREC) KEY('4343');
PUT SKIP LIST('KARTHI');    ==>IT WILL EXECUTE.              
CLOSE FILE(INFILE);                        
END UPKSDS;                                
**************************************************************  
 UPKSDS:PROC OPTIONS(MAIN) REORDER;                            
 DCL INFILE FILE RECORD UPDATE SEQUENTIAL KEYED ENV(VSAM);      
 DCL 01 INREC,                                                  
        05 EID PIC'(4)9',                                      
        05 FILLER1 CHAR(1) INIT(' '),                          
        05 ENAME CHAR(11),                                      
        05 DESIG CHAR(10),                                      
        05 DAT CHAR(15),                                        
        05 SAL PIC'(4)9',                                      
        05 FILLER2 CHAR(10) INIT(' '),                          
        05 DEPTNO PIC'99',                                      
        05 FILLER3 CHAR(23) INIT(' ');                          
 DCL ONCODE BUILTIN;                                            
 ON KEY(INFILE) BEGIN;                                          
    IF ONCODE=53 THEN                                          
        PUT SKIP LIST('HAI MOULI.ERROR');                      
 END;              
 OPEN FILE(INFILE);                                        
 INREC.EID='7500';                                          
 WRITE FILE(INFILE) FROM(INREC) KEYFROM('7500');            
 PUT SKIP LIST('KARTHI');                                  
 CLOSE FILE(INFILE);                                        
 END UPKSDS;        
**********************************************************************
                                                                                                  

Computers TopOfBlogs Technology Blogs Mainframe interview question and answers,mainframe jobs,cobol,vsam,jcl,cics,db2,rdbms,mvs,tso,ispf,ibm,hcl,tcs,cts,wibro Blog Directory