IDENTIFICATION DIVISION. 
	  PROGRAM-ID. TC000082.      
	  DATA DIVISION.          
	  WORKING-STORAGE SECTION.
	   01 A1 PIC X VALUE 'S'.
	   01 A2 PIC X VALUE 'B'.
	   01 A1 PIC X AVLUE 'D'. 
	   01 A PIC XXXXXXX.
	 PROCEDURE DIVISION.
        	STRING A1 DELIMITED BY '@', 
	        A2 DELIMITED BY '@',        
	        A3 DELIMITED BY '@'         
        	INTO A.
	        DISPLAY A.
	        STOP RUN.