STATS_ENQ_UPDSLS

$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    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MARKET

$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   'I:I\SDATE;=;  'D:PLEASE ENTER A STARTING DATE;ERRORM;I\SDATE    'I:I\EDATE;=;  'D:PLEASE ENTER AN ENDING DATE;ERRORM;I\EDATE    'A:CONST;COLLECTING DATA...;T\PROG  'E:$GBLROOT$LEGEND\PROJ_FMS\BIN\PRINTING.EXE /PRINT=DAILY_STATS_BY_PROV;$I\MARKET$,$I\SDATE$,$I\EDATE$,$I\ITEM$,S  'A:CONST;DATA COLLECTION COMP

$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        $VALIDATE  A:CONST;;I\TMP1,I\TMP2,I\TMP3    C:UCASE  I:I\GRADE;<>;  DO(GRD)    A:LEN;I\GRADE;I\LEN    I:I\LEN;<>;1    DO(GRADE)     A:LEFT;I\GRADE,1;I\TMP1     A:RIGHT;I\GRA

$SELECT  S:CONT_PR_NODEL;I\CONT;I\PROD;I\VAR;I\TMP1;I\TMP2    $VALIDATE  C:UCASE    I:I\CONT;<>;  F:CONT_MAST;Y;;;CN_PRODUCT='$I\PROD$' AND CN_VAR='$I\VAR$' AND CN_CONT='$I\CONT$';I\CONT        

  $SELECT  S:COUNT_MAST_CNT;I\COUNT;I\PROD;I\GRADE;I\CONT        $VALIDATE  C:UCASE    I:I\COUNT;<>;  F:COUNT_MAST;Y;;;CNT_PRODUCT='$I\PROD$' AND CNT_GRADE = '$I\GRADE$' AND CNT_CONTAINER='$I\CONT$' AND CNT_COUNT  = '$I\COUNT$';I\COUNT

$SELECT  S:PROVINCE;I\PROV      $VALIDATE  C:UCASE    I:I\PROV;<>;  F:PROV_MAST;Y;;T\PROV_DESC=PR_DESC;PR_PROV='$I\PROV$' AND PR_BLOCKED <> 'Y';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)      A:CONST;COLLECTING DATA...;T\PROG      U:STATISTICS_UNPAID_SALES      O:SETFOCUS;I\ITEM      'A

$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  S:COUNT_MAST_CNT;I\COUNT;I\PROD;I\GRADE;I\CONT

$SELECT  S:PROVINCE;I\PROV

$SELECT  S:COLOUR_ITEM;I\COLOUR