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 *
|