Freshmark replication server

freshmark-canonical

Program drill-down

SMAN_REMARKS

SALESMAN MESSAGE. Type DSP, base table FM_TARIFF.

Field inventory

35

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 CMD 5 C -1 341, 157
  
1 0.0 CMD 2 C -1 331, 121
  
1 0.0 H -1 1, 25
  
1 0.0 I -1 291, 121
  
1 0.0 Work 6 I 0 1, 121
  
1 0.0 I -1 291, 193
$SELECT  S:MSG_CONS;I\CONSIGN;I\AGENT    $VALIDATE  F:STK_DETS;Y;SD_CONSIGN;I\COMMENT=SD_SMAN_COMMENT,W\COMMENT=SD_SMAN_COMMENT,I\SD_DATE=SD_DATE;SD_MARKET='$I\MARKET$' AND SD_AGENT='$I\AGENT$' AND SD_DELIND<>'Y' AND ISNULL(SD_CDATE) ORDER BY SD_DATE DESC;I\CONSIGN
1 0.0 Work 1 I 0 400, 343
  
1 0.0 DEFAULT I 0 1, 73
$DEFAULT    A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    A:USERID;;I\USERID  
1 0.0 Work 15 I 0 51, 73
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME  C:MCASE;;T\MARKET
1 0.0 Label 4 T -1 381, 157
  
1 0.0 I -1 291, 229
$VALIDATE    C:UCASE  I:I\COMMENT;<>;  D0(1)  I:I\COMMENT;=;W\COMMENT  D:ENTER MESSAGE OR CELAR EXISTING MESSAGE;ERRORM;I\COMMENT  DOEND(1)  O:SETFOCUS;C\GO  O:BACKCOLOR;C\GO;YELLOW
1 0.0 Work 2 I 0 451, 313
  
1 0.0 I -1 291, 157
$SELECT  I:I\AGENT;<>;  S:SALESMAN_AGENT;I\SMAN;I\AGENT    I:I\AGENT;=;  S:SALESMAN;I\SMAN    $VALIDATE  I:I\SMAN;<>;  DO(03)    I:I\AGENT;<>;    DO(AG)      F:SALESMAN_MAST;Y;;T\BNAME=SLS_NAME;SLS_CODE='$I\SMAN$' AND SLS_AGENT='$I\AGENT$';I\SMAN            U:MARKET_FUNCTIONS;CHECK_SECTION      I:I\ERROR;=;Y      D:USE
1 0.0 Work 2 I 0 400, 373
  
1 0.0 Label 3 T -1 141, 121
  
1 0.0 Label 8 T -1 291, 25
  
1 0.0 Label 7 T -1 311, 49
S
1 0.0 Label 9 T -1 1, 25
  
1 0.0 Label 5 T -1 671, 25
  
1 0.0 Label 6 T -1 671, 49
  
1 0.0 Label 1 T -1 621, 49
  
1 0.0 Label 2 T -1 621, 25
  
1 0.0 Label 3 T -1 141, 157
  
1 0.0 Label 4 T -1 141, 193
  
1 0.0 Label 5 T -1 141, 229
  
1 0.0 Work 2 I 0 1, 97
$DEFAULT  A:ORGS;;I\ORGS    I:I\ORGS;<>;  DO(SQS)    A:VAR;I\ORGS;I\AGENT    O:DISABLEINPUT;I\AGENT    O:DISABLEINPUT;C\AGN    F:AGENT_MAST;;;T\AGN_NAME=AM_NAME,I\AM_PORT_CONT_REP=AM_PORT_CONT_REP;AM_CODE = '$I\ORGS$';  DOEND(SQS)    I:I\ORGS;=;  DO(SQS)    D:ONLY AGENTS ARE ALLOWED TO SET A MESSAGE;ERRORM  DOEND(SQS)
1 0.0 CMD 1 C -1 291, 289
$SELECT    U:SMAN_REMARKS;UPDATE    A:CONST;;T\BNAME,I\SMAN,I\CONSIGN,I\COMMENT,W\COMMENT  O:SETFOCUS;I\SMAN
1 0.0 Work 1 I 0 481, 313
  
1 0.0 Work 1 I 0 1, 145
  
1 0.0 Label 1 T -1 381, 121
  
10 0.0 ZX_PRINT Z 0 1, 25
  
10 0.0 ZX_SELECT Z 0 1, 25
  
10 0.0 ZX_DELETE Z 0 1, 25
  
10 0.0 ZX_UPDATE Z 0 1, 25
  
10 0.0 ZX_EXIT Z 0 1, 25