Freshmark replication server

freshmark-canonical

Program drill-down

INTEREST_MAN

INTEREST MAINTENANCE. Type MAN, base table INTEREST_MAN.

Field inventory

29

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 INTEREST_MAN INM_DESC I -1 131, 265
'CHANGING CASE OF THE INPUT TEXT TO UPPER CASE AND MANDATORY FIELD  $VALIDATE  M:  C:UCASE    'CODE TO ENSURE THAT THE DESCRIPTION DOES NOT ALREADY EXIST IN THE GRID  'CLEAR FIELDS  A:CONST;;W\TEMP1  A:CONST;;W\TEMP2    'CHECK IF CODE ALREADY EXISTS  U:PALLET_TYPE;CODE_CHECK;I\INM_CODE,G\GRID,W\TEMP1,I\INM_DESC    I:W\
1 0.0 INTEREST_MAN INM_CODE T -1 41, 241
  
1 0.0 INTEREST_MAN INM_CODE I -1 41, 265
'SHOWING EXISTING CALCULATION TYPES, DESCRIPTIONS AND FORMULARS FROM THE TABLE  $SELECT  'S:CAP_CODE;I\CAP_CODE  'MANDATORY FIELD AND CHANGING CASE TO UPPER CASE  $VALIDATE  M:  C:UCASE    'PUT ZERO AS FIRST 2 CHARACTERS  'A:LEN;I\CAP_CODE;W\TEMP3  'I:W\TEMP3;=;1  '  DO(LL)  '    A:CON;"0";I\CAP_CODE;I\CAP_CODE  '   'L
1 0.0 INTEREST_MAN INM_PERCENTAGE T -1 431, 241
  
1 0.0 INTEREST_MAN INM_DESC T -1 131, 241
  
1 0.0 H -1 0, 30
  
1 0.0 Work 15 I 0 131, 175
$DEFAULT    A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    'INITIALIZES GRID AND RETRIEVE RECORDS FROM DATABASE TO GRID  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\INM_CODE,I\INM_DESC,I\INM_PERCENTAGE,I\INM_PERIOD  U:ZZGRID_SPLIT;DB_TO_GRID;G\GRID;INTEREST_MAN    
1 0.0 Label 14 T -1 671, 25
  
1 0.0 Label 12 T -1 671, 49
  
1 0.0 Label 11 T -1 621, 49
  
1 0.0 Label 10 T -1 291, 49
  
1 0.0 Work 6 G -1 41, 289
  
1 0.0 CMD 7 C -1 101, 265
$SELECT  'S:CAP_CODE;I\CAP_CODE
1 0.0 Label 8 T -1 1, 25
  
1 0.0 Label 13 T -1 621, 25
  
1 0.0 Label 9 T -1 291, 25
  
1 0.0 Work 1 I 0 41, 499
  
1 0.0 Work 1 I 0 321, 481
  
1 0.0 Work 2 I 0 371, 481
  
1 0.0 INTEREST_MAN INM_PERCENTAGE I -1 431, 265
'CHANGING TEXT TO UPPERCASE AND SET FIELD MANDATORY  $VALIDATE  M:  C:UCASE  
1 0.0 Work 1 I 0 41, 85
$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 Work 3 I 0 421, 481
  
1 0.0 INTEREST_MAN INM_PERIOD I -1 531, 265
$VALIDATE  M:    
1 0.0 INTEREST_MAN INM_PERIOD T -1 531, 241
  
10 0.0 ZX_DELETE Z 0 0, 30
  
10 0.0 ZX_PRINT Z 0 0, 30
  
10 0.0 ZX_EXIT Z 0 0, 30
  
10 0.0 ZX_SELECT Z 0 0, 30
  
10 0.0 ZX_UPDATE Z 0 0, 30