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