Freshmark replication server

freshmark-canonical

Program drill-down

COMM_MAN

COMMODITY MAINTENANCE. Type MAN, base table COMMODITY_MAST.

Field inventory

45

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 COMMODITY_MAST CO_PRODUCT T -1 41, 133
  
1 0.0 COMMODITY_MAST CO_CLASS T -1 221, 133
  
1 0.0 COMMODITY_MAST CO_SIZE I -1 301, 157
$SELECT  S:SIZE_NB2;I\CO_SIZE    $VALIDATE  'M: 21 MAY 2008 LAZOLA  C:UCASE  I:I\CO_SIZE;<>;  'F:SIZE_MAST;Y;SZ_SIZE;T\SIZE_DESC=SZ_DESC;SZ_SIZE='$I\CO_SIZE$' AND SZ_BLOCKED <> 'Y';I\CO_SIZE  BY LAZOLA 13/06/2006  ^F:SIZE_MAST;Y;SZ_SIZE;T\SIZE_DESC=SZ_DESC,I\SIZE_BLOCKED=SZ_BLOCKED;SZ_SIZE='$I\CO_SIZE$';I\CO_SIZE    I:
1 0.0 COMMODITY_MAST CO_CONT I -1 391, 157
$SELECT  S:CONT_MAST_NB;I\CO_CONT;I\CO_PRODUCT    $VALIDATE  M:  C:UCASE  ^F:CONT_MAST;Y;CN_CONT;T\CONT_NAME=CN_DESC,W\BLOCKED=CN_BLOCKED;CN_CONT='$I\CO_CONT$' AND CN_PRODUCT='$I\CO_PRODUCT$';I\CO_CONT    I:W\BLOCKED;=;Y  D:ERRROR - THIS CONTAINER HAS BEEN BLOCKED;ERRORM;I\CN_CONT      $CALCULATE  ^F:PRODUCT_MAST;Y;;I\
1 0.0 COMMODITY_MAST CO_CONT T -1 391, 133
  
1 0.0 COMMODITY_MAST CO_BLOCKED I -1 491, 157
$DEFAULT    'DEFAULT TO 'N'  A:CONST;N;I\CO_BLOCKED    $VALIDATE    'DEFAULT TO 'N' IF FIELD IS LEFT BLANK  I:I\CO_BLOCKED;=;  A:CONST;N;I\CO_BLOCKED    'MAKE THIS FIELD MANDATORY  'M:    'CONVERT TO UPPERCASE  C:UCASE    V:Y;N;    
1 0.0 Label 1 T -1 591, 133
  
1 0.0 COMMODITY_MAST CO_BAR_CODE I -1 591, 157
  
1 0.0 COMMODITY_MAST CO_BLOCKED T -1 491, 133
  
1 0.0 CMD 8 C -1 91, 157
$SELECT  S:PRODUCT;I\CO_PRODUCT
1 0.0 CMD 9 C -1 261, 157
$SELECT  S:CLASS_NB2;I\CO_CLASS
1 0.0 CMD 10 C -1 441, 157
$SELECT  S:CONT_MAST_NB;I\CO_CONT;I\CO_PRODUCT
1 0.0 COMMODITY_MAST CO_VAR I -1 131, 157
$SELECT  S:VARIETY_NB2;I\CO_VAR;I\CO_PRODUCT    $VALIDATE  M:  C:UCASE  'F:VAR_MAST;Y;;;VA_VARIETY='$I\CO_VAR$' AND VA_BLOCKED <> 'Y';I\CO_VAR  BY LAZOLA 13 06 2008  F:VAR_MAST;Y;;I\VAR_BLOCKED=VA_BLOCKED;VA_VARIETY='$I\CO_VAR$' AND VA_PRODUCT='$I\CO_PRODUCT$';I\CO_VAR    I:I\VAR_BLOCKED;=;Y  D:THIS VARIETY HAS BEEN BL
1 0.0 COMMODITY_MAST CO_VAR T -1 131, 133
  
1 0.0 CMD 2 C -1 181, 157
$SELECT  S:VARIETY_NB2;I\CO_VAR;I\CO_PRODUCT
1 0.0 COMMODITY_MAST CO_PRODUCT I -1 41, 157
$SELECT  S:PRODUCT;I\CO_PRODUCT    $SELECT6  S:COMMODITY;I\CO_PRODUCT    $VALIDATE  M:  C:UCASE  'F:PRODUCT_MAST;Y;PR_ITEM;T\ITEM_NAME=PR_DESC;PR_PRODUCT='$I\CO_PRODUCT$' AND PR_BLOCKED <> 'Y';I\CO_PRODUCT    $CALCULATE  A:CONST;;I\CO_VAR,I\CO_CLASS,I\CO_SIZE,I\CO_CONT,I\CO_BLOCKED  F:PRODUCT_MAST;Y;;I\DESC=PR_DESC,W\B
1 0.0 COMMODITY_MAST CO_CLASS I -1 221, 157
$SELECT  S:CLASS_NB2;I\CO_CLASS    $VALIDATE  'M: 21 MAY 2008 LAZOLA  C:UCASE  I:I\CO_CLASS;<>;  'F:CLASS_MAST;Y;;;CL_CLASS='$I\CO_CLASS$' AND CL_BLOCKED <> 'Y';I\CO_CLASS  BY LAZOLA 13/06/2008  ^F:CLASS_MAST;Y;;I\CLASS_BLOCKED=CL_BLOCKED;CL_CLASS='$I\CO_CLASS$';I\CO_CLASS    I:I\CLASS_BLOCKED;=;Y  D:ERROR - THIS CLASS
1 0.0 COMMODITY_MAST CO_SIZE T -1 301, 133
  
1 0.0 CMD 3 C -1 351, 157
$SELECT  S:SIZE_NB2;I\CO_SIZE  
1 0.0 Label 8 T -1 291, 49
  
1 0.0 Label 1 T -1 291, 25
  
1 0.0 Label 2 T -1 1, 25
  
1 0.0 Label 3 T -1 621, 25
  
1 0.0 Label 4 T -1 621, 49
  
1 0.0 Label 5 T -1 671, 25
  
1 0.0 Label 6 T -1 671, 49
  
1 0.0 DEFAULT I 0 1, 49
$DEFAULT    A:DATE;DD MMM/YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    U:ZZGRID_SPLIT;INIT_GRID;G\COMM;I\CO_PRODUCT,I\CO_VAR,I\CO_CLASS,I\CO_SIZE,I\CO_CONT,I\CO_BLOCKED,I\CO_BAR_CODE  'U:ZZGRID_SPLIT;DB_TO_GRID;G\COMM;COMMODITY_MAST    A:CONST;N;I\CO_BLOCKED
1 0.0 Work 1 G -1 41, 205
  
1 0.0 Work 2 I -1 41, 181
  
1 0.0 Work 1 I 0 41, 529
  
1 0.0 Work 1 I 0 61, 529
  
1 0.0 Work 2 I 0 81, 529
  
1 0.0 Work 3 I 0 101, 529
  
1 0.0 Work 4 I 0 121, 529
  
1 0.0 Work 9 I 0 51, 49
$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  
1 0.0 BLOCKED I 0 151, 529
  
1 0.0 VAR_BLOCKED I 0 281, 505
  
1 0.0 CLASS_BLOCKED I 0 341, 505
  
1 0.0 SIZE_BLOCKED I 0 401, 505
  
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