Freshmark replication server

freshmark-canonical

Program drill-down

DAILY_STATS

DAILY STATISTICS. Type DSP, base table VAT_MAST.

Field inventory

46

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 H -1 1, 1
  
1 0.0 Label 1 T -1 1, 25
  
1 0.0 Label 2 T -1 291, 25
  
1 0.0 MARKET CODE I 0 31, 61
$DEFAULT    A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME    'CONVERT ONLY THE FIRST CHARACTER OF THE MARKET LABEL  C:MCASE;;T\MARKET
1 0.0 Label 4 T -1 316, 49
  
1 0.0 Label 5 T -1 621, 25
  
1 0.0 Label 6 T -1 681, 25
  
1 0.0 Label 7 T -1 621, 49
  
1 0.0 Label 8 T -1 681, 49
  
1 0.0 Label 9 T -1 201, 97
  
1 0.0 Label 10 T -1 201, 133
  
1 0.0 Label 11 T -1 201, 169
  
1 0.0 Label 12 T -1 201, 205
  
1 0.0 SELECTION I -1 201, 229
$DEFAULT  'HIDE FIELDS AND LABELS  O:HIDE;I\PROD,T\PROD1,I\VAR,T\VAR1,I\PRINT,T\PRINT,I\SECT,T\SECT1,I\PRINT2,T\PRINT2,I\CONT,T\CONT1,C\CONT,I\PRINT3,T\PRINT3,T\PROD3,T\PRINT4        $CALCULATE  V:1;2;3;4    I:I\SEL;=;1;NUM    DO(ITEM)      'HIDE FIELDS AND LABELS      O:HIDE;T\ITEM,T\SECTION,T\CONT2,T\COMB,I\SECT,T\SE
1 0.0 PRODUCT I -1 411, 97
$SELECT  S:PRODUCT_NOBLOCK;I\PROD        $CALCULATE    A:CONST;;W\BLOCKED    A:LEN;I\PROD;W\LEN  I:I\PROD;<>;*    DO(NOT)      I:W\LEN;<>;2;NUM      D:PRODUCT MUST BE TWO DIGITS LONG;ERRORM;I\PROD    DOEND(NOT)    'VALIDATE PRODUCT  I:I\PROD;<>;*  F:PRODUCT_MAST;Y;;W\BLOCKED=PR_BLOCKED;PR_PRODUCT='$I\PROD$';I\PROD    I
1 0.0 VARIETY I -1 411, 133
$SELECT  I:I\PROD;<>;*  S:VARIETY;I\VAR;I\PROD    I:I\PROD;=;*  S:VAR_MAST;I\VAR          $CALCULATE  A:CONST;;W\BLOCKED      A:LEN;I\VAR;W\LEN    I:I\VAR;<>;*    DO(NOT)      I:W\LEN;<>;2;NUM      D:VARIETY MUST BE TWO DIGITS LONG;ERRORM;I\VAR    DOEND(NOT)    I:I\VAR;<>;*  F:VAR_MAST;Y;;W\BLOCKED=VA_BLOCKED;VA_VARIET
1 0.0 PRINT I -1 411, 169
$CALCULATE  V:P;    I:I\SEL;=;1    DO(1)       I:I\PRINT;=;       U:DAILY_STATS;GET_DATA;I\PROD,I\VAR    DOEND(1)
1 0.0 PRODUCT T -1 201, 97
  
1 0.0 Label 20 T -1 201, 133
  
1 0.0 Label 21 T -1 201, 169
  
1 0.0 PRODUCT C -1 521, 97
$SELECT  S:PRODUCT_NOBLOCK;I\PROD  
1 0.0 SECTION T -1 201, 97
  
1 0.0 PRINT 2 I -1 411, 133
$CALCULATE  V:P;
1 0.0 SECTION I -1 411, 97
$SELECT  S:SECTIONI;I\SECT    $CALCULATE  A:CONST;;W\BLOCKED      'VALIDATE SECTION  F:SECT_MAST;Y;;W\BLOCKED=SE_DELIND;SE_SECT='$I\SECT$';I\SECT    I:W\BLOCKED;=;Y  D:THIS SECTION HAS BEEN BLOCKED;ERRORM;I\SECT      
1 0.0 Label 26 T -1 211, 133
  
1 0.0 VARIETY C -1 521, 133
$SELECT  I:I\PROD;<>;*  S:VARIETY;I\VAR;I\PROD    I:I\PROD;=;*  S:VAR_MAST;I\VAR
1 0.0 LENGTH I 0 31, 97
  
1 0.0 BLOCKED I 0 31, 157
  
1 0.0 CONTAINER I -1 411, 169
$SELECT  'FOR THIS PRODUCT  I:I\PROD;<>;*  S:CONT_MAST;I\CONT;I\PROD    I:I\PROD;=;*  S:CONT_SELECT;I\CONT        
1 0.0 CONTAINER T -1 201, 169
  
1 0.0 PRINT I -1 411, 205
$CALCULATE  V:P;
1 0.0 Label 34 T -1 201, 205
  
1 0.0 CONTAINER C -1 521, 169
  
1 0.0 Label 37 T 0 371, 97
  
1 0.0 Label 38 T 0 371, 133
  
1 0.0 Label 39 T 0 371, 169
  
1 0.0 Label 40 T 0 561, 169
  
1 0.0 DISPLAY I -1 1, 289
  
1 0.0 Work 1 I -1 1, 265
  
1 0.0 Label 2 T -1 151, 97
  
1 0.0 Label 1 T -1 151, 133
  
10 0.0 ZX_PRINT Z 0 1, 1
  
10 0.0 ZX_SELECT Z 0 1, 1
  
10 0.0 ZX_DELETE Z 0 1, 1
  
10 0.0 ZX_UPDATE Z 0 1, 1
  
10 0.0 ZX_EXIT Z 0 1, 1