Found the solution by using the steps below.
1) prepare your table with 52 records with unique value.
2) apply this code
-SET &CDT='20180101';
DEFINE FILE FINALDAT
STDT/YYMD=IF YOURUNIQUEFIELD EQ 0 THEN DATECVT(&CDT,'I8YYMD','YYMD') ELSE DATEADD(DATEMOV(STDT,'EOW'),'D',3);
CDT/YYMD = DATECVT(&YYMD,'I8YYMD','YYMD');
SWKDT1/A8MDYY=DATEMOV(STDT,'BOW');
EWKDT1/A8MDYY=DATEADD(DATEMOV(STDT,'EOW'),'D',2);
WKDATA/A20=SWKDT1 | ' - ' | EWKDT1 ;
END
TABLE FILE FINALDAT
PRINT WKDATA
BY YOURUNIQUEID NOPRINT
ON TABLE PCHOLD FORMAT XML
END
-EXIT
8.2.06
Windows, All Formats