Freshmark replication server

freshmark-canonical

Program drill-down

MRK_PALL_ACCT_MAN

A MARKET_PALL_ACC. Type MDL, base table MARKET_PALL_ACC.

Field inventory

34

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Work 2 I 0 71, 433
  
1 0.0 Work 1 I 0 101, 433
  
1 0.0 Label 1 T -1 571, 169
  
1 0.0 Label 14 T -1 621, 25
  
1 0.0 Label 8 T -1 291, 25
  
1 0.0 Label 17 T -1 671, 49
  
1 0.0 Work 3 G -1 111, 217
  
1 0.0 Label 9 T -1 321, 169
  
1 0.0 CMD 3 C -1 171, 193
$SELECT  'CALLS THE PALLET SELECTION, PUTS THE RETURNED VALUE INTO I\MP_TYPE  S:PALLET;I\MP_TYPE
1 0.0 MARKET_PALL_ACC MP_DATE_JOINED I -1 571, 193
$VALIDATE  'MAKES THIS FIELD MANDATORY  M:    $BEFORE_DELETE  I:I\MP_MARKET;=;  D:CANNOT DELETE - NO RECORD SELECTED;ERRORM;I\MP_MARKET    I:I\MP_TYPE;=;  D:CANNOT DELETE - NO RECORD SELECTED;ERRORM;I\MP_TYPE    I:I\MP_ACCNO;=;  D:CANNOT DELETE - NO RECORD SELECTED;ERRORM;I\MP_ACCNO    I:I\MP_DATE_JOINED;=;  D:CANNOT D
1 0.0 Label 1 T -1 111, 169
  
1 0.0 MARKET_PALL_ACC MP_TYPE I -1 111, 193
$SELECT  'CALLS THE PALLET SELECTION  S:PALLET;I\MP_TYPE    $VALIDATE  'MAKES THIS FIELD MANDATORY  M:    'CHECKS IF VALUE ENTERED IS NUMERIC. IF IT IS NUMERIC, PUT A "Y" IN I\TMP2, ELSE PUT "N"  A:ISNUMERIC;I\MP_TYPE;I\TMP2    'CHECKS I\TMP2 FOR THE "Y" OR THE "N", IF "Y", FORMAT THE FIELD TO 00. IF NOT, CONVERT TO UP
1 0.0 Label 15 T -1 621, 49
  
1 0.0 MARKET_PALL_ACC MP_ACCNO I -1 321, 193
$VALIDATE  'MAKES THIS FIELD MANDATORY  M:    'CONVERTS THIS FIELD TO UPPERCASE  C:UCASE  F:MARKET_PALL_ACC;;MP_ACCNO;I\TMP3=MP_TYPE;MP_TYPE<>'$I\MP_TYPE$'  I:I\TMP3;<>;  D:THAT ACCOUNT NUMBER IS IN USE FOR THAT PALLET TYPE;ERRORM;I\MP_ACCNO
1 0.0 Label 9 T -1 231, 49
  
1 0.0 MARKET_PALL_ACC MP_MARKET I 0 121, 73
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MP_MARKET  
1 0.0 Work 1 I 0 61, 73
$DEFAULT    'INITIALIZES THE DATE AND TIME INTO THE T\DATE AND T\TIME FIELDS  A:DATE;DD MMM/YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    'INITIALIZES THE GRID WITH ITS COLUMNS MATCHING THE FIELDS ALONG THE TOP  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\MP_TYPE,I\DESC,I\MP_ACCNO,I\MP_DATE_JOINED    'LOADS THE FIRST 1
1 0.0 H -1 1, 1
  
1 0.0 Label 16 T -1 671, 25
  
1 0.0 Label 21 T -1 1, 25
  
1 0.0 Work 5 I 0 81, 73
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME    C:MCASE;;T\MARKET
1 0.0 Work 1 I -1 201, 193
  
1 0.0 Label 2 T -1 201, 169
  
1 0.0 Work 1 I 0 131, 433
  
10 0.0 ZX_SELECT Z 0 1, 1
  
10 0.0 ZX_PRINT Z 0 1, 1
  
10 0.0 ZX_PRINT Z 0 1, 1
  
10 0.0 ZX_EXIT Z 0 1, 1
  
10 0.0 ZX_UPDATE Z 0 1, 1
  
10 0.0 ZX_SELECT Z 0 1, 1
  
10 0.0 ZX_EXIT Z 0 1, 1
  
10 0.0 ZX_DELETE Z 0 1, 1
  
10 0.0 ZX_UPDATE Z 0 1, 1
  
10 0.0 ZX_DELETE Z 0 1, 1