Freshmark replication server

freshmark-canonical

Program drill-down

AGENT_FAX_SALES_MAN

AGENT FAX SALES SECTION CONTROL. Type MDL, base table AGENT_FAXES.

Field inventory

44

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 CMD 16 C -1 51, 217
$SELECT  S:AGENT_CODE2;I\AX_CODE
1 0.0 DELSECT I 0 211, 493
  
1 0.0 H -1 1, 1
  
1 0.0 DEFAULT I 0 151, 37
$DEFAULT    A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000  
1 0.0 AGENT_FAXES AX_CODE I -1 1, 217
$SELECT  S:AGENT_CODE2;I\AX_CODE    $VALIDATE  A:CONST;;I\SECTION    M:  C:UCASE  F:AGENT_MAST;Y;AM_CODE;T\NAME=AM_NAME;;I\AX_CODE    U:ZZGRID_SPLIT;DB_TO_GRID;G\GRID;AGENT_FAXES,AX_CODE='$I\AX_CODE$'|ORDER BY AX_FAX_SECTION|        
1 0.0 AGENT_FAXES AX_CODE T -1 1, 193
  
1 0.0 AGENT_FAXES AX_FAX_SECTION I -1 81, 217
$VALIDATE  M:  C:UCASE    U:ZZGRID_SPLIT;DB_TO_GRID;G\GRID;AGENT_FAXES,AX_CODE='$I\AX_CODE$',AX_FAX_SECTION='$I\AX_FAX_SECTION$'|ORDER BY AX_SALES_SECTION|        
1 0.0 AGENT_FAXES AX_FAX_SECTION T -1 81, 169
  
1 0.0 AGENT_FAXES AX_CONTACT I -1 241, 217
  
1 0.0 AGENT_FAXES AX_CONTACT T -1 241, 193
  
1 0.0 AGENT_FAXES AX_TEL_NO I -1 491, 217
$VALIDATE    I:I\AX_TEL_NO;<>;      DO(CH4)        'VALIDATING THE LENGHT OF THE INPUT MUST BE EQUAL TO 10       A:LEN;I\AX_TEL_NO;W\TEL_NO       I:W\TEL_NO;<;10;NUM       D:TELEPHONE NUMBER CANNOT BE LESS THAN 10 DIGITS;ERRORM;I\AX_TEL_NO         'THE TELEPHONE NUMBER MUST START WITH ZERO       A:LEFT;I\AX_TEL_NO,1;W\
1 0.0 AGENT_FAXES AX_TEL_NO T -1 491, 193
  
1 0.0 AGENT_FAXES AX_FAX_DEFAULT I -1 611, 217
$VALIDATE  C:UCASE  V:F;E            $AFTER_WRITE  A:CONST;;I\AX_CODE,I\AX_FAX_SECTION,I\SALES_SECTION,I\AX_CONTACT,I\AX_TEL_NO,I\AX_FAX_DEFAULT    O:SETFOCUS;I\AX_CODE
1 0.0 AGENT_FAXES AX_FAX_DEFAULT T -1 611, 169
  
1 0.0 AGENT_FAXES AX_SALES_SECTION I -1 151, 217
$SELECT  S:SALES_SECTION_PRT;I\SALES_SECTION;I\AX_CODE        $CALCULATE  M:  C:UCASE          I:I\SALES_SECTION;<>;    F:SLSSECT_ACCESS;Y;;;SS_AGENT='$I\AX_CODE$' AND SS_SECT='$I\SALES_SECTION$';I\SALES_SECTION    U:ZZGRID_SPLIT;DB_TO_GRID;G\GRID;AGENT_FAXES,AX_CODE='$I\AX_CODE$',AX_FAX_SECTION='$I\AX_FAX_SECTION$',AX
1 0.0 SALES_SECTION T -1 151, 169
  
1 0.0 Label 8 T -1 291, 25
  
1 0.0 Label 9 T -1 251, 49
  
1 0.0 DATES T -1 621, 25
  
1 0.0 Label 11 T -1 671, 25
  
1 0.0 Label 12 T -1 621, 49
  
1 0.0 Label 13 T -1 671, 49
  
1 0.0 LABEL 14 T -1 1, 25
  
1 0.0 MARKET I 0 121, 37
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET  A:ORGS;;I\ORGS    A:VAR;I\ORGS;I\AX_CODE    '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    F:CLIENT_MAST;;;W\CM_DELSECT=CM_DELSECT;CM_CODE='$I\MARKET$'    U:ZZGRID_SPLIT;INIT_GRID;G\
1 0.0 NAME T 0 1, 133
  
1 0.0 CMD 19 C -1 211, 217
$SELECT  I:W\CM_DELSECT;=;S  S:SECT_MAST2;I\SALES_SECTION    I:W\CM_DELSECT;=;I  S:SECT_MAST3;I\SALES_SECTION
1 0.0 Label 1 T -1 81, 193
  
1 0.0 Work 4 G -1 1, 241
  
1 0.0 SECTION I 0 371, 397
    $BEFORE_DELETE    I:I\AX_CODE;=;     DO(DEL)       I:I\AX_FAX_SECTION;=;       D:ERROR - NO RECORD SELECTED TO DELETE;ERRORM;I\AX_CODE    DOEND(DEL)    I:I\AX_CODE;=;     DO(DEL1)       I:I\AX_FAX_SECTION;<>;       D:ERROR - NO RECORD SELECTED TO DELETE;ERRORM;I\AX_CODE    DOEND(DEL1)    I:I\AX_CODE;<>;     DO(DEL3
1 0.0 Work 1 I 0 171, 37
$DEFAULT  I:I\ORGS;<>;  DO(ORGS)  O:DISABLEINPUT;I\AX_CODE  F:AGENT_MAST;Y;AM_CODE;T\NAME=AM_NAME;;I\ORGS  U:ZZGRID_SPLIT;DB_TO_GRID;G\GRID;AGENT_FAXES,AX_CODE='$I\AX_CODE$'|ORDER BY AX_FAX_SECTION|  DOEND(ORGS)
1 0.0 TEL_NO I 0 251, 493
  
1 0.0 TMP10 I 0 401, 493
  
1 0.0 TMP I 0 341, 493
  
1 0.0 SE_DESC I 0 291, 493
  
1 0.0 DONT_EXIST I 0 461, 493
  
1 0.0 LENGTH I 0 581, 493
  
1 0.0 TMP11 I 0 561, 493
  
1 0.0 Label 3 T -1 151, 193
  
1 0.0 Label 2 T -1 611, 193
  
10 0.0 ZX_PRINT Z 0 1, 1
  
10 0.0 ZX_SELECT Z 0 1, 1
  
10 0.0 ZX_DELETE Z 0 1, 1
  
10 0.0 ZX_UPDATE Z 0 1, 1
  
10 0.0 ZX_EXIT Z 0 1, 1