MKT_RESEARCH

$SELECT  S:COMM_LIST;I\PROD

$SELECT  S:SUPPLIER_CODE3;I\SUPPL

$SELECT  I:I\AGENT;<>;  S:SALESMAN_AGENT;I\SMAN;I\AGENT    I:I\AGENT;=;  S:SALESMAN;I\SMAN

$SELECT  S:ITEM_SEL;I\ITEM

$SELECT      I:I\FROM_DATE;=;  A:DATE;DD MMM YYYY;I\FROM_DATE    I:I\TO_DATE;=;  A:DATE;DD MMM YYYY;I\TO_DATE      A:DATEDIFF;I\TO_DATE;I\DATEDIFF;I\FROM_DATE  I:I\DATEDIFF;<;0  D:TO DATE CANNOT BE LESS THAN FROM DATE;ERRORM;I\TO_DATE      A:DATEDIFF;I\TO_DATE;I\NEW_DATE;I\FROM_DATE    A:TIME;HH:MM;I\TMP_TIME  I:I\MARK

$SELECT  S:AGENT_CODE;I\AGENT

$VALIDATE    I:I\FROM_DATE;=;  A:DATE;DD MMM YYYY;I\FROM_DATE

$VALIDATE    I:I\TO_DATE;=;  A:DATE;DD MMM YYYY;I\TO_DATE      A:DATEDIFF;I\TO_DATE;I\DATEDIFF;I\FROM_DATE  I:I\DATEDIFF;<;0  D:TO DATE CANNOT BE LESS THAN FROM DATE;ERRORM;I\TO_DATE      A:DATEDIFF;I\TO_DATE;I\NEW_DATE;I\FROM_DATE    I:I\DATEDIFF;<;0  D:TO DATE CANNOT BE LESS THAN FROM DATE;ERRORM;I\TO_DATE    A:TIME;

$SELECT  S:SUPPLIER_CODE3;I\SUPPL      $VALIDATE    C:UCASE    I:I\SUPPL;<>;  F:SUPPLIER_MAST;Y;;T\SUPPL_NAME=SUM_NAME;SUM_MARKET='$I\MARKET$' AND SUM_SUPPL='$I\SUPPL$';I\SUPPL

$SELECT  S:ITEM_SEL;I\ITEM      $VALIDATE    C:UCASE    'A:SELPARM;2;I\TMP1  'A:CON;I\ITEM;I\ITEM;I\TMP1  $VALIDATE  F:VAR_MAST;;;T\NAME=VA_DESC;VA_PRODUCT=LEFT('$I\ITEM$', 2) AND VA_VARIETY=RIGHT('$I\ITEM$', 2);I\ITEM  I:T\NAME;=;  D:ITEM $I\ITEM$ IS NOT VALID;ERRORM;I\ITEM

$SELECT  I:I\AGENT;<>;  S:SALESMAN_AGENT;I\SMAN;I\AGENT    I:I\AGENT;=;  S:SALESMAN;I\SMAN    $VALIDATE  I:I\SMAN;<>;  DO(03)    I:I\AGENT;<>;    DO(AG)      F:SALESMAN_MAST;Y;;T\SMAN_NAME=SLS_NAME;SLS_CODE='$I\SMAN$' AND SLS_AGENT='$I\AGENT$';I\SMAN    DOEND(AG)        I:I\AGENT;=;    DO(AG)      F:SALESMAN_MAST;Y;;;S

$VALIDATE    'UPPERCASE  C:UCASE    V:N;Y    O:BACKCOLOR;C\RUN;YELLOW  O:SETFOCUS;C\RUN

$DEFAULT    'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\CM_ALLOW_MNTH_REPORT=CM_ALLOW_MNTH_REPORT,I\CM_REP_RUN_TIME=CM_REPORT_RUN_TIME,I\CM_ALLOWED_DATE_RANGE=CM_ALLOWED_DATE_RANGE;      'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MARKET 

$DEFAULT  A:DATE;DD MMM YYYY;T\DATE  A:DATE;DD MMM YYYY;I\FROM_DATE  A:DATE;DD MMM YYYY;I\TO_DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000

$SELECT  S:COMM_LIST;I\PROD      $VALIDATE    C:UCASE  I:I\PROD;<>;  DO(01)     F:PRODUCT_MAST;Y;;;PR_PRODUCT='$I\PROD$';I\PROD  DOEND(01)

$SELECT  S:AGENT_CODE;I\AGENT    $VALIDATE    C:UCASE  I:I\AGENT;<>;  F:AGENT_MAST;Y;;T\AGENT_NAME=AM_NAME;AM_CODE='$I\AGENT$';I\AGENT