process/linkexpt.p

   1 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12
   2 &ANALYZE-RESUME
   3 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Procedure
   4 /*--------------------------------------------------------------------------
   5     File        : process/linkexpt.p
   6     Purpose     : Export menu definitions
   7
   8     Syntax      : process/linkexpt.r( report-options )
   9
  10     Description : Export ProgramLinks, LinkNodes, UsrGroupMenus and UsrGroupMenuItems
  11
  12     Author(s)   : Andrew McMillan
  13     Created     :
  14     Notes       :
  15   ------------------------------------------------------------------------*/
  16
  17 &SCOPED-DEFINE DEBUG No
  18
  19 DEF INPUT PARAMETER report-options AS CHAR NO-UNDO.
  20
  21 /* _UIB-CODE-BLOCK-END */
  22 &ANALYZE-RESUME
  23
  24
  25 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK
  26
  27 /* ********************  Preprocessor Definitions  ******************** */
  28
  29 &Scoped-define PROCEDURE-TYPE Procedure
  30 &Scoped-define DB-AWARE no
  31
  32
  33
  34 /* _UIB-PREPROCESSOR-BLOCK-END */
  35 &ANALYZE-RESUME
  36
  37
  38
  39 /* *********************** Procedure Settings ************************ */
  40
  41 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS
  42 /* Settings for THIS-PROCEDURE
  43    Type: Procedure
  44    Allow:
  45    Frames: 0
  46    Add Fields to: Neither
  47    Other Settings: CODE-ONLY COMPILE
  48  */
  49 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS
  50
  51 /* *************************  Create Window  ************************** */
  52
  53 &ANALYZE-SUSPEND _CREATE-WINDOW
  54 /* DESIGN Window definition (used by the UIB)
  55   CREATE WINDOW Procedure ASSIGN
  56          HEIGHT             = 17.3
  57          WIDTH              = 40.
  58 /* END WINDOW DEFINITION */
  59                                                                         */
  60 &ANALYZE-RESUME
  61
  62
  63
  64
  65 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Procedure
  66
  67
  68 /* ***************************  Main Block  *************************** */
  69 DEF VAR w1 AS WIDGET-HANDLE NO-UNDO.
  70 DEF VAR prev-window AS WIDGET-HANDLE NO-UNDO.
  71
  72   CREATE WINDOW w1
  73     ASSIGN  TITLE = "Dumping Link Tables"
  74             WIDTH-CHARS = 80
  75             HEIGHT-CHARS = 16
  76             STATUS-AREA = no
  77             MESSAGE-AREA = yes.
  78
  79   prev-window = CURRENT-WINDOW.
  80   CURRENT-WINDOW = w1.
  81   DO WITH FRAME default-frame:
  82     RUN prodict/dump_d.r( "LinkNode,ProgramLink,UsrGroup,UsrGroupMenu,UsrGroupMenuItem,UsrGroupRights", "lnk", ? ).
  83   END.
  84   CURRENT-WINDOW = prev-window.
  85   DELETE WIDGET w1.
  86
  87 /* _UIB-CODE-BLOCK-END */
  88 &ANALYZE-RESUME
  89
  90
  91 /* **********************  Internal Procedures  *********************** */
  92
  93 &IF DEFINED(EXCLUDE-export-group-menu-items) = 0 &THEN
  94
  95 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE export-group-menu-items Procedure
  96 PROCEDURE export-group-menu-items :
  97 /*------------------------------------------------------------------------------
  98   Purpose:
  99   Parameters:  <none>
 100   Notes:
 101 ------------------------------------------------------------------------------*/
 102
 103   IF {&DEBUG} THEN MESSAGE "Exporting User Group Menu Items" VIEW-AS ALERT-BOX.
 104
 105   OUTPUT TO GPMIDATA.TXT.
 106
 107   FOR EACH UsrGroupMenuItem NO-LOCK:
 108     EXPORT
 109       UsrGroupMenuItem.ButtonLabel
 110       UsrGroupMenuItem.GroupName
 111       UsrGroupMenuItem.LinkCode
 112       UsrGroupMenuItem.MenuName
 113       UsrGroupMenuItem.SequenceCode.
 114   END.
 115
 116   OUTPUT CLOSE.
 117
 118 END PROCEDURE.
 119
 120 /* _UIB-CODE-BLOCK-END */
 121 &ANALYZE-RESUME
 122
 123 &ENDIF
 124
 125 &IF DEFINED(EXCLUDE-export-group-menus) = 0 &THEN
 126
 127 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE export-group-menus Procedure
 128 PROCEDURE export-group-menus :
 129 /*------------------------------------------------------------------------------
 130   Purpose:
 131   Parameters:  <none>
 132   Notes:
 133 ------------------------------------------------------------------------------*/
 134
 135   IF {&DEBUG} THEN MESSAGE "Exporting User Group Menus" VIEW-AS ALERT-BOX.
 136
 137   OUTPUT TO GPMNDATA.TXT.
 138
 139   FOR EACH UsrGroupMenu NO-LOCK:
 140     EXPORT
 141       UsrGroupMenu.Autostart
 142       UsrGroupMenu.GroupName
 143       UsrGroupMenu.MenuName
 144       UsrGroupMenu.NodeCode.
 145   END.
 146
 147   OUTPUT CLOSE.
 148
 149 END PROCEDURE.
 150
 151 /* _UIB-CODE-BLOCK-END */
 152 &ANALYZE-RESUME
 153
 154 &ENDIF
 155
 156 &IF DEFINED(EXCLUDE-export-link-nodes) = 0 &THEN
 157
 158 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE export-link-nodes Procedure
 159 PROCEDURE export-link-nodes :
 160 /*------------------------------------------------------------------------------
 161   Purpose:
 162   Parameters:  <none>
 163   Notes:
 164 ------------------------------------------------------------------------------*/
 165
 166   IF {&DEBUG} THEN MESSAGE "Exporting Link Nodes" VIEW-AS ALERT-BOX.
 167
 168   OUTPUT TO NODEDATA.TXT.
 169
 170   FOR EACH LinkNode NO-LOCK:
 171     EXPORT
 172       LinkNode.Description
 173       LinkNode.File
 174       LinkNode.NodeCode
 175       LinkNode.NodeType
 176       LinkNode.Path
 177       LinkNode.RunFile.
 178   END.
 179
 180   OUTPUT CLOSE.
 181
 182 END PROCEDURE.
 183
 184 /* _UIB-CODE-BLOCK-END */
 185 &ANALYZE-RESUME
 186
 187 &ENDIF
 188
 189 &IF DEFINED(EXCLUDE-export-program-links) = 0 &THEN
 190
 191 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE export-program-links Procedure
 192 PROCEDURE export-program-links :
 193 /*------------------------------------------------------------------------------
 194   Purpose:
 195   Parameters:  <none>
 196   Notes:
 197 ------------------------------------------------------------------------------*/
 198
 199   IF {&DEBUG} THEN MESSAGE "Exporting Program Links" VIEW-AS ALERT-BOX.
 200
 201   OUTPUT TO LINKDATA.TXT.
 202
 203   FOR EACH ProgramLink NO-LOCK:
 204     EXPORT
 205       ProgramLink.ButtonLabel
 206       ProgramLink.CodeName
 207       ProgramLink.CreateViewer
 208       ProgramLink.Description
 209       ProgramLink.FillName
 210       ProgramLink.FilterPanel
 211       ProgramLink.Function
 212       ProgramLink.LinkCode
 213       ProgramLink.LinkType
 214       ProgramLink.SortPanel
 215       ProgramLink.Source
 216       ProgramLink.Target
 217       ProgramLink.Viewer.
 218   END.
 219
 220   OUTPUT CLOSE.
 221
 222 END PROCEDURE.
 223
 224 /* _UIB-CODE-BLOCK-END */
 225 &ANALYZE-RESUME
 226
 227 &ENDIF
 228
 229 &IF DEFINED(EXCLUDE-export-user-groups) = 0 &THEN
 230
 231 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE export-user-groups Procedure
 232 PROCEDURE export-user-groups :
 233 /*------------------------------------------------------------------------------
 234   Purpose:
 235   Parameters:  <none>
 236   Notes:
 237 ------------------------------------------------------------------------------*/
 238
 239   IF {&DEBUG} THEN MESSAGE "Exporting User Groups" VIEW-AS ALERT-BOX.
 240
 241   OUTPUT TO USGPDATA.TXT.
 242
 243   FOR EACH UsrGroup NO-LOCK:
 244     EXPORT
 245       UsrGroup.GroupName
 246       UsrGroup.Description.
 247   END.
 248
 249   OUTPUT CLOSE.
 250
 251 END PROCEDURE.
 252
 253 /* _UIB-CODE-BLOCK-END */
 254 &ANALYZE-RESUME
 255
 256 &ENDIF
 257