Freshmark replication server

freshmark-canonical

Program drill-down

CASH_POINT

]CASH POINT. Type MAN, base table CASH_POINT.

Field inventory

33

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 CMD 32 C -1 411, 217
$SELECT  S:CASH_POINT;I\CPO_CASHPT
1 0.0 Work 24 I 0 281, 373
  
1 0.0 Label 7 T -1 671, 25
  
1 0.0 Label 6 T -1 621, 49
  
1 0.0 Label 5 T -1 621, 25
  
1 0.0 CASH_POINT CPO_CASHPT I -1 361, 217
$SELECT  S:CASH_POINT;I\CPO_CASHPT    $VALIDATE  'SET THIS FIELD MANDATORY  M:     'PUT 2 ZEROS AS FIRST 2 CHARACTER  A:LEN;I\CPO_CASHPT;W\TEMP1  I:W\TEMP1;=;1   DO(LL2)     A:ISNUMERIC;I\CPO_CASHPT;W\TEMP4     I:W\TEMP4;=;Y     A:CON;"00";I\CPO_CASHPT;I\CPO_CASHPT    DOEND(LL2)    I:W\TEMP1;=;2    DO(002)       A:CON;
1 0.0 CASH_POINT CPO_MARKET I 0 91, 61
  
1 0.0 Label 1 T -1 291, 25
  
1 0.0 Label 2 T -1 291, 49
  
1 0.0 Label 3 T -1 1, 25
  
1 0.0 Work 4 I 0 11, 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    I:I\MARKET;<>;11  DO(15)    O:HIDE;T\HALL,I\HALL  DOEND(15)
1 0.0 Work 25 I 0 321, 373
  
1 0.0 Work 26 I 0 361, 373
  
1 0.0 Work 27 I 0 401, 373
  
1 0.0 Work 28 I 0 431, 373
  
1 0.0 Work 29 I 0 471, 373
  
1 0.0 Work 30 I 0 541, 373
  
1 0.0 Work 31 I 0 511, 373
  
1 0.0 Work 19 I 0 51, 61
$DEFAULT    A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000
1 0.0 CASH_POINT CPO_IP T -1 221, 325
  
1 0.0 CASH_POINT CPO_CASHPT T -1 221, 217
  
1 0.0 CASH_POINT CPO_DESC T -1 221, 253
  
1 0.0 CASH_POINT CPO_DESC I -1 361, 253
$VALIDATE  M:  C:UCASE           'LOOK UP FOR AN EXISTING DESCRIPTION WHEN USER ENTERS DESCRIPTION,IF FINDS DISPLAY ERROR MESSAGE     F:CASH_POINT;;CPO_DESC;W\TEMP6=CPO_DESC;CPO_CASHPT<>'$I\CPO_CASHPT$'      I:W\TEMP6;<>;     D:THIS DESCRIPTION IS ALREADY EXIST;ERRORM;I\CPO_DESC        
1 0.0 Label 8 T -1 671, 49
  
1 0.0 CASH_POINT CPO_IP I -1 361, 325
$VALIDATE  M:    'CHECK IP ADDRESS IF IS VALID OR NOT, IF NOT DISPLAY ERROR MESSAGE  U:IP_CHECK;IP_SECTIONS;I\CPO_IP,W\CPO_IP  I:W\CPO_IP;=;1  D:INVALID IP ADDRESS;ERRORM;I\CPO_IP    I:W\CPO_IP;=;2  D:INVALID IP ADDRESS;ERRORM;I\CPO_IP  I:W\CPO_IP;=;3  D:INVALID IP ADDRESS;ERRORM;I\CPO_IP  I:W\CPO_IP;=;4  D:INVALID IP 
1 0.0 Label 1 T -1 221, 289
  
1 0.0 CASH_POINT CPO_HALL I -1 361, 289
$VALIDATE      C:UCASE    V:A;B; ;
1 0.0 H -1 1, 25
  
10 0.0 ZX_EXIT Z 0 1, 25
  
10 0.0 ZX_DELETE Z 0 1, 25
  
10 0.0 ZX_UPDATE Z 0 1, 25
  
10 0.0 ZX_SELECT Z 0 1, 25
  
10 0.0 ZX_PRINT Z 0 1, 25