STATISTICS_ENQ

$DEFAULT  A:USERIP;;I\IP

$DEFAULT  A:ORGS;;I\AGENT

$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\CM_PROHIBIT_STATS=CM_PROHIBIT_STATS    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MARKET    O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\RUN    I:I\CM_PROHIBIT_STATS;=;Y

$DEFAULT  A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  '''A:TIMER_ON;1000    A:DATE;DD MMM YYYY;I\SDATE  A:DATE;DD MMM YYYY;I\EDATE    

$SELECT  S:ITEM_NEW;I\ITEM

$DEFAULT  A:USERID;;I\USERID

'$VALIDATE    'A:CONST;;T\PROG    'I:I\SDATE;=;  'A:CONST;$T\DATE$;I\SDATE

'$VALIDATE    'I:I\EDATE;=;  'A:CONST;$T\DATE$;I\EDATE      'A:CONST;COLLECTING DATA...;T\PROG      'U:STATISTICS      'O:SETFOCUS;I\ITEM      'A:CONST;DATA COLLECTION COMPLETE;T\PROG

$SELECT  S:ITEM_NEW;I\ITEM    $VALIDATE  A:CONST;;I\LPRICE,I\HPRICE,I\AVPRICE,I\QTY,I\MASS,I\VALUE,T\DESC,I\GRADE,I\CONT,I\COUNT,I\PROV,I\COLOUR,T\PROV_DESC,T\COLOR_DESC  A:CONST;;I\LPRICE_WK,I\HPRICE_WK,I\AVPRICE_WK,I\QTY_WK,I\MASS_WK,I\VALUE_WK  A:CONST;;I\LPRICE_MTH,I\HPRICE_MTH,I\AVPRICE_MTH,I\QTY_MTH,I\MASS_MTH,I\

$SELECT   U:STATS_AMENDMENT;DAILY_DATA  O:SHOW;T\PROG  O:SETFOCUS;I\ITEM  A:CONST;;I\HPRICE,I\LPRICE,I\QTY,I\VALUE,I\MASS,I\ITEM,I\GRADE,I\CONT,I\COUNT,I\PROV,I\COLOUR,I\AVPRICE,T\DESC,T\PROV_DESC,T\COLOR_DESC

$SELECT  I:I\FIELD;>;2  DO(1)  S:GRADE_ITEM2;I\GRADE;I\ITEM  A:SELPARM;1;I\TMP1  A:SELPARM;2;I\GRADE  A:CONST;$I\GRADE$;I\TPM2  A:CONST;$I\TMP1$$I\GRADE$;I\GRADE  DOEND(1)      I:I\FIELD;<=;2  DO(1)  S:GRADE_ITEM3;I\GRADE;I\ITEM  A:SELPARM;1;I\TMP1  A:SELPARM;2;I\GRADE  A:CONST;$I\GRADE$;I\TPM2  A:CONST;$I\TMP1$$I\GRAD

$SELECT  I:I\FIELD;>;2  S:CONT_PR_NODEL;I\CONT;I\PROD;I\VAR;I\TMP1;I\TMP2    I:I\FIELD;<=;2  S:CONT_PR_NODEL1;I\CONT;I\ITEM;I\TMP1;I\TMP2    $VALIDATE  C:UCASE    I:I\CONT;<>;  DO(1)  I:I\FIELD;>;2  F:CONT_MAST;Y;;I\COUNT_REQ=CN_CNTREQ;CN_PRODUCT='$I\PROD$' AND CN_VAR='$I\VAR$' AND CN_CONT='$I\CONT$';I\CONT    I:I\FIEL

$SELECT  A:LEN;I\GRADE;I\LEN    I:I\FIELD;>;2  DO(G)    I:I\LEN;=;1    S:CNT_MAST;I\COUNT;I\PROD;I\TEMP_GRADE;I\CONT        I:I\LEN;<>;1    S:COUNT_MAST_CNT;I\COUNT;I\PROD;I\GRADE;I\CONT  DOEND(G)      I:I\FIELD;=;2  DO(G)    I:I\LEN;=;1    S:COUNT_MAST_CNT;I\COUNT;I\ITEM;I\TEMP_GRADE;I\CONT        I:I\LEN;<>;1    S:CO

$SELECT  S:PROVINCE;I\PROV    $VALIDATE  C:UCASE    I:I\PROV;<>;  DO(MKT)    I:I\MARKET;<>;15    F:PROV_MAST;Y;;T\PROV_DESC=PR_DESC;PR_PROV='$I\PROV$' AND PR_BLOCKED <> 'Y';I\PROV  DOEND(MKT)    I:I\MARKET;=;15  DO(MKT)    I:I\PROV_REQ;=;Y    DO(REQ)       I:I\PROV;=;       D:PROVINCE IS REQUIRED;ERRORM;I\PROV         

$SELECT  S:COLOUR_ITEM;I\COLOUR    $VALIDATE  C:UCASE    I:I\COLOUR;<>;   DO(01)    F:COLOUR_MAST;Y;;T\COLOR_DESC=CLR_DESC;CLR_COLOUR='$I\COLOUR$' AND (CLR_BLOCKED <> 'Y' OR ISNULL(CLR_BLOCKED));I\COLOUR   DOEND(01)    'I:I\MARKET;=;15  'DO(MKT)    'F:COLOUR_MAST;Y;;T\COLOR_DESC=CLR_DESC;CLR_COLOUR='$I\COLOUR$' AND (CL

$SELECT  S:GRADE_ITEM2;I\GRADE;I\ITEM  A:SELPARM;1;I\TMP1  A:SELPARM;2;I\GRADE  A:CONST;$I\GRADE$;I\TPM2  A:CONST;$I\TMP1$$I\GRADE$;I\GRADE

$SELECT  S:CONT_PR_NODEL;I\CONT;I\PROD;I\VAR;I\TMP1;I\TMP2

$SELECT  A:LEN;I\GRADE;I\LEN    I:I\FIELD;>;2  DO(G)    I:I\LEN;=;1    S:CNT_MAST;I\COUNT;I\PROD;I\TEMP_GRADE;I\CONT        I:I\LEN;<>;1    S:COUNT_MAST_CNT;I\COUNT;I\PROD;I\GRADE;I\CONT  DOEND(G)    I:I\FIELD;=;2  DO(G)    I:I\LEN;=;1    S:COUNT_MAST_CNT;I\COUNT;I\ITEM;I\TEMP_GRADE;I\CONT        I:I\LEN;<>;1    S:COUN

$SELECT  S:PROVINCE;I\PROV

$SELECT  S:COLOUR_ITEM;I\COLOUR

$VALIDATE  I:I\QTY;=;  A:CONST;0;I\QTY

$VALIDATE  I:I\MASS;=;  A:CONST;0;I\MASS    I:I\MARKET;=;15  DO(00)    'O:DISABLEINPUT;I\HPRICE,I\LPRICE,I\QTY,I\VALUE,I\MASS    O:SETFOCUS;C\RUN    O:BACKCOLOR;C\RUN;YELLOW  DOEND(00)