Freshmark replication server

freshmark-canonical

Program drill-down

AGN_CREDIT_BUYER

AGENT CREDIT ACCOUNT. Type MAN, base table DEBTOR_MAST.

Field inventory

30

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Label 4 T -1 231, 229
  
1 0.0 DEBTOR_MAST DM_NAME I -1 341, 229
$VALIDATE  C:UCASE
1 0.0 Label 2 T 0 21, 253
  
1 0.0 H -1 0, 0
  
1 0.0 Work 1 I 0 61, 49
  
1 0.0 DEBTOR_MAST DM_LINKED_AGENT I 0 491, 325
  
1 0.0 DEBTOR_MAST DM_DEBTOR I -1 341, 193
$VALIDATE  M:  C:UCASE    $AFTER_READ  I:I\DM_LINKED_AGENT;<>;  DO(0)    I:I\AM_AGENT;<>;I\DM_LINKED_AGENT    DO(E)      A:CONST;;I\DM_NAME,I\DM_AGN_CR_ACCOUNT,I\DM_LINKED_AGENT,I\DM_ACCTYPE      D:BUYER LINKED TO AGENT - $I\DM_LINKED_AGENT$;ERROR;I\DM_DEBTOR    DOEND(E)  DOEND(0)    I:I\DM_ACCTYPE;<>;CR  DO(E)    A:CO
1 0.0 Work 13 I 0 1, 49
$DEFAULT  A:TIME;HH:MM:SS;T\TIME  A:DATE;DD MMM YYYY;T\DATE  A:TIMER_ON;1000    'PUTS PIC ON THE UPDATE BUTTON  O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\RUN
1 0.0 DEBTOR_MAST DM_ACCTYPE I 0 31, 289
  
1 0.0 Work 1 I -1 341, 157
$SELECT  S:AGENT_CODE;I\AM_AGENT    $VALIDATE  M:  C:UCASE  F:AGENT_MAST;Y;;T\AM_NAME=AM_NAME;AM_CODE='$I\AM_AGENT$';I\AM_AGENT
1 0.0 DEBTOR_MAST DM_AGN_CR_ACCOUNT I -1 341, 265
$VALIDATE  C:UCASE  V:Y;N    I:I\DM_AGN_CR_ACCOUNT;=;Y  A:CONST;$I\AM_AGENT$;I\DM_LINKED_AGENT
1 0.0 DEBTOR_MAST DM_MARKET I 0 31, 49
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\DM_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\AM_AGENT    I:I\ORGS;<>;  DO(03)  O:DISABLEINPUT;I\AM_AGENT,C\AGENT  F:AGENT_MAST;;;T\AM_NAME=AM_
1 0.0 Label 1 T -1 291, 25
  
1 0.0 Label 3 T -1 671, 25
  
1 0.0 Label 4 T -1 671, 49
  
1 0.0 Label 2 T -1 231, 193
  
1 0.0 Label 1 T -1 231, 265
  
1 0.0 Label 1 T 0 21, 241
  
1 0.0 Label 6 T -1 621, 25
  
1 0.0 Label 8 T -1 231, 157
  
1 0.0 Label 7 T -1 621, 49
  
1 0.0 Label 5 T -1 1, 25
  
1 0.0 T -1 401, 157
  
1 0.0 Label 2 T -1 311, 49
  
1 0.0 Label 2 T -1 301, 325
  
10 0.0 ZX_PRINT Z 0 0, 0
  
10 0.0 ZX_SELECT Z 0 0, 0
  
10 0.0 ZX_EXIT Z 0 0, 0
  
10 0.0 ZX_UPDATE Z 0 0, 0
  
10 0.0 ZX_DELETE Z 0 0, 0