In
<ca+qm75-bmt-wtvquyx6q1dkqrquhlu7mgm2pwie4v631yq2...@mail.gmail.com>,
on 11/28/2015
at 02:50 PM, Scott Ford <[email protected]> said:
>Our STC use several files and I want to verify that the files have
>the correct logical record length. The STCs are written LE Cobol. I
>would like to know before I open the file if the file that is created
>or allocated is correct in record length. For example, if the Logical
>Record Length is 121 as defined in the program tries to open a file
>with a LRECL 300 bytes. Can i do the following ?
>1. Call a Assembler subroutine using RDJFCB and determine the lrecl
>on the volume for the dataset and allocation ?
>2. If the lrecl i want to pass back a RTNCD in R15 and then then have
>Cobol fail ....
3. If it's a concatenation, test whether LRECL and RECFM are the same
in every dataset. See ARL, probably in the RDJFCB documentation.
Piece of cake.
--
Shmuel (Seymour J.) Metz, SysProg and JOAT
ISO position; see <http://patriot.net/~shmuel/resume/brief.html>
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
