Freshmark replication server

freshmark-canonical

Program drill-down

ZZ_X

GRID DISPLAY. Type ZZD, base table G2_GENERAL.

Field inventory

20

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 1, 37
x
1 0.0 Work 1 I -1 111, 37
$SELECT  S:ZT_TABLE;I\ZT_TABLE  $VALIDATE  C:UCASE  '  F:ZT_TABLE;Y;ZT_TABLE  $DEFAULT  O:DELAY;500  X:ZZ_READ;G\FIELDS;ZZ_FIELD TABLE_FIELD 30 0;;;EDIT  X:ZZ_READ;G\ORDER;ZZ_FIELD TABLE_FIELD 30 0;;;EDIT  X:ZZ_READ;G\READ_CON;ZZ_FIELD TABLE_FIELD 30 0,ZZ_OP OPERATION 12 0,ZZ_SCREEN SCREEN_VARIABLE 30 0,ZZ_AND_OR AND_O
1 0.0 CMD 3 C -1 321, 37
$SELECT  S:ZT_TABLE;I\ZT_TABLE
1 0.0 Work 4 I -1 401, 37
$SELECT  S:ZX_PGMS_FIELDS_GRID;I\GRID_NAME;T\ZP_PROGRAM
1 0.0 CMD 5 C -1 661, 37
$SELECT  S:ZX_PGMS_FIELDS_GRID;I\GRID_NAME;T\ZP_PROGRAM
1 0.0 Label 8 T -1 1, 61
x
1 0.0 Work 7 G -1 1, 85
$GRID  S:ZF_TABLE_DTL;;I\ZT_TABLE
1 0.0 Label 1 T 0 531, 97
x
1 0.0 Label 1 T 0 531, 121
x
1 0.0 Label 1 T 0 531, 145
x
1 0.0 Label 3 T -1 1, 241
x
1 0.0 Work 2 G -1 1, 265
$GRID  S:ZF_TABLE_DTL;;I\ZT_TABLE
1 0.0 Label 9 T -1 1, 397
x
1 0.0 Work 11 G -1 1, 421
$GRID  I:G\READ_CON<COL>;=;1  S:ZF_TABLE_DTL;;I\ZT_TABLE  I:G\READ_CON<COL>;=;3  S:ZX_PGMS_FIELDS;;T\ZP_PROGRAM
10 0.0 ZX_PRINT Z 0 0, 0
x
10 0.0 ZX_EXIT Z 0 0, 0
x
10 0.0 ZX_UPDATE Z 0 0, 0
$BEFORE_WRITE  U:ZZ_WRITE_PARM;I\ZT_TABLE,I\GRID_NAME,G\FIELDS,G\ORDER,G\READ_CON
10 0.0 ZX_DELETE Z 0 0, 0
x
10 0.0 ZX_SELECT Z 0 0, 0
x