* * $Id: zbrdef.c,v 1.1.1.1 1996/03/04 16:12:52 mclareni Exp $ * * $Log: zbrdef.c,v $ * Revision 1.1.1.1 1996/03/04 16:12:52 mclareni * Dzdoc/Zebpack * * * This directory was created from dzdoc.car patch zbrdef /* * This file has been generated by the KUIP compiler. Do NOT change it! * * KUIP version: 921023 Generation date: Wed Mar 2 15:58:46 1994 * * Input file: DZDOCCDF.CDF */ #if !defined(F77_LCASE) && !defined(F77_UCASE) && !defined(F77_USCORE) # if defined(CRAY) || defined(IBM370) || defined(vms) # define F77_UCASE # else # if ( defined(apollo) || defined(__apollo) ) && defined(APOFTN) # define F77_LCASE # else # define F77_USCORE # endif # endif #endif typedef int IntFunc(); typedef char** pCharFunc(); typedef void SUBROUTINE(); #ifdef IBM370 # pragma linkage(SUBROUTINE,FORTRAN) #endif typedef unsigned long KmPixmap; /* Pixmap from */ typedef void *KmWidget; /* Widget from */ typedef void *KmCalldata; /* XmAnyCallbackStruct from */ /* */ typedef enum { /* */ BRACT_OPEN = 0, /* */ BRACT_ROOT = 1, /* */ BRACT_CONT = 2, /* */ BRACT_GRAF = 3 /* */ } BrActTag; /* */ /* */ typedef enum { /* */ BrActUpdate = 0x01, /* browser window has to be updated ('!') */ BrActSeparator = 0x02, /* put separator in menu ('/') */ BrActToggle = 0x04, /* register as toggle button */ BrActToggleOn = 0x08, /* toggle state is on */ BrActSensitive = 0x10 /* button is sensitive */ } BrActFlag; /* */ /* */ typedef struct _BrAction { /* */ struct _BrAction *next; /* link to next action binding */ BrActFlag flags; /* */ char *text; /* text line in menu */ char *user_text; /* user text overriding CDF text (malloced)*/ char *accel; /* accelerator */ char *exec; /* action commands */ SUBROUTINE *call_F; /* action routine */ IntFunc *call_C; /* action function */ BrActTag tag; /* for which window the action is defined */ struct _BrClass *class; /* pointer to BrClass in case of open menu */ } BrAction; /* */ /* */ typedef struct _BrClass { /* */ struct _BrClass *next; /* link to next browsable class */ char *name; /* unique identifier name */ char *title; /* title for popup menu (maybe NULL) */ SUBROUTINE *scan_km_F; /* user function scanning the directory */ pCharFunc *scan_km_C; /* user function scanning the directory */ SUBROUTINE *scan_br_F; /* user function scanning for browsables */ pCharFunc *scan_br_C; /* user function scanning for browsables */ BrAction *root; /* list of actions in root window */ BrAction *open; /* list of actions in open menu */ } BrClass; /* */ /* */ typedef struct _KmIcon { /* */ struct _KmIcon *next; /* link to next icon */ char *name; /* unique identifier name */ int width; /* width of the pixmap */ int height; /* height of the pixmap */ char *bitmap; /* bitmap data */ KmPixmap pix; /* filled in Motif part */ KmPixmap hi_pix; /* high lighted pixmap */ } KmIcon; /* */ /* */ typedef struct _KmClass { /* */ struct _KmClass *next; /* link to next object class */ int is_dir; /* flag if class has is a directory */ char *name; /* unique identifier name */ char *title; /* title for popup menu (maybe NULL) */ char *big_icon; /* name of the big icon */ KmIcon *bicon; /* pointer to the big icon structure */ char *sm_icon; /* name of the small icon */ KmIcon *sicon; /* pointer to the small icon structure */ SUBROUTINE *user_icon_F; /* user function to return icon bitmap */ IntFunc *user_icon_C; /* user function to return icon bitmap */ BrAction *cont; /* list of actions in content window */ BrAction *graf; /* list of actions in graphics window */ int obj_count; /* number of objects in content window */ } KmClass; /* */ /* */ typedef enum { /* */ KmButtSensitive = 0x00, /* sensitive button */ KmButtNonSensitive = 0x01, /* non-sensitive button ('NS') */ KmButtToggleSensitive = 0x02, /* toggle-sensitive button ('TS') */ KmButtSensitivityMask = 0x03, /* mask for sensitivity type */ KmButtSeparator = 0x04 /* put separator in menu ('/') */ } KmButtFlag; /* */ /* */ typedef struct _KmButton { /* */ struct _KmButton *next; /* button label or menu item */ char *label; /* button label or menu item */ char *menu; /* menu name or NULL for buttons */ KmButtFlag flags; /* sensitivity type etc. */ SUBROUTINE *action_F; /* Fortran routine called with (LABEL,MENU)*/ IntFunc *action_C; /* C function called with (label,menu) */ KmWidget widget; /* Motif widget ID */ } KmButton; /* */ extern struct { /* */ /* indirect calls to avoid linking HIGZ */ IntFunc *graf_info_C; /* pass display, open and close (ixmotif) */ SUBROUTINE *graf_size_F; /* resize window (IGRSIZ) */ SUBROUTINE *graf_pick_F; /* identifying graphics objects (IGOBJ) */ SUBROUTINE *graf_attr_F; /* set attributes (IGSET) */ SUBROUTINE *graf_close_F; /* close workstation (ICLWK) */ /* optional routines for Motif customization */ pCharFunc *user_FallBk_C; /* get application fallbacks */ IntFunc *user_TopWid_C; /* pass toplevel widget identifiers */ } klnkaddr; /* */ typedef enum { /* */ KmFLAG_FORGET = 0x01, /* last value is not kept for Motif panels */ KmFLAG_MINUS = 0x02, /* -VALUE is not an abbrev for CHOPT=VALUE */ KmFLAG_QUOTE = 0x04, /* do not remove quotes */ KmFLAG_VARARG = 0x08 /* append additional args to this param. */ } KmParFlag; /* */ /* */ typedef enum { /* */ KmTYPE_CHAR = 'C', /* character string */ KmTYPE_FILE = 'F', /* file name */ KmTYPE_INT = 'I', /* integer */ KmTYPE_OPTION = 'O', /* option */ KmTYPE_REAL = 'R' /* real */ } KmParType; /* */ /* */ typedef struct { /* file name */ char *filter_default; /* filter wildcard */ char *filter_current; /* current filter */ } KmParFile; /* */ /* */ typedef struct { /* */ char *range_lower; /* lower value of range */ char *range_upper; /* upper value of range */ char *slider_lower; /* lower limit for slider */ char *slider_upper; /* upper limit for slider */ int decimals; /* number of decimals used for slider */ } KmParInt; /* */ /* */ typedef struct { /* option */ char **text; /* explanations (parallel to range_value) */ int *mutex; /* mutex group to which text belongs */ int *radio; /* radio group to which text belongs */ } KmParOption; /* */ /* */ typedef KmParInt KmParReal; /* real and int have the same fields */ /* */ typedef struct { /* */ char *name; /* parameter name */ int abbrev; /* minimum length that name is recognized */ char *prompt; /* prompt string */ char *dfault; /* default value */ char *last; /* last value for Motif panel (malloced) */ int width; /* width of input field */ int range_count; /* number of items in range_value */ char **range_value; /* list of allowed values */ int select_count; /* number of items in select_count */ char **select_value; /* list of values for selection box */ KmParFlag flags; /* special flags */ KmParType type; /* parameter type */ void *ptype; /* structure pointer selected by type */ } KmParameter; /* */ typedef struct _KmCommand { /* */ struct _KmCommand *next; /* link to next command */ char *path; /* command path */ char *name; /* command name */ int hidden; /* flag if command is invisible */ int level; /* depth of submenus */ int total; /* total number of parameters */ int mandatory; /* number of mandatory parameters */ KmParameter **par; /* list of total parameter descriptions */ int list_par; /* index+1 of parameter taking a list */ int xcount; /* count number of action calls */ SUBROUTINE *action_F; /* action routine */ IntFunc *action_C; /* action routine */ SUBROUTINE *user_help_F; /* user help routine */ IntFunc *user_help_C; /* user help routine */ int nguidance; /* number of lines in guidance text */ char **guidance; /* help text */ int argc; /* number of arguments entered */ char **argv; /* argc argument values */ char *argline; /* argument line as entered */ int *argoffs; /* argc offsets into argline for KUGETE */ } KmCommand; /* */ /* */ typedef struct _KmMenu { /* */ struct _KmMenu *next; /* link to next menu */ struct _KmMenu *down; /* link to submenu */ char *path; /* path of parent menu */ char *name; /* menu name */ int level; /* depth of submenus */ KmCommand *cmds; /* link to first command */ int nguidance; /* number of lines in guidance text */ char **guidance; /* help text */ } KmMenu; /* */ #ifdef F77_LCASE # define zbrdef_ zbrdef # define dzdskd_ dzdskd # define dzddad_ dzddad # define dzdedd_ dzdedd # define dzdorf_ dzdorf # define dzdsha_ dzdsha # define dzdshd_ dzdshd # define dzdfnt_ dzdfnt # define dzdfzs_ dzdfzs # define dzdfzi_ dzdfzi # define dzdfll_ dzdfll # define dzdrwf_ dzdrwf # define dzdcfz_ dzdcfz # define dzdpev_ dzdpev # define dzdcrz_ dzdcrz # define dzdsfb_ dzdsfb # define dzdsfk_ dzdsfk # define dzdgky_ dzdgky # define dzdsrs_ dzdsrs # define dzdspi_ dzdspi # define dzdzeb_ dzdzeb # define dzdb08_ dzdb08 # define dzdb07_ dzdb07 # define dzdb06_ dzdb06 # define dzdb05_ dzdb05 # define dzdb04_ dzdb04 # define dzdb03_ dzdb03 # define dzdb01_ dzdb01 # define dzdb18_ dzdb18 # define dzdb17_ dzdb17 # define dzdb16_ dzdb16 # define dzdb15_ dzdb15 # define dzdb14_ dzdb14 # define dzdb13_ dzdb13 # define dzdb12_ dzdb12 # define dzdb11_ dzdb11 # define igrsiz_ igrsiz # define igobj_ igobj # define igset_ igset # define iclwk_ iclwk #endif #ifdef F77_UCASE # define zbrdef_ ZBRDEF # define dzdskd_ DZDSKD # define dzddad_ DZDDAD # define dzdedd_ DZDEDD # define dzdorf_ DZDORF # define dzdsha_ DZDSHA # define dzdshd_ DZDSHD # define dzdfnt_ DZDFNT # define dzdfzs_ DZDFZS # define dzdfzi_ DZDFZI # define dzdfll_ DZDFLL # define dzdrwf_ DZDRWF # define dzdcfz_ DZDCFZ # define dzdpev_ DZDPEV # define dzdcrz_ DZDCRZ # define dzdsfb_ DZDSFB # define dzdsfk_ DZDSFK # define dzdgky_ DZDGKY # define dzdsrs_ DZDSRS # define dzdspi_ DZDSPI # define dzdzeb_ DZDZEB # define dzdb08_ DZDB08 # define dzdb07_ DZDB07 # define dzdb06_ DZDB06 # define dzdb05_ DZDB05 # define dzdb04_ DZDB04 # define dzdb03_ DZDB03 # define dzdb01_ DZDB01 # define dzdb18_ DZDB18 # define dzdb17_ DZDB17 # define dzdb16_ DZDB16 # define dzdb15_ DZDB15 # define dzdb14_ DZDB14 # define dzdb13_ DZDB13 # define dzdb12_ DZDB12 # define dzdb11_ DZDB11 # define igrsiz_ IGRSIZ # define igobj_ IGOBJ # define igset_ IGSET # define iclwk_ ICLWK #endif #ifdef IBM370 # pragma linkage(ZBRDEF,FORTRAN) # pragma linkage(DZDSKD,FORTRAN) # pragma linkage(DZDDAD,FORTRAN) # pragma linkage(DZDEDD,FORTRAN) # pragma linkage(DZDORF,FORTRAN) # pragma linkage(DZDSHA,FORTRAN) # pragma linkage(DZDSHD,FORTRAN) # pragma linkage(DZDFNT,FORTRAN) # pragma linkage(DZDFZS,FORTRAN) # pragma linkage(DZDFZI,FORTRAN) # pragma linkage(DZDFLL,FORTRAN) # pragma linkage(DZDRWF,FORTRAN) # pragma linkage(DZDCFZ,FORTRAN) # pragma linkage(DZDPEV,FORTRAN) # pragma linkage(DZDCRZ,FORTRAN) # pragma linkage(DZDSFB,FORTRAN) # pragma linkage(DZDSFK,FORTRAN) # pragma linkage(DZDGKY,FORTRAN) # pragma linkage(DZDSRS,FORTRAN) # pragma linkage(DZDSPI,FORTRAN) # pragma linkage(DZDZEB,FORTRAN) # pragma linkage(DZDB08,FORTRAN) # pragma linkage(DZDB07,FORTRAN) # pragma linkage(DZDB06,FORTRAN) # pragma linkage(DZDB05,FORTRAN) # pragma linkage(DZDB04,FORTRAN) # pragma linkage(DZDB03,FORTRAN) # pragma linkage(DZDB01,FORTRAN) # pragma linkage(DZDB18,FORTRAN) # pragma linkage(DZDB17,FORTRAN) # pragma linkage(DZDB16,FORTRAN) # pragma linkage(DZDB15,FORTRAN) # pragma linkage(DZDB14,FORTRAN) # pragma linkage(DZDB13,FORTRAN) # pragma linkage(DZDB12,FORTRAN) # pragma linkage(DZDB11,FORTRAN) # pragma linkage(IGRSIZ,FORTRAN) # pragma linkage(IGOBJ,FORTRAN) # pragma linkage(IGSET,FORTRAN) # pragma linkage(ICLWK,FORTRAN) #endif extern void zbrdef_(); extern void dzdskd_(); extern void dzddad_(); extern void dzdedd_(); extern void dzdorf_(); extern void dzdsha_(); extern void dzdshd_(); extern void dzdfnt_(); extern void dzdfzs_(); extern void dzdfzi_(); extern void dzdfll_(); extern void dzdrwf_(); extern void dzdcfz_(); extern void dzdpev_(); extern void dzdcrz_(); extern void dzdsfb_(); extern void dzdsfk_(); extern void dzdgky_(); extern void dzdsrs_(); extern void dzdspi_(); extern void dzdzeb_(); extern void dzdb08_(); extern void dzdb07_(); extern void dzdb06_(); extern void dzdb05_(); extern void dzdb04_(); extern void dzdb03_(); extern void dzdb01_(); extern void dzdb18_(); extern void dzdb17_(); extern void dzdb16_(); extern void dzdb15_(); extern void dzdb14_(); extern void dzdb13_(); extern void dzdb12_(); extern void dzdb11_(); extern void igrsiz_(); extern void igobj_(); extern void igset_(); extern void iclwk_(); extern int ixmotif(); void zbrdef_() { static char *_DZDOC_Set_par_NEW_WINDOW_CNEWIN_range[] = { "No", "Yes" }; static KmParameter _DZDOC_Set_par_NEW_WINDOW_CNEWIN = { "CNEWIN", 6, "Open new windows", "Yes", (char*)0, 8, 2, _DZDOC_Set_par_NEW_WINDOW_CNEWIN_range, 2, _DZDOC_Set_par_NEW_WINDOW_CNEWIN_range, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter *_DZDOC_Set_par_NEW_WINDOW_parameters[] = { &_DZDOC_Set_par_NEW_WINDOW_CNEWIN }; static char *_DZDOC_Set_par_NEW_WINDOW_guidance[] = { "Select if output of DZDISP etc. should go in a new window or", "be displayed on the terminal (KXTERM)." }; static KmCommand _DZDOC_Set_par_NEW_WINDOW = { (KmCommand*)0, "/DZDOC/Set_par/NEW_WINDOW", "NEW_WINDOW", 0, 2, 1, 1, _DZDOC_Set_par_NEW_WINDOW_parameters, 0, 0, dzdskd_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 2, _DZDOC_Set_par_NEW_WINDOW_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmParameter _DZDOC_Set_par_DZSHOW_OPT_CDZOPT = { "CDZOPT", 6, "DZSHOW option", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter *_DZDOC_Set_par_DZSHOW_OPT_parameters[] = { &_DZDOC_Set_par_DZSHOW_OPT_CDZOPT }; static char *_DZDOC_Set_par_DZSHOW_OPT_guidance[] = { "CDZOPT Option when calling DZSHOW" }; static KmCommand _DZDOC_Set_par_DZSHOW_OPT = { &_DZDOC_Set_par_NEW_WINDOW, "/DZDOC/Set_par/DZSHOW_OPT", "DZSHOW_OPT", 0, 2, 1, 1, _DZDOC_Set_par_DZSHOW_OPT_parameters, 0, 0, dzdskd_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 1, _DZDOC_Set_par_DZSHOW_OPT_guidance, 0, (char**)0, (char*)0, (int*)0 }; static char *_DZDOC_Set_par_REF_LINKS_CREFLN_range[] = { "No", "Yes" }; static KmParameter _DZDOC_Set_par_REF_LINKS_CREFLN = { "CREFLN", 6, "Follow reference links", "Yes", (char*)0, 8, 2, _DZDOC_Set_par_REF_LINKS_CREFLN_range, 2, _DZDOC_Set_par_REF_LINKS_CREFLN_range, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter *_DZDOC_Set_par_REF_LINKS_parameters[] = { &_DZDOC_Set_par_REF_LINKS_CREFLN }; static char *_DZDOC_Set_par_REF_LINKS_guidance[] = { "Select if reference links should be followed" }; static KmCommand _DZDOC_Set_par_REF_LINKS = { &_DZDOC_Set_par_DZSHOW_OPT, "/DZDOC/Set_par/REF_LINKS", "REF_LINKS", 0, 2, 1, 1, _DZDOC_Set_par_REF_LINKS_parameters, 0, 0, dzdskd_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 1, _DZDOC_Set_par_REF_LINKS_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmParInt _DZDOC_Set_par_BROWSEKEY_IKDSP1_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_Set_par_BROWSEKEY_IKDSP1 = { "IKDSP1", 6, "Key to display", "1", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_Set_par_BROWSEKEY_IKDSP1_type }; static KmParInt _DZDOC_Set_par_BROWSEKEY_IKDSP2_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_Set_par_BROWSEKEY_IKDSP2 = { "IKDSP2", 6, "Key to display", "2", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_Set_par_BROWSEKEY_IKDSP2_type }; static KmParInt _DZDOC_Set_par_BROWSEKEY_ICYDSP_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_Set_par_BROWSEKEY_ICYDSP = { "ICYDSP", 6, "Cycle to display", "1000000", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_Set_par_BROWSEKEY_ICYDSP_type }; static KmParameter *_DZDOC_Set_par_BROWSEKEY_parameters[] = { &_DZDOC_Set_par_BROWSEKEY_IKDSP1, &_DZDOC_Set_par_BROWSEKEY_IKDSP2, &_DZDOC_Set_par_BROWSEKEY_ICYDSP }; static char *_DZDOC_Set_par_BROWSEKEY_guidance[] = { "Select the two keys and the cycle to be shown by the browser." }; static KmCommand _DZDOC_Set_par_BROWSEKEY = { &_DZDOC_Set_par_REF_LINKS, "/DZDOC/Set_par/BROWSEKEY", "BROWSEKEY", 0, 2, 3, 3, _DZDOC_Set_par_BROWSEKEY_parameters, 0, 0, dzdskd_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 1, _DZDOC_Set_par_BROWSEKEY_guidance, 0, (char**)0, (char*)0, (int*)0 }; static char *_DZDOC_Set_par_WORKSTATION_CCACT_range[] = { "No", "Yes" }; static KmParameter _DZDOC_Set_par_WORKSTATION_CCACT = { "CCACT", 5, "Activate workstation", "No", (char*)0, 8, 2, _DZDOC_Set_par_WORKSTATION_CCACT_range, 2, _DZDOC_Set_par_WORKSTATION_CCACT_range, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParInt _DZDOC_Set_par_WORKSTATION_IWKID_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_Set_par_WORKSTATION_IWKID = { "IWKID", 5, "Use workstation Id", "1", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_Set_par_WORKSTATION_IWKID_type }; static KmParameter *_DZDOC_Set_par_WORKSTATION_parameters[] = { &_DZDOC_Set_par_WORKSTATION_CCACT, &_DZDOC_Set_par_WORKSTATION_IWKID }; static char *_DZDOC_Set_par_WORKSTATION_guidance[] = { "Enable/disable workstation activation.", "DZDOC may optionally use a different window (workstation IWKID)." }; static KmCommand _DZDOC_Set_par_WORKSTATION = { &_DZDOC_Set_par_BROWSEKEY, "/DZDOC/Set_par/WORKSTATION", "WORKSTATION", 0, 2, 2, 2, _DZDOC_Set_par_WORKSTATION_parameters, 0, 0, dzdskd_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 2, _DZDOC_Set_par_WORKSTATION_guidance, 0, (char**)0, (char*)0, (int*)0 }; static char *_DZDOC_Set_par_BANKCOLOR_COLBNK_range[] = { "Yes", "No" }; static KmParameter _DZDOC_Set_par_BANKCOLOR_COLBNK = { "COLBNK", 6, "Color bank display", "Yes", (char*)0, 8, 2, _DZDOC_Set_par_BANKCOLOR_COLBNK_range, 2, _DZDOC_Set_par_BANKCOLOR_COLBNK_range, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParInt _DZDOC_Set_par_BANKCOLOR_IBCCOL_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_Set_par_BANKCOLOR_IBCCOL = { "IBCCOL", 6, "Color for bank center", "7", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_Set_par_BANKCOLOR_IBCCOL_type }; static KmParInt _DZDOC_Set_par_BANKCOLOR_IBDCOL_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_Set_par_BANKCOLOR_IBDCOL = { "IBDCOL", 6, "Color for data box", "3", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_Set_par_BANKCOLOR_IBDCOL_type }; static KmParameter *_DZDOC_Set_par_BANKCOLOR_parameters[] = { &_DZDOC_Set_par_BANKCOLOR_COLBNK, &_DZDOC_Set_par_BANKCOLOR_IBCCOL, &_DZDOC_Set_par_BANKCOLOR_IBDCOL }; static char *_DZDOC_Set_par_BANKCOLOR_guidance[] = { "Choose if bank display should be colored.", "Color indexes for bank center and box." }; static KmCommand _DZDOC_Set_par_BANKCOLOR = { &_DZDOC_Set_par_WORKSTATION, "/DZDOC/Set_par/BANKCOLOR", "BANKCOLOR", 0, 2, 3, 1, _DZDOC_Set_par_BANKCOLOR_parameters, 0, 0, dzdskd_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 2, _DZDOC_Set_par_BANKCOLOR_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmParameter _DZDOC_File_DIR_ADD_CHDIR = { "CHDIR", 5, "Directory name", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter *_DZDOC_File_DIR_ADD_parameters[] = { &_DZDOC_File_DIR_ADD_CHDIR }; static char *_DZDOC_File_DIR_ADD_guidance[] = { "Add a directory into search path when looking for", "bank documention files. (max 10 dirs allowed)" }; static KmCommand _DZDOC_File_DIR_ADD = { (KmCommand*)0, "/DZDOC/File/DIR_ADD", "DIR_ADD", 0, 2, 1, 1, _DZDOC_File_DIR_ADD_parameters, 0, 0, dzddad_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 2, _DZDOC_File_DIR_ADD_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmParameter _DZDOC_File_EDIT_DOC_CHBANK = { "CHBANK", 6, "Bank Hol_Id ", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter _DZDOC_File_EDIT_DOC_CHUPID = { "CHUPID", 6, "UpBank Hol_Id", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static char *_DZDOC_File_EDIT_DOC_CHOPT_range[] = { "Rz", "Ascii", "Memory" }; static char *_DZDOC_File_EDIT_DOC_CHOPT_text[] = { (char*)0, (char*)0, (char*)0 }; static KmParOption _DZDOC_File_EDIT_DOC_CHOPT_type = { _DZDOC_File_EDIT_DOC_CHOPT_text, (int*)0, (int*)0 }; static KmParameter _DZDOC_File_EDIT_DOC_CHOPT = { "CHOPT", 5, "Option ", "Rz", (char*)0, 8, 3, _DZDOC_File_EDIT_DOC_CHOPT_range, 3, _DZDOC_File_EDIT_DOC_CHOPT_range, (KmParFlag)0, KmTYPE_OPTION, &_DZDOC_File_EDIT_DOC_CHOPT_type }; static KmParameter _DZDOC_File_EDIT_DOC_CHFILE = { "CHFILE", 6, "File name ", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParInt _DZDOC_File_EDIT_DOC_STORE_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_File_EDIT_DOC_STORE = { "STORE", 5, "Store ", "0", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_File_EDIT_DOC_STORE_type }; static KmParInt _DZDOC_File_EDIT_DOC_DIV_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_File_EDIT_DOC_DIV = { "DIV", 3, "Division ", "2", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_File_EDIT_DOC_DIV_type }; static KmParameter *_DZDOC_File_EDIT_DOC_parameters[] = { &_DZDOC_File_EDIT_DOC_CHBANK, &_DZDOC_File_EDIT_DOC_CHUPID, &_DZDOC_File_EDIT_DOC_CHOPT, &_DZDOC_File_EDIT_DOC_CHFILE, &_DZDOC_File_EDIT_DOC_STORE, &_DZDOC_File_EDIT_DOC_DIV }; static char *_DZDOC_File_EDIT_DOC_guidance[] = { "Edit documentation for selected bank. The source may be", "taken from:", " - an (open) RZ documentation file", " - an Ascii file in current dir or one added by DIR_ADD", " - a template of a bank in memory (Store and div must be given)", "In the case of 'Ascii' the file name may explicitly be given in CHFILE,", "if CHFILE = ' ' it is defaulted to 'CHBANK_CHUPID.dzdoc'." }; static KmCommand _DZDOC_File_EDIT_DOC = { &_DZDOC_File_DIR_ADD, "/DZDOC/File/EDIT_DOC", "EDIT_DOC", 0, 2, 6, 6, _DZDOC_File_EDIT_DOC_parameters, 0, 0, dzdedd_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 7, _DZDOC_File_EDIT_DOC_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmParameter _DZDOC_File_OPEN_DOC_CHDOCB = { "CHDOCB", 6, "File name", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static char *_DZDOC_File_OPEN_DOC_CHOPT_range[] = { "R", "N", "U", "L" }; static char *_DZDOC_File_OPEN_DOC_CHOPT_text[] = { (char*)0, (char*)0, (char*)0, (char*)0 }; static KmParOption _DZDOC_File_OPEN_DOC_CHOPT_type = { _DZDOC_File_OPEN_DOC_CHOPT_text, (int*)0, (int*)0 }; static KmParameter _DZDOC_File_OPEN_DOC_CHOPT = { "CHOPT", 5, "Options", "R", (char*)0, 8, 4, _DZDOC_File_OPEN_DOC_CHOPT_range, 4, _DZDOC_File_OPEN_DOC_CHOPT_range, (KmParFlag)0, KmTYPE_OPTION, &_DZDOC_File_OPEN_DOC_CHOPT_type }; static KmParameter *_DZDOC_File_OPEN_DOC_parameters[] = { &_DZDOC_File_OPEN_DOC_CHDOCB, &_DZDOC_File_OPEN_DOC_CHOPT }; static char *_DZDOC_File_OPEN_DOC_guidance[] = { "Open (RZ) file with bank documentation in", "Readonly (default), New or Update mode", "Option L: List contents (RZLDIR) (file must be open)" }; static KmCommand _DZDOC_File_OPEN_DOC = { &_DZDOC_File_EDIT_DOC, "/DZDOC/File/OPEN_DOC", "OPEN_DOC", 0, 2, 2, 1, _DZDOC_File_OPEN_DOC_parameters, 0, 0, dzdorf_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 3, _DZDOC_File_OPEN_DOC_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmParameter _DZDOC_Bankdisplay_SURVEY_CHBANK = { "CHBANK", 6, "Bank Hol_Id", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParInt _DZDOC_Bankdisplay_SURVEY_NID_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_Bankdisplay_SURVEY_NID = { "NID", 3, "Num Id ", "0", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_Bankdisplay_SURVEY_NID_type }; static KmParInt _DZDOC_Bankdisplay_SURVEY_STORE_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_Bankdisplay_SURVEY_STORE = { "STORE", 5, "Store ", "0", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_Bankdisplay_SURVEY_STORE_type }; static KmParInt _DZDOC_Bankdisplay_SURVEY_DIV_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_Bankdisplay_SURVEY_DIV = { "DIV", 3, "Division ", "2", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_Bankdisplay_SURVEY_DIV_type }; static KmParameter _DZDOC_Bankdisplay_SURVEY_CHUPID = { "CHUPID", 6, "UpBank Hol_Id", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter *_DZDOC_Bankdisplay_SURVEY_parameters[] = { &_DZDOC_Bankdisplay_SURVEY_CHBANK, &_DZDOC_Bankdisplay_SURVEY_NID, &_DZDOC_Bankdisplay_SURVEY_STORE, &_DZDOC_Bankdisplay_SURVEY_DIV, &_DZDOC_Bankdisplay_SURVEY_CHUPID }; static char *_DZDOC_Bankdisplay_SURVEY_guidance[] = { "Call DZSURV for selected bank" }; static KmCommand _DZDOC_Bankdisplay_SURVEY = { (KmCommand*)0, "/DZDOC/Bankdisplay/SURVEY", "SURVEY", 0, 2, 5, 1, _DZDOC_Bankdisplay_SURVEY_parameters, 0, 0, dzdsha_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 1, _DZDOC_Bankdisplay_SURVEY_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmParameter _DZDOC_Bankdisplay_DOCUMENTATION_CHBANK = { "CHBANK", 6, "Bank Hol_Id", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParInt _DZDOC_Bankdisplay_DOCUMENTATION_NID_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_Bankdisplay_DOCUMENTATION_NID = { "NID", 3, "Num Id ", "0", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_Bankdisplay_DOCUMENTATION_NID_type }; static KmParInt _DZDOC_Bankdisplay_DOCUMENTATION_STORE_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_Bankdisplay_DOCUMENTATION_STORE = { "STORE", 5, "Store ", "0", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_Bankdisplay_DOCUMENTATION_STORE_type }; static KmParInt _DZDOC_Bankdisplay_DOCUMENTATION_DIV_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_Bankdisplay_DOCUMENTATION_DIV = { "DIV", 3, "Division ", "2", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_Bankdisplay_DOCUMENTATION_DIV_type }; static KmParameter _DZDOC_Bankdisplay_DOCUMENTATION_CHUPID = { "CHUPID", 6, "UpBank Hol_Id", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter *_DZDOC_Bankdisplay_DOCUMENTATION_parameters[] = { &_DZDOC_Bankdisplay_DOCUMENTATION_CHBANK, &_DZDOC_Bankdisplay_DOCUMENTATION_NID, &_DZDOC_Bankdisplay_DOCUMENTATION_STORE, &_DZDOC_Bankdisplay_DOCUMENTATION_DIV, &_DZDOC_Bankdisplay_DOCUMENTATION_CHUPID }; static char *_DZDOC_Bankdisplay_DOCUMENTATION_guidance[] = { "Show documentation for selected bank" }; static KmCommand _DZDOC_Bankdisplay_DOCUMENTATION = { &_DZDOC_Bankdisplay_SURVEY, "/DZDOC/Bankdisplay/DOCUMENTATION", "DOCUMENTATION", 0, 2, 5, 1, _DZDOC_Bankdisplay_DOCUMENTATION_parameters, 0, 0, dzdsha_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 1, _DZDOC_Bankdisplay_DOCUMENTATION_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmParameter _DZDOC_Bankdisplay_SYSTEMWORDS_CHBANK = { "CHBANK", 6, "Bank Hol_Id", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParInt _DZDOC_Bankdisplay_SYSTEMWORDS_NID_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_Bankdisplay_SYSTEMWORDS_NID = { "NID", 3, "Num Id ", "0", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_Bankdisplay_SYSTEMWORDS_NID_type }; static KmParInt _DZDOC_Bankdisplay_SYSTEMWORDS_STORE_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_Bankdisplay_SYSTEMWORDS_STORE = { "STORE", 5, "Store ", "0", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_Bankdisplay_SYSTEMWORDS_STORE_type }; static KmParInt _DZDOC_Bankdisplay_SYSTEMWORDS_DIV_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_Bankdisplay_SYSTEMWORDS_DIV = { "DIV", 3, "Division ", "2", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_Bankdisplay_SYSTEMWORDS_DIV_type }; static KmParameter _DZDOC_Bankdisplay_SYSTEMWORDS_CHUPID = { "CHUPID", 6, "UpBank Hol_Id", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter *_DZDOC_Bankdisplay_SYSTEMWORDS_parameters[] = { &_DZDOC_Bankdisplay_SYSTEMWORDS_CHBANK, &_DZDOC_Bankdisplay_SYSTEMWORDS_NID, &_DZDOC_Bankdisplay_SYSTEMWORDS_STORE, &_DZDOC_Bankdisplay_SYSTEMWORDS_DIV, &_DZDOC_Bankdisplay_SYSTEMWORDS_CHUPID }; static char *_DZDOC_Bankdisplay_SYSTEMWORDS_guidance[] = { "Show system words and links for selected bank" }; static KmCommand _DZDOC_Bankdisplay_SYSTEMWORDS = { &_DZDOC_Bankdisplay_DOCUMENTATION, "/DZDOC/Bankdisplay/SYSTEMWORDS", "SYSTEMWORDS", 0, 2, 5, 1, _DZDOC_Bankdisplay_SYSTEMWORDS_parameters, 0, 0, dzdsha_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 1, _DZDOC_Bankdisplay_SYSTEMWORDS_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmParameter _DZDOC_Bankdisplay_DZSHOW_CONT_CHBANK = { "CHBANK", 6, "Bank Hol_Id", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParInt _DZDOC_Bankdisplay_DZSHOW_CONT_NID_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_Bankdisplay_DZSHOW_CONT_NID = { "NID", 3, "Num Id ", "0", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_Bankdisplay_DZSHOW_CONT_NID_type }; static KmParInt _DZDOC_Bankdisplay_DZSHOW_CONT_STORE_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_Bankdisplay_DZSHOW_CONT_STORE = { "STORE", 5, "Store ", "0", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_Bankdisplay_DZSHOW_CONT_STORE_type }; static KmParInt _DZDOC_Bankdisplay_DZSHOW_CONT_DIV_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_Bankdisplay_DZSHOW_CONT_DIV = { "DIV", 3, "Division ", "2", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_Bankdisplay_DZSHOW_CONT_DIV_type }; static KmParameter _DZDOC_Bankdisplay_DZSHOW_CONT_CHUPID = { "CHUPID", 6, "UpBank Hol_Id", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter *_DZDOC_Bankdisplay_DZSHOW_CONT_parameters[] = { &_DZDOC_Bankdisplay_DZSHOW_CONT_CHBANK, &_DZDOC_Bankdisplay_DZSHOW_CONT_NID, &_DZDOC_Bankdisplay_DZSHOW_CONT_STORE, &_DZDOC_Bankdisplay_DZSHOW_CONT_DIV, &_DZDOC_Bankdisplay_DZSHOW_CONT_CHUPID }; static char *_DZDOC_Bankdisplay_DZSHOW_CONT_guidance[] = { "Show contents of bank by DZSHOW (no documentation)" }; static KmCommand _DZDOC_Bankdisplay_DZSHOW_CONT = { &_DZDOC_Bankdisplay_SYSTEMWORDS, "/DZDOC/Bankdisplay/DZSHOW_CONT", "DZSHOW_CONT", 0, 2, 5, 1, _DZDOC_Bankdisplay_DZSHOW_CONT_parameters, 0, 0, dzdsha_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 1, _DZDOC_Bankdisplay_DZSHOW_CONT_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmParameter _DZDOC_Bankdisplay_CONTENTS_CHBANK = { "CHBANK", 6, "Bank Hol_Id", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParInt _DZDOC_Bankdisplay_CONTENTS_NID_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_Bankdisplay_CONTENTS_NID = { "NID", 3, "Num Id ", "0", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_Bankdisplay_CONTENTS_NID_type }; static KmParInt _DZDOC_Bankdisplay_CONTENTS_STORE_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_Bankdisplay_CONTENTS_STORE = { "STORE", 5, "Store ", "0", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_Bankdisplay_CONTENTS_STORE_type }; static KmParInt _DZDOC_Bankdisplay_CONTENTS_DIV_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_Bankdisplay_CONTENTS_DIV = { "DIV", 3, "Division ", "2", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_Bankdisplay_CONTENTS_DIV_type }; static KmParameter _DZDOC_Bankdisplay_CONTENTS_CHUPID = { "CHUPID", 6, "UpBank Hol_Id", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter *_DZDOC_Bankdisplay_CONTENTS_parameters[] = { &_DZDOC_Bankdisplay_CONTENTS_CHBANK, &_DZDOC_Bankdisplay_CONTENTS_NID, &_DZDOC_Bankdisplay_CONTENTS_STORE, &_DZDOC_Bankdisplay_CONTENTS_DIV, &_DZDOC_Bankdisplay_CONTENTS_CHUPID }; static char *_DZDOC_Bankdisplay_CONTENTS_guidance[] = { "Show contents of bank documented." }; static KmCommand _DZDOC_Bankdisplay_CONTENTS = { &_DZDOC_Bankdisplay_DZSHOW_CONT, "/DZDOC/Bankdisplay/CONTENTS", "CONTENTS", 0, 2, 5, 1, _DZDOC_Bankdisplay_CONTENTS_parameters, 0, 0, dzdsha_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 1, _DZDOC_Bankdisplay_CONTENTS_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmParameter _DZDOC_Bankdisplay_TREE_CHBANK = { "CHBANK", 6, "Bank Hol_Id", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParInt _DZDOC_Bankdisplay_TREE_NID_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_Bankdisplay_TREE_NID = { "NID", 3, "Num Id ", "0", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_Bankdisplay_TREE_NID_type }; static KmParInt _DZDOC_Bankdisplay_TREE_STORE_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_Bankdisplay_TREE_STORE = { "STORE", 5, "Store ", "0", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_Bankdisplay_TREE_STORE_type }; static KmParInt _DZDOC_Bankdisplay_TREE_DIV_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_Bankdisplay_TREE_DIV = { "DIV", 3, "Division ", "2", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_Bankdisplay_TREE_DIV_type }; static KmParameter _DZDOC_Bankdisplay_TREE_CHUPID = { "CHUPID", 6, "UpBank Hol_Id", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter *_DZDOC_Bankdisplay_TREE_parameters[] = { &_DZDOC_Bankdisplay_TREE_CHBANK, &_DZDOC_Bankdisplay_TREE_NID, &_DZDOC_Bankdisplay_TREE_STORE, &_DZDOC_Bankdisplay_TREE_DIV, &_DZDOC_Bankdisplay_TREE_CHUPID }; static char *_DZDOC_Bankdisplay_TREE_guidance[] = { "Show bank tree for selected bank" }; static KmCommand _DZDOC_Bankdisplay_TREE = { &_DZDOC_Bankdisplay_CONTENTS, "/DZDOC/Bankdisplay/TREE", "TREE", 0, 2, 5, 1, _DZDOC_Bankdisplay_TREE_parameters, 0, 0, dzdsha_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 1, _DZDOC_Bankdisplay_TREE_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmParameter _DZDOC_BROWSE_VERIFY_DIV_CHDIV = { "CHDIV", 5, "Div name", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParOption _DZDOC_BROWSE_VERIFY_DIV_CHOPT_type = { (char**)0, (int*)0, (int*)0 }; static KmParameter _DZDOC_BROWSE_VERIFY_DIV_CHOPT = { "CHOPT", 5, "Option", "CLSU", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_OPTION, &_DZDOC_BROWSE_VERIFY_DIV_CHOPT_type }; static KmParameter *_DZDOC_BROWSE_VERIFY_DIV_parameters[] = { &_DZDOC_BROWSE_VERIFY_DIV_CHDIV, &_DZDOC_BROWSE_VERIFY_DIV_CHOPT }; static char *_DZDOC_BROWSE_VERIFY_DIV_guidance[] = { "Call DZVERI, CHDIV is given in format:Store01/Div03.", "Default: Div 2 of current Store" }; static KmCommand _DZDOC_BROWSE_VERIFY_DIV = { (KmCommand*)0, "/DZDOC/BROWSE/VERIFY_DIV", "VERIFY_DIV", 0, 2, 2, 2, _DZDOC_BROWSE_VERIFY_DIV_parameters, 0, 0, dzdshd_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 2, _DZDOC_BROWSE_VERIFY_DIV_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmParameter _DZDOC_BROWSE_SNAP_DIV_CHDIV = { "CHDIV", 5, "Div name", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter *_DZDOC_BROWSE_SNAP_DIV_parameters[] = { &_DZDOC_BROWSE_SNAP_DIV_CHDIV }; static char *_DZDOC_BROWSE_SNAP_DIV_guidance[] = { "Call DZSNAP, CHDIV is given in format:Store01/Div03.", "Default: Div 2 of current Store" }; static KmCommand _DZDOC_BROWSE_SNAP_DIV = { &_DZDOC_BROWSE_VERIFY_DIV, "/DZDOC/BROWSE/SNAP_DIV", "SNAP_DIV", 0, 2, 1, 1, _DZDOC_BROWSE_SNAP_DIV_parameters, 0, 0, dzdshd_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 2, _DZDOC_BROWSE_SNAP_DIV_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmParameter _DZDOC_BROWSE_COL_GARB_CHDIV = { "CHDIV", 5, "Div name", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter *_DZDOC_BROWSE_COL_GARB_parameters[] = { &_DZDOC_BROWSE_COL_GARB_CHDIV }; static char *_DZDOC_BROWSE_COL_GARB_guidance[] = { "Call MZGARB for selected division" }; static KmCommand _DZDOC_BROWSE_COL_GARB = { &_DZDOC_BROWSE_SNAP_DIV, "/DZDOC/BROWSE/COL_GARB", "COL_GARB", 0, 2, 1, 1, _DZDOC_BROWSE_COL_GARB_parameters, 0, 0, dzdshd_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 1, _DZDOC_BROWSE_COL_GARB_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmParameter _DZDOC_BROWSE_SHOW_DIV_CHDIV = { "CHDIV", 5, "Div name", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter *_DZDOC_BROWSE_SHOW_DIV_parameters[] = { &_DZDOC_BROWSE_SHOW_DIV_CHDIV }; static char *_DZDOC_BROWSE_SHOW_DIV_guidance[] = { "Call DZDDIV, CHDIV is given in format:Store01/Div03.", "Default: Div 2 of current Store" }; static KmCommand _DZDOC_BROWSE_SHOW_DIV = { &_DZDOC_BROWSE_COL_GARB, "/DZDOC/BROWSE/SHOW_DIV", "SHOW_DIV", 0, 2, 1, 1, _DZDOC_BROWSE_SHOW_DIV_parameters, 0, 0, dzdshd_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 2, _DZDOC_BROWSE_SHOW_DIV_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmParameter _DZDOC_BROWSE_SHOW_STORE_CHSTO = { "CHSTO", 5, "Store name", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter *_DZDOC_BROWSE_SHOW_STORE_parameters[] = { &_DZDOC_BROWSE_SHOW_STORE_CHSTO }; static char *_DZDOC_BROWSE_SHOW_STORE_guidance[] = { "Call DZSTOR, CHSTOR is given in format:Store01", "Default: Div 2 of current Store" }; static KmCommand _DZDOC_BROWSE_SHOW_STORE = { &_DZDOC_BROWSE_SHOW_DIV, "/DZDOC/BROWSE/SHOW_STORE", "SHOW_STORE", 0, 2, 1, 1, _DZDOC_BROWSE_SHOW_STORE_parameters, 0, 0, dzdshd_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 2, _DZDOC_BROWSE_SHOW_STORE_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmParInt _DZDOC_BROWSE_FILL_NTUPLE_LUN_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_BROWSE_FILL_NTUPLE_LUN = { "LUN", 3, "Unit number", (char*)0, (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_BROWSE_FILL_NTUPLE_LUN_type }; static KmParInt _DZDOC_BROWSE_FILL_NTUPLE_NTUPID_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_BROWSE_FILL_NTUPLE_NTUPID = { "NTUPID", 6, "Id for Ntuple", "99", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_BROWSE_FILL_NTUPLE_NTUPID_type }; static KmParameter _DZDOC_BROWSE_FILL_NTUPLE_CNAME = { "CNAME", 5, "Ntuple title", "Zbrowse", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter _DZDOC_BROWSE_FILL_NTUPLE_RZPATH = { "RZPATH", 6, "Dir of Rzfile", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParInt _DZDOC_BROWSE_FILL_NTUPLE_NEVENT_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_BROWSE_FILL_NTUPLE_NEVENT = { "NEVENT", 6, "Number of events", "100000", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_BROWSE_FILL_NTUPLE_NEVENT_type }; static KmParOption _DZDOC_BROWSE_FILL_NTUPLE_CHOPT_type = { (char**)0, (int*)0, (int*)0 }; static KmParameter _DZDOC_BROWSE_FILL_NTUPLE_CHOPT = { "CHOPT", 5, "Option", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_OPTION, &_DZDOC_BROWSE_FILL_NTUPLE_CHOPT_type }; static KmParameter *_DZDOC_BROWSE_FILL_NTUPLE_parameters[] = { &_DZDOC_BROWSE_FILL_NTUPLE_LUN, &_DZDOC_BROWSE_FILL_NTUPLE_NTUPID, &_DZDOC_BROWSE_FILL_NTUPLE_CNAME, &_DZDOC_BROWSE_FILL_NTUPLE_RZPATH, &_DZDOC_BROWSE_FILL_NTUPLE_NEVENT, &_DZDOC_BROWSE_FILL_NTUPLE_CHOPT }; static char *_DZDOC_BROWSE_FILL_NTUPLE_guidance[] = { "Read events from FZfile and fill Ntuple", "RZPATH may contain the directory in an (open)", "Rzfile to receive the Ntuple.", "Option: 'R' Rewind file before filling" }; static KmCommand _DZDOC_BROWSE_FILL_NTUPLE = { &_DZDOC_BROWSE_SHOW_STORE, "/DZDOC/BROWSE/FILL_NTUPLE", "FILL_NTUPLE", 0, 2, 6, 6, _DZDOC_BROWSE_FILL_NTUPLE_parameters, 0, 0, dzdfnt_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 4, _DZDOC_BROWSE_FILL_NTUPLE_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmParameter _DZDOC_BROWSE_SH_FZINFO_CHLUN = { "CHLUN", 5, "Unit number", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter *_DZDOC_BROWSE_SH_FZINFO_parameters[] = { &_DZDOC_BROWSE_SH_FZINFO_CHLUN }; static char *_DZDOC_BROWSE_SH_FZINFO_guidance[] = { "Show Fz information for file open on Unit CHLUN" }; static KmCommand _DZDOC_BROWSE_SH_FZINFO = { &_DZDOC_BROWSE_FILL_NTUPLE, "/DZDOC/BROWSE/SH_FZINFO", "SH_FZINFO", 0, 2, 1, 1, _DZDOC_BROWSE_SH_FZINFO_parameters, 0, 0, dzdfzs_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 1, _DZDOC_BROWSE_SH_FZINFO_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmParameter _DZDOC_BROWSE_GET_PDS_CHLUN = { "CHLUN", 5, "Unit number", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter _DZDOC_BROWSE_GET_PDS_CHDS = { "CHDS", 4, "Display flag", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter *_DZDOC_BROWSE_GET_PDS_parameters[] = { &_DZDOC_BROWSE_GET_PDS_CHLUN, &_DZDOC_BROWSE_GET_PDS_CHDS }; static char *_DZDOC_BROWSE_GET_PDS_guidance[] = { "Read the pending d/s into memory" }; static KmCommand _DZDOC_BROWSE_GET_PDS = { &_DZDOC_BROWSE_SH_FZINFO, "/DZDOC/BROWSE/GET_PDS", "GET_PDS", 0, 2, 2, 1, _DZDOC_BROWSE_GET_PDS_parameters, 0, 0, dzdfzi_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 1, _DZDOC_BROWSE_GET_PDS_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmParameter _DZDOC_BROWSE_GET_HEADER_CHLUN = { "CHLUN", 5, "Unit number", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter _DZDOC_BROWSE_GET_HEADER_CHDS = { "CHDS", 4, "Display flag", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter *_DZDOC_BROWSE_GET_HEADER_parameters[] = { &_DZDOC_BROWSE_GET_HEADER_CHLUN, &_DZDOC_BROWSE_GET_HEADER_CHDS }; static char *_DZDOC_BROWSE_GET_HEADER_guidance[] = { "Read next User header into memory" }; static KmCommand _DZDOC_BROWSE_GET_HEADER = { &_DZDOC_BROWSE_GET_PDS, "/DZDOC/BROWSE/GET_HEADER", "GET_HEADER", 0, 2, 2, 1, _DZDOC_BROWSE_GET_HEADER_parameters, 0, 0, dzdfzi_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 1, _DZDOC_BROWSE_GET_HEADER_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmParameter _DZDOC_BROWSE_GET_EVENT_CHLUN = { "CHLUN", 5, "Unit number", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter _DZDOC_BROWSE_GET_EVENT_CHDS = { "CHDS", 4, "Display flag", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter *_DZDOC_BROWSE_GET_EVENT_parameters[] = { &_DZDOC_BROWSE_GET_EVENT_CHLUN, &_DZDOC_BROWSE_GET_EVENT_CHDS }; static char *_DZDOC_BROWSE_GET_EVENT_guidance[] = { "Read next d/s into memory and display it, if CHDS = 'D'" }; static KmCommand _DZDOC_BROWSE_GET_EVENT = { &_DZDOC_BROWSE_GET_HEADER, "/DZDOC/BROWSE/GET_EVENT", "GET_EVENT", 0, 2, 2, 1, _DZDOC_BROWSE_GET_EVENT_parameters, 0, 0, dzdfzi_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 1, _DZDOC_BROWSE_GET_EVENT_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmParameter _DZDOC_BROWSE_FZ_LOG_LEVEL_CHLUN = { "CHLUN", 5, "Unit number", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParInt _DZDOC_BROWSE_FZ_LOG_LEVEL_LOGL_type = { "-3", "4", "-3", "4", 0 }; static KmParameter _DZDOC_BROWSE_FZ_LOG_LEVEL_LOGL = { "LOGL", 4, "Log level", (char*)0, (char*)0, 2, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_BROWSE_FZ_LOG_LEVEL_LOGL_type }; static KmParameter *_DZDOC_BROWSE_FZ_LOG_LEVEL_parameters[] = { &_DZDOC_BROWSE_FZ_LOG_LEVEL_CHLUN, &_DZDOC_BROWSE_FZ_LOG_LEVEL_LOGL }; static char *_DZDOC_BROWSE_FZ_LOG_LEVEL_guidance[] = { "Set logging level for FZ file" }; static KmCommand _DZDOC_BROWSE_FZ_LOG_LEVEL = { &_DZDOC_BROWSE_GET_EVENT, "/DZDOC/BROWSE/FZ_LOG_LEVEL", "FZ_LOG_LEVEL", 0, 2, 2, 2, _DZDOC_BROWSE_FZ_LOG_LEVEL_parameters, 0, 0, dzdfll_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 1, _DZDOC_BROWSE_FZ_LOG_LEVEL_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmParameter _DZDOC_BROWSE_REWIND_FZ_CHLUN = { "CHLUN", 5, "Unit number", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter *_DZDOC_BROWSE_REWIND_FZ_parameters[] = { &_DZDOC_BROWSE_REWIND_FZ_CHLUN }; static char *_DZDOC_BROWSE_REWIND_FZ_guidance[] = { "Rewind FZ file" }; static KmCommand _DZDOC_BROWSE_REWIND_FZ = { &_DZDOC_BROWSE_FZ_LOG_LEVEL, "/DZDOC/BROWSE/REWIND_FZ", "REWIND_FZ", 0, 2, 1, 1, _DZDOC_BROWSE_REWIND_FZ_parameters, 0, 0, dzdrwf_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 1, _DZDOC_BROWSE_REWIND_FZ_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmParameter _DZDOC_BROWSE_CLOSE_FZ_CHLUN = { "CHLUN", 5, "Unit number", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter *_DZDOC_BROWSE_CLOSE_FZ_parameters[] = { &_DZDOC_BROWSE_CLOSE_FZ_CHLUN }; static char *_DZDOC_BROWSE_CLOSE_FZ_guidance[] = { "Close FZ file" }; static KmCommand _DZDOC_BROWSE_CLOSE_FZ = { &_DZDOC_BROWSE_REWIND_FZ, "/DZDOC/BROWSE/CLOSE_FZ", "CLOSE_FZ", 0, 2, 1, 1, _DZDOC_BROWSE_CLOSE_FZ_parameters, 0, 0, dzdcfz_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 1, _DZDOC_BROWSE_CLOSE_FZ_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmParInt _DZDOC_BROWSE_PUT_EVENT_LUNFOU_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_BROWSE_PUT_EVENT_LUNFOU = { "LUNFOU", 6, "Unit number", "0", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_BROWSE_PUT_EVENT_LUNFOU_type }; static KmParameter _DZDOC_BROWSE_PUT_EVENT_CHBANK = { "CHBANK", 6, "Bank Hol_Id", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParOption _DZDOC_BROWSE_PUT_EVENT_CHOPT_type = { (char**)0, (int*)0, (int*)0 }; static KmParameter _DZDOC_BROWSE_PUT_EVENT_CHOPT = { "CHOPT", 5, "Option for FZOUT", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_OPTION, &_DZDOC_BROWSE_PUT_EVENT_CHOPT_type }; static KmParameter _DZDOC_BROWSE_PUT_EVENT_CHEAD = { "CHEAD", 5, "Write user header", "Yes", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter *_DZDOC_BROWSE_PUT_EVENT_parameters[] = { &_DZDOC_BROWSE_PUT_EVENT_LUNFOU, &_DZDOC_BROWSE_PUT_EVENT_CHBANK, &_DZDOC_BROWSE_PUT_EVENT_CHOPT, &_DZDOC_BROWSE_PUT_EVENT_CHEAD }; static char *_DZDOC_BROWSE_PUT_EVENT_guidance[] = { "Write bank tree to FZFILE read by GET_EVENT, if CHBANK /= ' '", "the hollerith Id of the top bank is checked first" }; static KmCommand _DZDOC_BROWSE_PUT_EVENT = { &_DZDOC_BROWSE_CLOSE_FZ, "/DZDOC/BROWSE/PUT_EVENT", "PUT_EVENT", 0, 2, 4, 1, _DZDOC_BROWSE_PUT_EVENT_parameters, 0, 0, dzdpev_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 2, _DZDOC_BROWSE_PUT_EVENT_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmParameter _DZDOC_BROWSE_CLOSE_RZ_CHPATH = { "CHPATH", 6, "Rz directory", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter *_DZDOC_BROWSE_CLOSE_RZ_parameters[] = { &_DZDOC_BROWSE_CLOSE_RZ_CHPATH }; static char *_DZDOC_BROWSE_CLOSE_RZ_guidance[] = { "Close RZ file" }; static KmCommand _DZDOC_BROWSE_CLOSE_RZ = { &_DZDOC_BROWSE_PUT_EVENT, "/DZDOC/BROWSE/CLOSE_RZ", "CLOSE_RZ", 0, 2, 1, 1, _DZDOC_BROWSE_CLOSE_RZ_parameters, 0, 0, dzdcrz_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 1, _DZDOC_BROWSE_CLOSE_RZ_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmParameter _DZDOC_BROWSE_FILT_BANKS_CIDMSK = { "CIDMSK", 6, "Mask Hol Id", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParInt _DZDOC_BROWSE_FILT_BANKS_NIDMSK_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_BROWSE_FILT_BANKS_NIDMSK = { "NIDMSK", 6, "Numerical Id", "0", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_BROWSE_FILT_BANKS_NIDMSK_type }; static KmParameter *_DZDOC_BROWSE_FILT_BANKS_parameters[] = { &_DZDOC_BROWSE_FILT_BANKS_CIDMSK, &_DZDOC_BROWSE_FILT_BANKS_NIDMSK }; static char *_DZDOC_BROWSE_FILT_BANKS_guidance[] = { "Set a mask on hollerith and/or numerical Id of a bank.", "The wildcard character is * or blank (i.e. CIDMSK = ' '", "selects all).", "Example: C**S , display all banks with Id starting with C", "and ending with S.", "If NIDMSK /= 0 display only banks with this numerical Id." }; static KmCommand _DZDOC_BROWSE_FILT_BANKS = { &_DZDOC_BROWSE_CLOSE_RZ, "/DZDOC/BROWSE/FILT_BANKS", "FILT_BANKS", 0, 2, 2, 2, _DZDOC_BROWSE_FILT_BANKS_parameters, 0, 0, dzdsfb_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 6, _DZDOC_BROWSE_FILT_BANKS_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmParInt _DZDOC_BROWSE_FILT_KEY_IKEYNR_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_BROWSE_FILT_KEY_IKEYNR = { "IKEYNR", 6, "Keyword number", "1", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_BROWSE_FILT_KEY_IKEYNR_type }; static KmParInt _DZDOC_BROWSE_FILT_KEY_IVALUE_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_BROWSE_FILT_KEY_IVALUE = { "IVALUE", 6, "Integer value", "0", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_BROWSE_FILT_KEY_IVALUE_type }; static KmParameter _DZDOC_BROWSE_FILT_KEY_CVALUE = { "CVALUE", 6, "Char*4 (hollerith) value", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static char *_DZDOC_BROWSE_FILT_KEY_CHOPT_range[] = { "Int", "Char", "Reset" }; static char *_DZDOC_BROWSE_FILT_KEY_CHOPT_text[] = { (char*)0, (char*)0, (char*)0 }; static KmParOption _DZDOC_BROWSE_FILT_KEY_CHOPT_type = { _DZDOC_BROWSE_FILT_KEY_CHOPT_text, (int*)0, (int*)0 }; static KmParameter _DZDOC_BROWSE_FILT_KEY_CHOPT = { "CHOPT", 5, "Option", "Int", (char*)0, 8, 3, _DZDOC_BROWSE_FILT_KEY_CHOPT_range, 3, _DZDOC_BROWSE_FILT_KEY_CHOPT_range, (KmParFlag)0, KmTYPE_OPTION, &_DZDOC_BROWSE_FILT_KEY_CHOPT_type }; static char *_DZDOC_BROWSE_FILT_KEY_CHYENO_range[] = { "NO", "YES" }; static KmParameter _DZDOC_BROWSE_FILT_KEY_CHYENO = { "CHYENO", 6, "List keys with Append opt", "NO", (char*)0, 8, 2, _DZDOC_BROWSE_FILT_KEY_CHYENO_range, 2, _DZDOC_BROWSE_FILT_KEY_CHYENO_range, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter *_DZDOC_BROWSE_FILT_KEY_parameters[] = { &_DZDOC_BROWSE_FILT_KEY_IKEYNR, &_DZDOC_BROWSE_FILT_KEY_IVALUE, &_DZDOC_BROWSE_FILT_KEY_CVALUE, &_DZDOC_BROWSE_FILT_KEY_CHOPT, &_DZDOC_BROWSE_FILT_KEY_CHYENO }; static char *_DZDOC_BROWSE_FILT_KEY_guidance[] = { "Set a filter on keywords (max first 9),", "Keys created with the A option may be shown", "optionally." }; static KmCommand _DZDOC_BROWSE_FILT_KEY = { &_DZDOC_BROWSE_FILT_BANKS, "/DZDOC/BROWSE/FILT_KEY", "FILT_KEY", 0, 2, 5, 5, _DZDOC_BROWSE_FILT_KEY_parameters, 0, 0, dzdsfk_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 3, _DZDOC_BROWSE_FILT_KEY_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmParameter _DZDOC_BROWSE_SH_RZLDIR_CHPATH = { "CHPATH", 6, "Rz directory", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter *_DZDOC_BROWSE_SH_RZLDIR_parameters[] = { &_DZDOC_BROWSE_SH_RZLDIR_CHPATH }; static char *_DZDOC_BROWSE_SH_RZLDIR_guidance[] = { "List directory (RZLDIR)" }; static KmCommand _DZDOC_BROWSE_SH_RZLDIR = { &_DZDOC_BROWSE_FILT_KEY, "/DZDOC/BROWSE/SH_RZLDIR", "SH_RZLDIR", 0, 2, 1, 1, _DZDOC_BROWSE_SH_RZLDIR_parameters, 0, 0, dzdgky_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 1, _DZDOC_BROWSE_SH_RZLDIR_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmParameter _DZDOC_BROWSE_SH_KEY_DEF_CHPATH = { "CHPATH", 6, "Rz directory", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter *_DZDOC_BROWSE_SH_KEY_DEF_parameters[] = { &_DZDOC_BROWSE_SH_KEY_DEF_CHPATH }; static char *_DZDOC_BROWSE_SH_KEY_DEF_guidance[] = { "Show tags of keys" }; static KmCommand _DZDOC_BROWSE_SH_KEY_DEF = { &_DZDOC_BROWSE_SH_RZLDIR, "/DZDOC/BROWSE/SH_KEY_DEF", "SH_KEY_DEF", 0, 2, 1, 1, _DZDOC_BROWSE_SH_KEY_DEF_parameters, 0, 0, dzdgky_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 1, _DZDOC_BROWSE_SH_KEY_DEF_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmParameter _DZDOC_BROWSE_SH_KEY_CHPATH = { "CHPATH", 6, "Rz directory", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter _DZDOC_BROWSE_SH_KEY_CHKNUM = { "CHKNUM", 6, "Key sequential num", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter *_DZDOC_BROWSE_SH_KEY_parameters[] = { &_DZDOC_BROWSE_SH_KEY_CHPATH, &_DZDOC_BROWSE_SH_KEY_CHKNUM }; static char *_DZDOC_BROWSE_SH_KEY_guidance[] = { "Show key words" }; static KmCommand _DZDOC_BROWSE_SH_KEY = { &_DZDOC_BROWSE_SH_KEY_DEF, "/DZDOC/BROWSE/SH_KEY", "SH_KEY", 0, 2, 2, 2, _DZDOC_BROWSE_SH_KEY_parameters, 0, 0, dzdgky_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 1, _DZDOC_BROWSE_SH_KEY_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmParameter _DZDOC_BROWSE_GET_KEY_CHPATH = { "CHPATH", 6, "Rz directory", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter _DZDOC_BROWSE_GET_KEY_CHKNUM = { "CHKNUM", 6, "Key sequential num", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter *_DZDOC_BROWSE_GET_KEY_parameters[] = { &_DZDOC_BROWSE_GET_KEY_CHPATH, &_DZDOC_BROWSE_GET_KEY_CHKNUM }; static char *_DZDOC_BROWSE_GET_KEY_guidance[] = { "Read d/s of a RZ key into memory" }; static KmCommand _DZDOC_BROWSE_GET_KEY = { &_DZDOC_BROWSE_SH_KEY, "/DZDOC/BROWSE/GET_KEY", "GET_KEY", 0, 2, 2, 2, _DZDOC_BROWSE_GET_KEY_parameters, 0, 0, dzdgky_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 1, _DZDOC_BROWSE_GET_KEY_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmParameter _DZDOC_BROWSE_SHOW_RZS_CHPATH = { "CHPATH", 6, "Rz directory", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter *_DZDOC_BROWSE_SHOW_RZS_parameters[] = { &_DZDOC_BROWSE_SHOW_RZS_CHPATH }; static char *_DZDOC_BROWSE_SHOW_RZS_guidance[] = { "Show status of a RZ file" }; static KmCommand _DZDOC_BROWSE_SHOW_RZS = { &_DZDOC_BROWSE_GET_KEY, "/DZDOC/BROWSE/SHOW_RZS", "SHOW_RZS", 0, 2, 1, 1, _DZDOC_BROWSE_SHOW_RZS_parameters, 0, 0, dzdsrs_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 1, _DZDOC_BROWSE_SHOW_RZS_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmParInt _DZDOC_BROWSE_PT_VECT_IDBANK_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_BROWSE_PT_VECT_IDBANK = { "IDBANK", 6, "Int Bank Id (DONT TOUCH)", "0", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_BROWSE_PT_VECT_IDBANK_type }; static KmParInt _DZDOC_BROWSE_PT_VECT_IDHIST_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_BROWSE_PT_VECT_IDHIST = { "IDHIST", 6, "Histogram Id", "12345", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_BROWSE_PT_VECT_IDHIST_type }; static KmParameter _DZDOC_BROWSE_PT_VECT_CHVECT = { "CHVECT", 6, "Vector Name", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParInt _DZDOC_BROWSE_PT_VECT_IFWORD_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_BROWSE_PT_VECT_IFWORD = { "IFWORD", 6, "First word", "0", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_BROWSE_PT_VECT_IFWORD_type }; static KmParInt _DZDOC_BROWSE_PT_VECT_ILWORD_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_BROWSE_PT_VECT_ILWORD = { "ILWORD", 6, "Last word", "0", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_BROWSE_PT_VECT_ILWORD_type }; static char *_DZDOC_BROWSE_PT_VECT_CHOPT_range[] = { "DRAW", "PLOT", " " }; static char *_DZDOC_BROWSE_PT_VECT_CHOPT_text[] = { (char*)0, (char*)0, (char*)0 }; static KmParOption _DZDOC_BROWSE_PT_VECT_CHOPT_type = { _DZDOC_BROWSE_PT_VECT_CHOPT_text, (int*)0, (int*)0 }; static KmParameter _DZDOC_BROWSE_PT_VECT_CHOPT = { "CHOPT", 5, "Option", "DRAW", (char*)0, 8, 3, _DZDOC_BROWSE_PT_VECT_CHOPT_range, 3, _DZDOC_BROWSE_PT_VECT_CHOPT_range, (KmParFlag)0, KmTYPE_OPTION, &_DZDOC_BROWSE_PT_VECT_CHOPT_type }; static KmParameter *_DZDOC_BROWSE_PT_VECT_parameters[] = { &_DZDOC_BROWSE_PT_VECT_IDBANK, &_DZDOC_BROWSE_PT_VECT_IDHIST, &_DZDOC_BROWSE_PT_VECT_CHVECT, &_DZDOC_BROWSE_PT_VECT_IFWORD, &_DZDOC_BROWSE_PT_VECT_ILWORD, &_DZDOC_BROWSE_PT_VECT_CHOPT }; static char *_DZDOC_BROWSE_PT_VECT_guidance[] = { "Put bank contents into a vector,", "If CHVECT is blank name is taken from hollerith Id.", "If IFWORD and ILWORD are 0 all data words are taken.", "With option PLOT the values are filled in a histogram", "which is then plotted (see VECTOR/PLOT), DRAW interprets", "the data words as histogram contents (VECTOR/DRAW)." }; static KmCommand _DZDOC_BROWSE_PT_VECT = { &_DZDOC_BROWSE_SHOW_RZS, "/DZDOC/BROWSE/PT_VECT", "PT_VECT", 0, 2, 6, 6, _DZDOC_BROWSE_PT_VECT_parameters, 0, 0, dzdspi_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 6, _DZDOC_BROWSE_PT_VECT_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmParInt _DZDOC_BROWSE_SH_MODIFY_IDBANK_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_BROWSE_SH_MODIFY_IDBANK = { "IDBANK", 6, "Int Bank Id (DONT TOUCH)", "0", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_BROWSE_SH_MODIFY_IDBANK_type }; static KmParInt _DZDOC_BROWSE_SH_MODIFY_IFWORD_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_BROWSE_SH_MODIFY_IFWORD = { "IFWORD", 6, "First word", " ", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_BROWSE_SH_MODIFY_IFWORD_type }; static KmParInt _DZDOC_BROWSE_SH_MODIFY_ILWORD_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_BROWSE_SH_MODIFY_ILWORD = { "ILWORD", 6, "Last word", " ", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_BROWSE_SH_MODIFY_ILWORD_type }; static KmParameter _DZDOC_BROWSE_SH_MODIFY_IVALUE = { "IVALUE", 6, "Integer value", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParReal _DZDOC_BROWSE_SH_MODIFY_RVALUE_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_BROWSE_SH_MODIFY_RVALUE = { "RVALUE", 6, "Real value", "0.", (char*)0, 12, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_REAL, &_DZDOC_BROWSE_SH_MODIFY_RVALUE_type }; static KmParameter _DZDOC_BROWSE_SH_MODIFY_CVALUE = { "CVALUE", 6, "Char*4 value", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter *_DZDOC_BROWSE_SH_MODIFY_parameters[] = { &_DZDOC_BROWSE_SH_MODIFY_IDBANK, &_DZDOC_BROWSE_SH_MODIFY_IFWORD, &_DZDOC_BROWSE_SH_MODIFY_ILWORD, &_DZDOC_BROWSE_SH_MODIFY_IVALUE, &_DZDOC_BROWSE_SH_MODIFY_RVALUE, &_DZDOC_BROWSE_SH_MODIFY_CVALUE }; static char *_DZDOC_BROWSE_SH_MODIFY_guidance[] = { "Modify data words of bank. Data words IFWORD -", "ILWORD will be filled with IVALUE, RVALUE or CVALUE", "depending on the type given in the IO-Char.", "If more than 1 word are modified the type of the", "first taken.", "The integer value is interpreted as hexadecimal if", "preceeded by $ or 16x.", "If ILWORD=0 its set to IFWORD.", "HINT+WARNING:", "If the dataword offset is <=0 you can modify system words", "on your own risk." }; static KmCommand _DZDOC_BROWSE_SH_MODIFY = { &_DZDOC_BROWSE_PT_VECT, "/DZDOC/BROWSE/SH_MODIFY", "SH_MODIFY", 0, 2, 6, 6, _DZDOC_BROWSE_SH_MODIFY_parameters, 0, 0, dzdspi_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 11, _DZDOC_BROWSE_SH_MODIFY_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmParInt _DZDOC_BROWSE_SH_DROP_IDBANK_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_BROWSE_SH_DROP_IDBANK = { "IDBANK", 6, "Int Bank Id (DONT TOUCH)", "0", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_BROWSE_SH_DROP_IDBANK_type }; static KmParOption _DZDOC_BROWSE_SH_DROP_CHOPT_type = { (char**)0, (int*)0, (int*)0 }; static KmParameter _DZDOC_BROWSE_SH_DROP_CHOPT = { "CHOPT", 5, "Option for MZDROP", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_OPTION, &_DZDOC_BROWSE_SH_DROP_CHOPT_type }; static KmParameter *_DZDOC_BROWSE_SH_DROP_parameters[] = { &_DZDOC_BROWSE_SH_DROP_IDBANK, &_DZDOC_BROWSE_SH_DROP_CHOPT }; static char *_DZDOC_BROWSE_SH_DROP_guidance[] = { "Drop bank (tree)" }; static KmCommand _DZDOC_BROWSE_SH_DROP = { &_DZDOC_BROWSE_SH_MODIFY, "/DZDOC/BROWSE/SH_DROP", "SH_DROP", 0, 2, 2, 2, _DZDOC_BROWSE_SH_DROP_parameters, 0, 0, dzdspi_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 1, _DZDOC_BROWSE_SH_DROP_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmParInt _DZDOC_BROWSE_SH_FOUT_IDBANK_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_BROWSE_SH_FOUT_IDBANK = { "IDBANK", 6, "Int Bank Id (DONT TOUCH)", "0", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_BROWSE_SH_FOUT_IDBANK_type }; static KmParInt _DZDOC_BROWSE_SH_FOUT_LUNFOU_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_BROWSE_SH_FOUT_LUNFOU = { "LUNFOU", 6, "Unit number", "0", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_BROWSE_SH_FOUT_LUNFOU_type }; static KmParameter _DZDOC_BROWSE_SH_FOUT_CHBANK = { "CHBANK", 6, "Holl Id", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParOption _DZDOC_BROWSE_SH_FOUT_CHOPT_type = { (char**)0, (int*)0, (int*)0 }; static KmParameter _DZDOC_BROWSE_SH_FOUT_CHOPT = { "CHOPT", 5, "Option for FZOUT", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_OPTION, &_DZDOC_BROWSE_SH_FOUT_CHOPT_type }; static KmParameter _DZDOC_BROWSE_SH_FOUT_CHEAD = { "CHEAD", 5, "Write user header", "Yes", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter *_DZDOC_BROWSE_SH_FOUT_parameters[] = { &_DZDOC_BROWSE_SH_FOUT_IDBANK, &_DZDOC_BROWSE_SH_FOUT_LUNFOU, &_DZDOC_BROWSE_SH_FOUT_CHBANK, &_DZDOC_BROWSE_SH_FOUT_CHOPT, &_DZDOC_BROWSE_SH_FOUT_CHEAD }; static char *_DZDOC_BROWSE_SH_FOUT_guidance[] = { "Write bank tree to FZFILE" }; static KmCommand _DZDOC_BROWSE_SH_FOUT = { &_DZDOC_BROWSE_SH_DROP, "/DZDOC/BROWSE/SH_FOUT", "SH_FOUT", 0, 2, 5, 5, _DZDOC_BROWSE_SH_FOUT_parameters, 0, 0, dzdspi_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 1, _DZDOC_BROWSE_SH_FOUT_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmParInt _DZDOC_BROWSE_MARK_NT_IDBANK_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_BROWSE_MARK_NT_IDBANK = { "IDBANK", 6, "Int Bank Id (DONT TOUCH)", "0", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_BROWSE_MARK_NT_IDBANK_type }; static char *_DZDOC_BROWSE_MARK_NT_CHOPT_range[] = { "Single", "Array" }; static char *_DZDOC_BROWSE_MARK_NT_CHOPT_text[] = { (char*)0, (char*)0 }; static KmParOption _DZDOC_BROWSE_MARK_NT_CHOPT_type = { _DZDOC_BROWSE_MARK_NT_CHOPT_text, (int*)0, (int*)0 }; static KmParameter _DZDOC_BROWSE_MARK_NT_CHOPT = { "CHOPT", 5, "Single variable or array", "Array", (char*)0, 8, 2, _DZDOC_BROWSE_MARK_NT_CHOPT_range, 2, _DZDOC_BROWSE_MARK_NT_CHOPT_range, (KmParFlag)0, KmTYPE_OPTION, &_DZDOC_BROWSE_MARK_NT_CHOPT_type }; static KmParInt _DZDOC_BROWSE_MARK_NT_IWORDF_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_BROWSE_MARK_NT_IWORDF = { "IWORDF", 6, "First word number", "0", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_BROWSE_MARK_NT_IWORDF_type }; static KmParInt _DZDOC_BROWSE_MARK_NT_IWORDL_type = { (char*)0, (char*)0, (char*)0, (char*)0, 0 }; static KmParameter _DZDOC_BROWSE_MARK_NT_IWORDL = { "IWORDL", 6, "Last word number", "0", (char*)0, 8, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_INT, &_DZDOC_BROWSE_MARK_NT_IWORDL_type }; static KmParameter _DZDOC_BROWSE_MARK_NT_CHNAME = { "CHNAME", 6, "Mnemonic (variable name)", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter _DZDOC_BROWSE_MARK_NT_COPT = { "COPT", 4, "Option", " ", (char*)0, 20, 0, (char**)0, 0, (char**)0, (KmParFlag)0, KmTYPE_CHAR, (void*)0 }; static KmParameter *_DZDOC_BROWSE_MARK_NT_parameters[] = { &_DZDOC_BROWSE_MARK_NT_IDBANK, &_DZDOC_BROWSE_MARK_NT_CHOPT, &_DZDOC_BROWSE_MARK_NT_IWORDF, &_DZDOC_BROWSE_MARK_NT_IWORDL, &_DZDOC_BROWSE_MARK_NT_CHNAME, &_DZDOC_BROWSE_MARK_NT_COPT }; static char *_DZDOC_BROWSE_MARK_NT_guidance[] = { "Mark data word(s) for Ntuple. An explicit word number", "or range of words may be given, in this case CHNAME is", "only used as a tag.", "If blank its defaulted to: Bankid+IWORD (8 Characters)", "If IWORDF is 0, it is assumed that a bank doc is available,", "and CHNAME is the name of a variable in the doc.", "If used with the option \"array\" all values with this name", "in the bank will be filled (max. 100)", "CHBANK: internal bank numbering, dont touch", "CHOPT: Switch between single variables and arrays.", " 'single' mark a single (scalar) variable", " 'array' put each occurence of a variable in bank", " into an array and call HFNT once per event", "IWORDF:", " if > 0 data", " -1 length of bank (not yet implemented)", " -2 number of links (nyi)", " -5 numerical Id of bank (nyi)", " -10 the link offset (Jbias of bank in Upbank) (nyi)", "IWORDL:", " > IWORDF last word to be marked (only with \"array\")", "Option: 'L' loop on all other links (Jbias) to this bank", " in Upbank or on all next banks if it is part", " of a linear structure (nyi)" }; static KmCommand _DZDOC_BROWSE_MARK_NT = { &_DZDOC_BROWSE_SH_FOUT, "/DZDOC/BROWSE/MARK_NT", "MARK_NT", 0, 2, 6, 6, _DZDOC_BROWSE_MARK_NT_parameters, 0, 0, dzdspi_, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 24, _DZDOC_BROWSE_MARK_NT_guidance, 0, (char**)0, (char*)0, (int*)0 }; static char *_DZDOC_BROWSE_guidance[] = { "The commands in this menu are accessible only via the browser", "since they need as argument an identification given internally", "by the callback routine." }; static KmMenu _DZDOC_BROWSE = { (KmMenu*)0, (KmMenu*)0, "/DZDOC/BROWSE", "BROWSE", 2, &_DZDOC_BROWSE_MARK_NT, 3, _DZDOC_BROWSE_guidance }; static KmMenu _DZDOC_Bankdisplay = { &_DZDOC_BROWSE, (KmMenu*)0, "/DZDOC/Bankdisplay", "Bankdisplay", 2, &_DZDOC_Bankdisplay_TREE, 0, (char**)0 }; static KmMenu _DZDOC_File = { &_DZDOC_Bankdisplay, (KmMenu*)0, "/DZDOC/File", "File", 2, &_DZDOC_File_OPEN_DOC, 0, (char**)0 }; static char *_DZDOC_Set_par_guidance[] = { "Set various parameters:", "Enable/disable workstation activation.", "Select the two keys and the cycle to be shown by the browser.", "DZDOC may optionally use a different window (workstation IWKID).", "for its output.", "CDZOPT Option when calling DZSHOW" }; static KmMenu _DZDOC_Set_par = { &_DZDOC_File, (KmMenu*)0, "/DZDOC/Set_par", "Set_par", 2, &_DZDOC_Set_par_BANKCOLOR, 6, _DZDOC_Set_par_guidance }; static char *_DZDOC_HELP_ZEBRA_guidance[] = { ". *** The Zebra-Browser ***", "", "Selecting \"Zebra\" from the KUIP object browser will display", "an icon for each Zebra store, for each open Fzfile and each", "open Rzfile. A store is named with its number plus the name", "given to MZSTOR with slashes (/) replaced by underscores (_).", "A Fzfile is named with the logical unit number, a Rzfile with", "the top directory given to it by RZFILE.", "", "", "Double click in the store symbol will display icons for the", "divisions in this store, clicking the divisions will display", "the banks im this divisions, clicking a bank will show the", "tree for this bank in the graphics window (see DZDISP).", "Popup menus (use right mouse key) are provided which allow to", "print information on stores, divisions and banks (DZSTOR,", "DZSNAP, DZSURV). The layout of banks in divisions can be", "shown graphically by the command 'Display_division'.", "", "", "Double click in the FZfile symbol will read the next data", "structure from the file into division 1 of store 0 and", "display the bank tree for the top bank in the graphics", "window. A popup menu allows to read the User header only,", "to display information (see FZINFO) on the file or close the", "file. Trying to read beyond End of Data will force the", "file to be rewound to avoid exit via ZFATAL.", "", "", "Double click in the RZfile symbol will display directories", "and/or keys contained in the file. Double click on a key", "symbol will read the data structure for this key into", "division 1 of store 0 and display the bank tree for the", "top bank in ths graphics window. Show status (RZSTAT) and", "close are accessible by a popup menu.", "", ". **** Embedded DZDOC ****", "", "The Zebra browser popup menus give access to parts of the", "DZDOC package. DZDOC allows to describe Zebra banks (linkage", "and data words) with a defined format.", "It puts this description into a Rzfile for direct access", "and makes it available to DZDISP which can then display the", "data words of a bank together with their meaning.", "", "", "Opening, updating and using of the Rzfile can be done in the", "same session. The file is opened via the menu item", "'Open_bank_doc_Rzfile', one has to choose if it should be", "opened 'New' for 'Update' or 'Readonly'.", "Information can put into the file using the item", "'Put_doc_into_Rzfile', for more information see help for this", "command.", "", "An alternative way is to use the item 'Edit_documentation' in", "the popup menu associated with each bank (in the browser or", "graphics window). In this case the editor is called with the", "documentation contained in an (open) Rzfile if it is there.", "If not a template with the documentation generated from the", "selected bank in memory is presented in the editor.", "If the file gets modified the documentation will be put into", "the Rzfile if it is open for update. Note that the file", "naming convention uses the hollerith Id of a bank", "concatinated with the Id of its up-bank ('none' for a top", "bank) with the extension '.dzdoc'.", "", "", ". **** Vector/histogram filling ****", "", "The data words of a bank may be copied into a KUIP vector which", "is optionally directly plotted or drawn (VECTOR/PLOT or DRAW).", "This is done from the popup menu in the graphics or Icon", "display of the ZEBRA banks. The vectors may then further be", "manipulated by all the commands of the vector package.", "This only works within paw++ where the VECTOR facilities are", "linked in.", "", "", ". **** Ntuple filling ****", "", "A simple facility is provided to mark words in a data structure", "read from an FZ-file for filling into a Ntuple. The entries may", "be scalar variables (i.e. one value of a bank) or arrays.", "Marking of data words may be done explicitly giving the absolute", "offset in a bank (a range in case of an array) or symbolically", "if a (correct) documentation for the bank is available. In the", "second case all values of a variable (max 100) in a bank are", "extracted and filled into the Ntuple.", "", "The marking is done from the popup menu associated to banks in", "the graphics display, the system finds and remembers the links", "to the bank.", "", "Filling is controlled from the popup menu for the FZ-file icon.", "For further details consult the Help items for these commands." }; static KmCommand _DZDOC_HELP_ZEBRA = { (KmCommand*)0, "/DZDOC/HELP_ZEBRA", "HELP_ZEBRA", 0, 1, 0, 0, (KmParameter**)0, 0, 0, (SUBROUTINE*)0, (IntFunc*)0, (SUBROUTINE*)0, (IntFunc*)0, 95, _DZDOC_HELP_ZEBRA_guidance, 0, (char**)0, (char*)0, (int*)0 }; static KmMenu _DZDOC = { (KmMenu*)0, &_DZDOC_Set_par, "/DZDOC", "DZDOC", 1, &_DZDOC_HELP_ZEBRA, 0, (char**)0 }; static BrAction brclass_1_root_5 = { (BrAction*)0, (BrActFlag)16, "Display bank tree", (char*)0, (char*)0, "DZDOC/BANKDISPLAY/TREE", (SUBROUTINE*)0, (IntFunc*)0, BRACT_ROOT, (BrClass*)0 }; static BrAction brclass_1_root_4 = { &brclass_1_root_5, (BrActFlag)16, "Put doc into Rzfile", (char*)0, (char*)0, "DZDOC/FILE/EDIT_DOC", (SUBROUTINE*)0, (IntFunc*)0, BRACT_ROOT, (BrClass*)0 }; static BrAction brclass_1_root_3 = { &brclass_1_root_4, (BrActFlag)16, "Add doc directory", (char*)0, (char*)0, "DZDOC/FILE/DIR_ADD", (SUBROUTINE*)0, (IntFunc*)0, BRACT_ROOT, (BrClass*)0 }; static BrAction brclass_1_root_2 = { &brclass_1_root_3, (BrActFlag)16, "Open bank doc Rzfile", (char*)0, (char*)0, "DZDOC/FILE/OPEN_DOC", (SUBROUTINE*)0, (IntFunc*)0, BRACT_ROOT, (BrClass*)0 }; static BrAction brclass_1_root_1 = { &brclass_1_root_2, (BrActFlag)16, "List", (char*)0, (char*)0, (char*)0, (SUBROUTINE*)0, (IntFunc*)0, BRACT_ROOT, (BrClass*)0 }; static BrClass brclass_1 = { (BrClass*)0, "Zebra", " ", dzdzeb_, (pCharFunc*)0, (SUBROUTINE*)0, (pCharFunc*)0, &brclass_1_root_1, (BrAction*)0 }; static BrAction kmclass_7_cont_8 = { (BrAction*)0, (BrActFlag)16, "Close Fzfile", (char*)0, (char*)0, "BROWSE/CLOSE_FZ [that]", (SUBROUTINE*)0, (IntFunc*)0, BRACT_CONT, (BrClass*)0 }; static BrAction kmclass_7_cont_7 = { &kmclass_7_cont_8, (BrActFlag)16, "Rewind Fzfile", (char*)0, (char*)0, "BROWSE/REWIND_FZ [that]", (SUBROUTINE*)0, (IntFunc*)0, BRACT_CONT, (BrClass*)0 }; static BrAction kmclass_7_cont_6 = { &kmclass_7_cont_7, (BrActFlag)16, "Set logging level", (char*)0, (char*)0, "BROWSE/FZ_LOG_LEVEL [that]", (SUBROUTINE*)0, (IntFunc*)0, BRACT_CONT, (BrClass*)0 }; static BrAction kmclass_7_cont_5 = { &kmclass_7_cont_6, (BrActFlag)16, "Show Fzfile info", (char*)0, (char*)0, "BROWSE/SH_FZINFO [that]", (SUBROUTINE*)0, (IntFunc*)0, BRACT_CONT, (BrClass*)0 }; static BrAction kmclass_7_cont_4 = { &kmclass_7_cont_5, (BrActFlag)16, "Fill Ntuple", (char*)0, (char*)0, "BROWSE/FILL_NTUPLE [that]", (SUBROUTINE*)0, (IntFunc*)0, BRACT_CONT, (BrClass*)0 }; static BrAction kmclass_7_cont_3 = { &kmclass_7_cont_4, (BrActFlag)16, "Get the pending d/s ", (char*)0, (char*)0, "BROWSE/GET_PDS [that] D", (SUBROUTINE*)0, (IntFunc*)0, BRACT_CONT, (BrClass*)0 }; static BrAction kmclass_7_cont_2 = { &kmclass_7_cont_3, (BrActFlag)16, "Get user header", (char*)0, (char*)0, "BROWSE/GET_HEAD [that] D", (SUBROUTINE*)0, (IntFunc*)0, BRACT_CONT, (BrClass*)0 }; static BrAction kmclass_7_cont_1 = { &kmclass_7_cont_2, (BrActFlag)16, "Get event (head + d/s)", (char*)0, (char*)0, "BROWSE/GET_EVENT [that] D", (SUBROUTINE*)0, (IntFunc*)0, BRACT_CONT, (BrClass*)0 }; static KmClass kmclass_7 = { (KmClass*)0, 0, "FZ", "Fzfiles", "fzfile", (KmIcon*)0, "sm_dir", (KmIcon*)0, (SUBROUTINE*)0, (IntFunc*)0, &kmclass_7_cont_1, (BrAction*)0, 0 }; static BrAction kmclass_6_cont_4 = { (BrAction*)0, (BrActFlag)16, "Set filter on keys", (char*)0, (char*)0, "BROWSE/FILT_KEY", (SUBROUTINE*)0, (IntFunc*)0, BRACT_CONT, (BrClass*)0 }; static BrAction kmclass_6_cont_3 = { &kmclass_6_cont_4, (BrActFlag)16, "Show key words", (char*)0, (char*)0, "BROWSE/SH_KEY [path] [that]", (SUBROUTINE*)0, (IntFunc*)0, BRACT_CONT, (BrClass*)0 }; static BrAction kmclass_6_cont_2 = { &kmclass_6_cont_3, (BrActFlag)16, "Show key definition", (char*)0, (char*)0, "BROWSE/SH_KEY_DEF [path]/[this]", (SUBROUTINE*)0, (IntFunc*)0, BRACT_CONT, (BrClass*)0 }; static BrAction kmclass_6_cont_1 = { &kmclass_6_cont_2, (BrActFlag)16, "Read key into memory", (char*)0, (char*)0, "BROWSE/GET_KEY [path] [that]", (SUBROUTINE*)0, (IntFunc*)0, BRACT_CONT, (BrClass*)0 }; static KmClass kmclass_6 = { &kmclass_7, 0, "key", "Keys", "big_key", (KmIcon*)0, "sm_key", (KmIcon*)0, (SUBROUTINE*)0, (IntFunc*)0, &kmclass_6_cont_1, (BrAction*)0, 0 }; static BrAction kmclass_5_cont_4 = { (BrAction*)0, (BrActFlag)16, "Set filter on keys", (char*)0, (char*)0, "BROWSE/FILT_KEY", (SUBROUTINE*)0, (IntFunc*)0, BRACT_CONT, (BrClass*)0 }; static BrAction kmclass_5_cont_3 = { &kmclass_5_cont_4, (BrActFlag)16, "Show key definition", (char*)0, (char*)0, "BROWSE/SH_KEY_DEF [path]/[this]", (SUBROUTINE*)0, (IntFunc*)0, BRACT_CONT, (BrClass*)0 }; static BrAction kmclass_5_cont_2 = { &kmclass_5_cont_3, (BrActFlag)16, "List directory (RZLDIR)", (char*)0, (char*)0, "BROWSE/SH_RZLDIR [path]/[this]", (SUBROUTINE*)0, (IntFunc*)0, BRACT_CONT, (BrClass*)0 }; static BrAction kmclass_5_cont_1 = { &kmclass_5_cont_2, (BrActFlag)16, "List", (char*)0, (char*)0, (char*)0, (SUBROUTINE*)0, (IntFunc*)0, BRACT_CONT, (BrClass*)0 }; static KmClass kmclass_5 = { &kmclass_6, 1, "rzdir", "Rz-directory", "rzdir", (KmIcon*)0, "sm_dir", (KmIcon*)0, (SUBROUTINE*)0, (IntFunc*)0, &kmclass_5_cont_1, (BrAction*)0, 0 }; static BrAction kmclass_4_cont_3 = { (BrAction*)0, (BrActFlag)16, "Show status", (char*)0, (char*)0, "BROWSE/SHOW_RZS [this]", (SUBROUTINE*)0, (IntFunc*)0, BRACT_CONT, (BrClass*)0 }; static BrAction kmclass_4_cont_2 = { &kmclass_4_cont_3, (BrActFlag)16, "Close Rzfile", (char*)0, (char*)0, "BROWSE/CLOSE_RZ [this]", (SUBROUTINE*)0, (IntFunc*)0, BRACT_CONT, (BrClass*)0 }; static BrAction kmclass_4_cont_1 = { &kmclass_4_cont_2, (BrActFlag)16, "List", (char*)0, (char*)0, (char*)0, (SUBROUTINE*)0, (IntFunc*)0, BRACT_CONT, (BrClass*)0 }; static KmClass kmclass_4 = { &kmclass_5, 1, "rzfil", "Rzfile", "rzfile", (KmIcon*)0, "sm_dir", (KmIcon*)0, (SUBROUTINE*)0, (IntFunc*)0, &kmclass_4_cont_1, (BrAction*)0, 0 }; static BrAction kmclass_3_cont_11 = { (BrAction*)0, (BrActFlag)16, "Write fo FZ file", (char*)0, (char*)0, "BROWSE/SH_FOUT [that]", (SUBROUTINE*)0, (IntFunc*)0, BRACT_CONT, (BrClass*)0 }; static BrAction kmclass_3_cont_10 = { &kmclass_3_cont_11, (BrActFlag)16, "Drop bank (tree)", (char*)0, (char*)0, "BROWSE/SH_DROP [that]", (SUBROUTINE*)0, (IntFunc*)0, BRACT_CONT, (BrClass*)0 }; static BrAction kmclass_3_cont_9 = { &kmclass_3_cont_10, (BrActFlag)16, "Modify data words", (char*)0, (char*)0, "BROWSE/SH_MODIFY [that]", (SUBROUTINE*)0, (IntFunc*)0, BRACT_CONT, (BrClass*)0 }; static BrAction kmclass_3_cont_8 = { &kmclass_3_cont_9, (BrActFlag)16, "Edit documention", (char*)0, (char*)0, " ", dzdb08_, (IntFunc*)0, BRACT_CONT, (BrClass*)0 }; static BrAction kmclass_3_cont_7 = { &kmclass_3_cont_8, (BrActFlag)16, "Show documention", (char*)0, (char*)0, " ", dzdb07_, (IntFunc*)0, BRACT_CONT, (BrClass*)0 }; static BrAction kmclass_3_cont_6 = { &kmclass_3_cont_7, (BrActFlag)16, "Put into vector", (char*)0, (char*)0, "BROWSE/PT_VECT [that]", (SUBROUTINE*)0, (IntFunc*)0, BRACT_CONT, (BrClass*)0 }; static BrAction kmclass_3_cont_5 = { &kmclass_3_cont_6, (BrActFlag)16, "Survey bank tree", (char*)0, (char*)0, " ", dzdb06_, (IntFunc*)0, BRACT_CONT, (BrClass*)0 }; static BrAction kmclass_3_cont_4 = { &kmclass_3_cont_5, (BrActFlag)16, "Show system words", (char*)0, (char*)0, " ", dzdb05_, (IntFunc*)0, BRACT_CONT, (BrClass*)0 }; static BrAction kmclass_3_cont_3 = { &kmclass_3_cont_4, (BrActFlag)16, "DZ Show contents", (char*)0, (char*)0, " ", dzdb04_, (IntFunc*)0, BRACT_CONT, (BrClass*)0 }; static BrAction kmclass_3_cont_2 = { &kmclass_3_cont_3, (BrActFlag)16, "Show cont documentd", (char*)0, (char*)0, " ", dzdb03_, (IntFunc*)0, BRACT_CONT, (BrClass*)0 }; static BrAction kmclass_3_cont_1 = { &kmclass_3_cont_2, (BrActFlag)16, "Display bank tree", (char*)0, (char*)0, " ", dzdb01_, (IntFunc*)0, BRACT_CONT, (BrClass*)0 }; static BrAction kmclass_3_graf_13 = { (BrAction*)0, (BrActFlag)16, "Write fo FZ file", (char*)0, (char*)0, "BROWSE/SH_FOUT -[this]", (SUBROUTINE*)0, (IntFunc*)0, BRACT_GRAF, (BrClass*)0 }; static BrAction kmclass_3_graf_12 = { &kmclass_3_graf_13, (BrActFlag)16, "Drop bank (tree)", (char*)0, (char*)0, "BROWSE/SH_DROP -[this]", (SUBROUTINE*)0, (IntFunc*)0, BRACT_GRAF, (BrClass*)0 }; static BrAction kmclass_3_graf_11 = { &kmclass_3_graf_12, (BrActFlag)16, "Modify data words", (char*)0, (char*)0, "BROWSE/SH_MODIFY -[this]", (SUBROUTINE*)0, (IntFunc*)0, BRACT_GRAF, (BrClass*)0 }; static BrAction kmclass_3_graf_10 = { &kmclass_3_graf_11, (BrActFlag)16, "Mark for Ntuple", (char*)0, (char*)0, "BROWSE/MARK_NT -[this]", (SUBROUTINE*)0, (IntFunc*)0, BRACT_GRAF, (BrClass*)0 }; static BrAction kmclass_3_graf_9 = { &kmclass_3_graf_10, (BrActFlag)16, "Edit documention", (char*)0, (char*)0, " ", dzdb18_, (IntFunc*)0, BRACT_GRAF, (BrClass*)0 }; static BrAction kmclass_3_graf_8 = { &kmclass_3_graf_9, (BrActFlag)16, "Show documention", (char*)0, (char*)0, " ", dzdb17_, (IntFunc*)0, BRACT_GRAF, (BrClass*)0 }; static BrAction kmclass_3_graf_7 = { &kmclass_3_graf_8, (BrActFlag)16, "Put into vector", (char*)0, (char*)0, "BROWSE/PT_VECT -[this]", (SUBROUTINE*)0, (IntFunc*)0, BRACT_GRAF, (BrClass*)0 }; static BrAction kmclass_3_graf_6 = { &kmclass_3_graf_7, (BrActFlag)16, "Survey bank tree", (char*)0, (char*)0, " ", dzdb16_, (IntFunc*)0, BRACT_GRAF, (BrClass*)0 }; static BrAction kmclass_3_graf_5 = { &kmclass_3_graf_6, (BrActFlag)16, "Show sytem words", (char*)0, (char*)0, " ", dzdb15_, (IntFunc*)0, BRACT_GRAF, (BrClass*)0 }; static BrAction kmclass_3_graf_4 = { &kmclass_3_graf_5, (BrActFlag)16, "DZ Show contents", (char*)0, (char*)0, " ", dzdb14_, (IntFunc*)0, BRACT_GRAF, (BrClass*)0 }; static BrAction kmclass_3_graf_3 = { &kmclass_3_graf_4, (BrActFlag)16, "Show cont documentd", (char*)0, (char*)0, " ", dzdb13_, (IntFunc*)0, BRACT_GRAF, (BrClass*)0 }; static BrAction kmclass_3_graf_2 = { &kmclass_3_graf_3, (BrActFlag)16, "More down banks", (char*)0, (char*)0, " ", dzdb12_, (IntFunc*)0, BRACT_GRAF, (BrClass*)0 }; static BrAction kmclass_3_graf_1 = { &kmclass_3_graf_2, (BrActFlag)16, "Display bank tree", (char*)0, (char*)0, " ", dzdb11_, (IntFunc*)0, BRACT_GRAF, (BrClass*)0 }; static KmClass kmclass_3 = { &kmclass_4, 0, "BANK", "Banks", "big_bank", (KmIcon*)0, "sm_key", (KmIcon*)0, (SUBROUTINE*)0, (IntFunc*)0, &kmclass_3_cont_1, &kmclass_3_graf_1, 0 }; static BrAction kmclass_2_cont_6 = { (BrAction*)0, (BrActFlag)16, "Set filter for banks", (char*)0, (char*)0, "BROWSE/FILT_BANKS", (SUBROUTINE*)0, (IntFunc*)0, BRACT_CONT, (BrClass*)0 }; static BrAction kmclass_2_cont_5 = { &kmclass_2_cont_6, (BrActFlag)16, "Collect garbage", (char*)0, (char*)0, "BROWSE/COL_GARB [this]", (SUBROUTINE*)0, (IntFunc*)0, BRACT_CONT, (BrClass*)0 }; static BrAction kmclass_2_cont_4 = { &kmclass_2_cont_5, (BrActFlag)16, "Verify division", (char*)0, (char*)0, "BROWSE/VERIFY_DIV [this]", (SUBROUTINE*)0, (IntFunc*)0, BRACT_CONT, (BrClass*)0 }; static BrAction kmclass_2_cont_3 = { &kmclass_2_cont_4, (BrActFlag)16, "Snap division", (char*)0, (char*)0, "BROWSE/SNAP_DIV [this]", (SUBROUTINE*)0, (IntFunc*)0, BRACT_CONT, (BrClass*)0 }; static BrAction kmclass_2_cont_2 = { &kmclass_2_cont_3, (BrActFlag)16, "Display division", (char*)0, (char*)0, "BROWSE/SHOW_DIV [this]", (SUBROUTINE*)0, (IntFunc*)0, BRACT_CONT, (BrClass*)0 }; static BrAction kmclass_2_cont_1 = { &kmclass_2_cont_2, (BrActFlag)16, "List", (char*)0, (char*)0, (char*)0, (SUBROUTINE*)0, (IntFunc*)0, BRACT_CONT, (BrClass*)0 }; static KmClass kmclass_2 = { &kmclass_3, 1, "DIV", "Divisions", "big_div", (KmIcon*)0, "sm_key", (KmIcon*)0, (SUBROUTINE*)0, (IntFunc*)0, &kmclass_2_cont_1, (BrAction*)0, 0 }; static BrAction kmclass_1_cont_2 = { (BrAction*)0, (BrActFlag)16, "Show store DZSTOR", (char*)0, (char*)0, "SHOW_STORE [this]", (SUBROUTINE*)0, (IntFunc*)0, BRACT_CONT, (BrClass*)0 }; static BrAction kmclass_1_cont_1 = { &kmclass_1_cont_2, (BrActFlag)16, "List", (char*)0, (char*)0, (char*)0, (SUBROUTINE*)0, (IntFunc*)0, BRACT_CONT, (BrClass*)0 }; static KmClass kmclass_1 = { &kmclass_2, 1, "STORE", "Stores", "big_store", (KmIcon*)0, "sm_dir", (KmIcon*)0, (SUBROUTINE*)0, (IntFunc*)0, &kmclass_1_cont_1, (BrAction*)0, 0 }; static char kmicons_13_bitmap[] = { 255, 255, 15, 1, 0, 8, 1, 0, 12, 81, 85, 13, 169, 170, 14, 1, 21, 12, 41, 128, 14, 81, 85, 13, 169, 170, 14, 81, 85, 13, 169, 170, 14, 81, 85, 13, 169, 170, 14, 81, 85, 13, 253, 255, 15, 255, 255, 15 }; static KmIcon kmicons_13 = { (KmIcon*)0, "sm_dir", 20, 16, kmicons_13_bitmap, (KmPixmap)0, (KmPixmap)0 }; static char kmicons_12_bitmap[] = { 255, 255, 15, 1, 0, 8, 1, 0, 12, 169, 170, 14, 241, 255, 13, 25, 0, 15, 241, 255, 13, 217, 182, 15, 177, 109, 13, 153, 36, 15, 241, 255, 13, 217, 182, 15, 177, 109, 13, 249, 255, 15, 145, 36, 13, 185, 109, 15, 241, 255, 13, 169, 170, 14, 253, 255, 15, 255, 255, 15 }; static KmIcon kmicons_12 = { &kmicons_13, "sm_key", 20, 20, kmicons_12_bitmap, (KmPixmap)0, (KmPixmap)0 }; static char kmicons_11_bitmap[] = { 255, 255, 255, 63, 1, 0, 0, 32, 1, 0, 0, 48, 169, 170, 170, 58, 81, 85, 85, 53, 249, 255, 255, 63, 17, 0, 0, 52, 25, 0, 0, 60, 241, 255, 255, 55, 89, 85, 181, 62, 49, 51, 19, 52, 25, 17, 49, 60, 241, 255, 255, 55, 89, 85, 181, 62, 49, 51, 19, 52, 25, 17, 49, 60, 241, 255, 255, 55, 89, 85, 181, 62, 49, 51, 19, 52, 25, 17, 49, 60, 241, 255, 255, 55, 89, 85, 181, 62, 49, 51, 19, 52, 25, 17, 49, 60, 49, 51, 19, 52, 249, 255, 255, 63, 81, 85, 85, 53, 169, 170, 170, 58, 253, 255, 255, 63, 255, 255, 255, 63 }; static KmIcon kmicons_11 = { &kmicons_12, "big_key1", 30, 30, kmicons_11_bitmap, (KmPixmap)0, (KmPixmap)0 }; static char kmicons_10_bitmap[] = { 0, 240, 7, 0, 0, 14, 56, 0, 128, 1, 192, 0, 64, 224, 3, 1, 32, 252, 31, 2, 16, 254, 63, 4, 8, 255, 127, 8, 136, 255, 255, 8, 196, 255, 255, 17, 228, 255, 255, 19, 228, 255, 255, 19, 226, 31, 252, 39, 242, 15, 248, 39, 242, 15, 248, 39, 242, 15, 248, 39, 242, 15, 248, 39, 242, 15, 248, 39, 226, 31, 252, 39, 228, 255, 255, 19, 228, 255, 255, 19, 196, 255, 255, 17, 136, 255, 255, 8, 8, 255, 127, 8, 16, 254, 63, 4, 32, 252, 31, 2, 64, 224, 3, 1, 128, 1, 192, 0, 0, 14, 56, 0, 0, 240, 7, 0, 0, 0, 0, 0 }; static KmIcon kmicons_10 = { &kmicons_11, "big_tape", 30, 30, kmicons_10_bitmap, (KmPixmap)0, (KmPixmap)0 }; static char kmicons_9_bitmap[] = { 255, 255, 255, 63, 1, 0, 0, 32, 1, 0, 0, 32, 1, 0, 0, 32, 1, 254, 255, 33, 1, 255, 255, 35, 129, 255, 255, 35, 193, 255, 255, 35, 225, 255, 255, 35, 241, 255, 255, 35, 241, 31, 252, 35, 241, 143, 248, 35, 241, 7, 240, 35, 241, 199, 241, 35, 241, 71, 241, 35, 241, 199, 241, 35, 241, 23, 244, 35, 241, 15, 248, 35, 241, 31, 252, 35, 241, 255, 255, 35, 241, 255, 255, 35, 241, 255, 255, 35, 241, 255, 255, 35, 241, 255, 255, 35, 241, 255, 255, 35, 225, 255, 255, 33, 1, 0, 0, 32, 1, 0, 0, 32, 1, 0, 0, 32, 255, 255, 255, 63 }; static KmIcon kmicons_9 = { &kmicons_10, "big_cart", 30, 30, kmicons_9_bitmap, (KmPixmap)0, (KmPixmap)0 }; static char kmicons_8_bitmap[] = { 255, 255, 255, 63, 1, 0, 0, 32, 1, 0, 0, 32, 249, 15, 0, 32, 1, 0, 0, 32, 1, 0, 0, 32, 249, 255, 3, 32, 1, 0, 0, 32, 1, 0, 0, 32, 249, 255, 127, 32, 1, 0, 0, 32, 1, 0, 0, 32, 1, 0, 0, 32, 193, 127, 254, 35, 193, 127, 254, 35, 193, 0, 128, 35, 193, 0, 192, 33, 193, 0, 224, 32, 193, 15, 112, 32, 193, 15, 112, 32, 193, 0, 56, 32, 193, 0, 28, 32, 193, 0, 14, 32, 193, 0, 254, 35, 193, 0, 254, 35, 1, 0, 0, 32, 1, 0, 0, 32, 1, 0, 0, 32, 1, 0, 0, 32, 255, 255, 255, 63 }; static KmIcon kmicons_8 = { &kmicons_9, "big_fzfile", 30, 30, kmicons_8_bitmap, (KmPixmap)0, (KmPixmap)0 }; static char kmicons_7_bitmap[] = { 0, 0, 0, 0, 0, 0, 0, 0, 0, 6, 0, 24, 0, 255, 255, 31, 128, 255, 255, 31, 192, 6, 0, 30, 120, 6, 96, 27, 248, 255, 255, 25, 248, 255, 255, 24, 24, 6, 96, 24, 24, 6, 96, 24, 24, 6, 96, 24, 24, 255, 255, 31, 152, 6, 96, 28, 88, 6, 96, 26, 56, 0, 96, 25, 248, 255, 255, 24, 24, 6, 96, 24, 24, 254, 255, 31, 24, 255, 255, 31, 152, 7, 96, 28, 216, 6, 96, 30, 120, 0, 96, 27, 248, 255, 255, 1, 248, 255, 255, 0, 24, 0, 96, 0, 24, 0, 96, 0, 24, 0, 96, 0, 0, 0, 0, 0, 0, 0, 0, 0 }; static KmIcon kmicons_7 = { &kmicons_8, "big_store", 30, 30, kmicons_7_bitmap, (KmPixmap)0, (KmPixmap)0 }; static char kmicons_6_bitmap[] = { 255, 255, 255, 63, 129, 0, 0, 32, 129, 1, 0, 32, 193, 3, 0, 32, 65, 6, 0, 32, 161, 12, 0, 32, 49, 56, 0, 32, 25, 252, 240, 39, 137, 230, 127, 36, 205, 51, 99, 44, 45, 57, 115, 62, 25, 155, 49, 59, 1, 158, 57, 41, 1, 156, 153, 53, 1, 236, 248, 37, 1, 220, 93, 52, 1, 44, 207, 50, 1, 26, 128, 50, 1, 14, 128, 34, 1, 14, 128, 34, 1, 6, 128, 33, 1, 7, 192, 33, 1, 0, 0, 32, 225, 255, 255, 47, 49, 0, 0, 46, 249, 255, 255, 43, 89, 0, 0, 43, 89, 0, 0, 43, 25, 0, 0, 35, 255, 255, 255, 63 }; static KmIcon kmicons_6 = { &kmicons_7, "big_bank", 30, 30, kmicons_6_bitmap, (KmPixmap)0, (KmPixmap)0 }; static char kmicons_5_bitmap[] = { 255, 255, 255, 63, 1, 0, 0, 32, 1, 0, 0, 32, 241, 31, 252, 39, 249, 31, 254, 39, 253, 23, 255, 37, 37, 20, 9, 37, 5, 4, 1, 33, 5, 4, 1, 33, 1, 0, 0, 32, 1, 0, 0, 32, 1, 0, 0, 32, 241, 31, 252, 39, 249, 31, 254, 39, 253, 23, 255, 37, 37, 20, 9, 37, 5, 4, 1, 33, 5, 4, 1, 33, 1, 0, 0, 32, 1, 0, 0, 32, 1, 0, 0, 32, 1, 0, 0, 32, 241, 31, 252, 39, 249, 31, 254, 39, 253, 23, 255, 37, 37, 20, 9, 37, 5, 4, 1, 33, 5, 4, 1, 33, 1, 0, 0, 32, 255, 255, 255, 63 }; static KmIcon kmicons_5 = { &kmicons_6, "big_div", 30, 30, kmicons_5_bitmap, (KmPixmap)0, (KmPixmap)0 }; static char kmicons_4_bitmap[] = { 0, 0, 0, 192, 224, 31, 0, 192, 120, 240, 255, 207, 24, 192, 255, 207, 12, 128, 255, 207, 140, 135, 255, 207, 196, 15, 255, 207, 196, 31, 255, 207, 196, 31, 255, 207, 196, 31, 255, 207, 196, 15, 255, 207, 140, 135, 255, 207, 12, 0, 255, 207, 28, 0, 254, 207, 124, 16, 252, 207, 252, 63, 248, 207, 252, 127, 240, 207, 252, 255, 224, 207, 252, 255, 193, 207, 252, 255, 131, 207, 252, 255, 3, 207, 252, 255, 1, 206, 252, 255, 0, 206, 252, 63, 0, 207, 252, 31, 128, 207, 252, 31, 193, 207, 252, 159, 231, 207, 252, 159, 241, 207, 0, 248, 127, 192, 0, 0, 0, 192 }; static KmIcon kmicons_4 = { &kmicons_5, "big_key", 30, 30, kmicons_4_bitmap, (KmPixmap)0, (KmPixmap)0 }; static char kmicons_3_bitmap[] = { 255, 255, 255, 63, 1, 0, 0, 32, 1, 0, 0, 48, 169, 170, 170, 58, 81, 85, 85, 53, 169, 170, 170, 58, 1, 84, 21, 48, 1, 168, 10, 48, 81, 1, 64, 53, 169, 2, 160, 58, 81, 85, 85, 53, 169, 170, 170, 58, 209, 95, 255, 52, 233, 31, 255, 58, 209, 92, 117, 53, 233, 174, 186, 58, 209, 87, 93, 53, 233, 174, 174, 58, 209, 92, 255, 52, 233, 186, 255, 58, 81, 85, 85, 53, 253, 255, 255, 63, 255, 255, 255, 63 }; static KmIcon kmicons_3 = { &kmicons_4, "rzdir", 30, 23, kmicons_3_bitmap, (KmPixmap)0, (KmPixmap)0 }; static char kmicons_2_bitmap[] = { 0, 0, 0, 224, 254, 3, 0, 224, 254, 3, 8, 224, 6, 0, 20, 224, 6, 0, 62, 224, 126, 0, 85, 224, 126, 128, 255, 224, 6, 192, 213, 225, 6, 96, 127, 227, 6, 160, 239, 227, 6, 32, 251, 226, 6, 80, 94, 227, 6, 168, 180, 226, 0, 68, 89, 227, 0, 140, 170, 226, 0, 20, 93, 227, 254, 37, 174, 226, 254, 69, 91, 227, 192, 149, 169, 226, 224, 164, 92, 227, 112, 136, 174, 226, 56, 144, 91, 225, 28, 160, 169, 224, 14, 192, 89, 224, 254, 129, 42, 224, 254, 1, 28, 224, 0, 0, 8, 224, 0, 0, 0, 224, 0, 0, 0, 224, 255, 255, 255, 255 }; static KmIcon kmicons_2 = { &kmicons_3, "fzfile", 30, 30, kmicons_2_bitmap, (KmPixmap)0, (KmPixmap)0 }; static char kmicons_1_bitmap[] = { 1, 254, 255, 255, 252, 0, 0, 224, 254, 1, 8, 224, 134, 1, 20, 224, 134, 1, 62, 224, 254, 0, 85, 224, 126, 128, 255, 224, 102, 192, 213, 225, 230, 96, 127, 227, 198, 161, 239, 227, 134, 33, 251, 226, 0, 80, 94, 227, 1, 168, 180, 226, 1, 68, 89, 227, 1, 140, 170, 226, 0, 20, 93, 243, 254, 37, 174, 242, 254, 69, 91, 243, 192, 133, 169, 242, 224, 132, 92, 243, 112, 136, 174, 242, 56, 144, 91, 241, 28, 160, 169, 240, 14, 192, 89, 240, 254, 128, 42, 240, 254, 1, 28, 240, 0, 0, 8, 240, 1, 0, 0, 240, 1, 224, 255, 255, 255, 255, 255, 255 }; static KmIcon kmicons_1 = { &kmicons_2, "rzfile", 30, 30, kmicons_1_bitmap, (KmPixmap)0, (KmPixmap)0 }; klnkmenu( &_DZDOC, 921023 ); klnkbrcl( &brclass_1, 921023 ); klnkkmcl( &kmclass_1, 921023 ); klnkicon( &kmicons_1, 921023 ); klnkaddr.graf_info_C = ixmotif; klnkaddr.graf_size_F = igrsiz_; klnkaddr.graf_pick_F = igobj_; klnkaddr.graf_attr_F = igset_; klnkaddr.graf_close_F = iclwk_; }