Freshmark replication server

freshmark-canonical

Program drill-down

PROD_SECT_GROUPING

PRODUCT SELECTION GROUPING. Type MAN, base table SECT_GROUP.

Field inventory

24

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 CMD 3 C -1 291, 133
$SELECT  S:PROD_SECT_GROUPING;I\CODE
1 0.0 H -1 0, 30
  
1 0.0 SECT_GROUP SG_CODE I -1 271, 133
$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$'    $VALIDATE  'MAKE THIS FIELD A MANDATORY FIELD  M:  C:UCASE    'CONVERT TO UPPERCASE  C:UCASE    
1 0.0 Label 1 T -1 11, 205
  
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 SG_CODE I 0 11, 85
  
1 0.0 Work 6 I 0 121, 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, 133
  
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, 169
  
1 0.0 Label 2 T -1 11, 49
$DEFAULT  
1 0.0 Label 7 T -1 671, 49
  
1 0.0 Label 8 T -1 671, 85
  
1 0.0 Label 9 T -1 301, 49
  
1 1.0 SECT_GROUP SG_DESC I -1 271, 169
$VALIDATE  'MAKE THIS FIELD A MANDATORY FIELD  M:  C:UCASE    'CONVERT TO UPPERCASE  'C:UCASE      
1 2.0 SECT_GROUP sg_del_ind I -1 271, 205
$VALIDATE    I:I\DEL;=;    A:CONST;N;I\DEL    V:N;Y    C:UCASE    'O:SETFOCUS;Z\ZX_UPDATE
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