IBM Mainframe Discussion List <IBM-MAIN@BAMA.UA.EDU> wrote on 04/24/2006
04:11:15 PM:
> The issue here is that the program expects to not be directed to a PDS,
> and when that accidently happens - things go, as you mention,
> alarmingly wrong.
> What I'm looking for is some way for the program to say "Hey! This
> isn't a sequentional VB file at all." Instead of miserably blowing
> up.
Before you OPEN the file, use RDJFCB to get the JFCB.
Look at expanded macro list to find the values of JFCDSORG (two byte
field!) to test for.
RDJFCB MF=(E,$RDJFCB)
.
.
.
$RDJFCB RDJFCB DUMMY,MF=L
DUMMY DCB DSORG=PS,MACRF=GL,DDNAME=RMSIRXCW,EXLST=X_DUMMY
* DATA CONTROL BLOCK
X_DUMMY DS 0A
DC AL1(7),AL3(INFMJFCB)
.
.
.
IEFJFCBN LIST=YES
> - Thanks -
> - Dave Rivers -
-----------------------------------------
The information contained in this communication (including any
attachments hereto) is confidential and is intended solely for the
personal and confidential use of the individual or entity to whom
it is addressed. The information may also constitute a legally
privileged confidential communication. If the reader of this
message is not the intended recipient or an agent responsible for
delivering it to the intended recipient, you are hereby notified
that you have received this communication in error and that any
review, dissemination, copying, or unauthorized use of this
information, or the taking of any action in reliance on the
contents of this information is strictly prohibited. If you have
received this communication in error, please notify us immediately
by e-mail, and delete the original message. Thank you
----------------------------------------------------------------------
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
