[Tiny-cobol-users] STRING problem (DELIMITED BY SPACES)

[Carlos G. <cg...@ya...>]

I am getting a invalid result when use STRING verb. The sample above has 3 similar STRINGs,  using DELIMITED BY SPACES the result is strange!!
 
Can anybody help me?
 
       IDENTIFICATION DIVISION.
       PROGRAM-ID. PROG.
       AUTHOR. S.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SPECIAL-NAMES.
           DECIMAL-POINT IS COMMA.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  WRESULT     PIC X(100) VALUE SPACES.
       01  WTEXT     PIC X(100) VALUE SPACES.
       01  WTEXT1    PIC X(10) VALUE "12345     ".
       01  W9        PIC 999 VALUE 999.
       PROCEDURE DIVISION.
       PARAG.
           STRING "INSERT INTO TEST ",
           ",",W9,
           ",","'",
           WTEXT1 DELIMITED BY SPACES, "'",
          ");" INTO WRESULT.
         DISPLAY WRESULT.
          MOVE SPACES TO WRESULT.
           STRING "INSERT INTO TEST ",
           ",",W9,
           ",","'",
           WTEXT1 DELIMITED BY SIZE, "'",
          ");" INTO WRESULT.
         DISPLAY WRESULT.
          MOVE SPACES TO WRESULT.
           STRING "INSERT INTO TEST ",
           ",",W9,
           ",","'",
           WTEXT1 , "'",
          ");" INTO WRESULT.
         DISPLAY WRESULT.
         STOP RUN.

 
Result in:
 
 
DISPLAY 1--> INSERT,999,'12345');
DISPLAY 2--> INSERT INTO TEST ,999,'12345     ');
DISPLAY 3--> INSERT INTO TEST ,999,'12345     ');


		
---------------------------------
Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora!