Writecase roster main dcf to external dcf roster
Posted: August 24th, 2017, 12:12 pm
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!
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!