Writecase roster main dcf to external dcf roster

[htuser]

Dear all,
I've a roster with 10 lines and i'm trying to copy it to an external file using external dictionary and writecase.
j=curocc();
if $(j)="99" then
clear (RAPPORT_EXT_RCMP);
do varying j= 1 while j <=QAD_1 (where QAD_1= the maximum occurence)
NUMERO_EXT(j)=NUMERO(j);
Q_51_A_EXT(j)=Q_51_A(j);
Q_51_EXT(j)=Q_51(j);
Q_51_1_1_EXT(j)=getlabel (Q_51_1_1(j));
Q51_2_EXT(j)=getlabel (Q51_2(j));
Q_51_3EXT(j)=getlabel(Q_51_3(j));
enddo;
writecase (RAPPORT_EXT_RCMP);
endif;
Unfortunately, it display ERROR: ENDDO expected near line xx.
Thanks in advance for help!

[josh]

Maybe this part is supposed to be a comment but is missing the "//"?

(where QAD_1= the maximum occurence)

[htuser]

Hi Josh,
I think no since it's not commented in Cspro designer. I will send to you this small example soon.
Best regards,