How to use subscript in easytrive

//XXXXIN DD DISP=SHR,DSN=XXXXXXX.XXXX.XXXX.XXX.XXXX
//XXXXXUT DD DSN=XXXXXXX.XXXX.XXXX.XXX.XXXXXXX,
// DISP=(NEW,CATLG,DELETE),SPACE=(CYL,(XXX,XX),RLSE),
// DCB=(LRECL=XX,RECFM=FB,BLKSIZE=0),UNIT=XXXXX
//SYSIN DD *

FILE XXXXIN
IN-XXT 21 4 P 00
ABC-XXXX 0050 0030 A OCCURS 050
XXXXXXXX-FIL ABC-XXXX 04 A
XXXXXXXX-ACV-DEF ABC-XXXX +4 05 A
XXXXXXXX-XXXX-XXA ABC-XXXX +9 05 P 02
*
FILE XXXXXUT
XXX-XXC 01 80 A
OXX-XXX 1 7 N
OXX-XXXX-XXX-ABC 9 5 A
OXX-XXX-DEF 15 11 N 2

WS-XXXC W 01 A
WS-XXE-HXT W 11 N 2 VALUE 0
H W 03 N 0

JOB INPUT FILEIN
H = 1
WS-XXXC = 'N'
XXX-REC = ' '
DO WHILE WS-XXXC = 'N'
IF XXXXXXXX-ACV-DEF (H) = 'ABCDE'
OXX-XXX = IN-XXT
OXX-XXXX-XXX-ABC = XXXXXXXX-ACV-DEF (H)
OUT-XXX-DEF = XXXXXXXX-XXXX-XXA (H)
PUT XXXXXUT
GO TO JOB
END-IF
H = H + 1
IF XXXXXXXX-ACV-DEF (H) = ' '
GO TO JOB
END-IF
END-DO
//*