*0123456789012345678901234567890123456789012345678901234567890123456789  
	IDENTIFICATION DIVISION.
        PROGRAM-ID. SRINIVAS.
        ENVIRONMENT DIVISION.
        DATA DIVISION.
        WORKING-STORAGE SECTION.
	    01 C1 PIC 99.
	    01 S1 PIC X(10) VALUE 'AABBCMKAAA'.
        PROCEDURE DIVISION.
            INSPECT S1 TALLYING C1 FOR ALL "A" REPLACING "B" BY "W".    
     	    DISPLAY C1 S1.