Skip to Content
0
Former Member
Apr 15, 2005 at 03:58 PM

getting OFFSETS to work.

20 Views

Sorry to keep pushing this issue. But it has not been cleared up yet.

DATA: SEGMENT LIKE ARC_BUFFER-SEGMENT.
FIELD-SYMBOLS: <TEXT>.
*SEGMENT RETURNED FROM FM LIKE 002 03USD 3UMIKEJACKSON...
LENGTH = STRLEN(SEGMENT).
DIVTIMES = STRLEN / 254.
DO DIVTIMES.
  IF FLAG <> 'X'.
      OFF1 = 0.
      FLAG = 'X'.
  ELSE.
      OFF1 = COUNTER * 254.
  ENDIF.
     assign SEG+off1(LENGTH) to <text>.
     APPEND <TEXT> TO LENTAB.
ENDDO.

Even though I'm looping and incrementing off1, only thefirst character of segment is getting placed in <text>.