Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Invalid block size error
- Thread starter akkemravi
- Start date
- Thread starter
- #2
I tried using the below code.
SYSIND = XXXX.XXX.FILE'
CALL MSG('OFF')
"ALLOC FI(SYSIND) DA('"SYSIND"') NEW UNIT(SYSDA)",
"SP(1,1) CYLINDER DSORG(PS)",
"DIR(0) BLKSIZE(27500)",
"LRECL(80) RECFM(F B) REUSE"
ADDRESS TSO "EXECIO * DISKW SYSIND (FINIS STEM O."
WHEN I TRY TO OPEN THE FILE, I AM GETTING "Invalid Block Size" error.
Please help me in resolving the error.
SYSIND = XXXX.XXX.FILE'
CALL MSG('OFF')
"ALLOC FI(SYSIND) DA('"SYSIND"') NEW UNIT(SYSDA)",
"SP(1,1) CYLINDER DSORG(PS)",
"DIR(0) BLKSIZE(27500)",
"LRECL(80) RECFM(F B) REUSE"
ADDRESS TSO "EXECIO * DISKW SYSIND (FINIS STEM O."
WHEN I TRY TO OPEN THE FILE, I AM GETTING "Invalid Block Size" error.
Please help me in resolving the error.
The blocksize that you specified is not a multiple of the record length. Before starting to write Rexx programs I suggest you learn the basics of z/OS data sets. In addition, you shuld allow the system to determine your blocksize. You do this by coding BLKSIZE(0).
Nic
Nic
- Status