Mark Zelden wrote on 2007-06-27 09:36:19:
> Can you provide an example or more detail please of how to do this
> with IPCS?
OK, here's output from a session that I cranked up a few moments ago:
setd dsn('rlw.saveddir') local
IPCS
open dsn
IKJ56650I TIME-10:33:16 AM. CPU-00:00:01 SERVICE-36182864 SESSI
BLS18122I Initialization in progress for DSNAME('RLW.SAVEDDIR')
BLS18123I 3 blocks, 960 bytes, in DSNAME('RLW.SAVEDDIR')
IKJ56650I TIME-10:33:16 AM. CPU-00:00:01 SERVICE-36182929 SESSI
IPCS
l 0 ttr(1)
LIST 00. TTR(X'000001') LENGTH(X'60') AREA
00. LENGTH(X'60')==>All bytes contain X'00'
IPCS
l 0 ttr(1) length(x'3000')
BLS18070I Storage description adjusted
LIST 00. TTR(X'000001') LENGTH(X'0C00') AREA
00. LENGTH(X'80')==>All bytes contain X'00'
80. LENGTH(X'0B80')==>Storage not available
IPCS
l 0 ttr(2) length(x'3000')
BLS18070I Storage description adjusted
LIST 00. TTR(X'000002') LENGTH(X'0C00') AREA
00000000. E2C40000 00000000 40404040 40404040 00000000 0000000
00000020. 00000000 00000000 00000000 00000290 00020800 0000004
00000040. 40080D00 00000000 00000000 00000000 00000000 0000000
00000060. 00000000 00000000 00000000 00000000 F0F0F040 4040404
00000080 LENGTH(X'20')==>All bytes contain X'40', EBCDIC C' '
000000A0. 40404040 40404040 00015C40 40404040 40400000 4040404
000000C0. C3E50000 FFFFFFFF 00000001 00000000 00000000 0000006
000000E0. 40404040 40404040 40404040 40404040 40404040 4040404
00000100 LENGTH(X'01C0')==>All bytes contain X'00'
02C0. LENGTH(X'0940')==>Storage not available
IPCS
Since I was doing this adhoc, I managed to forget that the records of the
data set in question were limited to X'C00' bytes, so you see several
BLS18070I messages as I asked for 3 pages of data. I truncated the lines
from the session on the right. My session is a virtual 3290, so there was
a bit beyond what is shown. Each block in the data set is being treated as
an "address space" that may hold BLKSIZE bytes and may be called by several
names, e.g. BLOCK(0) or TTR(1). The whole data set can be viewed using the
RBA address space where the records are logically concatenated one after
the other - the rationale for scanning the whole thing before letting me
look at any specific block.
Bob Wright - MVS Service Aids
----------------------------------------------------------------------
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
