I was hoping someone else would answer this. I am *not* an Assembler
programmer and I am not totally clear on exactly what you are doing.
HOWEVER, I can tell you the "normal" way of using Assembler subprograms to
"play" with file DCBs. (This does NOT work for VSAM and ACB's).
In your COBOL program, if you define the file to be "played with" such as:
... Select MyFile Assign to Whatever.
...
FD MyFile
Record Contains ....
01 MyRec Pic ....
Then in the Procedure Division, you can code:
Call "AssemSub" Usign MyFile
(where you pass it the name from the FD, not the record below it)
This will give the Assembler subprogram addressability to the DCB. It can
then do whatever it "wants" and the COBOL main program will be able to do
OPENs, READ, WRITE - or another program that gets the same FILE-NAME passed
to it can do I/O.
If you ARE using this technique, then I don't understand what your problem
is. If you are using some other technique to have a file defined in a COBOL
"main" accessed by an Assembler subprogram, I would suspect you WILL have
problems.
Note particularly "Footnote 1" at:
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/igy3pg30/4.2.1
<[EMAIL PROTECTED]> wrote in message
news:<[EMAIL PROTECTED]>...
> Hello All
>
> Recently,I wrote a COBOL program A which call subroutine B and C
> statically,B and C are assembler,
> the function of subroutine B is:
> 1)modify RECSIZE and BLKSZIE of a dataset by RDJFCB and OPEN macro
> 2)then pass the DCB address to program A
>
> the function of subroutine B is:
> 1) PUT a record according to DCB address
>
> The program A executed well!
>
> But,when I add some code to make it could access a DB2 table, it
> executed abend 0C4, the ceedump as follow:
>
----------------------------------------------------------------------
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
