!Declare a variable, the row, and the value by echoing to the job report
!in the form:
!SUBVAR;Variable_name1;key_name1;value1;Variable_name2;key_name2;value2

:SET &HND# = PREP_PROCESS_REPORT(,&$RESTART_RUNID#,"REP","SUBVAR*")

:PROCESS &HND#
:   SET &RET# = GET_PROCESS_LINE(&HND#)
:   PRINT &RET#
:   SET &S_LEN# = STR_LENGTH(&RET#)
:   SET &LEN# = &S_LEN# - 7
:   SET &RET# = STR_CUT(&RET#,8,&LEN#)
:   P &RET#

:  IF &RET# <> ""
:   DEFINE &DICT#, string, 50
:   FILL &DICT#[] = STR_SPLIT(&RET#,";")
:   SET &SIZE# = LENGTH(&DICT#[],SIZE)
:   SET &i# = 1
:   SET &j# = 2
:   SET &k# = 3
:   WHILE &k# LE &SIZE#
:        P &DICT#[&i#]
:        P &DICT#[&j#]
:        P &DICT#[&k#]
:        PUT &DICT#[&i#],&DICT#[&j#],&DICT#[&k#]
:        SET &i# = &i# +3
:        SET &j# = &j# +3
:        SET &k# = &k# +3
:   ENDWHILE
:  ENDIF
:ENDPROCESS