Freshmark replication server

freshmark-canonical

Program drill-down

PRT_SLS_SUMM_BY_SMAN

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

Field inventory

27

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 CMD 10 C -1 311, 337
$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 CMD 3 C -1 481, 193
$SELECT  S:AGENT_CODE2;I\AGN
1 0.0 H -1 0, 0
  
1 0.0 AGN I -1 381, 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 381, 229
  
1 0.0 Work 12 I -1 381, 265
$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 Work 14 I 0 21, 61
$DEFAULT  A:ORGS;;I\ORGS    I:I\ORGS;<>;  DO(DWE)    A:VAR;I\ORGS;I\AGN    O:DISABLEINPUT;I\AGN,C\AGN        F:AGENT_MAST;;;T\AGN_DESC=AM_NAME;AM_CODE='$I\AGN$'  DOEND(DWE)    I:I\ORGS;=;  DO(DVB)    O:ENABLEINPUT;I\AGN,C\AGN        F:AGENT_MAST;;;T\AGN_DESC=AM_NAME;AM_CODE='$I\AGN$'  DOEND(DVB)
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 241, 229
  
1 0.0 Label 9 T -1 241, 265
  
1 0.0 Label 1 T -1 241, 193
  
1 0.0 Label 4 T -1 541, 193
  
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