Freshmark replication server

freshmark-canonical

Program drill-down

JHB_GROUP_UPD

JHB GROUPING UPDATE. Type DSP, base table JHB_GROUPING.

Field inventory

45

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Work 8 I 0 1, 61
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    '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    O:SETFOCUS;I\JGP_GROUP_ID  
1 0.0 CMD 4 C -1 291, 217
$SELECT  S:CLASS;I\JGP_CLASS    
1 0.0 Work 9 I 0 81, 61
$DEFAULT    A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    '$CALCULATE  'U:ZZGRID_SPLIT;INIT_GRID;G\GRIDM;I\LV_CODE,I\LV_DESC,I\LV_CALC_TYPE,I\LV_RATE,I\LV_MRATE,I\LV_VATCD,I\LV_BOARD  'U:ZZGRID_SPLIT;DB_TO_GRID;G\GRIDM;LEVY_MAST    O:SETFOCUS;I\DA_CODE    '$BEFORE_DELETE  
1 0.0 Label 6 T -1 621, 49
  
1 0.0 Label 7 T -1 671, 49
  
1 0.0 Label 5 T -1 300, 49
  
1 0.0 Label 3 T -1 621, 25
  
1 0.0 Label 4 T -1 671, 25
  
1 0.0 Label 2 T -1 291, 25
  
1 0.0 Label 1 T -1 1, 25
  
1 0.0 H -1 0, 0
  
1 0.0 JGP_GROUP I -1 191, 145
$SELECT  S:ITEM_DEST;I\JGP_GROUP    $VALIDATE  C:UCASE  M:    F:PRODUCT_MAST;Y;;T\JGP_GROUP=PR_DESC;PR_PRODUCT='$I\JGP_GROUP$';I\JGP_GROUP    
1 0.0 Label 5 T -1 31, 361
  
1 0.0 JGP_DELIND I -1 191, 361
$VALIDATE    C:UCASE  V:Y;N        O:SETFOCUS;I\SAVE  
1 0.0 Label 1 T -1 31, 145
  
1 0.0 Label 3 T -1 31, 325
  
1 0.0 JGP_MASS I -1 191, 325
$VALIDATE  'C:UCASE  M:  
1 0.0 CMD 7 C -1 291, 145
$SELECT  'S:ITEM_NEW;I\ITEM  S:ITEM_DEST;I\JGP_GROUP      
1 0.0 Label 8 T -1 331, 145
  
1 0.0 Label 9 T -1 31, 181
  
1 0.0 JGP_VARIETY I -1 191, 181
$SELECT  S:ITEM_VAR;I\JGP_VARIETY;I\JGP_GROUP    $VALIDATE  C:UCASE  'M:    F:VAR_MAST;;;T\JGP_VARIETY=VA_DESC;VA_VARIETY='$I\JGP_VARIETY$' AND VA_PRODUCT = '$I\JGP_GROUP$';    
1 0.0 Label 12 T -1 331, 181
  
1 0.0 CMD 11 C -1 291, 181
$SELECT  S:ITEM_VAR;I\JGP_VARIETY;I\JGP_GROUP  
1 0.0 Label 1 T -1 31, 217
  
1 0.0 Label 5 T -1 31, 289
  
1 0.0 JGP_CLASS I -1 191, 217
$SELECT  S:CLASS;I\JGP_CLASS    $VALIDATE  C:UCASE  'M:    F:CLASS_MAST;;;T\JGP_CLASS=CL_DESC;CL_CLASS='$I\JGP_CLASS$';    
1 0.0 CMD 7 C -1 291, 289
  
1 0.0 Label 3 T -1 331, 217
  
1 0.0 JGP_CONT I -1 191, 289
$SELECT  S:CONT_GATE;;I\JGP_GROUP;I\JGP_VARIETY    $VALIDATE  C:UCASE  'M:    I:I\JGP_CONT;<>;  DO(1)    F:CONT_MAST;;;T\JGP_CONT=CN_DESC,I\JGP_MASS=CN_MASS;CN_CONT='$I\JGP_CONT$' AND CN_PRODUCT = '$I\JGP_GROUP$';  DOEND(1)  
1 0.0 Label 8 T -1 331, 289
  
1 0.0 Label 1 T -1 31, 109
  
1 0.0 CMD 3 C -1 291, 253
  
1 0.0 Label 1 T 0 551, 145
  
1 0.0 CMD 2 C 0 731, 145
$SELECT  'S:ITEM_NEW;I\ITEM  S:JHBGROUP;  
1 0.0 JHB_GROUPING JGP_GROUP_ID I -1 191, 109
$SELECT  S:JHBGROUP;I\JGP_GROUP_ID    $VALIDATE  'C:UCASE  M:    F:JHB_GROUPING;;;I\JGP_GROUP=JGP_GROUP,I\JGP_VARIETY=JGP_VARIETY,I\JGP_CLASS=JGP_CLASS,I\JGP_CONT=JGP_CONT,I\JGP_MASS=JGP_MASS,I\JGP_DELIND=JGP_DELIND,I\JGP_SIZE=JGP_SIZE;JGP_GROUP_ID='$I\JGP_GROUP_ID$';    
1 0.0 CMD 1 C -1 341, 421
$SELECT    W:JHB_GROUPING;Y;;JGP_GROUP=I\JGP_GROUP,JGP_VARIETY=I\JGP_VARIETY,JGP_CLASS=I\JGP_CLASS,JGP_CONT=I\JGP_CONT,JGP_MASS=I\JGP_MASS,JGP_DELIND=I\JGP_DELIND,JGP_GROUP_ID=I\JGP_GROUP_ID,JGP_SIZE=I\JGP_SIZE;JGP_GROUP_ID='$I\JGP_GROUP_ID$'    A:CONST;;I\JGP_GROUP,I\JGP_VARIETY,I\JGP_CLASS,I\JGP_CONT,I\JGP_MASS,I\JGP
1 0.0 CMD 3 C -1 291, 109
$SELECT  S:JHBGROUP;I\JGP_GROUP_ID  
1 0.0 Label 4 T -1 331, 253
  
1 0.0 Label 1 T -1 31, 253
  
1 0.0 JGP_SIZE I -1 191, 253
$SELECT  S:COM_ENQ_SIZE;I\JGP_SIZE;I\JGP_GROUP;I\JGP_VARIETY;I\JGP_CLASS    $VALIDATE  C:UCASE  'M:    F:SIZE_MAST;;;T\JGP_SIZE=SZ_DESC;SZ_SIZE='$I\JGP_SIZE$';    
10 0.0 ZX_DELETE Z 0 0, 0
  
10 0.0 ZX_PRINT Z 0 0, 0
  
10 0.0 ZX_SELECT Z 0 0, 0
  
10 0.0 ZX_EXIT Z 0 0, 0
  
10 0.0 ZX_UPDATE Z 0 0, 0