You can start here (watch the line-wrap):
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/DGT2D430/3.1.3.2?
SHELF=DGT2BK41&DT=20040624112123
>From that page, the third byte of the RDW for each record is the "segment
control byte", only the last two bits of which are significant:
Figure 73. Segment Control Codes
Binary Code Relative Position of Segment
00 Complete logical record
01 First segment of a multisegment record
10 Last segment of a multisegment record
11 Segment of a multisegment record other than
the first or last segment
You could process the file as RECFM=VB with a JCL override and scan for byte
3 NE x'00'. Sort should handle this nicely.
Something like this (untested):
SORT FIELDS=COPY
INCLUDE COND=(3,1,NE,X'00')
HTH
Peter
-----Original Message-----
From: Robert Bardos [mailto:[EMAIL PROTECTED]
Sent: Wednesday, May 16, 2007 11:42 AM
To: [email protected]
Subject: How do I find the SPANNED indicator in a VB record?
Folks,
quick question (since I'm chasing/trying to recover severe
production problems in parallel): how do I find the spanned
indicator in a VB record?
Background: had a program abend which processes IMS log records.
CA support very aptly pointed to a statement in the code where
there was a check for spanned records. Suggestion was to bypass
the check (quote: IMS log records should never be spanned anyway).
Suggestion worked - so thanks CA support! Possible suspect now is
a customer exit which probably inserts records having the spanned
indicator on. I'd like to verify this and as I'm basically
assembler illiterate I'd really appreciate it if anybody could
give me a clue where to look for this 'spanned indicator'. Some
nice DFSORT/ICETOOL solution maybe?
Thanks a ton
Robert Bardos
Ansys AG, Zurich, Switzerland
This message and any attachments are intended only for the use of the addressee
and
may contain information that is privileged and confidential. If the reader of
the
message is not the intended recipient or an authorized representative of the
intended recipient, you are hereby notified that any dissemination of this
communication is strictly prohibited. If you have received this communication in
error, please notify us immediately by e-mail and delete the message and any
attachments from your system.
----------------------------------------------------------------------
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
