Freshmark replication server

freshmark-canonical

Program drill-down

MSCOA_MASTER_MAN

MSCOA MASTER MAINTENANCE. Type DSP, base table MSCOA_MASTER.

Field inventory

33

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Work 8 I 0 1, 97
  
1 0.0 I -1 341, 217
  
1 0.0 I 0 1, 133
  
1 0.0 H -1 1, 25
  
1 0.0 CMD 1 C -1 441, 145
$SELECT  S:MSCOA_TYPE;I\MM_TYPE
1 0.0 I -1 341, 145
$SELECT  S:MSCOA_TYPE;I\MM_TYPE  $VALIDATE    C:UCASE  V:C;D;L;O  M:    I:I\MM_TYPE;<>;  F:MSCOA_TYPE;Y;;T\TYPE_DESC=MS_DESC;MS_TYPE='$I\MM_TYPE$';I\MM_TYPE    I:I\MM_TYPE;=;D  DO(D)  O:DISABLEINPUT;I\MM_CODE  A:CONST;DU;I\MM_CODE  A:CONST;DUES;I\MM_DESC  F:MSCOA_MASTER;;;;MM_TYPE='D' AND MM_CODE ='DU';I\MM_TYPE  DOEND
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  O:DISABLEINPUT;I\FM_DATE,I\FM_TIME,I\FM_RANDS_PERKG,I\FM_STANDARD,I\MM_DESC  
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 Label 3 T -1 141, 217
  
1 0.0 Label 8 T -1 291, 25
  
1 0.0 Label 7 T -1 271, 49
  
1 0.0 T -1 141, 145
  
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 1 T -1 141, 181
  
1 0.0 I -1 341, 181
$SELECT  I:I\MM_TYPE;=;C  S:CASH_TRANS;I\MM_CODE;I\MARKET    I:I\MM_TYPE;=;L  S:LEVY_MSCOA;I\MM_CODE    $CALCULATE          I:I\MM_CODE;<>;  F:MSCOA_MASTER;;;I\MM_DESC=MM_DESC,I\MSCOA_GROUP=MM_GROUP,I\MSCOA_VAT_GROUP=MM_VAT_GROUP;MM_CODE='$I\MM_CODE$';I\MM_CODE  I:I\MM_TYPE;=;C  DO(C)  I:I\MM_CODE;<>;  F:CASH_TRN_TYPE;
1 0.0 I -1 341, 265
$VALIDATE  M:  F:MSCOA_GROUP;;;T\GROUP_DESC=MG_DESC;MG_CODE='$I\MSCOA_GROUP$';I\MSCOA_GROUP  I:W\MM_DESC;<>;  A:VAR;W\MM_DESC;I\MM_DESC
1 0.0 I -1 341, 289
$VALIDATE  M:  F:MSCOA_GROUP;;;T\VAT_GROUP_DESC=MG_DESC;MG_CODE='$I\MSCOA_VAT_GROUP$';I\MSCOA_VAT_GROUP    O:SETFOCUS;C\CREATE  O:BACKCOLOR;C\CREATE;YELLOW
1 0.0 Label 5 T -1 141, 265
  
1 0.0 Label 6 T -1 141, 289
  
1 0.0 Label 1 T -1 401, 265
  
1 0.0 Label 2 T -1 401, 289
  
1 0.0 Label 2 T -1 481, 145
  
1 0.0 CMD 1 C -1 341, 361
$SELECT  U:MSCOA_MASTER_MAN;UPDATE  A:CONST;;I\MM_TYPE,T\TYPE_DESC,I\MM_CODE,I\MM_DESC,I\MSCOA_GROUP,T\GROUP_DESC,T\VAT_GROUP_DESC,I\MSCOA_VAT_GROUP  O:SETFOCUS;I\MM_TYPE
1 0.0 CMD 2 C -1 441, 181
$SELECT  I:I\MM_TYPE;=;C  S:CASH_TRANS;I\MM_CODE;I\MARKET    I:I\MM_TYPE;=;L  S:LEVY_MSCOA;I\MM_CODE
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