Freshmark replication server

freshmark-canonical

Program drill-down

ITEM_COLOUR1

ITEM COLOUR MAINTENANCE SPEC. Type MDL, base table ITEM_COLOUR.

Field inventory

23

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 H -1 0, 90
  
1 0.0 ITEM_COLOUR IC_ITEM I -1 231, 181
'SELECT ITEM CODE FROM TABLE ITEM_COLOUR FOR F5 FUNCTION  $SELECT  S:ITEM_CODE    'SELECT PRODUCT FROM PRODUCT_MAST TABLE FOR F6 FUNCTION  $SELECT6  S:PRODUCT_MAST    'SELECT VARIETY FROM VAR_MAST TABLE FOR F7 FUNCTION  $SELECT7  S:VAR_MAST    'CHANGING TEXT CASE TO UPPER CASE AND THIS FIELD IS MANDATORY  $VALIDATE  M:
1 0.0 Label 8 T -1 271, 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 Work 2 G -1 231, 205
  
1 0.0 ITEM_COLOUR IC_COLOUR I -1 401, 181
'SELECT COLOUR CODE FROM COLOUR_MAST TABLE FOR F5 FUNCTION  $SELECT  S:COLOUR_ITEM    $VALIDATE  M:  C:UCASE    '$CALCULATE  'A:CON;W\IC_ITEM;I\IC_ITEM;AV_VARIETY='$W\PR_VAR$'  'I:W\PR_VAR;=;  'F:VAR_MAST;Y;;;VA_PRODUCT = '$W\IC_ITEM$' AND VA_VARIETY = '$W\PR_VAR$';I\IC_ITEM        $BEFORE_DELETE  I:I\IC_ITEM;=;  D:YOU
1 0.0 ITEM_COLOUR IC_COLOUR T -1 401, 157
  
1 0.0 Label 1 T -1 231, 157
  
1 0.0 ITEM_COLOUR IC_ITEM T -1 321, 157
  
1 0.0 CMD 2 C -1 361, 181
'SELECT ITEM CODE FROM TABLE ITEM_COLOUR FOR F5 FUNCTION  $SELECT  S:ITEM_CODE;I\IC_ITEM    'SELECT PRODUCT FROM PRODUCT_MAST TABLE FOR F6 FUNCTION  $SELECT6  S:PRODUCT_MAST    'SELECT VARIETY FROM VAR_MAST TABLE FOR F7 FUNCTION  $SELECT7  S:VAR_MAST
1 0.0 CMD 6 C -1 431, 181
'SELECT COLOUR CODE FROM COLOUR_MAST TABLE FOR F5 FUNCTION  $SELECT  S:COLOUR_ITEM;I\IC_COLOUR
1 0.0 CMD 2 C -1 281, 181
  
1 0.0 Work 3 I -1 321, 181
  
10 0.0 ZX_DELETE Z 0 0, 90
  
10 0.0 ZX_PRINT Z 0 0, 90
  
10 0.0 ZX_UPDATE Z 0 0, 90
  
10 0.0 ZX_SELECT Z 0 0, 90
  
10 0.0 ZX_EXIT Z 0 0, 90