Freshmark replication server

freshmark-canonical

Program drill-down

ADD_SMS_MESSAGES

ADD SMS MESSAGE. Type MAN, base table SMS_MESSAGE.

Field inventory

20

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 CMD 1 C -1 471, 133
$SELECT  S:SMS_DESC;I\DESCRIPTION    
1 0.0 H -1 0, 30
  
1 0.0 Work 47 I 0 61, 97
$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    '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  ' 
1 0.0 SMS_MESSAGE MESSAGE_ID I 0 400, 343
  
1 0.0 Label 4 T -1 11, 133
  
1 0.0 Label 1 T -1 621, 79
  
1 0.0 Label 2 T -1 621, 49
  
1 0.0 Label 3 T -1 291, 79
  
1 0.0 Label 4 T -1 11, 169
  
1 0.0 Label 1 T -1 11, 61
  
1 1.0 SMS_MESSAGE MESSAGE_DESCRIPTION I -1 221, 133
$SELECT  S:SMS_DESC;I\DESCRIPTION            $VALIDATE      'MAKE THIS FIELD A MANDATORY FIELD  M:  C:UCASE    'CONVERT TO UPPERCASE  C:UCASE      ' A:CONST;;W\TEMP  'DISPLAY ERROR MESSAGE IF THE @ SYMBOL IS FOUND IN THIS FIELD  ' I:I\DESCRIPTION;<>;  '   DO(CODE)  '    A:CONST;;W\TEMP  '    U:NUMBER_VALIDATE;EMAIL_CHK
1 2.0 SMS_MESSAGE MESSAGE_MESSAGE I -1 221, 169
$VALIDATE  'MAKE THIS FIELD A MANDATORY FIELD  M:  C:UCASE    'CONVERT TO UPPERCASE  C:UCASE  
1 3.0 SMS_MESSAGE MESSAGE_ACTIVE I -1 221, 205
$VALIDATE  'MAKE THIS FIELD A MANDATORY FIELD  M:  C:UCASE    'CONVERT TO UPPERCASE  C:UCASE  
1 3.0 Label 6 T -1 11, 205
  
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