Robert,

You can simplify the second part

SCATTER MEMVAR NAME oRec
FOR ICPT =2 TO RECORD_QTY
	APPEND BLANK
        oRec.PIECESNUMBER = ICPT 
	GATHER MEMVAR NAME oRec
ENDFOR

I would suggest that you use < pre > and < /pre > tags (w/o spaces) to make your code more readable.

>this is my solution
>it seem ok ???

>STORE 2 TO ICPT
>STORE 21018 TO nID
>
>SELECT FFCONSOL.MAWB_MBL,;
>       APD.DESCR AS DEPART,;
>       APA.DESCR AS ARRIVAL,;
>       FFFILE.ITM1_QTY AS QTY,;
>       01 as PIECESNUMBER;
>       FROM FFCONSOL,FFFILE;
>            JOIN FFAIRPT APD ON FFCONSOL.DEPART_PORT = APD.CODE;
>			JOIN FFAIRPT APA ON FFCONSOL.ARRIVAL_PORT = APA.CODE;
>   	   WHERE FFCONSOL.IDENT = NID AND;
>			 FFFILE.CONSOLID = NID;
>	   INTO CURSOR LABEL_4 READWRITE
>
>STORE LABEL_4.QTY TO RECORD_QTY
>
>SELECT LABEL_4
>GO TOP
>
>DO WHILE ICPT <= RECORD_QTY
>	SCATTER MEMVAR
>	APPEND BLANK
>	GATHER MEMVAR
>	REPLACE LABEL_4.PIECESNUMBER WITH ICPT
>	STORE ICPT + 1 TO ICPT
>ENDDO