Freshmark replication server

freshmark-canonical

Program drill-down

BUYER_PIN_MAN

BUYER PIN MAINTANANCE. Type DSP, base table DEBTOR_MAST.

Field inventory

47

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Label 5 T -1 621, 49
  
1 0.0 Label 4 T -1 671, 25
  
1 0.0 Label 3 T -1 621, 25
  
1 0.0 Work 25 I 0 1, 481
  
1 0.0 Label 6 T -1 671, 49
  
1 0.0 Work 14 I 0 1, 409
  
1 0.0 Work 15 I 0 101, 409
  
1 0.0 Work 16 I 0 101, 505
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;I\RFID=CM_USE_RFID,T\MKT=CM_NAME  '''F:CLIENT_MAST;;CM_CODE;T\MKT=CM_NAME    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MKT  O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\RUN
1 0.0 Work 2 I 0 101, 337
$DEFAULT  A:USERIP;I\IP
1 0.0 Work 17 I 0 1, 385
$DEFAULT    A:TIME,HH:MM:SS;T\TIME  A:DATE;DD MMM YYYY;T\DATE  A:TIMER_ON;1000    A:SETPWFIELD;I\BUYER  A:SETPWFIELD;I\REFUND_PIN  A:USERID;;I\USERID  A:USERIP;;I\IP  O:SETFOCUS;I\BUYER
1 0.0 Work 1 I 0 401, 481
  
1 0.0 Work 18 I 0 201, 409
  
1 0.0 Work 19 I 0 201, 433
  
1 0.0 Work 20 I 0 101, 433
  
1 0.0 Work 21 I 0 1, 433
  
1 0.0 Work 22 I 0 1, 457
  
1 0.0 Work 23 I 0 101, 457
  
1 0.0 Work 24 I 0 201, 457
  
1 0.0 Work 26 I 0 101, 481
  
1 0.0 Work 6 I 0 101, 361
  
1 0.0 Work 12 I 0 201, 385
  
1 0.0 Work 13 I 0 101, 385
  
1 0.0 I -1 311, 241
$VALIDATE  A:LEN;I\REFUND_PIN;I\TMP2    I:I\TMP2;>;0    DO(001)        I:I\TMP2;<;4        D:PIN NUMBER MUST BE 4 OR 5 CHARACTERS;ERRORM;I\REFUND_PIN        I:I\TMP2;>;5        D:PIN NUMBER MUST BE 4 OR 5 CHARACTERS;ERRORM;I\REFUND_PIN       DOEND(001)    O:SETFOCUS;C\RUN  O:BACKCOLOR;C\RUN;YELLOW
1 0.0 I -1 311, 205
'SELECTING BUYER NUMBER FROM DEBTOR_MAST TABLE FOR F5 FUNCTION  '$VALIDATE  'S:BUYER_NUMBER;I\BUYER    'CHANGE TEXT CASE TO UPPER CASE AND SET THIS FIELD MANDATORY  $VALIDATE    A:CONST;;T\NAME,W\ACCTYPE,I\BYR,I\NME,I\TMP_BUYER  M:        'VALIDATE THE PREAMBLE  F:PREAMBLE_DEBTOR;;PDR_DEBTOR;I\TMP1=PDR_DEBTOR  I:I\TMP1
1 0.0 Label 9 T -1 201, 241
  
1 0.0 Label 8 T -1 201, 205
  
1 0.0 Work 1 I 0 1, 505
  
1 0.0 Work 1 I 0 201, 505
  
1 0.0 Work 1 I 0 1, 337
$DEFAULT  A:USERID;I\USERID
1 0.0 CMD 2 C -1 651, 546
$SELECT  U:ENCRYPTION;UPDATE_PIN  A:CONST;;I\BUYER,I\REFUND_PIN,T\NAME  O:SETFOCUS;I\BUYER
1 0.0 Label 1 T -1 291, 25
  
1 0.0 Label 2 T -1 1, 25
  
1 0.0 H -1 0, 0
  
1 0.0 Label 7 T -1 251, 49
  
1 0.0 Label 7 T -1 471, 205
  
1 0.0 Work 2 I 0 1, 361
  
1 0.0 Work 3 I 0 201, 361
  
1 0.0 Work 5 I 0 101, 481
  
1 0.0 Work 4 I 0 201, 481
  
1 0.0 Work 2 I 0 421, 481
  
1 0.0 Work 3 I 0 401, 505
  
1 0.0 Work 4 I 0 421, 505
  
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