Freshmark replication server

freshmark-canonical

Program drill-down

IP_MAST_MAN

IP MAST MAINTENANCE. Type MDL, base table IP_MAST.

Field inventory

28

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Label 2 T -1 181, 241
  
1 0.0 Work 3 I 0 431, 301
  
1 0.0 Work 2 I 0 381, 301
  
1 0.0 Label 1 T -1 181, 205
  
1 0.0 Label 12 T -1 181, 133
  
1 0.0 Label 13 T -1 181, 169
  
1 0.0 Work 8 I 0 121, 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 Work 9 I 0 181, 61
$DEFAULT    A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000
1 0.0 Work 1 I 0 331, 301
  
1 0.0 Work 4 I 0 481, 301
  
1 0.0 H -1 0, 0
  
1 0.0 CMD 14 C -1 391, 133
'SELECT IP ADDRESS FROM TABLE/SELECTION WINDOW  $SELECT  S:IP_MAST;I\IM_IP
1 0.0 Label 7 T -1 1, 25
  
1 0.0 Label 4 T -1 621, 49
  
1 0.0 Label 5 T -1 671, 25
  
1 0.0 Label 6 T -1 671, 49
  
1 0.0 Label 2 T -1 331, 49
  
1 0.0 Label 3 T -1 621, 25
  
1 0.0 Label 1 T -1 291, 25
  
1 1.0 IP_MAST IM_IP I -1 291, 133
'SELECT IP ADDRESS FROM TABLE/SELECTION WINDOW  $SELECT  S:IP_MAST;I\IM_IP  'SET THIS FIELD MANDATORY  $VALIDATE  M:    'CHECK IP ADDRESS IF IS VALID OR NOT, IF NOT DISPLAY ERROR MESSAGE  U:IP_CHECK;IP_SECTIONS;I\IM_IP,W\IM_IP  I:W\IM_IP;=;1  D:INVALID IP ADDRESS;ERRORM;I\IM_IP    I:W\IM_IP;=;2  D:INVALID IP ADDRESS;ER
1 2.0 IP_MAST IM_PORT I -1 291, 169
$VALIDATE  'SET THIS FIELD MANDATORY  M:     'PUT 2 ZEROS AS FIRST 2 CHARACTER  A:LEN;I\IM_PORT;W\TEMP1  I:W\TEMP1;=;1   DO(LL2)  'ZERO FILL COMMENTED BY JD 20130910  '   A:ISNUMERIC;I\IM_PORT;W\TEMP4  '   I:W\TEMP4;=;Y  '   A:CON;"00";I\IM_PORT;I\IM_PORT    'LOOKUP OF DUPLICATES COMMENTED BY JD 20130910  '   F:IP_MAST
1 3.0 IP_MAST IM_SALESMAN I -1 291, 205
$DEFAULT  'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;I\IM_SALESMAN        'SET THIS FIELD MANDATORY  $VALIDATE  M:  V:Y;N;  
1 4.0 IP_MAST IM_REPRINT I -1 291, 241
$DEFAULT  'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:UCASE;I\IM_REPRINT      'SET THIS FIELD MANDATORY  $VALIDATE  M:  V:Y;N    
10 0.0 ZX_PRINT Z 0 0, 0
  
10 0.0 ZX_SELECT Z 0 0, 0
  
10 0.0 ZX_UPDATE Z 0 0, 0
  
10 0.0 ZX_EXIT Z 0 0, 0
  
10 0.0 ZX_DELETE Z 0 0, 0