Freshmark replication server

freshmark-canonical

Program drill-down

FM_PRODUCT_MAN

PRODUCT MAINTENANCE. Type MAN, base table FM_PRODUCT_MAST.

Field inventory

25

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 CMD 4 C -1 371, 109
$SELECT  S:FM_PRODUCTS;I\FM_NDACODE  
1 0.0 Work 7 I 0 11, 133
  
1 0.0 FM_PRODUCT_MAST FM_STANDARD_ITEM I -1 371, 181
$VALIDATE  C:UCASE    I:I\FM_STANDARD;=;  A:CONST;N;I\FM_STANDARD    I:I\FM_STANDARD;<>;Y  DO(2)    I:I\FM_NDACODE;<;800    D:NON-STANDARD ITEM NDA CODES ARE 800 AND ABOVE;ERRORM;I\FM_NDACODE  DOEND(2)
1 0.0 Label 4 T -1 211, 181
  
1 0.0 H -1 1, 25
  
1 0.0 FM_PRODUCT_MAST FM_ITEM_DESC I -1 341, 145
$VALIDATE  M:  C:UCASE
1 0.0 FM_PRODUCT_MAST FM_NDA_ITEM I -1 321, 109
$SELECT  S:FM_PRODUCTS;I\FM_NDACODE    $VALIDATE  M:  C:UCASE    A:LEN;I\FM_NDACODE;I\NDA_LEN    I:I\NDA_LEN;<>;3  D:PRODUCT NDA CODE MUST BE 3 CHARACTERS;ERRORM;I\FM_NDACODE    $AFTER_READ  A:DATE;DD MMM YYYY;I\FM_DATE  A:TIME;HH:MM:SS;I\FM_TIME  
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    A:DATE;DD MMM YYYY;I\FM_DATE  A:TIME;HH:MM:SS;I\FM_TIME    O:DISABLEINPUT;I\FM_DATE,I\FM_TIME  
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 Work 8 I 0 51, 133
  
1 0.0 Label 8 T -1 291, 25
  
1 0.0 FM_PRODUCT FM_DESC T -1 211, 145
  
1 0.0 Label 7 T -1 291, 49
  
1 0.0 T -1 211, 109
  
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 1 T -1 621, 49
  
1 0.0 Label 2 T -1 621, 25
  
1 0.0 Work 1 I 0 11, 169
  
10 0.0 ZX_PRINT Z 0 1, 25
  
10 0.0 ZX_SELECT Z 0 1, 25
  
10 0.0 ZX_DELETE Z 0 1, 25
  
10 0.0 ZX_UPDATE Z 0 1, 25
$UPDATE  U:PED_MAN;ADD_ITEM  
10 0.0 ZX_EXIT Z 0 1, 25