REPORT ZSOURCE2402.
DATA: EXTERNAL_RECORD(4000),
POSITION TYPE I,
LENGTH TYPE N.
FIELD-SYMBOLS < ENTRY>.
EXTERNAL_RECORD = '0005Smith0007Edwards0005Young'.

DO.
LENGTH = EXTERNAL_RECORD+POSITION(4).
IF LENGTH = 0.
EXIT.
ENDIF.
ADD 4 TO POSITION.
ASSIGN EXTERNAL_RECORD+POSITION(LENGTH) TO < ENTRY>.
WRITE < ENTRY>.
ADD LENGTH TO POSITION.
IF POSITION >= 4000.
EXIT.
ENDIF.
ENDDO.

If you like this post, you may as well like these too:

1. ABAP Programs: Simple examples of field conversion REPORT ZSOURCE0702. * Conv
2. ABAP Programs: Setting the layout position of fields REPORT ZSOURCE0804. DATA:
3. ABAP Programs: Using Symbols and Icons REPORT ZSOURCE0806. * Decl
4. ABAP Programs: Working with Field symbols REPORT CHAP2401. * Definin
5. ABAP Programs:Using Field Symbols for components of a structure REPORT ZSOURCE2403. * Tabl