Program - SPLIT example

  REPORT  Z_VTEST5.
*DATA: STRING(60),
*P1(20) VALUE '++++++++++++++++++++',
*P2(20) VALUE '++++++++++++++++++++',
*DEL(1) VALUE '.'.
*STRING = 'TOM.JERRY'.
*WRITE : 'The given input is:' , STRING.
*SPLIT STRING AT DEL INTO P1 P2 .
*SKIP 2.
*WRITE / P1.
*SKIP 1.
*WRITE / P2.


DATA : NAME(20) TYPE C VALUE 'TOM.JERRY',
       STR1(20) TYPE C,
       STR2(20) TYPE C,
       DEL(1) VALUE '.'.

SPLIT NAME AT DEL INTO STR1 STR2.

WRITE / STR1.
WRITE / STR2.