Freshmark replication server

freshmark-canonical

Program drill-down

RFID_USER_REGIS

RFID USER REG. Type DSP, base table ZU_USER.

Field inventory

30

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Work 11 I 0 1, 61
$DEFAULT  A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    A:DATE;DD MMM YYYY;I\SDATE  A:DATE;DD MMM YYYY;I\EDATE      A:SETPWFIELD;I\REFID2    'PUTS PIC ON THE UPDATE BUTTON  O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\UPDATE
1 0.0 Work 1 I 0 361, 301
1 0.0 Label 13 T -1 171, 229
1 0.0 Work 1 I 0 531, 109
1 0.0 AGENT Work 9 I 0 41, 61
$DEFAULT  A:ORGS;;I\AGENT
1 0.0 CMD 15 C -1 401, 193
$SELECT  S:DEBTOR;I\DM_DEBTOR
1 0.0 Label 3 T -1 291, 49
1 0.0 Label 5 T -1 671, 25
1 0.0 IP I 0 61, 61
$DEFAULT  A:USERIP;;I\IP
1 0.0 CMD 20 C -1 561, 546
$SELECT     A:LEN;I\DM_RFID;I\LEN  I:I\LEN;<;12  D:RFID TAG MUST BE AT LEAST 12 CHARACTERS LONG;ERRORM;I\DM_RFID    I:I\DM_DEBTOR;<>;    DO(001)      I:I\DM_RFID;<>;      DO(002)        A:CONST;;W\DM_DEBTOR        F:DEBTOR_MAST;;;W\DM_DEBTOR=DM_DEBTOR;DM_RFID='$I\DM_RFID$';I\DM_RFID        I:I\DM_DEBTOR;<>;W\DM_DEBTOR 
1 0.0 Work 2 I -1 291, 229
$DEFAULT  A:SETPWFIELD;I\DM_RFID  ''''CODE (THIS WAS IN DICT)    $CALCULATE    I:I\DM_DEBTOR;<>;    DO(001)      I:I\DM_RFID;<>;      DO(002)        A:CONST;;W\DM_DEBTOR        F:DEBTOR_MAST;;;W\DM_DEBTOR=DM_DEBTOR;DM_RFID='$I\DM_RFID$';I\DM_RFID        I:I\DM_DEBTOR;<>;W\DM_DEBTOR        DO(003)          I:W\DM_DEBTOR
1 0.0 Label 6 T -1 621, 49
1 0.0 Label 1 T -1 441, 193
1 0.0 Label 1 T -1 1, 25
1 0.0 Label 12 T -1 171, 193
1 0.0 DEBTOR_MAST DM_DEBTOR I -1 291, 193
$SELECT  S:DEBTOR;I\DM_DEBTOR    $CALCULATE    A:CONST;;T\DM_ACCTYPE,T\DM_NAME  I:I\DM_DEBTOR;<>;  DO(001)      F:DEBTOR_MAST;Y;;I\DM_RFID=DM_RFID,T\DM_ACCTYPE=DM_ACCTYPE,T\DM_NAME=DM_NAME,I\ABSA_MAIN=DM_ABSA_MAIN_ACC;DM_DEBTOR='$I\DM_DEBTOR$';I\DM_DEBTOR  DOEND(001)    '===========================================  'AB
1 0.0 USERID I 0 81, 61
$DEFAULT  A:USERID;;I\USERID
1 0.0 H -1 0, 30
1 0.0 Label 2 T -1 291, 25
1 0.0 MARKET I 0 21, 61
$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
1 0.0 LEN I 0 491, 109
1 0.0 Label 4 T -1 621, 25
1 0.0 Label 2 T -1 551, 193
1 0.0 Work 4 I 0 111, 61
1 0.0 Label 7 T -1 671, 49
10 0.0 ZX_EXIT Z 0 0, 30
10 0.0 ZX_UPDATE Z 0 0, 30
10 0.0 ZX_SELECT Z 0 0, 30
10 0.0 ZX_PRINT Z 0 0, 30
10 0.0 ZX_DELETE Z 0 0, 30