Freshmark replication server

freshmark-canonical

Program drill-down

DAILY_STAT_ITEM_CONT

DAILY STATS BY ITEM AND CONTAINER. Type DSP, base table STK_DETS.

Field inventory

48

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 H -1 0, 30
  
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 261, 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 IP I 0 61, 61
$DEFAULT  A:USERIP;;I\IP
1 0.0 MARKET I 0 21, 61
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    '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    A:CONST;N;I\DUMP
1 0.0 Work 11 I 0 1, 61
$DEFAULT  A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    A:DATE;DD MMM YYYY;I\SDATE  A:DATE;DD MMM YYYY;I\EDATE  A:DATE;DD MMM YYYY;I\TO_DATE  
1 0.0 Label 12 T -1 201, 193
  
1 0.0 Label 13 T -1 201, 229
  
1 0.0 Label 14 T -1 201, 265
  
1 0.0 CMD 15 C -1 401, 265
$SELECT  S:ITEM_NEW;I\ITEM
1 0.0 USERID I 0 81, 61
$DEFAULT  A:USERID;;I\USERID  A:ORGS;;I\ORGS  A:ORGS;;I\AGENT    I:I\MARKET;<>;15  DO(BBN)    I:I\AGENT;<>;    DO(DLE)      F:AGENT_MAST;Y;;T\NAME=AM_NAME;AM_CODE='$I\AGENT$';I\AGENT      O:DISABLEINPUT;I\AGENT,C\SLT    DOEND(DLE)  DOEND(BBN)    I:I\MARKET;=;15  DO(BBN)    I:I\AGENT;<>;    DO(DLE)      F:AGENT_MAST;Y;;
1 0.0 Work 17 I -1 301, 193
$CALCULATE  A:CONST;;T\PROG  I:I\SDATE;=;  A:CONST;$T\DATE$;I\SDATE    I:I\MARKET;=;15;  DO(TIME_CPT)  A:CONST;$I\SDATE$;I\TO_DATE  U:DATE_TIME_CHECK;CHECK    'TEMPORARY MEASURE  I:I\MARKET;=;15;  DO(NNA)    I:I\ORGS;=;    A:CONST;N;I\TMP_IND  DOEND(NNA)    I:I\TMP_IND;=;Y    DO(01)       D:AGENTS NOT ALLOWED TO RUN TH
1 0.0 Work 18 I -1 301, 229
$CALCULATE    I:I\EDATE;=;  A:CONST;$T\DATE$;I\EDATE
1 0.0 Work 19 I -1 301, 265
$SELECT  S:ITEM_NEW;I\ITEM    $VALIDATE  A:CONST;;I\PROD,I\VAR,T\ITEM_DESC  C:UCASE    I:I\ITEM;<>;  DO(OPA)    A:LEN;I\ITEM;W\LEN    A:LEFT;I\ITEM,2;I\PROD    A:RIGHT;I\ITEM,2;I\VAR    I:W\LEN;>;2      F:VAR_MAST;Y;;T\ITEM_DESC=VA_DESC;VA_PRODUCT='$I\PROD$' AND VA_VARIETY='$I\VAR$';;;  ITEM DOES NOT EXIST    I:W\LEN;<
1 0.0 CMD 20 C -1 281, 409
$SELECT   I:I\SDATE;=;  D:PLEASE ENTER A STARTING DATE;ERRORM;I\SDATE    I:I\EDATE;=;  D:PLEASE ENTER AN ENDING DATE;ERRORM;I\EDATE    'I:I\MARKET;=;18  'DO(CR4)    'U:DAILY_RUN_CHECK;CHECK    'I:I\TMP_IND;=;Y    'D:TEMPORARY! STATS MAY NOT BE RUN BEFORE DAILY;ERRORM;I\SDATE  'DOEND(CR4)      I:I\MARKET;=;15  DO(MKB)  
1 0.0 Label 2 T -1 201, 157
  
1 0.0 Label 1 T -1 201, 373
  
1 0.0 Work 1 I 0 361, 493
  
1 0.0 Label 1 T -1 201, 337
  
1 0.0 Check 2 K -1 371, 337
'$CALCULATE  'O:SETFOCUS;C\RUN  'O:BACKCOLOR;C\RUN;YELLOW
1 0.0 Label 1 T -1 281, 445
  
1 0.0 Work 3 I -1 301, 301
$SELECT    I:I\ITEM;<>;  DO(GHB)    A:LEN;I\ITEM;W\LEN    A:LEFT;I\ITEM,2;I\PROD    A:RIGHT;I\ITEM,2;I\VAR    I:W\LEN;>;2      S:CONT_PR;I\CONT;I\PROD;I\VAR    I:W\LEN;=;2      S:CONT_PR2;I\CONT;I\PROD;I\VAR  DOEND(GHB)    I:I\ITEM;=;  S:CONT_SELCT;I\CONT    $VALIDATE  A:CONST;;T\CONT_DESC,W\CONT  C:UCASE    I:I\ITEM;<
1 0.0 Work 2 I -1 371, 373
$VALIDATE    'UPPERCASE  C:UCASE    V:N;Y    O:BACKCOLOR;C\RUN;YELLOW  O:SETFOCUS;C\RUN
1 0.0 Label 3 T -1 391, 157
  
1 0.0 CMD 4 C -1 351, 157
$SELECT  S:AGENT_CODE;I\AGENT  
1 0.0 Work 2 I 0 1, 85
  
1 0.0 Work 1 I 0 441, 469
  
1 0.0 Work 2 I 0 471, 469
  
1 0.0 CMD 1 C -1 401, 301
$SELECT    I:I\ITEM;<>;  S:CONT_PR;I\CONT;I\PROD;I\VAR    I:I\ITEM;=;  S:CONT_SELCT;I\CONT
1 0.0 Label 2 T -1 201, 301
  
1 0.0 Label 8 T -1 441, 301
  
1 0.0 Label 9 T -1 441, 265
  
1 0.0 Work 4 I 0 111, 469
  
1 0.0 Work 5 I 0 221, 469
  
1 0.0 Work 6 I 0 341, 469
  
1 0.0 Work 1 I -1 301, 157
$SELECT  I:I\MARKET;<>;15  S:AGN_CODE;I\AGENT    I:I\MARKET;=;15  DO(LAA)    I:I\ORGS;=;    S:AGN_CODE;I\AGENT  DOEND(LAA)    $CALCULATE  C:UCASE    I:I\MARKET;<>;15  DO(MKS)    I:I\AGENT;<>;    DO(M)      F:AGENT_MAST;Y;;T\NAME=AM_NAME;AM_CODE='$I\AGENT$';I\AGENT    DOEND(M)    A:CONST;;T\PROG      I:I\AGENT;=;    DO(
1 0.0 Work 1 I 0 1, 109
  
1 0.0 Work 3 I 0 1, 145
  
10 0.0 ZX_PRINT Z 0 0, 30
  
10 0.0 ZX_SELECT Z 0 0, 30
  
10 0.0 ZX_DELETE Z 0 0, 30
  
10 0.0 ZX_UPDATE Z 0 0, 30
  
10 0.0 ZX_EXIT Z 0 0, 30