       IDENTIFICATION                   DIVISION.
       PROGRAM-ID.                      PRACTIVE-B.
       ENVIRONMENT                      DIVISION.
       DATA                             DIVISION.
       WORKING-STORAGE                  SECTION.
       01 NAGASA                        PIC 9(3).
       01 W-DATA                        PIC X(100).
       01 TUIKA-DATA                    PIC X(3). VALUE '...'.
       01 IDX                           PIC 9(3).
       PROCEDURE DIVISION.
       MAIN-SECTION.
           ACCEPT    NAGASA  FROM  SYSIN.
           ACCEPT    W-DATA  FROM  SYSIN.
           MOVE      1  TO IDX.
      
           PERFORM  UNTIL  IDX  >  NAGASA
      		 IF W-DATA(IDX:1) NOT = SPACE
             THEN
      		     CONTINUE
             ELSE
                 DISPLAY "W-DATA"
             END-IF
             COMPUTE  IDX = IDX + 1 
           END-PERFORM.
      
           IF  IDX  >  NAGASA
           THEN
               DISPLAY "W-DATA""TUIKDA-DATA"
           ELSE
      		   CONTINUE
           END-IF.
           STOP RUN.
