Freshmark replication server

freshmark-canonical

Program drill-down

ZS_SEL

SELECTION (DEFINE). Type MAN, base table ZS_SEL.

Field inventory

62

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 H -1 1, 1 
x
1 0.0 Label 2 T -1 61, 37 
x
1 0.0 Work 1 I -1 241, 37 
$DEFAULT  O:HIDE;T\ZZ_DESC,I\ZZ_DESC  A:LANGUAGE  $SELECT  S:ZZ_LANGUAGE  $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_SCR;=;   D:LANGUAGE DOES
1 0.0 CMD 5 C -1 291, 37 
$SELECT  S:ZZ_LANGUAGE;I\ZZ_LNG
1 0.0 Label 4 T -1 321, 37 
x
1 0.0 Label 6 T 0 631, 37 
x
1 0.0 ZS_SEL ZS_KEY T -1 61, 73 
x
1 0.0 ZS_SEL ZS_KEY I -1 241, 73 
$SELECT  S:ZS_SEL  $BEFORE_READ  C:UCASE  $VALIDATE  M:  C:UCASE  $AFTER_READ  I:I\ZZ_LNG;<>;   DO(LNG)   F:ZZ_LANGUAGE;;;I\ZZ_DESC=ZZ_DESC;ZZ_LNG='$I\ZZ_LNG$' AND ZZ_TYPE='SEL' AND ZZ_KEY='$I\ZS_KEY$' AND ZZ_SUB_KEY = '-'   DOEND(LNG)  I:I\ZZ_LNG;=;   DO(LNG)   A:CONST;;T\ZZ_DESC   DOEND(LNG)  I:I\ZS_DESC;=;   DO   O:
1 0.0 CMD 2 C -1 441, 73 
$SELECT  S:ZS_SEL;I\ZS_KEY
1 0.0 Label 2 T -1 481, 73 
x
1 0.0 Work 1 I -1 581, 73 
$SELECT  S:ZS_SEL  $CALCULATE  I:I\COPY_FROM;<>;   DO   F:ZS_SEL;Y;ZS_KEY   A:CON;"C:\LEGEND\BIN\COPYOBJ.EXE ","ZS_SEL#",I\COPY_FROM,"#",I\ZS_KEY;W\SHELLCMD   E:$W\SHELLCMD$   DOEND
1 0.0 ZS_SEL ZS_TABLE T -1 61, 121 
x
1 0.0 ZS_SEL ZS_TABLE I -1 241, 121 
$SELECT  S:ZT_TABLE  $VALIDATE  F:ZT_TABLE;Y;ZT_TABLE  $BEFORE_READ  C:UCASE
1 0.0 CMD 4 C -1 551, 121 
$SELECT  S:ZT_TABLE  $VALIDATE  F:ZT_TABLE;Y;ZT_TABLE
1 0.0 ZS_SEL ZS_DESC T -1 61, 169 
x
1 0.0 ZS_SEL ZS_DESC I -1 241, 169 
x
1 0.0 Label 7 T -1 61, 193 
x
1 0.0 Work 3 I -1 241, 193 
x
1 0.0 ZS_SEL ZS_JOIN T -1 61, 217 
x
1 0.0 ZS_SEL ZS_JOIN I -1 61, 241 
x
1 0.0 Label 1 T 0 71, 505 
x
2 0.0 H -1 1, 1 
x
2 0.0 ZS_SEL ZS_SELECTION T -1 1, 37 
x
2 0.0 ZS_SEL ZS_SELECTION I -1 1, 61 
x
2 0.0 ZS_SEL ZS_USER_CODE T -1 1, 457 
x
2 0.0 ZS_SEL ZS_USER_CODE I -1 121, 457 
x
2 0.0 ZS_SEL ZS_NO_SEL T -1 1, 493 
x
2 0.0 ZS_SEL ZS_NO_SEL I -1 121, 493 
x
2 0.0 ZS_SEL ZS_USER T -1 1, 529 
x
2 0.0 ZS_SEL ZS_USER I -1 101, 529 
x
3 0.0 H -1 1, 1 
x
3 0.0 ZS_SEL ZS_FIELDS T -1 11, 25 
x
3 0.0 ZS_SEL ZS_FIELDS I -1 11, 49 
$SELECT  S:ZF_TABLE_DTL;I\ZS_FIELDS;I\ZS_TABLE  $VALIDATE  U:SYSTEM;ZE_FIELDLIST;I\ZS_TABLE,I\ZS_FIELDS
3 0.0 ZS_SEL ZS_ORDER T -1 11, 301 
x
3 0.0 ZS_SEL ZS_ORDER I -1 11, 325 
$SELECT  S:ZF_TABLE_DTL;I\ZS_ORDER;I\ZS_TABLE  $VALIDATE  U:SYSTEM;ZE_FIELDLIST;I\ZS_TABLE,I\ZS_ORDER
3 0.0 ZS_SEL ZS_SELFIELD T -1 11, 493 
x
3 0.0 ZS_SEL ZS_SELFIELD I -1 171, 493 
$SELECT  S:ZF_TABLE_DTL;I\ZS_SELFIELD;I\ZS_TABLE  $VALIDATE  U:SYSTEM;ZE_FIELDLIST;I\ZS_TABLE,I\ZS_SELFIELD
4 0.0 H -1 1, 1 
x
4 0.0 ZS_SEL ZS_CALLPGM T -1 11, 37 
x
4 0.0 ZS_SEL ZS_CALLPGM_TYPE T -1 171, 37 
x
4 0.0 ZS_SEL ZS_CALLPGM_TYPE I -1 221, 37 
x
4 0.0 ZS_SEL ZS_CALLPGM I -1 11, 61 
x
4 0.0 ZS_SEL ZS_RETFIELD T -1 11, 109 
x
4 0.0 ZS_SEL ZS_RETFIELD I -1 11, 133 
$SELECT  S:ZF_TABLE_DTL;I\ZS_RETFIELD;I\ZS_TABLE  $VALIDATE  U:SYSTEM;ZE_FIELDLIST;I\ZS_TABLE,I\ZS_RETFIELD
4 0.0 ZS_SEL ZS_AU_ZD T -1 11, 469 
x
4 0.0 ZS_SEL ZS_AU_ZD I -1 151, 469 
$BEFORE_WRITE  A:DATE;DD MMM YYYY;I\ZS_AU_DATE  A:TIME;HH:MM;I\ZS_AU_TIME  A:USERDEF;ZRL;I\ZS_AU_REL  A:USERDEF;ZDV;I\ZS_AU_ZD
4 0.0 ZS_SEL ZS_AU_DATE T -1 11, 493 
x
4 0.0 ZS_SEL ZS_AU_DATE I -1 151, 493 
x
4 0.0 ZS_SEL ZS_AU_TIME T -1 11, 517 
x
4 0.0 ZS_SEL ZS_AU_TIME I -1 151, 517 
x
4 0.0 ZS_SEL ZS_AU_REL T -1 11, 541 
x
4 0.0 ZS_SEL ZS_AU_REL I -1 151, 541 
x
10 0.0 zzDelete Z 0 1, 1 
x
10 0.0 zzUpdate Z 0 1, 1 
x
10 0.0 zzExit Z 0 1, 1 
x
10 0.0 zzSelect Z 0 1, 1 
x
10 0.0 zzPrint Z 0 1, 1 
x
10 0.0 ZX_PRINT Z 0 1, 1 
x
10 0.0 ZX_SELECT Z 0 1, 1 
x
10 0.0 ZX_DELETE Z 0 1, 1 
x
10 0.0 ZX_UPDATE Z 0 1, 1 
x
10 0.0 ZX_EXIT Z 0 1, 1 
x