TYPE=DATA,
     COLUMN=N8,
     WHEN=N2 EQ '10982',
     FOCEXEC=IBFS:/WFC/Repository/.../Pct_of_No_Sales_to_Customers.fex( \
     SRPDCASHIERNAME=N1 \
     DSACCTNO=&DSACCTNO.QUOTEDSTRING \
     WEEKENDING=&WEEKENDING.QUOTEDSTRING \
     ),
          TARGET='_self',
$

-* Top-level summary report that displays user-selected business week summary data for each
-* cashier within a selected account/store.  Shows the 4 week total that includes the business
-* week selected and 3 previous weeks for each cashier of their measures shown.  This report
-* allows the user to drill down by cashier and get that cashier's summarized measures from this top-level
-* report separated by each week that make up the total seen in this top-level report.  They also
-* are able to drill on metrics to get similar data displayed graphically.

-SET &ECHO = ALL;

-INCLUDE IBFS:/WFC/Repository/retail_reporting/retail_reports/user_filter.fex

-*-DEFAULTH &HIDDEN = 'Y';
-DEFAULTH &HIDDEN = 'N';
-IF &HIDDEN = 'N' THEN GOTO Wait;

-DEFAULTH &DSACCTNO = '10982';
-DEFAULTH &WEEKENDING = '20150704';

-SET &THREEWKSPREV = AYMD(&WEEKENDING.QUOTEDSTRING, -21, 'YYMD');
-SET &FRMT3WKSPRV = CHGDAT('YYMD', 'MDYY', &THREEWKSPREV, 'A10');
-SET &THWKSPRV = EDIT(&FRMT3WKSPRV, '99/99/9999');

DEFINE FILE SRPROD
RINGTIMEMIN/P11.2=SRPROD.SRPROD.SRPDRINGTIMESEC / 60;
TNDRTIMEMIN/P11.2=SRPROD.SRPROD.SRPDTENDERTIMES / 60;
SESSTIMEMIN/P11.2=SRPROD.SRPROD.SRPDSESSIONTIMESEC / 60;
IDLETIMEMIN/P11.2=SRPROD.SRPROD.SRPDIDLETIMESEC / 60;
LCKTIMEMIN/P11.2=SRPROD.SRPROD.SRPDLOCKTIMESEC / 60;
RTPERCUST/D12.2=RINGTIMEMIN / SRPROD.SRPROD.SRPDCUSTCNT;
RTPERITMSOLD/D12.2=RINGTIMEMIN / SRPROD.SRPROD.SRPDITEMSOLD;
TTPERCUST/D12.2=TNDRTIMEMIN / SRPROD.SRPROD.SRPDCUSTCNT;
TTPERITMSOLD/D12.2=TNDRTIMEMIN / SRPROD.SRPROD.SRPDITEMSOLD;
STPERCUST/D12.2=SESSTIMEMIN / SRPROD.SRPROD.SRPDCUSTCNT;
STPERITMSOLD/D12.2=SESSTIMEMIN / SRPROD.SRPROD.SRPDITEMSOLD;
ITPERCUST/D12.2=IDLETIMEMIN / SRPROD.SRPROD.SRPDCUSTCNT;
LTPERCUST/D12.2=LCKTIMEMIN / SRPROD.SRPROD.SRPDCUSTCNT;
WKEND_MDYY/MDYY=DATECVT(SRPROD.DIMDATE.WEEKENDING, 'YYMD', 'MDYY');
END
-RUN
TABLE FILE SRPROD
SUM
     SRPROD.SRPROD.SRPDCASHIERNO AS 'Cashier #'
     SRPROD.SRPROD.SRPDCUSTCNT AS 'Cstmr Cnt'
     SRPROD.SRPROD.SRPDOPENDEPTCNT AS 'Open Dept Cnt'
     SRPROD.SRPROD.SRPDKEYENTRYCNT AS 'Keyed Entry Cnt'
     SRPROD.SRPROD.SRPDVOIDAMT/P10.2M AS 'Void Amt'
     SRPROD.SRPROD.SRPDNOSALECNT AS 'No Sale Cnt'
     COMPUTE PCT_NOSALE_TO_CUST_CNT/P11.1% = ( ( SRPDNOSALECNT / SRPDCUSTCNT ) * 100 ); AS '% of No Sales,to Cstmr Cnt'
     SRPROD.SRPROD.SRPDSTORECOUPCNT AS 'Store Cpn Cnt'
     SRPROD.SRPROD.SRPDSTORECOUPAMT/P10.2M AS 'Store Cpn Amt'
