RET_BAL_TO_AGN_BYR

$SELECT  A:CONST;PROCESSING ...;T\PROG  U:LINK_BUYERS_TO_AGENT;ALLOCATE;G\GRID  A:CONST;COMPLETE ...;T\PROG    A:CONST;;I\DEBTOR,T\NAME,I\AMOUNT,I\LINK,I\BUYER,I\RET_AMOUNT,I\DM_MAIN  O:SETFOCUS;I\BUYER

$VALIDATE  M:  I:I\AMOUNT;<>;0  A:ADD;I\RET_AMOUNT;I\ANS;I\AMOUNT    I:I\ANS;>;0  D:YOU CAN NOT RETURN MORE THAN THE AVAILABLE BALANCE;ERRORM;I\RET_AMOUNT  

$SELECT  S:AGENT_CODE;I\AGENT    $VALIDATE  M:  A:CONST;;T\PROG,T\NAME    C:UCASE  I:I\AGENT;<>;  DO(A)    F:AGENT_MAST;Y;;I\AGENT=AM_CODE,T\AGENT_NAME=AM_NAME;AM_CODE='$I\AGENT$';I\AGENT    F:DEBTOR_MAST;Y;;I\DM_AGN_CR_ACCOUNT=DM_AGN_CR_ACCOUNT,I\DM_AGN_BYR=DM_DEBTOR;DM_LINKED_AGENT='$I\AGENT$' AND DM_AGN_CR_ACCOUNT='

$VALIDATE  M:  A:CONST;;I\ERROR,I\LINK,T\PROG    F:DEBTOR_MAST;;;I\DM_MAIN=DM_MAIN_DEBTOR;DM_DEBTOR='$I\BUYER$' AND DM_LINKED='Y';I\BUYER    I:I\DM_MAIN;<>;  F:DEBTOR_MAST;Y;;I\AMOUNT=DM_OSBAL,T\NAME=DM_NAME;DM_DEBTOR='$I\DM_MAIN$';I\BUYER    I:I\DM_MAIN;=;  F:DEBTOR_MAST;Y;;I\AMOUNT=DM_OSBAL,T\NAME=DM_NAME;DM_DEBTOR='

$DEFAULT  A:TIME;HH:MM:SS;T\TIME  A:DATE;DD MMM YYYY;T\DATE  A:TIMER_ON;1000    'U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\LINE,I\DEBTOR,I\NAME,I\AMOUNT,I\LINK    'PUTS PIC ON THE UPDATE BUTTON  O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\RUN

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

$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MKT=CM_NAME    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MKT    A:ORGS;;I\ORGS  A:CONST;$I\ORGS$;I\AGENT    I:I\ORGS;<>;  DO(03)  O:DISABLEINPUT;I\AGENT,C\AGENT  F:AGENT_MAST;;;T\AGENT_NAME=AM_NAME;A

$VALIDATE  A:CONST;;I\ERROR