 
| Subject: | |
| From: | |
| Reply To: | |
| Date: | Mon, 26 Jul 2010 03:47:32 -0400 |
| Content-Type: | text/plain |
| Parts/Attachments: |
|
|
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 *
|
|
|
