Freshmark replication server

freshmark-canonical

Program drill-down

PROD_GROUP_ALL

PRODUCT SELECTION GROUPING. Type MAN, base table GROUP_PRODUCTS.

Field inventory

30

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 CMD 3 C -1 301, 229
$SELECT  S:PROD_SECT_GROUPING;I\CODE
1 0.0 H -1 0, 60
  
1 0.0 GROUP_PRODUCTS GRG_SECT_GROUP I -1 271, 229
$SELECT  S:PROD_SECT_GROUPING;I\CODE    $CALCULATE  'POPULATES THE GRID ACCORDING TO THE CODE ENTERED    F:SECT_GROUP;;;I\DESC=SG_DESC;SG_CODE = '$I\CODE$'  'F:PRODUCT_MAST;;;I\PROD_DESC=PR_DESC;PR_PRODUCT = '$I\PR_PRODUCT$'    $VALIDATE  'MAKE THIS FIELD A MANDATORY FIELD  M:  C:UCASE    'CONVERT TO UPPERCASE  C:UCASE
1 0.0 Work 1 I 0 11, 67
$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    
1 0.0 GROUP_PRODUCTS GRG_PRODUCT I -1 271, 157
$SELECT  S:PROD_ID_4_GROUPING;I\PR_PRODUCT  'S:PROD_SECT_GROUPING;I\PR_PRODUCT  $CALCULATE  'POPULATES THE GRID ACCORDING TO THE CODE ENTERED    F:PRODUCT_MAST;Y;;I\PROD_DESC=PR_DESC;PR_PRODUCT = '$I\PR_PRODUCT$'    IF I\PROD_DESC IS NULL  I:I\PROD_DESC;=;  'FORMATS II\PR_PRODUCT FIELD TO EMPTY  DO(T)  O:SETFOCUS;I\PR_
1 0.0 Work 5 I -1 271, 193
  
1 0.0 Work 1 I 0 11, 115
$DEFAULT    'CHECK IF THE USER IS AN AGENT  'A:ORGS;;I\AGENT  'A:ORGS;;I\AM_CODE    'LOAD MARKET CODE  A:ORG;;I\MARKET      'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\PS_SECT=CM_PALL_SECT  '''F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME  C:MCASE;;T\MARKET    'O:DISABLEINPUT;I\AM_SUPPL_TO  'O:DISABLEINPUT;
1 0.0 Label 4 T -1 11, 229
  
1 0.0 Label 1 T -1 621, 115
  
1 0.0 Label 2 T -1 621, 79
  
1 0.0 Label 3 T -1 291, 115
  
1 0.0 Label 4 T -1 11, 265
  
1 0.0 Label 2 T -1 11, 79
  
1 0.0 Label 2 T -1 11, 157
  
1 0.0 Label 2 T -1 301, 79
  
1 0.0 Label 4 T -1 11, 193
  
1 0.0 Label 10 T -1 671, 79
  
1 0.0 Label 11 T -1 671, 115
  
1 0.0 GROUP_PRODUCTS GRG_DELIND I -1 271, 301
$VALIDATE    M:  C:UCASE  V:Y;N    O:SETFOCUS;Z\ZX_UPDATE    
1 0.0 Label 3 T -1 341, 157
  
1 0.0 CMD 2 C -1 551, 157
$SELECT  S:ALLOPROD;I\PR_PRODUCT    
1 1.0 CMD 3 C -1 301, 157
$SELECT  S:PROD_ID_4_GROUPING;I\PR_PRODUCT  'S:PROD_SECT_GROUPING;I\PR_PRODUCT    
1 2.0 SG_DESC I -1 271, 265
$VALIDATE  'MAKE THIS FIELD A MANDATORY FIELD  M:  C:UCASE    'CONVERT TO UPPERCASE  C:UCASE    
1 3.0 Label 6 T -1 11, 301
  
10 0.0 ZX_PRINT Z 0 0, 60
  
10 0.0 ZX_SELECT Z 0 0, 60
  
10 0.0 ZX_DELETE Z 0 0, 60
  
10 0.0 ZX_UPDATE Z -1 0, 60
  
10 0.0 Z -1 0, 60
  
10 0.0 ZX_EXIT Z 0 0, 60