Freshmark replication server

freshmark-canonical

Program drill-down

ZZMENU_MAN

MENU MAINTENANCE. Type MDL, base table ZM_MENU.

Field inventory

50

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 5 T -1 121, 37
X
1 0.0 Work 6 I -1 251, 37
$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_DE
1 0.0 CMD 8 C -1 291, 37
X
1 0.0 Label 7 T -1 321, 37
X
1 0.0 Label 9 T 0 631, 37
X
1 0.0 ZM_MENU ZM_KEY T -1 121, 61
X
1 0.0 ZM_MENU ZM_KEY I -1 251, 61
$SELECT  S:ZM_MENU;I\ZM_KEY,I\ZM_SEQ  $VALIDATE  M:  C:UCASE  $DEFAULT  A:PARM;1
1 0.0 CMD 2 C -1 461, 61
$SELECT  S:ZM_MENU;I\ZM_KEY,I\ZM_SEQ
1 0.0 ZM_MENU ZM_SEQ T -1 121, 85
X
1 0.0 ZM_MENU ZM_SEQ I -1 251, 85
$VALIDATE  M:  $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='MNU' AND ZZ_KEY='$I\ZM_TYPE$' AND ZZ_SUB_KEY = '$I\ZM_PGM$'    DOEND(LNG)  I:I\ZZ_LNG;=;    DO(LNG)       A:CONST;;I\ZZ_DESC       A:CONST;;I\ZZ_DESC2    DOEND(LNG)  $AFTER_
1 0.0 ZM_MENU ZM_DESC T -1 121, 121
X
1 0.0 ZM_MENU ZM_DESC I -1 251, 121
X
1 0.0 Label 3 T -1 121, 145
X
1 0.0 Work 4 I -1 251, 145
X
1 0.0 ZM_MENU ZM_LVL T -1 121, 169
X
1 0.0 ZM_MENU ZM_LVL I -1 251, 169
X
1 0.0 ZM_MENU ZM_TYPE T -1 151, 205
X
1 0.0 ZM_MENU ZM_PGM T -1 1, 229
X
1 0.0 ZM_MENU ZM_TYPE I -1 161, 229
X    $VALIDATE  C:UCASE
1 0.0 ZM_MENU ZM_PGM I -1 191, 229
X  $VALIDATE  C:UCASE  
1 0.0 Label 2 T -1 1, 253
X
1 0.0 Work 1 I -1 191, 253
X    $VALIDATE  C:UCASE  
1 0.0 ZM_MENU ZM_PGMBEFORE T -1 1, 277
X
1 0.0 ZM_MENU ZM_PGMBEFORE_TYPE I -1 161, 277
X
1 0.0 ZM_MENU ZM_PGMBEFORE I -1 191, 277
X    $VALIDATE  C:UCASE
1 0.0 ZM_MENU ZM_PGMAFTER T -1 1, 301
X
1 0.0 ZM_MENU ZM_PGMAFTER_TYPE I -1 161, 301
X
1 0.0 ZM_MENU ZM_PGMAFTER I -1 191, 301
X    $VALIDATE  C:UCASE
1 0.0 ZM_MENU ZM_ZC T -1 151, 337
X
1 0.0 ZM_MENU ZM_ZC I -1 151, 361
$SELECT  S:ZC_SEC_GROUP;I\ZM_ZC    $VALIDATE  C:UCASE
1 0.0 CMD 14 C -1 261, 361
$SELECT  S:ZC_SEC_GROUP;I\ZM_ZC
1 0.0 ZM_MENU ZM_AU_ZD T -1 341, 361
X
1 0.0 ZM_MENU ZM_AU_ZD I -1 471, 361
$BEFORE_WRITE  A:DATE;DD MMM YYYY;I\ZM_AU_DATE  A:TIME;HH:MM;I\ZM_AU_TIME  A:USERDEF;ZRL;I\ZM_AU_REL  A:USERDEF;ZDV;I\ZM_AU_ZD
1 0.0 ZM_MENU ZM_AU_DATE T -1 341, 385
X
1 0.0 ZM_MENU ZM_AU_DATE I -1 471, 385
X
1 0.0 ZM_MENU ZM_AU_TIME T -1 341, 409
X
1 0.0 ZM_MENU ZM_AU_TIME I -1 471, 409
X
1 0.0 ZM_MENU ZM_AU_REL T -1 341, 433
X
1 0.0 ZM_MENU ZM_AU_REL I -1 471, 433
X
10 0.0 zzExit Z 0 1, 1
X
10 0.0 zzUpdate 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 zzDelete 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