SUPPL_DUMP_BY_AGN

$SELECT  S:AGENT_CODE;I\AGENT

$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:CONST;PROCESSING ...;T\PROG  'PATH THEN FOLLOWED BY PRINTING NAME THEN FOLLOWED BY PARAMETERS THEN LASTLY THE OUTPUT TYPE IE: S OR P OR Y  E:$GBLROOT$LEGEND\PROJ_FMS\BIN\PRINTING.EXE /PRINT=PRINT_SUPPL_MAS

$SELECT  'DISPLAY A SELECTION WINDOW  S:PROV_GROUP;I\PROV  

$SELECT  S:SECTION;I\PROD_SECT

$SELECT  I:I\MAJOR_PROD;=;Y  S:MAJOR_PROD;I\MAJOR_PROD    I:I\MAJOR_PROD;<>;Y  S:PRODUCT;I\PROD  

$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET  A:ORGS;;I\ORGS    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME  C:MCASE;;T\MARKET      A:CONST;$T\DATE$;I\FROM_DATE,I\TO_DATE      A:CONST;1;K\DUMP  A:CONST;Y;I\CONT_DETAILS  'A:CONST;Y;I\MAJOR_PROD

$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

$DEFAULT    A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000        I:I\ORGS;<>;  DO(SQS)    A:VAR;I\ORGS;I\AGENT    O:DISABLEINPUT;I\AGENT    O:DISABLEINPUT;C\AGN    F:AGENT_MAST;;;T\AGENT_NAME=AM_NAME;AM_CODE = '$I\ORGS$'  DOEND(SQS)    I:I\ORGS;=;  DO(SQS)    O:ENABLEINPUT;I\AGENT    O:ENABLEINPUT;

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

$VALIDATE  A:CONST;;T\PROG  M:    I:I\PERCENT;>;100;VAL  D:100 IS THE HIGHEST ALLOWED ENTRY;ERRORM;I\PERCENT    I:I\PERCENT;=;0;VAL  D:MAY NOT ENTER ZERO;ERRORM;I\PERCENT

$SELECT    'DISPLAY A SELECTION WINDOW  S:PROV_GROUP;I\PROV        $VALIDATE    'CONVERT TO UPPERCASE  C:UCASE    I:I\PROV;<>;  F:PROV_MAST;Y;;;PR_GROUPING='$I\PROV$';I\PROV  

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

$SELECT  S:SECTION;I\PROD_SECT    $CALCULATE  C:UCASE    I:I\PROD_SECT;<>;  F:SECT_MAST;Y;;T\SNAME=SE_DESC;SE_SECT='$I\PROD_SECT$';I\PROD_SECT    I:I\PROD_SECT;=;  A:CONST;;T\SNAME

$SELECT  S:PRODUCT;I\PROD    $CALCULATE  C:UCASE    I:I\PROD;<>;  F:PRODUCT_MAST;Y;;T\PROD_DESC=PR_DESC;PR_PRODUCT='$I\PROD$';I\PROD

'$SELECT  'S:MAJOR_PROD;I\MAJOR_PROD      $VALIDATE    'UPPERCASE  C:UCASE    V:N;Y    

$VALIDATE      C:UCASE    I:I\SUPPL_CATEG;<>;  F:SUPPLIER_MAST;Y;;I\SUPPL_CATEG=SUM_CATEGORY;SUM_SUPPL='$I\SUPPL$';I\SUPPL_CATEG

$VALIDATE    I:I\CONT_DETAILS;=;  A:CONST;N;I\CONT_DETAILS    C:UCASE  V:Y;N    O:BACKCOLOR;C\RUN;YELLOW  O:SETFOCUS;C\RUN