It may be that your WORK area is too small. I had issues with the CSI code hanging or just plain not working. I used the following values and it helped.
WORKLEN = 64000
dwork = '0000FA00'X || COPIES('00'X,WORKLEN-4)
....LDO
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
