Freshmark replication server

freshmark-canonical

Program drill-down

TRADE_MODIFICATIONS

UNALLOCATED SOTCK ALLOCATION. Type DSP, base table FM_PED_MAST.

Field inventory

102

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 I -1 401, 121
    
1 0.0 Work 9 I 0 361, 541
  
1 0.0 Work 11 I -1 481, 481
  
1 0.0 I -1 141, 229
  
1 0.0 I -1 371, 229
$CALCULATE    'CHECK CONSIGNMENT QTY  I:I\RECQTY;<=;0;NUM  D:DELIVERY QTY CANNOT BE LESS OR EQUAL TO ZERO;ERRORM;I\RECQTY    
1 0.0 Work 3 I 0 21, 517
  
1 0.0 Work 7 I -1 491, 229
  
1 0.0 Work 1 I -1 431, 229
$CALCULATE  A:CONST;;I\TMP2    C:UCASE    I:I\CONFQTY;<>;I\ALLOCQTY  U:PED_MAN;CONRFIM_QTY;G\GRID    I:I\TMP2;=;STOP  D:VERIFY QTY;ERRORM;I\CONFQTY    A:SUB;I\RECQTY;W\QTY_AVAIL;I\UNALLOCQTY    'I:I\CONFQTY;>;W\QTY_AVAIL  'D:QTY CONFIRMED CAN NOT BE GREATER THAN QTY ALLOCATED FOR SALE;ERRORM;I\CONFQTY    A:MULT;I\CONFQ
1 0.0 Work 17 I 0 101, 517
  
1 0.0 Work 12 I -1 481, 409
  
1 0.0 Work 15 I -1 181, 409
  
1 0.0 Work 8 I -1 541, 229
  
1 0.0 Work 9 I -1 601, 229
  
1 0.0 Work 10 I -1 661, 229
  
1 0.0 Work 13 I -1 181, 445
$VALIDATE  'CONVERT TO UPPERCASE  C:UCASE    F:FM_TABLES;;;W\TABLENO=FM_TABLENO,W\PEDNO=FM_PEDNO;FM_TABLENO='$I\TRNTYPE$' AND ISNULL(FM_PEDNO);I\TRNTYPE    I:I\TRNTYPE;<>;  DO(3)    I:W\TABLENO;=;    D:TABLE DOES NOT EXIST;ERRORM;I\TRNTYPE  DOEND(3)    I:W\TABLENO;<>;  DO(1)    I:W\PEDNO;<>;    D:TABLE ALREADY ALLOCATE
1 0.0 Work 3 I -1 321, 229
  
1 0.0 Work 2 I 0 161, 517
  
1 0.0 Work 2 I 0 451, 541
  
1 0.0 Work 18 I 0 131, 517
  
1 0.0 Work 13 I 0 41, 517
  
1 0.0 Work 14 I 0 71, 517
  
1 0.0 Work 3 I -1 271, 409
  
1 0.0 Work 1 I 0 511, 541
  
1 0.0 Work 2 I 0 481, 541
  
1 0.0 STK_MAST SM_SUPP T -1 301, 97
  
1 0.0 Label 1 T -1 291, 25
  
1 0.0 Label 2 T -1 291, 49
  
1 0.0 Label 10 T -1 381, 481
  
1 0.0 Label 5 T -1 661, 205
  
1 0.0 Label 6 T -1 721, 205
  
1 0.0 SD_CONQTY T -1 541, 205
  
1 0.0 CONS T -1 371, 205
  
1 0.0 STK_DETS SD_COMMENT T -1 141, 205
  
1 0.0 Label 68 T -1 381, 445
  
1 0.0 Label 1 T -1 51, 205
  
1 0.0 Label 16 T -1 11, 409
  
1 0.0 Label 4 T -1 491, 205
  
1 0.0 Label 11 T -1 11, 445
  
1 0.0 Label 12 T -1 381, 409
  
1 0.0 Label 1 T -1 11, 97
  
1 0.0 Label 2 T -1 321, 205
  
1 0.0 Label 1 T -1 601, 181
  
1 0.0 SD_SEQ T -1 11, 205
  
1 0.0 T -1 301, 157
  
1 0.0 STK_MAST SM_VREGNO T -1 11, 157
  
1 0.0 Label 19 T -1 511, 97
  
1 0.0 Label 3 T -1 1, 25
  
1 0.0 Label 4 T -1 621, 25
  
1 0.0 Label 5 T -1 621, 49
  
1 0.0 Label 5 T -1 431, 181
  
1 0.0 Label 4 T -1 371, 181
  
1 0.0 Label 2 T -1 431, 205
  
1 0.0 Label 6 T -1 671, 25
  
1 0.0 Label 7 T -1 671, 49
  
1 0.0 STK_MAST SM_DELNO T -1 301, 121
  
1 0.0 Work 1 I 0 661, 121
  
1 0.0 Work 2 I 0 661, 145
  
1 0.0 Work 3 I -1 721, 445
  
1 0.0 Work 1 I 0 211, 541
  
1 0.0 TMP3 I 0 11, 541
  
1 0.0 Work 2 I 0 81, 49
  
1 0.0 IP I 0 61, 49
  
1 0.0 Work 2 I -1 51, 229
  
1 0.0 TMP2 I 0 71, 541
  
1 0.0 Work 5 I 0 141, 229
  
1 0.0 Work 6 I 0 191, 229
  
1 0.0 Work 2 I 0 241, 541
  
