Freshmark replication server

freshmark-canonical

Program drill-down

ZZ_S

SELECTION. Type ZZD, base table G1_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 1 T -1 161, 61
x
1 0.0 Work 2 I -1 311, 61
$VALIDATE  C:UCASE  F:ZS_SEL;Y;;T\SELECT_DESC=ZS_DESC;ZS_KEY='$I\SELECT$'  $AFTER_READ  F:ZS_SEL;;;T\SELECT_DESC=ZS_DESC;ZS_KEY='$I\SELECT$'  $DEFAULT  O:DELAY;500  X:ZZ_READ;G\SCREEN;ZZ_SCREEN UPDATE_SCREEN 30 0;;;EDIT  U:ZZ_READ_PARM;I\SELECT,G\SCREEN;I\PARM_3;I\PARM_4  
1 0.0 CMD 1 C -1 511, 61
x
1 0.0 Label 13 T -1 551, 61
x
1 0.0 Label 5 T -1 161, 121
x
1 0.0 Work 6 I -1 311, 121
$SELECT  S:ZX_PGMS_FIELDS;I\PARM_3;T\ZP_PROGRAM  $VALIDATE  C:UCASE
1 0.0 CMD 10 C -1 521, 121
$SELECT  S:ZX_PGMS_FIELDS;I\PARM_3;T\ZP_PROGRAM
1 0.0 Label 2 T -1 161, 157
x
1 0.0 Work 4 I -1 311, 157
$SELECT  S:ZX_PGMS_FIELDS;I\PARM_4;T\ZP_PROGRAM  $VALIDATE  C:UCASE
1 0.0 CMD 5 C -1 521, 157
$SELECT  S:ZX_PGMS_FIELDS;I\PARM_4;T\ZP_PROGRAM  
1 0.0 Work 12 G -1 161, 205
x
1 0.0 Label 7 T 0 161, 373
x
1 0.0 Label 11 T 0 161, 397
x
1 0.0 Label 8 T 0 161, 421
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\SELECT,G\SCREEN;I\PARM_3;I\PARM_4
10 0.0 ZX_DELETE Z 0 0, 0
x
10 0.0 ZX_PRINT Z 0 0, 0
x