HOW TO GET MINOR WORD FROM CL RECORD

**cl record ***
CYCLE/TURN,ZAXIS,0.075,XAXIS,0.025,DEPTH,0.5,FEED,0.008

***FIL CODE**

CYCTYP=POSTF(7,4)
IF (CYCTYP.EQ.ICODEF(TURN)) THEN
NBARG=POSTF(5)
DO/LL1,ILOOP=5,NBARG
  ARG=POSTF(7,ILOOP)
  ARGTYP=POSTF(6,ILOOP)
IF (ARGTYP.EQ.0) THEN
    $$ This is a minor word
    CASE/ARG
      WHEN/ICODEF(DEPTH)
           dp=POSTF(7,(ILOOP+1))
              
            WHEN/ICODEF(ZAXIS)
               za=POSTF(7,(ILOOP+1))
          

    ENDCAS
  ENDIF
LL1) CONTIN
********

Dear gpost guru

I need to extract the data from CL record to generate the G71 CYCLE

from the above cl record , I am not able to get the VALUE for DEPTH

since the system understand DEPTH as text

What should I do so that the system understand DEPTH has minor word.

Please help ???