Freshmark replication server

freshmark-canonical

Program drill-down

APAC_STOCK

APAC STOCK. Type DSP, base table STK_DETS.

Field inventory

32

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 331, 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 Label 8 T -1 261, 157
  
1 0.0 Label 9 T -1 261, 205
  
1 0.0 Label 10 T -1 261, 253
  
1 0.0 Label 11 T -1 261, 301
  
1 0.0 AGENT I -1 361, 157
$SELECT  S:AGENT_CODE;I\AGENT    $CALCULATE  I:I\AGENT;<>;  DO(AG3)    C:UCASE    F:AGENT_MAST;Y;;T\AGN_NAME=AM_NAME;AM_CODE='$I\AGENT$';I\AGENT  DOEND(AG3)    I:I\AGENT;=;  DO(DG3)    A:CONST;ALL;T\AGN_NAME  DOEND(DG3)
1 0.0 SECT I -1 361, 205
$SELECT  S:SECTION;I\SECT    $CALCULATE  I:I\SECT;<>;  DO(S3T)    C:UCASE    F:SECT_MAST;Y;;T\SECT_DESC=SE_DESC;SE_SECT='$I\SECT$';I\SECT  DOEND(S3T)    I:I\SECT;=;  DO(SMM)    A:CONST;ALL;T\SECT_DESC  DOEND(SMM)  
1 0.0 PROD I -1 361, 253
$SELECT  S:PRODUCT;I\PROD    $CALCULATE  I:I\PROD;<>;  DO(CP1)    C:UCASE    F:PRODUCT_MAST;Y;;T\PROD_DESC=PR_DESC;PR_PRODUCT = '$I\PROD$';I\PROD    O:ENABLEINPUT;I\VAR,C\VAR  DOEND(CP1)    I:I\PROD;=;  DO(CCC)    A:CONST;ALL;T\PROD_DESC    A:CONST;;I\VAR,T\VAR_DESC    O:DISABLEINPUT;I\VAR,C\VAR        O:SETFOCUS;C\GO 
1 0.0 VAR I -1 361, 301
$SELECT  S:VAR_MAST_PROD;I\VAR;I\PROD    $CALCULATE    I:I\VAR;<>;  DO(V24)    C:UCASE    F:VAR_MAST;Y;;T\VAR_DESC=VA_DESC;VA_PRODUCT='$I\PROD$' AND VA_VARIETY='$I\VAR$';I\VAR  DOEND(V24)    I:I\VAR;=;  DO(S3D)    A:CONST;ALL;T\VAR_DESC  DOEND(S3D)    O:SETFOCUS;C\GO  O:BACKCOLOR;C\GO;YELLOW
1 0.0 DEFAULT I 0 11, 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    '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 411, 157
  
1 0.0 CMD 19 C -1 411, 205
  
1 0.0 CMD 20 C -1 411, 253
  
1 0.0 CMD 21 C -1 411, 301
  
1 0.0 Label 22 T -1 331, 397
  
1 0.0 CMD 23 C -1 311, 361
$SELECT  A:CONST;IN PROGRESS;T\PROG  U:APAC_STOCK_CSV;COLLECT  A:CONST;COMPLETED!!;T\PROG    A:CONST;;I\AGENT,T\AGN_NAME,I\SECT,T\SECT_DESC,I\PROD,T\PROD_DESC,I\VAR,T\VAR_DESC  O:SETFOCUS;I\AGENT
1 0.0 Label 24 T -1 451, 157
  
1 0.0 Label 25 T -1 451, 205
  
1 0.0 Label 26 T -1 451, 253
  
1 0.0 Label 27 T -1 451, 301
  
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