IDENTIFICATION DIVISION. 
          PROGRAM-ID. TC000082.      
          DATA DIVISION.          
          WORKING-STORAGE SECTION.
           01 A1 PIC X VALUE 'S'.
           01 A2 PIC X VALUE 'B'.
           01 A3 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.