A question about "string management"

[Eugenio Di Lorenzo]

A new question.

I have the following string C:\aaa\bbbbbbbb\cc\ddddddddd\e\fffffff\
I need to get the string
C:\aaa\bbbbbbbb\cc\ddddddddd\e\
and then the string
C:\aaa\bbbbbbbb\cc\ddddddddd\
and then the string
C:\aaa\bbbbbbbb\cc\
and then the string
C:\aaa\bbbbbbbb\
and then the string
C:\aaa\
and then the string
C:\

Solved with following code.

       >>SOURCE FORMAT IS FREE
IDENTIFICATION  DIVISION.
program-id.     INSPECT2 is initial.
ENVIRONMENT     DIVISION.
CONFIGURATION   SECTION.
REPOSITORY.     FUNCTION ALL INTRINSIC.
DATA DIVISION.
WORKING-STORAGE SECTION.
01  wDIR  pic x(60) value 'C:\aaa\bbbbbbbb\cc\ddddddddddddddd\e\fffffff\g\hhhhh\'.
01  wInd  pic 999   value zero.

PROCEDURE       DIVISION.

display wDIR at 0101 accept omitted
move reverse(wDIR) to wDIR

perform varying wInd from 3 by 1 until wInd > 10
                inspect wDIR replacing first '\'  by space
                inspect wDIR replacing characters by space before initial '\'

                display reverse(wDIR) at line wInd col 01 accept omitted
end-perform
goback.

Screenshot attached.
Ciao.