BY  LOWEST SRPROD.SRPROD.SRPDCASHIERNAME AS 'Cashier'
ON TABLE SUBHEAD
"Cashier Stats - 4 Week Running Totals"
"including Week Ending &THWKSPRV to Week Ending <SRPROD.DIMDATE.WKEND_MDYY at <SRPROD.DIMSTORE.DSNAME"
WHERE ( SRPROD.DIMSTORE.DSACCTNO EQ &DSACCTNO.(FIND SRPROD.DIMSTORE.DSACCTNO IN SRPROD).DSACCTNO:. );
WHERE ( SRPROD.DIMDATE.WEEKENDING GE '&THREEWKSPREV');
WHERE ( SRPROD.DIMDATE.WEEKENDING LE '&WEEKENDING');
ON TABLE SET AUTOFIT ON
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET ASNAMES ON
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT HTML
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
     INCLUDE = IBFS:/EDA/EDASERVE/_EDAHOME/ETC/endeflt.sty,
$
     ORIENTATION=LANDSCAPE,
$
TYPE=REPORT,
     LINES-PER-PAGE=UNLIMITED,
$
TYPE=DATA,
     COLUMN=N8,
-*	 WHEN=N2 GT '9999',
     FOCEXEC=IBFS:/WFC/Repository/retail_reporting/retail_reports/Cashier_Productivity/Graphs/Pct_of_No_Sales_to_Customers.fex( \
     SRPDCASHIERNAME=N1 \
     DSACCTNO=&DSACCTNO.QUOTEDSTRING \
     WEEKENDING=&WEEKENDING.QUOTEDSTRING \
     ),
     TARGET='_self',
$
TYPE=DATA,
     COLUMN=N10,
     FOCEXEC=IBFS:/WFC/Repository/retail_reporting/retail_reports/Cashier_Productivity/Graphs/Store_Cpn_Amt_By_Cashier.fex( \
     SRPDCASHIERNAME=N1 \
     DSACCTNO=&DSACCTNO.QUOTEDSTRING \
     WEEKENDING=&WEEKENDING.QUOTEDSTRING \
     ),
          TARGET='_self',
$
TYPE=DATA,
     COLUMN=N6,
     FOCEXEC=IBFS:/WFC/Repository/retail_reporting/retail_reports/Cashier_Productivity/Graphs/Void_Amt_By_Cashier.fex( \
     SRPDCASHIERNAME=N1 \
     DSACCTNO=&DSACCTNO.QUOTEDSTRING \
     WEEKENDING=&WEEKENDING.QUOTEDSTRING \
     ),
          TARGET='_self',
$
TYPE=DATA,
     COLUMN=N9,
     FOCEXEC=IBFS:/WFC/Repository/retail_reporting/retail_reports/Cashier_Productivity/Graphs/Store_Cpn_Cnt_By_Cashier.fex( \
     SRPDCASHIERNAME=N1 \
     DSACCTNO=&DSACCTNO.QUOTEDSTRING \
     WEEKENDING=&WEEKENDING.QUOTEDSTRING \
     ),
          TARGET='_self',
$
TYPE=DATA,
     COLUMN=N5,
     FOCEXEC=IBFS:/WFC/Repository/retail_reporting/retail_reports/Cashier_Productivity/Graphs/Keyed_Entry_By_Cashier.fex( \
     SRPDCASHIERNAME=N1 \
     DSACCTNO=&DSACCTNO.QUOTEDSTRING \
     WEEKENDING=&WEEKENDING.QUOTEDSTRING \
     ),
          TARGET='_self',
$
TYPE=DATA,
     COLUMN=N4,
     FOCEXEC=IBFS:/WFC/Repository/retail_reporting/retail_reports/Cashier_Productivity/Graphs/Open_Dept_Cnt_By_Cashier.fex( \
     SRPDCASHIERNAME=N1 \
     DSACCTNO=&DSACCTNO.QUOTEDSTRING \
     WEEKENDING=&WEEKENDING.QUOTEDSTRING \
     ),
          TARGET='_self',
$
TYPE=DATA,
     COLUMN=N7,
     FOCEXEC=IBFS:/WFC/Repository/retail_reporting/retail_reports/Cashier_Productivity/Graphs/No_Sale_Cnt_By_Cashier.fex( \
     SRPDCASHIERNAME=N1 \
     DSACCTNO=&DSACCTNO.QUOTEDSTRING \
     WEEKENDING=&WEEKENDING.QUOTEDSTRING \
     ),
          TARGET='_self',
