I am wondering if you have a little mix-up with the status array. By
expanding the list adding "a few date fields to the dataset" and expanding
some other fields, your buffer may be too small, as Curt pointed out.
However, what I find interesting is that you probably added the proper
fields in the record buffer, so why the error? And why in DBDELETE?
DBDELETE ignores the list and the buffer, it just tries to delete the
record, so the error should not be coming from there. An error code of 50
comes from the DBGET which you effect probably just before doing the
DBDELETE. That is where I would look.
Kind regards,
Denys. . .
Denys Beauchemin
HICOMP
(800) 323-8863 (281) 288-7438 Fax: (281) 288-7438
denys at hicomp.com www.hicomp.com
-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]]On Behalf Of
Connie Sellitto
Sent: Tuesday, March 05, 2002 9:22 AM
To: [log in to unmask]
Subject: IMAGE DELETE error
Hello Listers,
DBDELETE failure has me stumped -
I'm in the process of modifying an old COBOL program [74], which does NOT
use the Critical Item update feature - if a search field is changed, it
deletes the original record (DBDELETE) and does a DBPUT to rewrite it.
This program has worked for 15+ years, with changes every 6 months or so.
The
'list' parameter is defined as PIC XX VALUE "@;". Nothing changed there -
Just recently added a few date fields to the dataset, and expanded the
CMNT1 and 2 fields; now the DBDELETE fails with a return status = 50, which
according to my old TurboImage manual, is not even a DBDELETE return! The
dataset BADPAY is locked with a mode 3 - set level lock. The lock returns
0 status - successful.
Any help greatly appreciated!
Thanks,
Connie
Screen display (from DBEXPLAIN) follows:
------------------------------------------------------
Press RETURN for Next record, 'P' for Previous
Type 'D' to DELETE this record, or 'X' for Menu: D
Error in BADPAY delete
TURBOIMAGE RESULT; RETURN STATUS = 50
IMAGE CALL INFORMATION NOT AVAILABLE
USER'S BUFFER IS TOO SMALL FOR REQUESTED DATA
OCTAL DUMP OF STATUS ARRAY FOLLOWS:
000062 000234 000000 000011 003122 000000 000301 001331 000000 000000
----------------------------------------------------------
This is what the dataset looks like:
DATA BASE: CASHDB.TESTDB TUE, MAR 5, 2002, 9:59 AM
DATA BASE LANGUAGE ATTRIBUTE: NATIVE-3000
SET NAME:
BADPAY,DETAIL
ITEMS:
BP-REC-CODE, X2
NAME, X16 <<SEARCH ITEM>>
F-NAME, X12
ADDR1, X30
ADDR2, X30
ADDR3, X30
CMNT1, X60
CMNT2, X60
DATE-RUNIN-NUM, X10 <<SEARCH ITEM>>
DATE-ENTERED, X6
ADDED-BY, X12
BP-AMT, Z6
BP-SVC-CHG, Z6
BP-CHK-NUM, X4
BP-REDEEMED-FLAG, X2
BP-COLLECT-FLAG, X2
BP-FIRST-NOTICE, X6
BP-SECOND-NOTICE, X6
BP-FINAL-NOTICE, X6
BP-COLLECT-DATE, X6
CAPACITY: 210 ENTRIES: 11
>E
END OF PROGRAM
Dataset is defined in COPYLIB file as:
:CE
HP32233A.02.02 COPYLIB EDITOR - COBEDIT TUE, MAR 5, 2002, 10:00 AM
(C) HEWLETT-PACKARD CO. 1986
TYPE "HELP" FOR A LIST OF COMMANDS.
>LIB COPYLIB
>LIST BPDETIO
Text-name BPDETIO
001000
001100 .
001200 05 BP-REC-CODE PIC XX.
001300 88 BAD-PAY-REC VALUE "BP".
001400 88 CREDIT-LOST VALUE "CR".
001500 88 MISC-INFO VALUE "MS".
001600 88 SHORT-PAY VALUE "SP".
001700 88 LEGAL-FILE VALUE "LF".
001800 05 BP-NAME.
001900 07 BP-LNAME PIC X(16).
002000 05 BP-FNAME.
002100 07 BP-INIT PIC X.
002200 07 FILLER PIC X(11).
002300 05 BP-ADDR1 PIC X(30).
002400 05 BP-ADDR2 PIC X(30).
002500 05 BP-ADDR3 PIC X(30).
002600 05 BP-CMNT1 PIC X(60).
002700 05 BP-CMNT2 PIC X(60).
002800 05 BP-ORIG-DTE-RUNIN.
002900 07 BP-ORIG-DATE PIC 9(6).
003000 07 BP-ORIG-RUNIN PIC 9(4).
003100 05 BP-DATE-ADDED PIC 9(6).
003200 05 BP-DTE-ADD REDEFINES BP-DATE-ADDED.
003300 07 BPA-YY PIC 99.
003400 07 BPA-MM PIC 99.
003500 07 BPA-DD PIC 99.
003600 05 BP-ADDED-BY PIC X(12).
003700 05 BP-AMT PIC 9(4)V99.
003800 05 BP-AMT-NUM REDEFINES BP-AMT PIC X(6).
003900 05 BP-AMT-6 REDEFINES BP-AMT PIC 9(6).
004000 05 BP-SVC-CHG PIC 9(4)V99.
004100 05 BP-SVC-CHG6 REDEFINES BP-SVC-CHG PIC 9(6).
004200 05 BP-CHK-CR-NUM PIC X(4).
004300 05 BP-REDEEMED-FLAG PIC X.
004400 05 FILLER PIC X.
004500 05 BP-COLLECT-FLAG PIC X.
004600 88 TO-COLLECTION VALUE "C", "c".
004700 88 NOT-COLLECTED VALUE "N", "n".
004800 05 FILLER PIC X.
004900 05 BP-FIRST-DATE PIC 9(6).
005000 05 BP-1ST-DTE REDEFINES BP-FIRST-DATE.
005100 07 BP-FIRST-YY PIC 99.
005200 07 BP-FIRST-MM PIC 99.
005300 07 BP-FIRST-DD PIC 99.
005400 05 BP-SECOND-DATE PIC 9(6).
005500 05 BP-2ND-DTE REDEFINES BP-SECOND-DATE.
005600 07 BP-SECOND-YY PIC 99.
005700 07 BP-SECOND-MM PIC 99.
005800 07 BP-SECOND-DD PIC 99.
005900 05 BP-FINAL-DATE PIC 9(6).
006000 05 BP-FNL-DATE REDEFINES BP-FINAL-DATE.
006100 07 BP-FINAL-YY PIC 99.
006200 07 BP-FINAL-MM PIC 99.
006300 07 BP-FINAL-DD PIC 99.
006400 05 BP-COLLECT-DATE PIC 9(6).
006500 05 BP-CLCT-DTE REDEFINES BP-COLLECT-DATE.
006600* Note: This is the date returned from collection.
006700 07 BP-COLL-YY PIC 99.
006800 07 BP-COLL-MM PIC 99.
006900 07 BP-COLL-DD PIC 99.
>E
END OF PROGRAM
:
Connie Sellitto
Cat Fanciers' Association, Inc.
World's Largest Registry of Pedigreed Cats
* 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 *
|