Freshmark replication server

freshmark-canonical

Program drill-down

SLS_SUMM_BY_SMAN

SALES SUMM BY SMAN. Type DSP, base table STK_TRANS.

Field inventory

36

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 CMD 10 C -1 271, 361
$SELECT  A:CONST;;I\ALLOW    I:I\FDATE;=;  D:SPECIFY A FROM DATE;ERRORM;I\FDATE    I:I\TDATE;=;  D:SPECIFY A TO DATE;ERRORM;I\TDATE    I:I\AGN;=;  D:AGENT CODE MUST BE ENTERED;ERRORM;I\AGN    F:AGENT_MAST;Y;;T\AGN_DESC=AM_NAME;AM_CODE='$I\AGN$';I\AGN    A:DATEDIFF;I\TDATE;I\DATEDIFF;I\FDATE  I:I\DATEDIFF;<;0  D:TO DATE
1 0.0 Work 1 I 0 1, 85
  
1 0.0 Work 2 I 0 1, 109
  
1 0.0 Work 3 I 0 1, 133
  
1 0.0 Work 4 I 0 1, 157
  
1 0.0 Work 5 I 0 1, 181
  
1 0.0 Label 1 T -1 221, 229
  
1 0.0 Work 2 I -1 331, 229
$SELECT  I:I\AGN;<>;  S:SALESMAN_AGENT;I\SMAN;I\AGN    I:I\AGENT;=;  S:SALESMAN;I\SMAN    $VALIDATE  I:I\SMAN;<>;  DO(03)    I:I\AGN;<>;    DO(AG)      F:SALESMAN_MAST;Y;;T\SMAN_NAME=SLS_NAME;SLS_CODE='$I\SMAN$' AND SLS_AGENT='$I\AGN$';I\SMAN    DOEND(AG)        I:I\AGN;=;    DO(AG)      F:SALESMAN_MAST;Y;;;SLS_CODE='$
1 0.0 CMD 3 C -1 431, 193
$SELECT  S:AGENT_CODE2;I\AGN
1 0.0 H -1 0, 0
  
1 0.0 AGN I -1 331, 193
$SELECT  S:AGENT_CODE2;;I\AGN    $CALCULATE  M:  C:UCASE    F:AGENT_MAST;Y;;T\AGN_DESC=AM_NAME;AM_CODE='$I\AGN$';I\AGN  I:I\ORGS;<>;  DO(AGC)    I:I\AGN;<>;I\ORGS;    D:AGENT CODE DOES NOT MATCH AGENT LOGIN.;ERRORM;I\AGN  DOEND(AGC)
1 0.0 Work 1 I 0 101, 349
  
1 0.0 Work 2 I 0 121, 349
  
1 0.0 Work 11 I -1 331, 277
  
1 0.0 Work 12 I -1 331, 313
$CALCULATE  A:CONST;;I\ALLOW    M:    A:DATEDIFF;I\TDATE;I\DATEDIFF;I\FDATE  I:I\DATEDIFF;<;0  D:TO DATE CANNOT BE LESS THAN FROM DATE;ERRORM;I\TDATE      I:I\CM_ALLOW_MNTH_REPORT;<>;1  DO(CHK)   U:FIX_LOC_TRANS;REPORTS_TIME_CHECK;I\FDATE,I\TDATE   I:I\ALLOW;=;N   DO(01)    O:SETFOCUS;I\FDATE   DOEND(01)  DOEND(CHK)   
1 0.0 Label 1 T -1 471, 229
  
1 0.0 Work 14 I 0 21, 61
$DEFAULT  A:ORGS;;I\ORGS    F:AGENT_MAST;;AM_CODE;T\AGENT1=AM_NAME,I\AM_REP=AM_PORT_CONT_REP;AM_CODE='$I\ORGS$'  ''F:FMSXDEV.ZU_USER;;;I\MENU_G=ZU_ZC;ZU_USERID='$I\USER_ID$'  U:MENU_GROUP_SAD;LOOKUP  F:PORT_SESSION;;;I\PORT=PSE_PORT;PSE_USER='$I\USER_ID$'  F:SLSSECT_ACCESS;;;I\SALES_SEC=SS_SECT;SS_AGENT='$I\AGENT$' AND
1 0.0 Work 15 I 0 1, 61
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\CM_ALLOW_MNTH_REPORT=CM_ALLOW_MNTH_REPORT    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MARKET    'INITIALIZES THE DATE AND TIME INTO THE T\DATE AND T\TIME FIELDS  A:DATE;DD MMM YYYY;
1 0.0 Work 3 I 0 141, 349
  
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 221, 277
  
1 0.0 Label 9 T -1 221, 313
  
1 0.0 Label 1 T -1 221, 193
  
1 0.0 Label 4 T -1 471, 193
  
1 0.0 CMD 2 C -1 431, 229
$SELECT  I:I\AGENT;<>;  S:SALESMAN_AGENT;I\SMAN;I\AGENT
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