Been working on this several days, driving me nuts.
The basic setup:
LE-conforming, reentrant Assembler program intended
to run as a CGI and access a KSDS by key.
In the program, my call to BPXWDYN is working fine.
Next, I use GENCB to generate an ACB dynamically.
Then I issue OPEN against that ACB: I get S0C4 that
points to the next instruction after my OPEN, which
is an LTR 15,15; so it looks like the abend is being
generated in OPEN.
The code in the vicinity:
la 2,genparm1
gencb blk=acb,ddname=meals,macrf=(key,dir,in),
loc=any,am=vsam,
rmode31=all,mf=(g,(2),genlen)
ltr 15,15
jnz bad_gencb
lr 10,1 pick up address of built acb
open ((10)),mode=31,mf=(e,openlist)
ltr 15,15
The following fields are defined in a DSECT; (this
DSECT is set up as part of the DSA so that
addressability is provided by R13):
acbstart acb am=vsam
acbend ds 0f
acblen equ acbend-acbstart
ds 0f
genparm1 ds cl(genlen)
---------------------------
My guess is that actually the gencb parameters may
not be correct, but I can't see it.
Any suggestions for this?
---------------------------
Kind regards,
-Steve Comstock
The Trainer's Friend, Inc.
303-393-8716
http://www.trainersfriend.com
-- to be included in our opt-in list of announcements of
-- new courses and other products and services from The
-- Trainer's Friend, send an email to [EMAIL PROTECTED]
----------------------------------------------------------------------
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
