HP3000-L Archives

September 2007, Week 1

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:
Re: KSAMXL Key Info Question
From:
Brian Donaldson <[log in to unmask]>
Reply To:
Brian Donaldson <[log in to unmask]>
Date:
Fri, 7 Sep 2007 20:11:09 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (107 lines) 
As you can see, the flagword bitmap (12:1) 
shows "1" indicating REUSE" -- works fine.

FLAGWORD=>00000000000000000000000000001000<

Thanks to everyone who assisted me.


Now the next issue I see -- I don't know if it is something
I am doing wrong or ?

:BUILD HOLDIT6;REC=-256,,F,BINARY;KSAMXL;KEY=
(B,1,4,DUP;B,5,2;B,7,4,RDUP);REUSE


I specified the first key in the above file as a duplicate key (DUP), 
the second as no duplicate and the third as a random duplicate (RDUP)

FGETKEYINFO returned the following on these three keys:

1st bitmap indicates duplicate key or not (0:1).
2nd bitmap indicates dup key inserted randomly (8:1).

1000000110010000
0000000010000000

0000000110010000
0000000000000000

1000000110010000
0000000010000000

As you can see, the first pair of bitmaps are identical to the third
pair of bitmaps. This is telling me that both of these keys have 
RDUPS ??

So how do I know if a key is just a DUP or a RDUP ??


TIA,
Brian.
On Fri, 7 Sep 2007 16:21:46 -0400, Brian Donaldson <[log in to unmask]> 
wrote:

>I figured it out -- the FGETKEYINFO is giving the :REUSE and :OPTMBLK 
>options --
>
>it is stored in the flagword field (bits 12:1 and 8:1 respectively)
>
>Thanks to everyone for their input!
>
>Much appreciated.
>
>Brian.
>
>On Fri, 7 Sep 2007 13:34:33 -0500, MICHAEL CAPLIN 
><[log in to unmask]> wrote:
>
>>you may want to call the command intrinsic from within cobol with the 
output 
>going to a flat file and then read the flat file
>>
>>>>> Brian Donaldson <[log in to unmask]> 9/7/2007 2:29 PM >>>
>>I forgot to mention that this info needs to be retrieved via a Cobol
>>program using either the MPEiX intrinsics or possibly AIF's.
>>
>>Using :listf,5 isn't the solution I need.
>>
>>Thanks to all who replied so far.
>>
>>Brian.
>>
>>
>>On Fri, 7 Sep 2007 13:37:57 -0400, Brian Donaldson 
<[log in to unmask]> 
>>wrote:
>>
>>>Can anyone tell me where I can find the info that tells me if a KSAMXL
>>>file was built with the ;REUSE and ;OPTMBLK options?
>>>
>>>I am looking in the manual "Using KSAM XL" (32650-90168), pages 9-35 
thru 
>>>9-39 (FGETKEYINFO) but see nothing about where these options are stored
>>>so I am assuming it isn't stored anywhere that is accessible via any MPEiX
>>>intrinsic? Maybe AIF's ??
>>>
>>>Any help will be appreciated.
>>>
>>>
>>>TIA,
>>>Brian Donaldson.
>>>
>>>* 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 *
>>
>>* 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 *

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2