Freshmark replication server

freshmark-canonical

Program drill-down

FM_COMMODITY_MAN

COMMODITY MAINTENANCE. Type MAN, base table FM_COMMODITY.

Field inventory

26

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 PRODUCT_MAST PR_PRODUCT T -1 221, 133
  
1 0.0 FM_COMMODITY FM_ITEM I -1 321, 133
$SELECT  S:PRODUCT_NOBLOCK;I\FM_ITEM    $VALIDATE  M:  'CONVERT TO UPPERCASE  C:UCASE    A:LEN;I\FM_ITEM;I\TMPLEN    I:I\TMPLEN;<>;3  D:PRODUCT NDA CODE MUST BE TWO CHARACTERS;ERRORM;I\FM_ITEM    F:FM_PRODUCT;;;T\ITEM_DESC=FM_PROD_DESC;FM_NDACODE='$I\FM_ITEM$';    
1 0.0 FM_COMMODITY FM_CONT I -1 321, 169
$SELECT  S:FM_CONT;I\FM_CONTAINER    $VALIDATE  M:  C:UCASE    F:FM_CONT;;;T\CONT_DESC=FM_CONT_DESC;FM_CONTAINER='$I\FM_CONTAINER$';
1 0.0 Work 15 I 0 51, 73
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME  C:MCASE;;T\MARKET
1 0.0 Label 9 T -1 1, 25
  
1 0.0 Label 5 T -1 671, 25
  
1 0.0 Label 6 T -1 671, 49
  
1 0.0 Label 8 T -1 291, 25
  
1 0.0 FM_COMMODITY FM_CONT_MASS I -1 321, 205
  
1 0.0 Label 2 T -1 221, 205
  
1 0.0 CMD 3 C -1 361, 169
$SELECT  S:FM_CONT;I\FM_CONTAINER
1 0.0 Work 2 I 0 11, 133
  
1 0.0 Label 2 T -1 621, 25
  
1 0.0 Label 1 T -1 621, 49
  
1 0.0 PRODUCT_MAST PR_DESC T -1 221, 169
  
1 0.0 Label 7 T -1 291, 49
  
1 0.0 CMD 4 C -1 361, 133
$SELECT  S:PRODUCT;I\PR_PRODUCT  
1 0.0 H -1 1, 25
  
1 0.0 DEFAULT I 0 1, 73
$DEFAULT    A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    
1 0.0 Label 3 T -1 401, 133
  
1 0.0 Label 4 T -1 401, 169
  
10 0.0 ZX_PRINT Z 0 1, 25
  
10 0.0 ZX_DELETE Z 0 1, 25
  
10 0.0 ZX_UPDATE Z 0 1, 25
  
10 0.0 ZX_EXIT Z 0 1, 25
  
10 0.0 ZX_SELECT Z 0 1, 25