1 0.0 Work 4 I -1 121, 97
$SELECT  S:PED_NUMBERS;I\PED      $VALIDATE  A:CONST;;I\SEQ  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SEQ,I\ITEM_DESC,I\ITEM:H,I\CONT_DESC,I\CONT:H,I\CONT_MASS,I\ALLOCQTY,I\CONFQTY,I\MASS,I\PERKG,I\TOT_VAL,I\RAND_PERCENT,I\OWING,I\UNALLOCQTY:H,I\RECQTY:H  A:CONST;;I\SEQ,I\ITEM_DESC,I\ITEM,I\CONT_DESC,I\CONT,I\CONT_MASS,I\ALLO
1 0.0 Work 4 I 0 11, 517
  
1 0.0 Work 2 I 0 431, 205
  
1 0.0 Work 1 I 0 421, 541
  
1 0.0 Work 8 I 0 271, 541
  
1 0.0 Work 7 I 0 301, 541
  
1 0.0 Work 6 I 0 331, 541
  
1 0.0 Work 1 I 0 371, 229
  
1 0.0 I -1 401, 97
  
1 0.0 Work 2 I -1 601, 445
  
1 0.0 DEFAULT I 0 41, 49
$DEFAULT    A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    A:USERIP;;I\IP  A:USERID;;I\USER    'INITIALIZE CONSIGNMENT GRID  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SEQ,I\ITEM_DESC,I\ITEM:H,I\CONT_DESC,I\CONT:H,I\CONT_MASS,I\ALLOCQTY,I\CONFQTY,I\MASS,I\PERKG,I\TOT_VAL,I\RAND_PERCENT,I\OWING,I\UNALLOCQT
1 0.0 CMD 5 C -1 231, 481
$SELECT  I:I\TRNTYPE;<>;  DO(CHK)    A:CRLF;I\TMP;I\TMP    'A:CON;I\TMP;I\DONT_EXIST;I\TRANS    'U:DELETE_MV;DELETE_DESC;I\TRNTYPE,I\TRANS    U:DELETE_MV;DELETE;I\TRNTYPE,I\TRANS  DOEND(CHK)    A:CONST;;I\TRNTYPE  O:SETFOCUS;C\DEL;I\TRNTYPE
1 0.0 CMD 4 C -1 231, 445
  
1 0.0 CMD 1 C -1 221, 97
$SELECT  S:PED_NUMBERS;I\PED
1 0.0 CMD 1 C 0 651, 576
  
1 0.0 CMD 3 C -1 651, 548
$SELECT  U:PED_MAN;CONRFIM_PED;G\GRID,I\TRANS    U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SEQ,I\ITEM_DESC,I\ITEM:H,I\CONT_DESC,I\CONT:H,I\CONT_MASS,I\ALLOCQTY,I\CONFQTY,I\MASS,I\PERKG,I\TOT_VAL,I\RAND_PERCENT,I\OWING,I\UNALLOCQTY:H,I\RECQTY:H  A:CONST;;I\SEQ,I\ITEM_DESC,I\ITEM,I\CONT_DESC,I\CONT,I\CONT_MASS,I\ALLOCQTY,I\RECQT
1 0.0 Work 64 G -1 11, 253
  
1 0.0 H -1 1, 61
  
1 0.0 I -1 11, 229
$CALCULATE    I:I\SEQ;=;  DO(001)    A:CONST;;I\SEQ,I\ITEM,I\ITEM_DESC,I\CONT,I\CONT_DESC,I\RECQTY,I\UNALLOC_QTY,I\UNALLOCQTY,I\ALLOCQTY    O:DISABLEINPUT;G\GRID,I\ITEM,I\ITEM_DESC,I\CONT,I\CONT_DESC,I\RECQTY,I\UNALLOC_QTY,I\UNALLOCQTY,I\CONFQTY,I\ALLOCQTY    O:DISABLEINPUT;G\GRID      U:PED_MAN;SUM_QTY;G\GRID,I\CONFQT
1 0.0 Work 2 I -1 721, 229
  
1 0.0 TMP16 I 0 51, 541
  
1 0.0 ORGS I 0 21, 49
  
1 0.0 PROHIBIT_SALES I 0 101, 49
  
1 0.0 TMP1 I 0 31, 541
  
1 0.0 I -1 121, 157
$VALIDATE  C:UCASE  
1 0.0 STK_MAST SM_MARKET I 0 1, 49
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\SM_MARKET  A:ORGS;;I\ORGS      'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\CM_DEL_LEN=CM_DEL_LEN    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MARKET    A:DATE;DD MMM YYYY;I\FM_PED_DATE  A:TIME;HH:MM:SS;I\FM_PED_TIME    'LOAD OPTIONS FRO
1 2.0 Label 67 T 0 91, 541
  
1 2.0 Label 1 T -1 601, 205
  
1 2.0 NO_OF_LINES I 0 391, 541
'$VALIDATE  'I:I\NO_OF_LINES;=;  'A:CONST;0;I\NO_OF_LINES    'I:I\NO_OF_LINES;<>;I\NO_LINES  'D:NUMBER OF LINES MUST BE EQUAL TO THE NUMBER OF ROWS IN THE GRID;ERRORM;I\NO_OF_LINES      '$VALIDATE    ''FOR PRE CHANGE 28062013  I:I\NO_LINES;=;  ''D:ERROR - NO RECORDS IN THE GRID TO PROCESS;ERRORM;I\SD_SEQ
1 2.0 TOT_REC I -1 431, 445
  
10 0.0 ZX_DELETE Z 0 1, 61
  
10 0.0 ZX_EXIT Z 0 1, 61
  
10 0.0 ZX_SELECT Z 0 1, 61
  
10 0.0 ZX_PRINT Z 0 1, 61
  
10 0.0 ZX_UPDATE Z 0 1, 61