Freshmark replication server

freshmark-canonical

Program drill-down

BUYER_RES_STOCK

BUYER RESERVATION STOCK ENQUIRY. Type DSP, base table DEBTOR_MAST.

Field inventory

29

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 H -1 0, 0
  
1 0.0 DEFAULT I 0 141, 37
'DISPLAYING TIME  $DEFAULT  A:DATE;DD MMM/YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  ''A:TIMER_ON;1000
1 0.0 Label 2 T -1 181, 325
  
1 0.0 Label 8 T -1 621, 49
  
1 0.0 Label 9 T -1 621, 25
  
1 0.0 Label 10 T -1 671, 25
  
1 0.0 Label 11 T -1 671, 49
  
1 0.0 CMD 4 C -1 441, 181
$SELECT  S:BUYER NUMBER;I\BUYER_NO  
1 0.0 Label 2 T -1 181, 217
  
1 0.0 Label 3 T -1 181, 253
  
1 0.0 Label 3 T -1 481, 181
  
1 0.0 BUYER_NO I -1 341, 181
$DEFAULT    $SELECT  S:BUYER NUMBER;I\BUYER_NO    $VALIDATE  A:CONST;;I\RESERVED_AMT,I\ADD,I\OUTSTANDING_BALANCE,I\NETT,I\CREDIT_LIMIT  M:  C:UCASE  F:DEBTOR_MAST;Y;;I\ACCTYPE=DM_ACCTYPE,T\DESC=DM_NAME;DM_DEBTOR='$I\BUYER_NO$';I\BUYER_NO    U:GET_BUYER_RESERVED_STOCK        '''IF ACCOUNT TYPE IS SC  'I:I\ACCTYPE;=;SC  
1 0.0 Work 1 I -1 341, 325
  
1 0.0 Label 4 T -1 181, 289
  
1 0.0 Label 1 T -1 181, 181
  
1 0.0 Work 1 I -1 341, 217
  
1 0.0 Label 4 T -1 241, 49
  
1 0.0 Label 5 T -1 1, 25
  
1 0.0 MARKET I 0 111, 37
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MARKET    'GETS BULK EMAIL PARAMETER  A:PARM;1;I\BULK_EMAIL    A:VAR;I\MARKET;I\TM_MARKET    $AFTER_READ  A:VAR;I\MARKET;I\TM_MARKET
1 0.0 Label 3 T -1 291, 25
  
1 0.0 Work 5 I -1 341, 253
  
1 0.0 Work 6 I -1 341, 289
  
1 0.0 Work 3 I 0 581, 277
  
1 0.0 ACCTYPE I 0 541, 469
  
10 0.0 ZX_UPDATE Z 0 0, 0
  
10 0.0 ZX_EXIT 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_DELETE Z 0 0, 0