Shmuel Metz , Seymour J. wrote:
In <501aea52.7000...@dignus.com>, on 08/02/2012
at 05:00 PM, Thomas David Rivers <riv...@dignus.com> said:
Then - reading the file to the end (with regular
BSAM READ+CHECK)
Does your code work in z/OS? What DCB bits are you resetting after
EOF?
Just to follow-up on the questions raised...
The code does work on z/OS.
The NOTE is performed before the first READ, it is performed
immediately after the OPEN.
This is been working fine since the era of OS/390 2.7...
The scenario that operates (perhaps by fortune?) on z/OS is:
BSAM OPEN
NOTE to return the TTR at the start of the file (which kinda
makes sense if the DD happens to be pointing at a PDS member, for
example)
READ+CHECK... READ+CHECK... READ+CHECK... until the EOD exit is driven
POINT back to the beginning of the file using the TTR returned in the
NOTE above
READ+CHECK... READ+CHECK... READ+CHECK... until the EOD exit is drive
There is no adjusting of DCB bits after the first EOD is driven.
The sequences of READ+CHECKs return the same blocks (bytes) each time.
But, when this exact code is done on CMS, the 2nd sequence of
READ+CHECKs immediately
drives EOD.
Perhaps there _should_ be a resetting of a bit in the DCB?
Also - the NOTE/POINT on z/OS is TYPE=REL, but that isn't listed as
supported
in the CMS simulation macros.. so for CMS there is no TYPE specified.
We don't
particular care _what_ the TTR returned might be, just that we remember
it for
returning back to the start of the file without suffering a new OPEN, etc...
- Thanks! -
- Dave Rivers -
--
riv...@dignus.com Work: (919) 676-0847
Get your mainframe programming tools at http://www.dignus.com
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
