-* FocalPoint: create where "date" statement for limited output -SET &TODAYIS = &YYMD ; -* Test with different date values that are in the report as 'HIREDATE20' -SET &TODAYIS = 20090329 ; -SET &TODAYIS = 20090529 ; -TYPE REPORT FROM BOQ TO &TODAYIS -* -TYPEs are option -* CONVERT TODAYS DATE FOR DATE MATH, IN TO: &CURDATE -SET &CURDATE = DATECVT(&TODAYIS,'I8YYMD','YYMD'); -TYPE &CURDATE -* Use &CURDATE to get the Beg Of Qtr (BOQ) -SET &BEGTQTY0 = DATEMOV(&CURDATE, 'BOQ'); -TYPE &BEGTQTY0 -* Convert the BOQ to a useable date in the WHERE statement -* Legend for variable, use the Capital letters: BEG This Quarter This Year -SET &BEGTQTY = DATECVT(&BEGTQTY0,'YYMD','A8YYMD'); -TYPE &BEGTQTY DEFINE FILE EMPDATA -* Convert the YY/MM/DD to an I8 for date calcs HIREDATEI8/I8 = HIREDATE ; -* Add 20 YEARS to the HIREDATE to bring these dates current (just for testing) HIREDATE20X/I8 = DATEADD(HIREDATEI8, 'Y', +20); HIREDATE20/I8 = DATECVT(HIREDATE20X,'YYMD','I8YYMD'); -* GET THE BOQ (BEGINNING OF THE QUARTER) FOR THE HIREDATE. (SEE WHAT QTR IT'S IN) BEGTQTY0/I8 = DATEMOV(HIREDATEI8, 'BOQ'); -* CONVERT IT TO A YYYYMMDD FORMAT BEGTQTY/I8 = DATECVT(BEGTQTY0,'YYMD','I8YYMD'); END TABLE FILE EMPDATA HEADING "Report for hire dates from &BEGTQTY to &TODAYIS" PRINT HIREDATE20 AS 'HireDate' FIRSTNAME AS 'First Name' LASTNAME AS 'Last Name' -* Use the next line to verify without using the WHERE statement. COMPUTE InThisQTR/A1 = IF HIREDATE20 FROM '&BEGTQTY' TO '&TODAYIS' THEN 'Y' ELSE '-' ; AS '?' BY HIREDATE -* Select only dates from BOQ to &TODAYIS (there's only one as of 10/22/2010) -* Use the next line to limit these records. -*WHERE HIREDATE20B FROM '&BEGTQTY' TO '&TODAYIS' ON TABLE SET PAGE OFF END
In FOCUS Since 1983 ~ from FOCUS to WebFOCUS. Current: WebFOCUS Administrator at FIS Worldpay | 8204, 8206 |
-SET &CURYRMTH = EDIT(&YYMD,'999999$$'); -SET &RPTYRMTH = AYM(&CURYRMTH,-1,'I6YYM'); -SET &CURYEAR = EDIT(&YYMD,'9999$$$$'); -SET &CURMONTH = EDIT(&YYMD,'$$$$99$$'); -SET &FISCALYR = IF (&CURMONTH LE 6) THEN (&CURYEAR - 1) ELSE &CURYEAR ; -SET &COLYRMTH = &FISCALYR | '07'; -* TABLE FILE AGEDATA_11_A PRINT -* -REPEAT :ENDREPEAT1 13 TIMES -SET &COLNAME = EDIT(CHGDAT('YYM','MTY',&COLYRMTH,'A17'),'999$99'); &COLNAME.EVAL -SET &COLYRMTH = AYM(&COLYRMTH,1,'I6YYM'); -IF (&COLYRMTH GT &RPTYRMTH) GOTO :EXITREPEAT1 ; -:ENDREPEAT1 -:EXITREPEAT1 -* END
quote:
TABLE FILE AGEDATA_11_A
JUL10
AUG10
BY SEX
BY _TYPE_
ETC.
END
quote:
TABLE FILE AGEDATA_11_A
-*
-REPEAT :ENDREPEAT1 13 TIMES
-SET &COLNAME = EDIT(CHGDAT('YYM','MTY',&COLYRMTH,'A17'),'999$99');
&COLNAME.EVAL
-SET &COLYRMTH = AYM(&COLYRMTH,1,'I6YYM');
-IF (&COLYRMTH GT &RPTYRMTH) GOTO :EXITREPEAT1 ;
-:ENDREPEAT1
-:EXITREPEAT1
-*
BY SEX
BY _TYPE_
END