Here is an example of tape IO for large block sizes.
IO31BIG $ENTER AMODE=31,RMODE=24
* IF RMODE IS 24, DCB IS BE BELOW THE LINE AND OPEN DOES NOT NEED
* TO BE LIST/EXEC.
OPEN (TAPEFILE,OUTPUT),MODE=31
L R2,=F'1000000'
LOOP PUT TAPEFILE,OUTBUFF
BCT R2,LOOP
EOFIN DS 0H
CLOSE (TAPEFILE),MODE=31
$EXIT
TAPEFILE DCB DSORG=PS,MACRF=PM,RECFM=FB,DDNAME=TAPEFILE,DCBE=TPE, X
LRECL=80,BLKSIZE=0
TPE DCBE RMODE31=BUFF,BLKSIZE=65520
LTORG
OUTBUFF DC 80AL1(*-OUTBUFF)
$END
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Rick
Fochtman
Sent: Tuesday, July 29, 2008 1:03 PM
To: [email protected]
Subject: Re: DSN wirh LRECL > 32760 on Z/OS
----------------------------<snip>-------------------------------
>>Even given that you can use VSAM spanned or variable spanned PS, the
>>next issue is how does he get the data into the dataset. He would have
>>to devise some funky way of reading the outside data in pieces,
>>assembling it into the 32761 byte record and writing it to the output
>>dataset.<
>>
>>
>>
>I believe you can do the latter (PS) with BSAM. But I grant that
>many regard BSAM as funky.
>
>
---------------------------------<unsnip>-------------------------------
IIRC, it can be done with QSAM as well. I can't remember the details but
it had something to do with the LRECL field of the DCB.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
