Caso precise ordenar uma variavel que esteja separada por virgulas

FUNCTION BubbleSort RETURNS CHARACTER
  (INPUT pcArray AS CHARACTER): 

  DEFINE VARIABLE cTempArray AS CHARACTER NO-UNDO.
  DEFINE VARIABLE i          AS INTEGER   NO-UNDO.
  DEFINE VARIABLE j          AS INTEGER   NO-UNDO.
  DEFINE VARIABLE iEntries   AS INTEGER   NO-UNDO. 

  iEntries = NUM-ENTRIES(pcArray).

  DO i = iEntries TO 1 BY -1:
    DO j = 1 TO i – 1:
      IF ENTRY(j, pcArray) > ENTRY(j + 1, pcArray) THEN
      DO:
        cTempArray            = ENTRY(j, pcArray).
        ENTRY(j, pcArray)     = ENTRY(j + 1, pcArray).
        ENTRY(j + 1, pcArray) = cTempArray.
      END.
    END.
  END.
  RETURN pcArray.

END FUNCTION.

DEF VAR X AS CHAR INIT “h,b,f,c,i,a,d,e,,,”.
X = bubblesort(X).
MESSAGE X VIEW-AS ALERT-BOX.

flw