HP3000-L Archives

July 2010, Week 4

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
joseph dolliver <[log in to unmask]>
Reply To:
joseph dolliver <[log in to unmask]>
Date:
Tue, 27 Jul 2010 08:50:58 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (219 lines)
Thanks to all who responded. It was an issue with VeSoft Menu's


Thanks,
Joe

On Mon, Jul 26, 2010 at 3:47 AM, Joshua Johnson <[log in to unmask]
> wrote:

> Hello,
>
> This is a Vesoft menu file and the design is a little odd. Usually with
> Ecometry the MACSMENU is a UDC or command file that would be called from a
> Vesoft menu not embedded in it. Another thing to consider is that Vesoft
> menus can be CPU intensive and they require running another process. I
> wrote
> a menu system in CI script for Ecometry which avoided these issues. I
> avoided running MACSMENU as much as possible too for the same reasons and
> it
> slowed the end user down with extra steps. I'd be happy to send my code to
> anyone who is interested.
>
> Joshua Johnson
>
> -----Original Message-----
> From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On Behalf
> Of Keven Miller
> Sent: Saturday, July 24, 2010 7:45 PM
> To: [log in to unmask]
>  Subject: Re: [HP3000-L] error when setting a user level UDC
>
> Hi!
> I'm working with another "Ecometry" customer.
> This looks like a Vesoft menu file. Not a UDC file.
>
> Keven miller
>
>     1     *START
>     2     *HEADER FAHRNEY'S SIGN ON MENU
>     3     *CAPTION MACS MENU
>     4     SETJCW SGERROR 0
>     5     RUN MACSMENU.CODE2.!SG2VER;LIB=G
>     6     IF SGERROR <> 99
>     7       HELP CLEARIT
>     8     ENDIF
>     9     IF MACS = 3 THEN
>    10          ADVRMACS
>    11     ENDIF
>    12     IF MACS = 19 THEN
>    13             PURCMACS
>    14     ENDIF
>    15     IF MACS = 31 THEN
>    16           FINAMACS
>    17     ENDIF
>    18     IF MACS = 41 THEN
>    19           TLMKMACS
>    20     ENDIF
>    21     IF MACS = 59 THEN
>    22             WHSEMACS
>    23     ENDIF
>    24     IF MACS = 65 THEN
>    25           PRODMACS
>    26     ENDIF
>    27     IF MACS = 67 THEN
>    28          TAPEMACS
>    29     ENDIF
>    30     IF MACS = 69 THEN
>    31          RUN REPTVIEW.CODE2.!SG2VER;LIB=G
>    32     ENDIF
>    33     IF MACS = 1 THEN
>    34          RUN ADVTMGMT.CODE2.!SG2VER;LIB=G
>    35     ENDIF
>    36     IF MACS = 5 THEN
>    37          RUN CUSTSELT.CODE2.!SG2VER;LIB=G
>    38     ENDIF
>    39     IF MACS = 7 THEN
>    40             RUN CUSTANAL.CODE2.!SG2VER;LIB=G
>    41     ENDIF
>    42     IF MACS = 9 THEN
>    43             ACTLMACS
>    44     ENDIF
>    45     IF MACS = 13 THEN
>    46             RUN ITEMMGMT.CODE2.!SG2VER;LIB=G
>    47     ENDIF
>    48     IF MACS = 15 THEN
>    49             RUN MCHREPRT.CODE2.!SG2VER;LIB=G
>    50     ENDIF
>    51     IF MACS = 17 THEN
>    52             RUN PURCHMGT.CODE2.!SG2VER;LIB=G
>    53     ENDIF
>    54     IF MACS = 21 THEN
>    55             MCTLMACS
>    56     ENDIF
>    57     IF MACS = 25 THEN
>    58             RUN OPENACCT.CODE2.!SG2VER;LIB=G
>    59     ENDIF
>    60     IF MACS = 27 THEN
>    61             HELP SETENTER
>    62             FILE APFORM.APOBJ=APFORM.APOBJ.!SG2VER
>    63             RUN APP000.APOBJ.!SG2VER
>    64             HELP CLEARSCR
>    65     ENDIF
>    66     IF MACS = 29 THEN
>    67             HELP SETENTER
>    68             FILE GLFORM.GLOBJ=GLFORM.GLOBJ.!SG2VER
>    69             RUN GLP000.GLOBJ.!SG2VER
>    70             HELP CLEARSCR
>    71     ENDIF
>    72     IF MACS = 33 THEN
>    73           FCTLMACS
>    74     ENDIF
>    75     IF MACS = 37 THEN
>    76           RUN
>  ORDERMGT.CODE2.!SG2VER;XL='XL.CODE2.!SG2VER,XL.PUB.!SG2VER'
>    77     ENDIF
>    78     IF MACS = 39 THEN
>    79           RUN CMDRIVER.CODE2.!SG2VER;LIB=G
>    80     ENDIF
>    81     IF MACS = 43 THEN
>    82           ORDRMACS
>    83     ENDIF
>    84     IF MACS = 49 THEN
>    85             RUN LOCMANAG.CODE2.!SG2VER;LIB=G
>    86     ENDIF
>    87     IF MACS = 51 THEN
>    88             RUN INVTMGMT.CODE2.!SG2VER;LIB=G
>    89     ENDIF
>    90     IF MACS = 53 THEN
>    91             WCTLMACS
>    92     ENDIF
>    93     IF MACS = 55 THEN
>    94           SHIPMACS
>    95     ENDIF
>    96     IF MACS = 57 THEN
>    97           RUN RTRNMGM2.CODE2.!SG2VER;LIB=G
>    98     ENDIF
>    99     IF MACS = 61 THEN
>   100           JOBSMACS
>   101     ENDIF
>   102     IF MACS = 63 THEN
>   103             RUN BOMANGMT.CODE2.!SG2VER;LIB=G
>   104     ENDIF
>   105     IF MACS = 71 THEN
>   106       IF FINFO("!CUST.MINIMACS.!SG2VER",0) THEN
>   107         !CUST
>   108       ELSE
>   109         CUSTMACS
>   110       ENDIF
>   111     ENDIF
>   112     IF MACS = 73 THEN
>   113           RUN OPERATNS.CODE2.!SG2VER;LIB=G
>   114     ENDIF
>   115     IF MACS = 75 THEN
>   116           RUN SCRENGEN.CODE2.!SG2VER;LIB=G
>   117     ENDIF
>   118     IF MACS = 77 THEN
>   119           RUN REPRTGEN.CODE2.!SG2VER;LIB=G
>   120     ENDIF
>   121     IF MACS = 79 THEN
>   122           RUN SECURITY.CODE2.!SG2VER;LIB=G
>   123     ENDIF
>   124     IF MACS = 81 THEN
>   125           RUN CNTRLMGT.CODE2.!SG2VER;LIB=G
>   126     ENDIF
>   127     IF MACS = 83 THEN
>   128           RUN CNTRLRPT.CODE2.!SG2VER;LIB=G
>   129     ENDIF
>   130     IF MACS = 99 THEN
>   131           BYE
>   132     ENDIF
>   133     IF SGERROR <> 99
>   134        HELP CLEARSCR
>   135     ENDIF
>   136     *CAPTION OM
>   137       RUN ORDERMGT.CODE2.!SG2VER;XL='XL.CODE2.!SG2VER,XL.PUB.!SG2VER'
>   138     *CAPTION PR
>   139       RUN PRDRIVER.CODE2.!SG2VER;LIB=G
>   140     *CAPTION IM
>   141       RUN ITEMMGMT.CODE2.!SG2VER;LIB=G
>   142     *CAPTION PO
>   143       RUN PURCHMGT.CODE2.!SG2VER;LIB=G
>   144     *CAPTION AP
>   145       HELP SETENTER
>   146       FILE APFORM.APOBJ=APFORM.APOBJ.!SG2VER
>   147       RUN APP000.APOBJ.!SG2VER
>   148       HELP CLEARSCR
>   149     *CAPTION CC
>   150       RUN CRCDMGMT.CODE2.!SG2VER;LIB=G
>   151     *CAPTION GL
>   152       HELP SETENTER
>   153       FILE GLFORM.GLOBJ=GLFORM.GLOBJ.!SG2VER
>   154       RUN GLP000.GLOBJ.!SG2VER
>   155       HELP CLEARSCR
>   156     *CAPTION IV
>   157       RUN INVTMGMT.CODE2.!SG2VER;LIB=G
>   158     *CAPTION RM
>   159       RUN RTRNMGM2.CODE2.!SG2VER;LIB=G
>   160     *CAPTION ORDER PROCESSING
>   161       RUN PRODMENU.CODE2.!SG2VER;LIB=G;PARM=1
>   162     *CAPTION SHOWOUT
>   163       SHOWOUT
>   164     *CAPTION PRINT A SCREEN PRINT
>   165       SP
>   166     *CAPTION CHANGE YOUR PASSWORD
>   167       RUN MAIN.PUB.VESOFT,VEPASSWORD
>   168     *CAPTION LOG OFF SYSTEM
>   169       BYE
>   170     *FINISH
>
>  * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2