Freshmark replication server

freshmark-canonical

Program drill-down

AGENT_PW_MAN

AGENT USER PASSWORD CHANGE. Type DSP, base table ZU_USER.

Field inventory

14

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Label 4 T -1 241, 121
  
1 0.0 H -1 0, 0
  
1 0.0 PASSWRD I -1 351, 121
$VALIDATE  C:UCASE    O:BACKCOLOR;C\UPDATE;YELLOW  O:SETFOCUS;C\UPDATE
1 0.0 ZU_USER ZU_AGENT T -1 241, 85
  
1 0.0 AGENT_NAME T -1 401, 85
  
1 0.0 Update C -1 301, 169
$SELECT  U:AGENT_PW_MAN;CHANGE    I:I\ORGS;=;  DO(C2X)   A:CONST;;I\PASSWRD,I\ZU_AGENT,T\AGENT_NAME   O:SETFOCUS;I\ZU_AGENT  DOEND(C2X)    I:I\ORGS;<>;  DO(C2V)   A:CONST;;I\PASSWRD   O:SETFOCUS;I\PASSWRD  DOEND(C2V)
1 0.0 ZU_USER ZU_AGENT I -1 351, 85
$CALCULATE  M:  C:UCASE    F:AGENT_MAST;Y;;T\AGENT_NAME=AM_NAME;AM_MARKET='$I\MARKET$' AND AM_CODE='$I\ZU_AGENT$';I\ZU_AGENT
1 0.0 Work 1 I 0 311, 49
$DEFAULT  A:ORG;;I\MARKET
1 0.0 Work 2 I 0 341, 49
$DEFAULT  A:ORGS    I:I\ORGS;=;  DO(DDE)   O:ENABLEINPUT;I\ZU_AGENT   O:SETFOCUS;I\ZU_AGENT  DOEND(DDE)    I:I\ORGS;<>;  DO(CCA)   F:AGENT_MAST;Y;AM_CODE;T\AGENT_NAME=AM_NAME;AM_MARKET='$I\MARKET$'   A:VAR;I\ORGS;I\ZU_AGENT   O:DISBLEINPUT;I\ZU_AGENT   O:SETFOCUS;I\PASSWRD  DOEND(CCA)
10 0.0 ZX_SELECT Z 0 0, 0
  
10 0.0 ZX_PRINT Z 0 0, 0
  
10 0.0 ZX_EXIT Z 0 0, 0
  
10 0.0 ZX_UPDATE Z 0 0, 0
  
10 0.0 ZX_DELETE Z 0 0, 0