Freshmark replication server

freshmark-canonical

Program drill-down

PRODUCT_MAN_LM

PRODUCT MAINTENANCE. Type DSP, base table PRODUCT_MAST.

Field inventory

80

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 CMD 4 C -1 251, 121
$SELECT  S:PRODUCT;I\PR_PRODUCT  
1 0.0 CMD 1 C -1 313, 278
$SELECT  S:VAT;I\PR_VATCD  
1 0.0 CMD 2 C -1 191, 457
$SELECT  S:LEVY_MAN;I\LEVY_LST
1 0.0 CMD 3 C -1 591, 529
$SCMD_FOCUS  O:BACKCOLOR;C\RUN;YELLOW    $SELECT  U:PRODUCT_MAINT    A:CONST;;I\PR_PRODUCT  A:CONST;;I\PR_DESC  A:CONST;;I\PR_VARPER    O:SETFOCUS;I\PR_PRODUCT    
1 0.0 CMD 1 C -1 521, 121
$SELECT  S:SECTIONI;I\PR_SECT  
1 0.0 H -1 1, 25
  
1 0.0 PRODUCT_MAST PR_PRODUCT I -1 191, 121
$SELECT  S:PRODUCT_NOBLOCK;I\PR_PRODUCT    $VALIDATE  M:  'CONVERT TO UPPERCASE  C:UCASE    I:I\PR_PRODUCT;<>;*  DO(PROD)    A:LEN;I\PR_PRODUCT;I\TMPLEN    I:I\TMPLEN;<>;2    D:PRODUCT CODE MUST BE TWO CHARACTERS;ERRORM;I\PR_PRODUCT      F:PRODUCT_MAST;;;I\TMPNEW=PR_PRODUCT;PR_PRODUCT='$I\PR_PRODUCT$'    I:I\TMPNEW;=; 
1 0.0 PRODUCT_MAST PR_DESC I -1 191, 157
  
1 0.0 PRODUCT_MAST PR_ADESC I -1 191, 193
  
1 0.0 PRODUCT_MAST PR_SECT I -1 471, 121
  
1 0.0 PRODUCT_MAST PR_COMM_PERC I -1 191, 229
  
1 0.0 PRODUCT_MAST PR_LEVY I 0 21, 481
  
1 0.0 PRODUCT_MAST PR_NDAITEM I -1 501, 229
  
1 0.0 TMP I 0 101, 541
  
1 0.0 DEFAULT I 0 1, 73
$DEFAULT    A:DATE;DD MMM/YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    
1 0.0 Work 15 I 0 51, 73
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME  C:MCASE;;T\MARKET
1 0.0 Work 7 I 0 121, 481
  
1 0.0 Work 6 I -1 241, 457
  
1 0.0 Work 7 I 0 121, 553
  
1 0.0 Work 2 I 0 221, 553
  
1 0.0 Work 1 I 0 341, 553
  
1 0.0 Work 3 I 0 561, 229
  
1 0.0 Work 2 I 0 301, 553
  
1 0.0 Work 1 I 0 261, 553
  
1 0.0 TMPLEN I 0 81, 541
  
1 0.0 APOSTAT I 0 381, 553
  
1 0.0 Work 1 I 0 601, 121
  
1 0.0 Label 8 T -1 291, 25
  
1 0.0 PRODUCT_MAST PR_PRODUCT T -1 21, 121
  
1 0.0 PRODUCT_MAST PR_DESC T -1 21, 157
  
1 0.0 PRODUCT_MAST PR_ADESC T -1 21, 193
  
1 0.0 PRODUCT_MAST PR_SECT T -1 371, 121
  
1 0.0 PRODUCT_MAST PR_COMM_PERC T -1 21, 229
  
1 0.0 Label 7 T -1 271, 49
  
1 0.0 PRODUCT_MAST PR_GENLV T -1 21, 277
  
1 0.0 PRODUCT_MAST PR_VATCD T -1 191, 277
  
1 0.0 PRODUCT_MAST PR_PRCVAR T -1 391, 277
  
1 0.0 PRODUCT_MAST PR_GROUP T -1 21, 313
  
1 0.0 PRODUCT_MAST PR_LEVY T -1 21, 457
  
1 0.0 PRODUCT_MAST PR_ONHREQ T -1 391, 313
  
1 0.0 PRODUCT_MAST PR_FRTSTAT T -1 561, 277
  
