her
* article "Character Manipulation Using COBOL" where she attempted to show
* the limitations of COBOL string handling.


DATA DIVISION.
WORKING-STORAGE SECTION.
01  xStr         PIC X(50) VALUE "   This is the first source string".
01  xStr2        PIC X(32) VALUE "This is the second source string".
01  StrSize      PIC 99 VALUE 32.
01  CharCount    PIC 99 VALUE ZEROS.
01  EndCount     PIC 99 VALUE ZEROS.
01  yStr         PIC X(4) VALUE SPACES.
01  CharPos      PIC 99 VALUE ZEROS.
01  StrL