QTP Weirdness...

[Karman, Al]

Greetings, -L folks.....

I've created a subfile in QUIZ thusly....

ACC *S2
;
DEF NEXT-VENDOR-NO NUM*6     = KOUNT
;
DEF O-VENDOR-NO CHAR*8       = PACK('GS' + ASCII(NEXT-VENDOR-NO,6))
DEF O-NAME CHAR*30           = IN-SUPPL-NAME
DEF O-STREET CHAR*30         = ' '
DEF O-CITY CHAR*16           = ' '
DEF O-STATE CHAR*4           = ' '
DEF O-ZIP ZONED*6            = 0
DEF O-CONTACT1 CHAR*90       = IN-SUPPLIER-CONTACT
DEF O-PHONE PACKED*18        = NCONVERT(IN-SUPPLIER-PHONE)
DEF O-VENDOR-REF CHAR*10     = IN-SUPPLIER
DEF O-AGREEMENT    CHAR*10   = ' '
;
SORTED ON IN-SUPPL-NAME
;
SET SUBFILE AT IN-SUPPL-NAME KEEP NAME S3 &
  INDEX IX1 UNIQUE SEGMENT O-VENDOR-NO
;
REP SUMM       &
  O-VENDOR-NO  &
  O-NAME       &
  O-STREET     &
  O-CITY       &
  O-STATE      &
  O-CONTACT1   &
  O-PHONE      &
  O-VENDOR-REF &
  O-AGREEMENT  &
  KOUNT
;
GO

I get myself built a bee-uti-full subfile, full of all the goodies I need
(basically VENDOR-MSTR that didn't exist, came from customer input, and
needs to be added to VENDOR-MSTR.

Here the hinky part....NONE of these records exist in the VENDOR-MSTR, yet
going to add them in QTP with this code....

ACC *S3 &
  LINK O-VENDOR-NO TO VENDOR-NO OF VENDOR-MSTR
;
OUT VENDOR-MSTR DELETE
;
REQUEST VENDOR_MSTR_ADD
;
ACC *S3
;
OUT VENDOR-MSTR ADD
;
 gives....

234 Request: VENDOR_MSTR_DEL
235
236
237 Executing request VENDOR_MSTR_DEL ...
238
239 Records read:
240   S3                                      17
241   VENDOR-MSTR                              0
242
243 Transactions processed:                    0
244
245 Records processed:                     Added    Updated  Unchanged
Delete
d
246   VENDOR-MSTR                              0          0          0

0
247
248
249 2000/12/19  13:32    USF Worldwide Packing System
PAGE  
 
250
251 Run:
252 Request: VENDOR_MSTR_ADD
253
254
255 Executing request VENDOR_MSTR_ADD ...
256
----------------------------------------------------------------------------
-
257 Data access error.
[
1
258    File:  VENDOR-MSTR
259      Linkitem:  VENDOR-NO
260
261 Action Taken: Run terminated.
262
----------------------------------------------------------------------------
-
263 Attempt to add a duplicate value when UNIQUE KEY/INDEX was specified.
264    File:  VENDOR-MSTR
265      Linkitem:  VENDOR-NO
266
----------------------------------------------------------------------------
-
267
268 Records read:
269   S3                                       1
270
271 Transactions processed:                    1
272
273 Records processed:                     Added    Updated  Unchanged
Delete
d
274   VENDOR-MSTR                              0          0          0

0
275
276 Finished.
277
278 > ;
279 > EXIT
280
281
282
283
284 RUN QTP.PH829D.COGNOS;INFO="";  XL=" *PHLIBXL PHLIBNS.PH829D.COGNOS
*ORDBA O
R
285 Program terminated in an error state. (CIERR 976)


My Cognos-Friends....I'm on a rather 'aggressive' timeline, and would be
Really Happy with a Timely Resolution to this baddboy.....

A Large Pre-request Thanks In Advance To All!


Al Karman
IT Consultant
US Freightways 
akarman@usfreightways.com
773.824.2284

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
This list is closed, thus to post to the list, you must be a subscriber.