1 0.0 APO_DESC T -1 571, 421
  
1 0.0 PRODUCT_MAST PR_APOSTAT T -1 391, 421
  
1 0.0 PRODUCT_MAST PR_BEMSTAT T -1 191, 313
  
1 0.0 PRODUCT_MAST PR_MKTDUE T -1 391, 349
  
1 0.0 PRODUCT_MAST PR_DECFRT T -1 561, 313
  
1 0.0 PRODUCT_MAST PR_CONTBLK T -1 21, 385
  
1 0.0 PRODUCT_MAST PR_VARPER T -1 21, 421
  
1 0.0 PRODUCT_MAST PR_SPECDEL T -1 191, 349
  
1 0.0 PRODUCT_MAST PR_EXPLIFE T -1 391, 385
  
1 0.0 PRODUCT_MAST PR_NDAITEM T -1 371, 229
  
1 0.0 Label 1 T 0 1, 589
  
1 0.0 Label 9 T -1 1, 25
  
1 0.0 Label 5 T -1 671, 25
  
1 0.0 Label 6 T -1 671, 49
  
1 0.0 Label 1 T -1 621, 49
  
1 0.0 Label 2 T -1 621, 25
  
1 0.0 Label 2 T -1 21, 349
  
1 0.0 Label 2 T 0 41, 541
  
1 1.0 PRODUCT_MAST PR_GENLV I -1 151, 277
  
1 1.0 PRODUCT_MAST PR_GROUP I -1 151, 313
  
1 1.0 PRODUCT_MAST PR_VARPER I -1 151, 421
$VALIDATE    'VALIDATE THE VARIANCE  I:I\PR_VARPER;<>;  R:0;100  O:SETFOCUS;C\UPDATE
1 1.0 PRODUCT_MAST PR_BLOCKED I -1 151, 349
$VALIDATE  'CONVERT TO UPPERCASE  C:UCASE    'ALLOW ONLY Y N OR BLANK  V:Y;N;    'DEFAULT THIS FIELD TO 'Y'  I:I\PR_BLOCKED;=;  A:CONST;N;I\PR_BLOCKED
1 1.0 PRODUCT_MAST PR_CONTBLK K -1 151, 385
  
1 2.0 PRODUCT_MAST PR_BEMSTAT D -1 271, 313
  
1 2.0 PRODUCT_MAST PR_VATCD I -1 271, 277
  
1 2.0 PRODUCT_MAST PR_SPECDEL I -1 311, 349
  
1 3.0 PRODUCT_MAST PR_APOSTAT D -1 511, 421
                  
1 3.0 PRODUCT_MAST PR_PRCVAR I -1 511, 277
$VALIDATE  C:UCASE  V:A;R;  
1 3.0 PRODUCT_MAST PR_ONHREQ I -1 511, 313
  
1 3.0 PRODUCT_MAST PR_MKTDUE I -1 511, 349
  
1 3.0 PRODUCT_MAST PR_EXPLIFE I -1 511, 385
  
1 4.0 PRODUCT_MAST PR_FRTSTAT D -1 671, 277
$DEFAULT  B:ADDITEM;D\PR_FRTSTAT;BLANK,1=PLUMS,2=PRUNES,3=PEACHES,4=NECTARINES,5=GRAPES,6=PEARS,7=APPLES,8=TOMATOES      $VALIDATE  'DISPLAY ERROR MESSAGE IF INVALID ENTRY IS ENTERED    I:D\PR_FRTSTAT;<>;B  A:LEN;D\PR_FRTSTAT;W\TEMP8  I:W\TEMP8;<>;    DO(008)      A:LEFT;D\PR_FRTSTAT,1;D\PR_FRTSTAT      'VALIDATE THE C
1 4.0 PRODUCT_MAST PR_DECFRT I -1 671, 313
$VALIDATE  C:UCASE  V:Y;N;  I:I\PR_DECFRT;=;  A:CONST;N;I\PR_DECFRT
1 5.0 LEVY_LST I -1 151, 457
  
10 0.0 ZX_PRINT Z 0 1, 25
  
10 0.0 ZX_SELECT Z 0 1, 25
  
10 0.0 ZX_DELETE Z 0 1, 25
  
10 0.0 ZX_UPDATE Z 0 1, 25
  
10 0.0 ZX_EXIT Z 0 1, 25