Freshmark replication server

freshmark-canonical

Program drill-down

PRODUCT_OFFER

PRODUCT OFFER. Type DSP, base table DEBT_ADDR.

Field inventory

58

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Work 16 I -1 171, 109
  
1 0.0 Work 17 I -1 171, 181
  
1 0.0 Work 18 I -1 171, 217
  
1 0.0 Work 19 I -1 171, 253
  
1 0.0 Work 20 I -1 431, 145
  
1 0.0 Work 25 I 0 21, 61
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;I\DEL_LEN=CM_DEL_LEN,I\PROHIBIT_SALES=CM_PROHIBIT_SALES,T\MARKET=CM_NAME    I:I\PROHIBIT_SALES;=;Y  DO(LAM)    O:DISABLEINPUT;I\CONSIGN    D:SALES ARE PROHIBITED, TRANSACTION CANNOT BE DONE;ERRORM;I\CONSIGN  DOEND(LAM)    'CHANGI
1 0.0 Work 24 I 0 1, 61
$DEFAULT  A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    O:CAPTION_UPD;PROCESS    A:ORGS;;I\ORGS  I:I\ORGS;<>;  DO(1)    A:VAR;I\ORGS;I\AGENT    F:AGENT_MAST;;;T\AGN_DESC=AM_NAME;AM_CODE='$I\AGENT$'  DOEND(1)    A:CONST;N;I\DEL  O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\UPDATE
1 0.0 Work 26 I 0 41, 61
  
1 0.0 Work 27 I 0 61, 61
$DEFAULT  A:USERIP;;I\IP
1 0.0 Work 28 I 0 81, 61
$DEFAULT  A:USERID;;I\USERID
1 0.0 Work 30 I 0 161, 541
$BEFORE_WRITE  A:VAR;I\DELDATE;I\DELDATE;;YYYY/MM/DD    U:CONSIGN_DELETION;CHECK_SALES  I:I\TMP1;=;N  DO(DSS)   D:CANNOT DELETE CONSIGNMENT, SALES HAVE TAKEN PLACE;ERRORM;I\CONSIGN   A:CONST;;I\TMP1  DOEND(DSS)    'MAKE SURE NO CS MOVMENT IS PRESENT  U:CONSIGN_DELETION;CHECK_CS  I:I\TMP1;=;N  DO(GBG)   D:COLD STORAGE M
1 0.0 Work 35 I 0 31, 541
  
1 0.0 Work 34 I 0 51, 541
  
1 0.0 Work 36 I 0 11, 541
  
1 0.0 Work 38 I 0 71, 541
  
1 0.0 Work 37 I 0 91, 541
  
1 0.0 STK_DETS SD_MARKET I 0 171, 61
  
1 0.0 Work 40 I 0 541, 169
  
1 0.0 Work 5 I 0 691, 109
  
1 0.0 Work 3 I 0 591, 193
  
1 0.0 Work 2 I 0 591, 121
  
1 0.0 Work 1 I 0 591, 157
  
1 0.0 Work 4 I 0 591, 85
  
1 0.0 Label 2 T -1 291, 25
  
1 0.0 Label 3 T -1 291, 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 71, 145
  
1 0.0 Label 9 T -1 71, 109
  
1 0.0 Label 10 T -1 71, 181
  
1 0.0 Label 11 T -1 71, 217
  
1 0.0 Label 12 T -1 71, 253
  
1 0.0 Label 13 T -1 331, 145
  
1 0.0 Label 8 T -1 71, 289
  
1 0.0 Label 5 T -1 191, 397
  
1 0.0 Work 1 I -1 431, 253
$VALIDATE  I:I\OFFER_QTY;>;I\AVAIL_QTY  D:OFFER QUANTITY EXCEEDS THE AVAILABLE QUANTITY;ERRORM;I\OFFER_QTY    
1 0.0 Work 2 I 0 21, 433
$VALIDATE  C:UCASE  'V:Y;N    O:BACKCOLOR;C\UPDATE;YELLOW  O:SETFOCUS;C\UPDATE
1 0.0 Label 3 T -1 331, 253
  
1 0.0 Label 4 T 0 21, 433
  
1 0.0 Label 1 T -1 331, 289
  
1 0.0 Work 2 I -1 431, 289
$VALIDATE    O:BACKCOLOR;C\UPDATE;YELLOW  O:SETFOCUS;C\UPDATE
1 0.0 Label 32 T -1 231, 109
  
1 0.0 Label 39 T -1 281, 181
  
1 0.0 Work 9 I -1 171, 289
  
1 0.0 RR I 0 641, 157
  
1 0.0 Label 1 T -1 1, 25
  
1 0.0 Work 1 I 0 111, 541
  
1 0.0 Work 15 I -1 171, 145
$SELECT  I:I\ORGS;=;  S:CONSDEL;I\CONSIGN    I:I\ORGS;<>;  S:CONSDEL1;I\CONSIGN;I\ORGS    $CALCULATE  'ADDED BY LAZ BECAUSE IF I FIRST ENTERED THE CONSIGNMENT THAT SALES HAVE TAKEN PLACE ON IT,IT DOES'NT CLEAR THIS TEMP FIELD WHEN I TRY TO ENTER THE ONE WITH NO SALES HAVE TAKEN PLACE  A:CONST;;I\TMP1  M:      F:STK_DET
1 0.0 H -1 0, 0
  
1 0.0 CMD 22 C -1 271, 145
$SELECT  I:I\ORGS;=;  S:CONSDEL;I\CONSIGN    I:I\ORGS;<>;  S:CONSDEL1;I\CONSIGN;I\ORGS
1 0.0 CMD 1 C -1 651, 547
$SELECT    A:CONST;UPDATING .......;T\PROG    U:MARKET_FUNCTIONS;OFFER_QTY    A:CONST;UPDATE COMPLETE !!!!;T\PROG    A:CONST;;I\CONSIGN,I\TMP1,I\PALLS,I\SUPPL,T\SUPP_DESC,I\COMMODITY,I\QTY,I\DELDATE,I\AVAIL_QTY,I\OFFER_QTY    A:CONST;N;I\DEL    O:SETFOCUS;I\CONSIGN
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
$UPDATE    'LOOK UP DETAILS FOR THIS CONSIGNMENT=============================================================================================================================================================================================  I:I\ORGS;=;  F:STK_DETS;Y;;I\AGENT=SD_AGENT,I\DISC=SD_DISQTY,I\RR=SD_RRQTY,I\CS=S
10 0.0 ZX_EXIT Z 0 0, 0
  
10 0.0 ZX_PRINT Z 0 0, 0