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:
From:
Brian Donaldson <[log in to unmask]>
Reply To:
Brian Donaldson <[log in to unmask]>
Date:
Fri, 7 Sep 2007 16:21:46 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (57 lines)
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 *

ATOM RSS1 RSS2