$
TYPE=DATA,
     COLUMN=N1,
     FOCEXEC=IBFS:/WFC/Repository/retail_reporting/retail_reports/Cashier_Productivity/Reports/Cashier_Trending_Drilldown.fex( \
     SRPDCASHIERNAME=N1 \
     DSACCTNO=&DSACCTNO.QUOTEDSTRING \
     WEEKENDING=&WEEKENDING.QUOTEDSTRING \
     ),
          TARGET='_self',
$
TYPE=TABHEADING,
     SIZE=14,
     STYLE=BOLD,
     JUSTIFY=LEFT,
$
TYPE=TABHEADING,
     LINE=1,
     OBJECT=TEXT,
     ITEM=1,
     SIZE=12,
$
TYPE=TABHEADING,
     LINE=1,
     OBJECT=TEXT,
     ITEM=2,
     SIZE=12,
$
TYPE=TABHEADING,
     LINE=1,
     OBJECT=TEXT,
     ITEM=3,
     SIZE=12,
$
TYPE=TABHEADING,
     LINE=1,
     OBJECT=FIELD,
     ITEM=1,
     SIZE=12,
     BACKCOLOR='WHITE',
$
TYPE=TABHEADING,
     LINE=1,
     OBJECT=FIELD,
     ITEM=2,
     SIZE=12,
$
TYPE=TABHEADING,
     LINE=1,
     OBJECT=FIELD,
     ITEM=3,
     SIZE=12,
$
TYPE=TABHEADING,
     LINE=2,
     OBJECT=TEXT,
     ITEM=1,
     SIZE=12,
$
TYPE=TABHEADING,
     LINE=2,
     OBJECT=TEXT,
     ITEM=2,
     SIZE=12,
$
TYPE=TABHEADING,
     LINE=2,
     OBJECT=FIELD,
     ITEM=1,
     SIZE=12,
$
TYPE=TABHEADING,
     LINE=2,
     OBJECT=FIELD,
     ITEM=2,
     SIZE=12,
$
ENDSTYLE
END

-IF &HIDDEN EQ 'Y' THEN GOTO TheEnd;

-Wait

-HTMLFORM IBFS:/WFC/Repository/retail_reporting/Hidden_Content/html/PlzWaitForFilters.htm

-TheEnd

quote:

Originally posted by j.gross:
The displayed code is incomplete -- the spot markers in the SUBHEAD are the problem -- you need to edit your post and utilize the "code" tags to escape the <'s

quote:

WHEN=N2 GT '9999',

quote:

Originally posted by j.gross:

quote:

WHEN=N2 GT '9999',

What is the format of SRPROD.SRPROD.SRPDCASHIERNO (a/k/a N2)?

If it's an alpha field containing numeric characters, it is unlikely to ever exceed '9999' (LJSF to the field length).

If it's an A10V, I believe it's treated as A10 for the comparison.  

In that case, the values compared are left-justified, and extended (space-filled) on the right to 10 places, -- as my "LJSF" was meant to indicate.  

Both 
     "1234"       ("1234      ") 
and 
     "12345"      ("12345     ")
are less than 
     "9999"       ("9999      "),
even though in terms of the underlying integer values,
1,234 < 9,999 < 12,345


Hence, the condition in "WHEN=N2 GT '9999'" is never satisfied.

quote:

Originally posted by j.gross:

If it's an A10V, I believe it's treated as A10 for the comparison.  

In that case, the values compared are left-justified, and extended (space-filled) on the right to 10 places, -- as my "LJSF" was meant to indicate.  

Both 
     "1234"       ("1234      ") 
and 
     "12345"      ("12345     ")
are less than 
     "9999"       ("9999      "),
even though in terms of the underlying integer values,
1,234 < 9,999 < 12,345


Hence, the condition in "WHEN=N2 GT '9999'" is never satisfied.

So, how are you seeing "12345" ("12345     ") as less that "9999" ("9999      ") again?

quote:

So, with Alpha values, the comparisons are not made with the underlying integer values, but

  
COMPUTE X_CASHIER/I10 = EDIT(SRPROD.SRPROD.SRPDCASHIERNO); NOPRINT
COMPUTE FLAG/A1 = IF X_CASHIER GT 9999 THEN 'Y' ELSE 'N'; NOPRINT