Freshmark replication server

freshmark-canonical

Program drill-down

SMAN_ENT_MAST

SALESMAN ENTRY TYPE MAINTENANCE. Type MDL, base table SLSMAN_ENT_MAST.

Field inventory

25

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 H -1 1, 25
  
1 0.0 SLSMAN_ENT_MAST SEM_CODE I -1 141, 217
$SELECT  'DISPLAY SELECTION WINDOW  S:SALESMAN_ENT;I\SEM_CODE      $VALIDATE  'MAKE THIS FIELD MANDATORY  M:  'CONVERT TO UPPERCASE  C:UCASE    F:AGENT_MAST;;;I\TMP10=AM_CODE;AM_SLSM_ENTRY='$I\SEM_CODE$'  F:SLSMAN_ENT_MAST;;SEM_CODE;I\TMP20=SEM_CODE;SEM_DELIND='Y'    I:I\TMP20;<>;  D:CANNOT USE THAT RECORD;ERRORM;I\SEM
1 0.0 SLSMAN_ENT_MAST SEM_CODE T -1 141, 193
  
1 0.0 SLSMAN_ENT_MAST SEM_DESC I -1 271, 217
$CALCULATE  U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\ENTRY;I\SEM_CODE    $VALIDATE  'MAKE THIS FIELD MANDATORY  M:  'CONVERT TO UPPERCASE  C:UCASE      'CLEAR FIELDS  A:CONST;;W\TEMP1  A:CONST;;W\TEMP2    'CHECK IF CODE ALREADY EXISTS  U:PALLET_TYPE;CODE_CHECK;I\SEM_CODE,G\ENTRY,W\TEMP1,I\SEM_DESC    I:W\TEMP1;=;N  U:PALLET_TYP
1 0.0 SLSMAN_ENT_MAST SEM_DESC T -1 271, 193
  
1 0.0 Work 3 G -1 141, 241
  
1 0.0 Label 4 T -1 291, 25
  
1 0.0 Label 5 T -1 291, 49
  
1 0.0 Label 6 T -1 621, 49
  
1 0.0 Label 7 T -1 671, 49
  
1 0.0 Label 8 T -1 621, 25
  
1 0.0 Label 9 T -1 671, 25
  
1 0.0 Label 10 T -1 1, 25
  
1 0.0 Work 13 I 0 111, 85
$DEFAULT    A:DATE;DD MMM/YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    U:ZZGRID_SPLIT;INIT_GRID;G\ENTRY;I\SEM_CODE,I\SEM_DESC  U:ZZGRID_SPLIT;DB_TO_GRID;G\ENTRY;SLSMAN_ENT_MAST,SEM_DELIND<>'Y'      $BEFORE_DELETE  'SHOW ERROR MESSAGE IF DELETE BUTTON IS PRESSED WITH NO RECORD SELECTED  I:I\SEM_CODE;=;   DO(0
1 0.0 CMD 12 C -1 241, 217
$SELECT  'DISPLAY SELECTION WINDOW  S:SALESMAN_ENT;I\SEM_CODE  
1 0.0 Work 1 I 0 141, 481
  
1 0.0 Work 2 I 0 201, 481
  
1 0.0 Work 11 I 0 31, 85
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME      'CONVERT ONLY THE FIRST CHARACTER OF THE MARKET LABEL  C:MCASE;;T\MARKET  
1 0.0 Work 4 I 0 711, 253
  
1 0.0 Work 5 I 0 711, 289
  
10 0.0 ZX_PRINT Z 0 1, 25
  
10 0.0 ZX_SELECT Z 0 1, 25
  
10 0.0 ZX_DELETE Z 0 1, 25
  
10 0.0 ZX_UPDATE Z 0 1, 25
  
10 0.0 ZX_EXIT Z 0 1, 25