SUPPL_DUMP_AGN

$SELECT    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_NEW_SUPPLIER_LISTING;$I\MARKET$,$I\AGENT$,$I\SUPP$,$I\FROM_DATE$,$I\TO_DATE$,$I\DUMP$,$I\PRODUCT$,S    A:CONS

$SELECT  S:PRODUCT;I\PRODUCT  

$SELECT  S:AGENT_CODE;I\AGENT  

$SELECT  S:SUPPL_CODE;I\SUPPL

$DEFAULT    'LOAD MARKET CODE  A:ORG;;I\MARKET  A:ORGS;;I\ORGS    '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    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MARKET    A:VAR;I\ORGS;I\AGENT  I:I\ORGS;

$SELECT  S:SUPPL_CODE;I\SUPPL    $VALIDATE  I:I\SUPPL;<>;  F:SUPPLIER_MAST;Y;;T\SUPPL_NAME=SUM_NAME;SUM_SUPPL='$I\SUPPL$';I\SUPPL      

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

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

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

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

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