Freshmark replication server

freshmark-canonical

Program drill-down

AGN_PRO_FORMA

AGENT PROFORMA SALES LIMIT. Type MAN, base table AGENT_MAST.

Field inventory

31

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 H -1 0, 0
  
1 0.0 Label 1 T -1 291, 25
  
1 0.0 Label 2 T -1 271, 49
  
1 0.0 Label 3 T -1 1, 25
  
1 0.0 Label 4 T -1 621, 25
  
1 0.0 Label 5 T -1 671, 25
  
1 0.0 Label 6 T -1 621, 49
  
1 0.0 Label 7 T -1 671, 49
  
1 0.0 Label 8 T -1 211, 193
  
1 0.0 Label 9 T -1 211, 229
  
1 0.0 Label 10 T -1 211, 265
  
1 0.0 Label 11 T -1 211, 301
  
1 0.0 AGENT_MAST AM_CODE I -1 381, 193
$SELECT  S:AGN_CODE;I\CODE    $VALIDATE  A:CONST;;W\DM_MAIN  M:  C:UCASE  I:I\CODE;=;  F:AGENT_MAST;Y;;W\ACCTYPE=AM_TYPE,T\NAME=AM_NAME,I\PRO_FORMA_LIMIT=AM_PRO_LIMIT,I\BLOCK_SALES=AM_PRO_BLOCK,I\PROBUYER=AM_PRO_DEBTOR;AM_CODE='$I\ORGS$';I\CODE       $AFTER_READ  I:I\PROBUYER;<>;  F:DEBTOR_MAST;Y;;I\BUYER=DM_NAME;DM_DE
1 0.0 AGENT_MAST AM_PRO_LIMIT I -1 381, 229
  
1 0.0 AGENT_MAST AM_PRO_BLOCK I -1 381, 265
$VALIDATE  C:UCASE  V:Y;N
1 0.0 AGENT_MAST AM_PRO_DEBTOR I -1 381, 301
$SELECT    S:DEBTOR;I\PROBUYER    $VALIDATE  M:  I:I\PROBUYER;<>;  F:DEBTOR_MAST;Y;;W\DM_MAIN=DM_MAIN_DEBTOR;DM_DEBTOR='$I\PROBUYER$';I\PROBUYER    I:W\DM_MAIN;<>;  D:ENTER MAIN BUYERS ONLY;ERRORM;I\PROBUYER    I:W\DM_MAIN;;  F:DEBTOR_MAST;Y;;I\BUYER=DM_NAME;DM_DEBTOR='$I\PROBUYER$';I\PROBUYER  
1 0.0 Work 16 I -1 381, 337
$VALIDATE  A:CONST;;I\BUYER
1 0.0 Work 17 I 0 21, 181
$DEFAULT  A:ORG;;I\MARKET  A:TIME,HH:MM:SS;T\TIME  A:DATE;DD MMM YYYY;T\DATE  A:TIMER_ON;1000  
1 0.0 Work 1 I 0 91, 97
$DEFAULT  A:ORGS;;I\ORGS    I:I\ORGS;<>;  F:AGENT_MAST;Y;;W\ACCTYPE=AM_TYPE,T\NAME=AM_NAME,I\PRO_FORMA_LIMIT=AM_PRO_LIMIT,I\BLOCK_SALES=AM_PRO_BLOCK,I\PROBUYER=AM_PRO_DEBTOR;AM_CODE='$I\ORGS$';I\CODE     I:I\ORGS;=;  O:SETFOCUS;I\CODE    I:I\PROBUYER;<>;  F:DEBTOR_MAST;Y;;W\ACCTYPE=DM_ACCTYPE,I\BUYER=DM_NAME;DM_DEBTOR=
1 0.0 Label 18 T -1 211, 337
  
1 0.0 Label 19 T -1 501, 193
  
1 0.0 Work 20 I 0 21, 217
  
1 0.0 Work 1 I 0 21, 145
$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:ORGS;;I\CODE  I:I\CODE;<>;  DO(LOA)    O:DISABLEINPUT;I\CODE,C\18    F:AGENT_MAST;;;T\NAME=AM_NAME;AM_CODE='$I\CODE$'  
1 0.0 Work 1 I 0 31, 289
  
1 0.0 CMD 1 C -1 461, 193
$SELECT    S:AGN_CODE;I\CODE  
1 0.0 CMD 2 C -1 491, 301
$SELECT  S:DEBTOR;I\PROBUYER
10 0.0 ZX_PRINT Z 0 0, 0
  
10 0.0 ZX_SELECT Z 0 0, 0
  
10 0.0 ZX_DELETE Z 0 0, 0
  
10 0.0 ZX_UPDATE Z 0 0, 0
  
10 0.0 ZX_EXIT Z 0 0, 0