FILEDEF DATEMAS DISK DATERNG.MAS -RUN -WRITE DATEMAS FILE=DATERNG,SUFFIX=XFOC -WRITE DATEMAS SEGNAME=SEG1 -WRITE DATEMAS FIELD=DATE_KEY, ,DMYY ,DMYY , $ -RUN CREATE FILE DATERNG MODIFY FILE DATERNG FREEFORM DATE_KEY.A8. LOG FORMAT MSG OFF LOG TRANS MSG OFF LOG INVALID MSG OFF DATA -* Any invalid dates will be rejected. -DEFAULT &Year = 2008 -SET &Year = EDIT(&YYMD,'9999$'); -SET &Month = EDIT(&YYMD,'$$$$99$'); -SET &Month = &Month * 1; -SET &Day = 1; -REPEAT :Loop1 31 TIMES; -SET &Date = IF &Day LT 10 THEN '0' || &Day ELSE &Day; -SET &Mnth = IF &Month LT 10 THEN '0' || &Month ELSE &Month; &Date&Mnth&Year -SET &Day = &Day + 1; -:Loop1 END -RUN TABLE FILE DATERNG PRINT * END
In FOCUS since 1986 | WebFOCUS Server 8.2.01M, thru 8.2.07 on Windows Svr 2008 R2 | ||
WebFOCUS App Studio 8.2.06 standalone on Windows 10 |
In FOCUS since 1986 | WebFOCUS Server 8.2.01M, thru 8.2.07 on Windows Svr 2008 R2 | ||
WebFOCUS App Studio 8.2.06 standalone on Windows 10 |
-DEFAULT &start_date = '20120401'; -DEFAULT &num_of_days = 30; APP PATH IBISAMP TABLE FILE GGSALES SUM COMPUTE DATEYYMD/YYMD = IF LAST DATEYYMD EQ 0 THEN '&start_date' ELSE LAST DATEYYMD + 1; BY SEQ_NO NOPRINT WHERE SEQ_NO LE &num_of_days ON TABLE HOLD AS DATELIST FORMAT FOCUS END