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