Freshmark replication server

freshmark-canonical

Program drill-down

ZF_TABLE_DTL

TABLE DETAIL. Type MDL, base table ZF_TABLE_DTL.

Field inventory

44

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 H -1 0, 0
X
1 0.0 Label 2 T -1 71, 49
X
1 0.0 Work 1 I -1 181, 49
$DEFAULT  O:HIDE;T\ZZ_DESC,I\ZZ_DESC,T\ZZ_DESC_TBL  A:LANGUAGE  $SELECT  S:ZZ_LANGUAGE;I\ZZ_LNG  $VALIDATE  C:UCASE  F:ZZ_LANGUAGE;;;T\ZZ_DESC_SCR=ZZ_DESC,T\ZZ_DESC2=ZZ_DESC2;ZZ_LNG='-' AND ZZ_TYPE='LNG' AND ZZ_KEY='$I\ZZ_LNG$' AND ZZ_SUB_KEY = '-'  '  ' VALIDATE LANGUAGE ENTRY  I:I\ZZ_LNG;<>;   DO(LNG)   I:T\ZZ_DESC_S
1 0.0 CMD 3 C -1 231, 49
$SELECT  S:ZZ_LANGUAGE;I\ZZ_LNG
1 0.0 Label 4 T -1 261, 49
X
1 0.0 Label 8 T 0 561, 49
X
1 0.0 ZF_TABLE_DTL ZF_TABLE T -1 71, 73
X
1 0.0 ZF_TABLE_DTL ZF_TABLE I -1 181, 73
$SELECT  S:ZT_TABLE;I\ZF_TABLE  $VALIDATE  F:ZT_TABLE;Y;ZT_TABLE;T\ZT_DESC=ZT_DESC  F:ZZ_LANGUAGE;;;T\ZZ_DESC_TBL=ZZ_DESC;ZZ_LNG='$I\ZZ_LNG$' AND ZZ_TYPE='TBL' AND ZZ_KEY='$I\ZF_TABLE$' AND ZZ_SUB_KEY = '-'  $DEFAULT  I:I\ZF_TABLE;=;  A:PARM;1  
1 0.0 CMD 3 C -1 431, 73
$SELECT  S:ZT_TABLE;I\ZF_TABLE
1 0.0 Label 1 T -1 491, 73
X
1 0.0 ZF_TABLE_DTL ZF_FIELD T -1 71, 97
X
1 0.0 ZF_TABLE_DTL ZF_FIELD I -1 181, 97
$SELECT  S:ZF_TABLE_DTL;I\ZF_FIELD;I\ZF_TABLE  $VALIDATE  M:  C:UCASE  $AFTER_READ  I:I\ZZ_LNG;<>;   DO(LNG)   F:ZZ_LANGUAGE;;;I\ZZ_DESC=ZZ_DESC,I\ZZ_DESC2=ZZ_DESC2;ZZ_LNG='$I\ZZ_LNG$' AND ZZ_TYPE='FLD' AND ZZ_KEY='$I\ZF_TABLE$' AND ZZ_SUB_KEY = '$I\ZF_FIELD$'   DOEND(LNG)  I:I\ZZ_LNG;=;   DO(LNG)   A:CONST;;I\ZZ_DESC 
1 0.0 CMD 4 C -1 431, 97
$SELECT  S:ZF_TABLE_DTL;I\ZF_FIELD;I\ZF_TABLE
1 0.0 Label 7 T -1 491, 121
X
1 0.0 ZF_TABLE_DTL ZF_SCREEN T -1 71, 145
X
1 0.0 ZF_TABLE_DTL ZF_SCREEN I -1 181, 145
X
1 0.0 Work 5 I -1 491, 145
X
1 0.0 ZF_TABLE_DTL ZF_REPORT T -1 71, 169
X
1 0.0 ZF_TABLE_DTL ZF_REPORT I -1 181, 169
X
1 0.0 Work 6 I -1 491, 169
X
1 0.0 ZF_TABLE_DTL ZF_Z1 T -1 71, 217
X
1 0.0 ZF_TABLE_DTL ZF_Z1 I -1 181, 217
$SELECT  S:Z1_DICT;I\ZF_Z1  $VALIDATE  I:I\ZF_Z1;<>;  F:Z1_DICT;Y;Z1_FIELD  $AFTER_READ  I:I\ZF_Z1;=;  A:CONST;TXT
1 0.0 CMD 8 C -1 221, 217
$SELECT  S:Z1_DICT;I\ZF_Z1
1 0.0 ZF_TABLE_DTL ZF_TYPE T -1 71, 241
X
1 0.0 ZF_TABLE_DTL ZF_TYPE I -1 181, 241
$AFTER_READ  I:I\ZF_TYPE;=;  A:CONST;TXT
1 0.0 ZF_TABLE_DTL ZF_ADJUST T -1 71, 277
X
1 0.0 ZF_TABLE_DTL ZF_ADJUST I -1 181, 277
$VALIDATE  V:L;R  $AFTER_READ  I:I\ZF_ADJUST;=;  A:CONST;L
1 0.0 ZF_TABLE_DTL ZF_LENGTH T -1 71, 301
X
1 0.0 ZF_TABLE_DTL ZF_LENGTH I -1 181, 301
X
1 0.0 ZF_TABLE_DTL ZF_DECIMAL T -1 71, 325
X
1 0.0 ZF_TABLE_DTL ZF_DECIMAL I -1 181, 325
$VALIDATE  M:  $AFTER_READ  I:I\ZF_DECIMAL;=;  A:CONST;0
1 0.0 ZF_TABLE_DTL ZF_AU_ZD T -1 71, 469
X
1 0.0 ZF_TABLE_DTL ZF_AU_ZD I -1 181, 469
$BEFORE_WRITE  A:DATE;DD MMM YYYY;I\ZF_AU_DATE  A:TIME;HH:MM;I\ZF_AU_TIME  A:USERDEF;ZRL;I\ZF_AU_REL  A:USERDEF;ZDV;I\ZF_AU_ZD  
1 0.0 ZF_TABLE_DTL ZF_AU_DATE T -1 71, 493
X
1 0.0 ZF_TABLE_DTL ZF_AU_DATE I -1 181, 493
X
1 0.0 ZF_TABLE_DTL ZF_AU_TIME T -1 71, 517
X
1 0.0 ZF_TABLE_DTL ZF_AU_TIME I -1 181, 517
X
1 0.0 ZF_TABLE_DTL ZF_AU_REL T -1 71, 541
X
1 0.0 ZF_TABLE_DTL ZF_AU_REL I -1 181, 541
X
10 0.0 ZX_PRINT Z 0 0, 0
X
10 0.0 ZX_SELECT Z 0 0, 0
X
10 0.0 ZX_DELETE Z 0 0, 0
$AFTER_DELETE  U:ZZ_LANGUAGE;DELETE;I\ZZ_LNG,"FLD",I\ZF_TABLE,I\ZF_FIELD,I\ZZ_DESC,I\ZZ_DESC2
10 0.0 ZX_UPDATE Z 0 0, 0
X
10 0.0 ZX_EXIT Z 0 0, 0
X