Freshmark replication server

freshmark-canonical

Program drill-down

FAX_SECTION_MAN

FAX SECTION MAINTENANCE. Type MAN, base table AGN_FAX_SECT.

Field inventory

29

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 H -1 0, 0
  
1 0.0 Label 1 T -1 1, 25
  
1 0.0 Label 2 T -1 291, 25
  
1 0.0 Label 3 T -1 251, 49
  
1 0.0 Label 4 T -1 621, 25
  
1 0.0 Label 5 T -1 671, 25
  
1 0.0 Label 6 T -1 621, 49
  
1 0.0 Label 7 T -1 671, 49
  
1 0.0 Work 8 G -1 191, 229
  
1 0.0 AGN_FAX_SECT AFS_AGENT I -1 191, 205
$SELECT  S:AGENT_CODE;I\AFS_AGENT    $CALCULATE  M:  C:UCASE    F:AGENT_MAST;Y;;;AM_CODE='$I\AFS_AGENT$';I\AFS_AGENT
1 0.0 AGN_FAX_SECT AFS_AGENT T -1 191, 181
  
1 0.0 AGN_FAX_SECT AFS_FAX_SECT I -1 291, 205
$SELECT  S:FAX_SECT_AGN;I\AFS_FAX_SECT;I\AFS_AGENT    $CALCULATE  M:  C:UCASE  '''U:ZZGRID_SPLIT;DB_TO_GRID;G\GRID;AGN_FAX_SECT,AFS_AGENT;I\AFS_SLS_SECT  '''U:ZZGRID_SPLIT;DB_TO_GRID;G\GRID|ORDER BY AFS_SLS_SECT|;AGN_FAX_SECT,AFS_AGENT='$I\AFS_AGENT$',AFS_FAX_SECT='$I\AFS_FAX_SECT$'  U:ZZGRID_SPLIT;DB_TO_GRID;G\GRID;AG
1 0.0 AGN_FAX_SECT AFS_FAX_SECT T -1 291, 181
  
1 0.0 AGN_FAX_SECT AFS_SLS_SECT I -1 421, 205
$SELECT  S:SLS_SECT_PROPER;I\AFS_SLS_SECT;I\AFS_AGENT    $CALCULATE  M:  C:UCASE    F:SLSSECT_ACCESS;Y;;;SS_AGENT='$I\AFS_AGENT$' AND SS_SECT='$I\AFS_SLS_SECT$';I\AFS_SLS_SECT
1 0.0 AGN_FAX_SECT AFS_SLS_SECT T -1 421, 181
  
1 0.0 CMD 17 C -1 261, 205
$SELECT  S:AGENT_CODE;I\AFS_AGENT
1 0.0 Work 12 I 0 41, 457
  
1 0.0 Label 13 T 0 41, 433
  
1 0.0 Work 14 I -1 551, 205
$CALCULATE  C:UCASE  V:D;    I:W\DEL;=;D  DO(B5F)    U:FAX_SECT_DEL;REMOVE_SALE        I:I\ORGS;=;    DO(V43)      A:CONST;;I\AFS_AGENT,I\AFS_FAX_SECT,I\AFS_SLS_SECT      O:SETFOCUS;I\AFS_AGENT    DOEND(V43)      I:I\ORGS;<>;    DO(6MD)      A:CONST;;I\AFS_FAX_SECT,I\AFS_SLS_SECT      O:SETFOCUS;I\AFS_FAX_SECT    DOEND
1 0.0 Label 15 T -1 551, 181
  
1 0.0 Work 20 I 0 31, 49
$DEFAULT  A:ORGS;;I\ORGS    I:I\ORGS;<>;  DO(B2S)    A:VAR;I\ORGS;I\AFS_AGENT    O:DISABLEINPUT;I\AFS_AGENT,C\17    DOEND(B2S)
1 0.0 MARKET I 0 11, 49
$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    '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;1
1 0.0 CMD 18 C -1 391, 205
$SELECT  S:FAX_SECT_AGN;I\AFS_FAX_SECT;I\AFS_AGENT
1 0.0 CMD 19 C -1 521, 205
$SELECT  S:SLS_SECT_PROPER;I\AFS_SLS_SECT;I\AFS_AGENT  
10 0.0 ZX_PRINT Z 0 0, 0
  
10 0.0 ZX_SELECT Z 0 0, 0
  
10 0.0 ZX_DELETE Z 0 0, 0
  
10 0.0 ZX_UPDATE Z 0 0, 0
  
10 0.0 ZX_EXIT Z 0 0, 0