Freshmark replication server

freshmark-canonical

Program drill-down

ZZIMPORT_CONFIG

CONFIGURE IMPORT. Type DSP, base table ZT_TABLE.

Field inventory

40

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Label 5 T -1 1, 109
  
1 0.0 Work 4 I -1 171, 109
$CALCULATE  U:ZZIMPORT_CONFIG;D3_MAPPING  
1 0.0 Label 3 T 0 200, 283
  
1 0.0 Label 2 T 0 201, 277
  
1 0.0 Label 1 T 0 91, 277
  
1 0.0 Label 26 T -1 461, 517
  
1 0.0 Label 24 T -1 551, 193
  
1 0.0 Label 22 T -1 761, 193
  
1 0.0 Label 21 T -1 691, 193
  
1 0.0 Label 14 T -1 1, 193
  
1 0.0 Label 15 T -1 81, 193
  
1 0.0 Label 18 T -1 301, 193
  
1 0.0 Work 13 I -1 1, 217
$CALCULATE  I:I\ZX_KEY;=;    DO(END-EDIT)      A:CONST;;I\ZX_FIELD_FROM      A:CONST;;I\ZX_FIELD_TO      A:CONST;;I\ZX_TYPE      A:CONST;;I\ZX_OPTION      A:CONST;;W\DEL      O:DISABLEINPUT;I\ZX_FIELD_FROM,I\ZX_KEYFIELD,I\ZX_FIELD_TO,I\ZX_TYPE,I\ZX_OPTION,I\W_DEL    DOEND(END-EDIT)  I:I\ZX_KEY;<>;    DO(END-EDIT)      
1 0.0 Work 9 I -1 171, 133
  
1 0.0 Label 8 T -1 1, 133
  
1 0.0 Label 7 T -1 451, 73
  
1 0.0 CMD 6 C -1 421, 73
$SELECT  S:ZT_TABLE;;I\TABLE
1 0.0 Work 5 I -1 171, 73
$DEFAULT  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\ZX_KEY,I\ZX_KEYFIELD,I\ZX_FIELD_TO,I\ZX_FIELD_FROM,I\ZX_OPTION,I\ZX_TYPE,I\W_DEL  A:CONST;C:\IMPORT\FMS;W\INPUT_PATH  A:CONST;C:\DOWNLOAD\D3;W\DOWNLOAD_PATH  A:CON;W\INPUT_PATH,"\*.IMP";W\PATH  B:ADD_DIR;D\KEY;W\PATH  $SELECT  S:ZT_TABLE;;I\TABLE  $CALCULATE  F:ZT_TABLE;Y;ZT_
1 0.0 Label 4 T -1 1, 73
  
1 0.0 Drop 12 D -1 171, 37
$CALCULATE  U:ZZIMPORT_CONFIG;READ
1 0.0 Label 2 T -1 1, 37
  
1 0.0 H -1 0, 0
  
1 0.0 Work 1 I -1 51, 217
$CALCULATE  C:UCASE
1 0.0 Label 2 T -1 51, 193
  
1 0.0 CMD 7 C -1 771, 109
$SELECT  O:DIALOGBOX;I\D3_TABLE;I\D3_TABLE;W\DOWNLOAD_PATH
1 0.0 Label 1 T 0 191, 169
  
1 0.0 Label 1 T -1 491, 169
  
1 0.0 Label 3 T 0 91, 169
  
1 1.0 Work 16 I -1 81, 217
$CALCULATE  C:UCASE
1 1.0 Drop 2 D -1 301, 217
$CALCULATE  C:UCASE
1 2.0 Work 23 I -1 761, 217
$CALCULATE  A:CONST;;I\W_DEL  U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\GRID;I\ZX_KEY,10,0000,W\SEQ  A:CONST;+;I\ZX_KEY  O:SETFOCUS;I\ZX_KEY  
1 2.0 Work 20 I -1 691, 217
$CALCULATE  C:UCASE
1 2.0 Work 19 I -1 551, 217
$CALCULATE  C:UCASE
1 4.0 Work 25 I -1 541, 517
$CALCULATE  C:UCASE  I:I\Y;=;"Y"    DO      U:ZZIMPORT_CONFIG;WRITE      D:UPDATE SUCCESSFUL!    DOEND
1 4.0 Work 10 G -1 1, 241
  
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
  
10 0.0 ZX_SELECT Z 0 0, 0
  
10 0.0 ZX_PRINT Z 0 0, 0