HP3000-L Archives

September 2000, Week 3

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
dbinfo: mode 302: What is Key item number? code example
From:
Mike Hornsby <[log in to unmask]>
Reply To:
Mike Hornsby <[log in to unmask]>
Date:
Tue, 19 Sep 2000 12:01:49 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (57 lines) 
 01 DBNAME                   PIC X(30) VALUE SPACES.
 01 M1                       PIC 9(4) COMP VALUE 1.
 01 M2                       PIC 9(4) COMP VALUE 2.
 01 M3                       PIC 9(4) COMP VALUE 3.
 01 M4                       PIC 9(4) COMP VALUE 4.
 01 M5                       PIC 9(4) COMP VALUE 5.
 01 M9                       PIC 9(4) COMP VALUE 9.
 01 M102                     PIC 9(4) COMP VALUE 102.
 01 M205                     PIC 9(4) COMP VALUE 205.
 01 M301                     PIC 9(4) COMP VALUE 301.
 01 M302                     PIC 9(4) COMP VALUE 302.
 01 DETAIL-LIST              PIC XX VALUE "@ ".
 01 DBDUMMY                  PIC 9(4) COMP VALUE 0.
 01 DBSTATUS.
    05 DBSTAT                PIC S9(4) COMP VALUE 0.
    05 LENGTH1               PIC 9(4) COMP VALUE 0.
    05 RECORD-NUMBER         PIC 9(9) COMP VALUE 0.
    05 CHAIN-COUNT           PIC 9(9) COMP VALUE 0.
    05 PREV-ENTRY            PIC 9(9) COMP VALUE 0.
    05 NEXT-ENTRY            PIC 9(9) COMP VALUE 0.
 01 DBINFO-102               PIC X(26).
 01 DBINFO-205.
    05 I205-NAME             PIC X(16).
    05 I205-TYPE             PIC XX.
    05 FILLER                PIC X(8).
    05 I205-ENTRIES          PIC 9(9) COMP.
    05 I205-CAPACITY         PIC 9(9) COMP.
    05 I205-HWMARK           PIC 9(9) COMP.
    05 I205-MAXCAP           PIC 9(9) COMP.
    05 FILLER                PIC X(12).
 01 DBINFO-301.
    05 I301-COUNT            PIC 9(4) COMP.
    05 I301-PATHS OCCURS 16 TIMES.
      10  I301-SET           PIC 9(4) COMP.
      10  I301-SEARCH        PIC 9(4) COMP.
      10  I301-SORT          PIC 9(4) COMP.
 01 DBINFO-302.
    05 I302-KEY              PIC 9(4) COMP.
    05 I302-MASTER           PIC 9(4) COMP.

*    THE FOLLOWING DBINFO CALLS LOAD THE SET&KEY NAMES
     CALL "DBINFO" USING DBNAME, I301-SEARCH ( P-CNT ), M102,
           DBSTATUS, DBINFO-102.
     IF DBSTAT <> 0 THEN PERFORM 910-FAULT.
     MOVE DBINFO-102 (1:16) TO DETAIL-KEY.
     CALL "DBINFO" USING DBNAME, I301-SET ( P-CNT ), M205,
           DBSTATUS, DBINFO-205.
     IF DBSTAT <> 0 THEN PERFORM 910-FAULT.
     MOVE I205-NAME TO MASTER-SET.
     CALL "DBINFO" USING DBNAME, MASTER-SET, M302,
           DBSTATUS, DBINFO-302.
     IF DBSTAT <> 0 THEN GO TO 910-FAULT.
     CALL "DBINFO" USING DBNAME, I302-KEY, M102,
           DBSTATUS, DBINFO-102.
     IF DBSTAT <> 0 THEN PERFORM 910-FAULT.
     MOVE DBINFO-102 (1:16) TO MASTER-KEY.

ATOM RSS1 RSS2