glen herrmannsfeldt <gah@[EMAIL PROTECTED]
> wrote in message
news:<4sydnY2MhZJElv3fRVn-ig@[EMAIL PROTECTED]
>...
> j?rg brehe wrote:
>
> > I have a little problem with EXCP and BDAM
> >
> > My programm follows the logic
> >
> > BAS R6,OPENFLS open files
> > BAS R6,TRKCALC1
> > XR R0,R0
> > ST R0,TTTR
> > NEXTRK SLR R10,R10 COUNT
> > BAS R6,DOEXCP <-- READ A TRACK
> > SLR R4,R4
> > NEXTREC BAS R6,GETREC deblock a track
>
> (snip)
>
> For what I know of BDAM, for example what Fortran uses for direct
> access files, it is unblocked. That is, it should be RECFM=F, not FB.
>
> Now, BDAM doesn't care about the contents of the record/block and if
> you want to divide it up outside BDAM that is different.
>
> -- glen
As I say. If i set the right track in the beginning like
LA R0,X'0003' ****for example
AH R0,TTTR ****TEST
STH R0,TTTR ****TEST
NEXTRK SLR R10,R10 COUNT
BAS R6,DOEXCP <-- READ A TRACK
SLR R4,R4
NEXTREC BAS R6,GETREC
I get the right track, and in the buffer is the full track.
If i loop through the tracks, the first track (here track 3) is full
and the deblocking goes on. The next track only covers the first
record and then it's like an out of extension.
jörg
|
