Cevela about COBOL COBOL language - Home - Site Map - About Cevela - MX COBOL    <prev   next>
7.   Statements for character-strings handling
For more see links to the main provider's on-line documentation.
For MX COBOL see Summary comment + FAQ and How to ..

string

                                                                 74-1
string
   Input-part*
   ...
   into  Dat-3  [pointer  Dat-4]
                          Num-4
   [overflow
      imperative-statements-1*]
   [not overflow                                                 85-1
      imperative-statements-2*]
   [end-string]
    .

Input-part* /Dat-1 ... delimited Dat-2 Lit-2 size /Lit-1 delimited size


MX limitation: phrases not overflow and end-string are not implemented

                                                                 MX-2
string
   Dat-1  [pointer  Dat-2] [length  Dat-3]
                    Num-2           Num-3
   ...
   into  Dat-4  [pointer  Dat-5] [length  Dat-6]
                          Num-5           Num-6
   [overflow
      imperative-statements*.]

Limitations: this format is not implemented in the others dialects 85-2 the analogy of it is possible with "reference modification" string Dat-1 (Point-1:Length-1) into Dat-2 (Point-2:Length-2) etc ..

unstring

                                                                 74-1
unstring  Dat-1
   delimited  [all]  DatX-1
                     LitX-1
      or  [all]  DatX-2
                 LitX-2
      ...

into output-result* ... [pointer Dat-6] [tallying Dat-7]

[overflow imperative-statements-1*] [not overflow 85-1 imperative-statements-2*] [end-string] .

output-result* Dat-3 [delimiter DatX-4] [count Dat9-5]


MX limitations: phrases pointer, tallying, not overflow and end-string are not implemented

inspect

                                                                 74-1
inspect  DatX-1  tallying

Dat9-2 for characters [before initial DatX-4] data-spec* after LitX-4

...

data-spec* leading DatX-3 all LitX-3

                                                                 74-2
inspect  DatX-1  replacing

characters by DatX-3 [before initial DatX-4] data-spec* LitX-3 after LitX-4

...

data-spec* all DatX-2 leading LitX-2 first

                                                                 85-3
inspect  DatX-1

tallying "see 74-1" replacing "see 74-2"

                                                                 85-4
inspect  DatX-1  converting  DatX-2  to  DatX-3
                             LitX-2      LitX-3

[before initial DatX-4] after LitX-4


MX limitations: this format is not implemented but there is transform statement at disposal

                                                                 MX-5
inspect  DatX-1  [pointer  Dat9-2]  [length  Dat9-3]  tallying
                           Lit9-2            Lit9-3

Dat9-4 for characters [before initial DatX-6] = data-spec* after terminal LitX-6

...

data-spec* leading DatX-5 all LitX-5 ending


Limitations: this format is not implemented in the others dialects

                                                                 MX-6
inspect  DatX-1  [pointer  Dat9-2]  [length  Dat9-3] replacing
                           Lit9-2            Lit9-3

characters by DatX-5 [before initial DatX-6] data-spec* LitX-5 after terminal LitX-6

...

data-spec* leading DatX-4 all LitX-4 ending first last


Limitations: this format is not implemented in the others dialects

                                                                 MX-7
inspect  DatX-1  [pointer  Dat9-2]  [length  Dat9-3]
                           Lit9-2            Lit9-3

tallying "see MX-1" replacing "see MX-2"


Limitations: this format is not implemented in the others dialects

transform

                                                                 MX-1
transform  DatX-1  from  DatX-2  to  DatX-3
                         LitX-2      LitX-3

Limitations: this format is IBM OSVS extension in the others dialects except MX and MF is not implemented

COBOL language in brief - © Vlastimil Cevela 2006

Date 2006-06-03 - Text Builder 0.65 - Time 20:31:44