Freshmark replication server

freshmark-canonical

Program drill-down

BUSINESS_TYPE

BUSINESS_TYPE. Type MDL, base table BUSS_TYPE.

Field inventory

26

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 H -1 0, 0
  
1 0.0 BUSS_TYPE BT_DESC I -1 281, 229
$VALIDATE  M:  C:UCASE    U:ENTRY_TYPE;DUPLICATES;G\GRID,I\BT_TYPE,I\BT_DESC  I:I\TMP1;=;Y  D:THIS DESCRIPTION IS IN USE;ERRORM;I\BT_DESC    I:I\BT_TYPE;=;  D:TYPE FIELD CANNOT BE EMPTY;ERRORM;I\BT_TYPE    U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\GRID;I\BT_TYPE      $BEFORE_DELETE  I:I\BT_TYPE;=;  D:CANNOT DELETE WITH TYPE LEFT
1 0.0 BUSS_TYPE BT_DESC T -1 281, 205
  
1 0.0 BUSS_TYPE BT_TYPE I -1 201, 229
$SELECT  S:BUSINESS_TYPE;I\BT_TYPE    $VALIDATE  M:  C:UCASE              
1 0.0 BUSS_TYPE BT_TYPE T -1 201, 205
  
1 0.0 Work 22 G -1 201, 253
  
1 0.0 CMD 23 C -1 251, 229
$SELECT  S:BUSINESS_TYPE;I\BT_TYPE
1 0.0 Label 24 T -1 1, 25
  
1 0.0 Label 25 T -1 291, 25
  
1 0.0 Label 26 T -1 331, 49
  
1 0.0 Label 27 T -1 621, 25
  
1 0.0 Label 28 T -1 621, 49
  
1 0.0 Label 29 T -1 671, 25
  
1 0.0 Label 30 T -1 671, 49
  
1 0.0 IP I 0 101, 61
$DEFAULT  A:USERIP;;I\USERIP
1 0.0 ID I 0 81, 61
$DEFAULT  A:USERID;;I\USERID
1 0.0 ORGS I 0 61, 61
$DEFAULT  A:ORGS;;I\ORGS
1 0.0 MARKET I 0 41, 61
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MARKET
1 0.0 DEFAULT I 0 21, 61
$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    U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\BT_TYPE,I\BT_DESC  U:ZZGRID_SPLIT;DB_TO_GRID;G\GRID;BUSS_TYPE
1 0.0 TMP2 I 0 61, 541
  
1 0.0 TMP1 I 0 41, 541
  
10 0.0 ZX_PRINT Z 0 0, 0
  
10 0.0 ZX_SELECT Z 0 0, 0
  
10 0.0 ZX_DELETE Z 0 0, 0
  
10 0.0 ZX_UPDATE Z 0 0, 0
  
10 0.0 ZX_EXIT Z 0 0, 0