Freshmark replication server

freshmark-canonical

Program drill-down

PROD_MAST_INT

PRODUCT SELECTION GROUPING. Type MAN, base table PRODUCT_MAST.

Field inventory

28

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 CMD 3 C -1 301, 193
$SELECT  S:PROD_SECT_GROUPING;I\CODE
1 0.0 H -1 0, 30
  
1 0.0 Work 1 I 0 11, 37
$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 Work 5 I -1 271, 157
  
1 0.0 Work 1 I 0 11, 85
$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, 193
  
1 0.0 Label 1 T -1 621, 85
  
1 0.0 Label 2 T -1 621, 49
  
1 0.0 Label 3 T -1 291, 85
  
1 0.0 Label 4 T -1 11, 229
  
1 0.0 Label 2 T -1 11, 49
  
1 0.0 Label 2 T -1 11, 121
  
1 0.0 Label 2 T -1 301, 49
  
1 0.0 Label 4 T -1 11, 157
  
1 0.0 Label 10 T -1 671, 49
  
1 0.0 Label 11 T -1 671, 85
  
1 1.0 CMD 3 C -1 301, 121
$SELECT  S:PROD_ID_4_GROUPING;I\PR_PRODUCT      
1 1.0 PRODUCT_MAST PR_PRODUCT I -1 271, 121
$SELECT  S:PROD_ID_4_GROUPING;I\PR_PRODUCT    $CALCULATE  'POPULATES THE GRID ACCORDING TO THE CODE ENTERED    F:PRODUCT_MAST;;;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_PRODUCT  A:VAR;;I\PR_PRODUCT;;  A:V
1 2.0 PRODUCT_MAST PR_SECT_GROUP I -1 271, 193
$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 2.0 SG_DESC I -1 271, 229
$VALIDATE  'MAKE THIS FIELD A MANDATORY FIELD  M:  C:UCASE    'CONVERT TO UPPERCASE  C:UCASE    
1 3.0 Label 6 T 0 11, 265
  
1 3.0 SMS_PROVIDER SMS_ACTIVE T 0 171, 265
  
10 0.0 ZX_PRINT Z 0 0, 30
  
10 0.0 ZX_SELECT Z 0 0, 30
  
10 0.0 ZX_DELETE Z 0 0, 30
  
10 0.0 ZX_UPDATE Z -1 0, 30
  
10 0.0 Z -1 0, 30
  
10 0.0 ZX_EXIT Z 0 0, 30