Freshmark replication server

freshmark-canonical

Program drill-down

ZZ_D

DIALOG BOX. Type ZZD, base table G2_GENERAL.

Field inventory

16

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 1 T -1 1, 61
x
1 0.0 Work 2 I -1 131, 61
$DEFAULT  O:DELAY;500  U:ZZ_READ_PARM;I\MESSAGE,I\RETURN_CODE,I\RET_FIELD
1 0.0 Label 2 T -1 1, 109
x
1 0.0 Work 4 I -1 131, 109
$VALIDATE  C:UCASE  V:ERROR;TERMINATE;
1 0.0 Label 3 T -1 1, 157
x
1 0.0 Work 4 I -1 131, 157
$SELECT  S:ZX_PGMS_FIELDS;I\RET_FIELD;T\ZP_PROGRAM  $VALIDATE  C:UCASE
1 0.0 CMD 10 C -1 391, 157
$SELECT  S:ZX_PGMS_FIELDS;I\RET_FIELD;T\ZP_PROGRAM
1 0.0 Label 7 T 0 181, 517
x
1 0.0 Label 11 T 0 181, 541
x
1 0.0 Label 8 T 0 181, 565
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_EXIT Z 0 0, 0
x
10 0.0 ZX_UPDATE Z 0 0, 0
$BEFORE_WRITE  U:ZZ_WRITE_PARM;I\MESSAGE,I\RETURN_CODE,I\RET_FIELD
10 0.0 ZX_DELETE Z 0 0, 0
x