Freshmark replication server

freshmark-canonical

Program drill-down

AGN_AMEND_STATE

AGENT AMEND STATUS. Type DSP, base table AGENT_MAST.

Field inventory

26

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 CMD 1 C -1 401, 265
$DEFAULT      '$CALCULATE  'A:CONST;;T\PROG  '$VALIDATE  $SELECT    W:AGENT_MAST;;;AM_CODE=I\AGENT,AM_ALLOW_NEW_DELIV=I\AM_ALLOW_NEW_DELIV,AM_ALLOW_AMEND_DELIV=I\AM_ALLOW_AMEND_DELIV;AM_CODE='$I\AGENT$'    A:CONST;;I\AGENT,I\AM_ALLOW_NEW_DELIV,I\AM_ALLOW_AMEND_DELIV    O:SETFOCUS;I\AGENT    
1 0.0 Work 13 I 0 1, 61
$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;<>;  DO(AG
1 0.0 CMD 22 C -1 451, 157
$SELECT  S:AGENT_CODE;I\AGENT  
1 0.0 H -1 0, 0
  
1 0.0 Work 14 I 0 31, 61
  
1 0.0 AGENT_MAST AM_CODE I -1 401, 157
$DEFAULT      'A:VAR;I\ORGS;I\AGENT  'I:I\ORGS;<>;  'DO(AGN)  '  O:DISABLEINPUT;I\AGENT,C\AGN  '  F:AGENT_MAST;Y;;T\AGENT_NAME=AM_NAME;AM_CODE='$I\AGENT$';  '  A:AGENT_NAME;;I\AGENT  '  O:SETFOCUS;I\AM_ALLOW_NEW_DELIV  'DOEND(AGN)    $SELECT  S:AGENT_CODE1;I\AGENT    $CALCULATE  'A:CONST;;T\PROG    :M      C:UCASE  'I:
1 0.0 Label 1 T -1 1, 25
  
1 0.0 Label 2 T -1 291, 25
  
1 0.0 Label 3 T -1 281, 49
  
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 241, 157
  
1 0.0 Label 12 T -1 481, 157
  
1 0.0 Label 19 T -1 601, 325
  
1 0.0 Label 6 T -1 611, 361
  
1 0.0 Label 1 T -1 241, 193
  
1 0.0 Label 2 T -1 241, 229
  
1 0.0 AGENT_MAST AM_ALLOW_NEW_DELIV I -1 401, 193
$VALIDATE    'UPPERCASE  C:UCASE    V:N;Y    'O:BACKCOLOR;C\RUN;YELLOW  'O:SETFOCUS;AM_ALLOW_AMEND_DELIV
1 0.0 AGENT_MAST AM_ALLOW_AMEND_DELIV I -1 401, 229
$VALIDATE    'UPPERCASE  C:UCASE    V:N;Y    O:BACKCOLOR;W\UPDATE;YELLOW  O:SETFOCUS;W\UPDATE
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