Freshmark replication server

freshmark-canonical

Program drill-down

MKT_STK_PROD_COUNT

MARKET STOCK BY PRODUCT. Type DSP, base table STK_DETS.

Field inventory

42

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 CMD 3 C -1 421, 109
$SELECT  S:PRODUCT;I\PROD
1 0.0 CMD 5 C -1 421, 181
$SELECT  I:I\VAR;=;  S:CLASSX;I\CLASS    I:I\VAR;<>;  S:CLASSZ;I\CLASS
1 0.0 CMD 2 C -1 421, 145
$SELECT  S:VAR_MAST_PROD;I\VAR;I\PROD
1 0.0 CMD 8 C -1 361, 397
$SELECT  A:CONST;GATHERING DATA;T\MSG    E:$GBLROOT$\LEGEND\PROJ_FMS\BIN\PRINTING.EXE /PRINT=PRINT_MKT_STOCK_PROD_CPT;$I\MARKET$,$I\PROD$,$I\CLASS$,$I\SIZE$,$I\VAR$,$K\BLOCKED$,$I\CONT$,S      A:CONST;COMPLETE;T\MSG  A:CONST;;I\PROD,T\PNAME,I\VAR,T\VNAME,I\CLASS,T\CNAME,I\SIZE,T\SNAME,I\OPTION,T\OPTION_DESC,I\CONT,T\CO
1 0.0 CMD 3 C -1 421, 253
$SELECT  S:CONT_MAST;I\CONT;I\PROD
1 0.0 CMD 8 C -1 421, 217
  
1 0.0 H -1 0, 0
  
1 0.0 Work 9 I 0 1, 61
$DEFAULT    'INITIALIZES THE DATE AND TIME INTO THE T\DATE AND T\TIME FIELDS  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    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\
1 0.0 VAR I -1 371, 145
$SELECT  S:VAR_MAST_PROD;I\VAR;I\PROD    $CALCULATE  C:UCASE  I:I\VAR;<>;  F:VAR_MAST;Y;;T\VNAME=VA_DESC;VA_PRODUCT='$I\PROD$' AND VA_VARIETY='$I\VAR$';I\VAR  
1 0.0 PRODUCT I -1 371, 109
$SELECT  S:PRODUCT;I\PROD    $CALCULATE  A:CONST;N;I\PROV  A:CONST;;I\VAR,T\VNAME,I\CLASS,T\CNAME,I\SIZE,T\SNAME,I\OPTION,T\OPTION_DESC,I\CONT,T\CONT_DESC,W\CONT  M:  C:UCASE  A:CONST;;T\MSG  F:PRODUCT_MAST;Y;;T\PNAME=PR_DESC;PR_PRODUCT = '$I\PROD$';I\PROD    
1 0.0 Work 10 I 0 21, 61
  
1 0.0 Work 2 I -1 371, 253
$SELECT  S:CONT_MAST;I\CONT;I\PROD    $VALIDATE  C:UCASE    I:I\CONT;<>;  DO(PRD)  I:I\PROD;=;   F:CONT_MAST;Y;;T\CONT_DESC=CN_DESC;CN_CONT='$I\CONT$';I\CONT   I:I\PROD;<>;  DO(PRD1)     F:CONT_MAST;;;W\CONT=CN_CONT,T\CONT_DESC=CN_DESC;CN_PRODUCT='$I\PROD$' AND CN_CONT ='$I\CONT$'     I:W\CONT;=;     D:CONTAINER '$I\CO
1 0.0 Work 2 I -1 371, 289
$CALCULATE  C:UCASE  V:Y;N  
1 0.0 CLASS I -1 371, 181
$SELECT  I:I\VAR;=;  S:CLASSX;I\CLASS;I\PROD    I:I\VAR;<>;  S:CLASSZ;I\CLASS;I\PROD;I\VAR    $CALCULATE  C:UCASE  I:I\CLASS;<>;  DO(CLV)    I:I\VAR;=;    F:COMMODITY_MAST;Y;;T\CNAME=CO_CLASS;CO_PRODUCT='$I\PROD$' AND CO_CLASS='$I\CLASS$';I\CLASS        I:I\VAR;<>;    F:COMMODITY_MAST;Y;;T\CNAME=CO_CLASS;CO_PRODUCT='$I
1 0.0 SIZE I -1 371, 217
$SELECT  I:I\VAR;=;  DO(LDD)    I:I\CLASS;=;    S:SIZEX;I\SIZE;I\PROD      I:I\CLASS;<>;    S:SIZEZ;I\SIZE;I\PROD;I\CLASS  DOEND(LDD)    I:I\VAR;<>;  DO(LDS)    I:I\CLASS;=;    S:SIZEY;I\SIZE;I\PROD;I\VAR      I:I\CLASS;<>;    S:SIZEW;I\SIZE;I\PROD;I\CLASS;I\VAR  DOEND(LDS)          $CALCULATE  C:UCASE  I:I\SIZE;<>;  D
1 0.0 Work 5 I 0 731, 193
  
1 0.0 Check 2 K -1 371, 325
$CALCULATE    O:SETFOCUS;C\PRINT  O:BACKCOLOR;C\PRINT;YELLOW
1 0.0 Label 11 T -1 341, 433
  
1 0.0 PRODUCT T -1 211, 109
  
1 0.0 Label 1 T -1 211, 145
  
1 0.0 Label 5 T -1 671, 25
  
1 0.0 Label 2 T -1 291, 25
  
1 0.0 Label 3 T -1 331, 49
  
1 0.0 Label 4 T -1 621, 25
  
1 0.0 Label 1 T -1 1, 25
  
1 0.0 Label 4 T -1 211, 181
  
1 0.0 Label 6 T -1 621, 49
  
1 0.0 Label 7 T -1 671, 49
  
1 0.0 Label 1 T -1 211, 289
  
1 0.0 Label 1 T -1 211, 253
  
1 0.0 Label 1 T -1 211, 325
  
1 0.0 Label 7 T -1 211, 217
  
1 0.0 Label 4 T -1 461, 253
  
1 0.0 VNAME T -1 461, 145
  
1 0.0 Label 12 T -1 461, 181
  
1 0.0 PNAME T -1 461, 109
  
1 0.0 Label 13 T -1 461, 217
  
10 0.0 ZX_SELECT Z 0 0, 0
  
10 0.0 ZX_DELETE Z 0 0, 0
  
10 0.0 ZX_EXIT Z 0 0, 0
  
10 0.0 ZX_UPDATE Z 0 0, 0
  
10 0.0 ZX_PRINT Z 0 0, 0