Re: Find a binary value with CL (V5R4)

Hmmm... or you could merge your brendenheimer with your frakenspiel and hope for the best.  :)
++
Dennis
++
 We could certainly slow the aging process down if it had to work its way through Congress.
    -- Will Rogers




Sent from my Galaxy tablet phone.  Please excuse my brevity.
For any grammatic/spelling errors, there is no excuse.
++


"Evan Harris" <auctionitis@xxxxxxxxx> wrote:

Hi Jim

Seems like using STG (*DEFINED) to defined the return variable would
allow you to isolate the relevant bit easily enough then do whatever
you need to do with it.

On Wed, Dec 7, 2011 at 10:15 AM, Jim Oberholtzer <midrangel@xxxxxxxxxx>
wrote:

Folks:

I am working on a project where I have to determine if a file is a
source file or physical file.  The problem is it will be too slow to
call DSPFD to an outfile and read it for each of the files that will

be

looked at.  So I was trying to use the API QDBRTVFD which is perfect

for

the problem, except: The data structure IBM used for the attributes

is a

16 _BIT_ field.  (Maybe Bruce can explain the logic behind that

choice)

Dec  Hex   Bit       Type            Field              Description
0     0           BINARY(4)     Qdbfyret     Length of the data

returned

in bytes.
4     4           BINARY(4)     Qdbfyavl     Number of bytes provided
for the file definition data.
8     8           BIT(16)       Qdbfhflg     Attributes bytes.
8     8     0     BIT(2)        Reserved_1     Reserved.
8     8     2     BIT(1)        Qdbfhfpl     Type of file.
8     8     3     BIT(1)        Reserved_2     Reserved.
8     8     4     BIT(1)        Qdbfhfsu     File type (FILETYPE). If
on, *SRC If off *DATA
8     8     5     BIT(1)        Reserved_3     Reserved.
8     8     6     BIT(1)        Qdbfhfky     Access path.
8     8     7     BIT(1)        Reserved_4     Reserved.
9     9     0     BIT(1)        Qdbfhflc     Record format level

check

(LVLCHK).
9     9     1     BIT(1)        Qdbfkfso     Select/omit.
9     9     2     BIT(4)        Reserved_5     Reserved.
9     9     6     BIT(1)        Qdbfigcd     Double-byte character
Graphic data.
9     9     7     BIT(1)        Qdbfigcl

Constraints:  Must use CL and must work at V5R4.

Any ideas how to get after that fifth bit?


--
Jim Oberholtzer
Chief Technical Architect
Agile Technology Architects

--

--
Regards
Evan Harris
http://www.auctionitis.co.nz
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.