COBOL/400 Language Help

Format 3

Format 3 (INSPECT/TALLYING/REPLACING)
 
->->-INSPECT identifier-1 TALLYING ---------------------------->
 
  *-----------------------------------------------------*
  +                *------------------------------------*
  +                +            *----------*            +
  V                V            V          +            +
->-identifier-2 FOR-*-CHARACTERS-*----------*------------*---->
                   +            *-phrase-1-*            +
                   +                                    +
                   +          *------------------------*+
                   +          +               *--------*+
                   +          V               V        ++
                   *-ALL-----**-identifier-3-**--------**
                   *-LEADING-**-literal-1----**phrase-1*
 
 
->-----REPLACING---------------------------------------------->
 
  *------------------------------------------------------*
  +                                *----------*          +
  V                                V          +          +
->-*-CHARACTERS BY-*-identifier-5-*-*----------*----------*---><-
  +               *-literal-3----* *-phrase-1-*          +
  +                                                      +
  +          *------------------------------------------*+
  +          +                                 *--------*+
  +          V                                 V        ++
  *-ALL-----**-identifier-3-*BY*-identifier-5-**--------**
  *-LEADING-**-literal-1----*  *-literal-3----**phrase-1*
  *-FIRST---*
 
where phrase-1 is:
 
  ->->-*-BEFORE-*---*---------*---*-identifier-4-*-----><-
     *-AFTER--*   *-INITIAL-*   *-literal-2----*


[ Top of Page | Previous Page | Next Page | Table of Contents ]