When you are running this with BTS, are you ALSO using an interactive language-specific debugger, e.g. Xpediter, Debug-Tool, or similar. (They all have ways of running with BTS). If so, then I would "trace" when/how those fields are getting correctly filled in under BTS in the program logic - and figure out why the code is NOT getting to that place online.
Without knowing a WHOLE LOT MORE, my first guess is that your application is not checking for a bad status on a preceding call to DL/I and that you are assuming some of the PCB fields are already filled in (which they are when things go well) but that are not filled in when something previously failed. However, that is just a guess. As I say, stepping thru the source code and "monitoring" or "watching" those fields under BTS, should get you started on where the logic problem is. "David Logan" <[email protected]> wrote in message news:<035801c9dec0$8089a040$819ce0...@net>... > I have yet another mystifying situation. When I run my transaction online, I > get a U0476. When I run it under BTS, is happily blows right by the same > code (crashes later, but Ill work on that later.) > > It crashes on this: > CALL "CEETDLI" USING GHU <- and yes, I have tried CBLTDLI, no > difference > G1CPCOM-PCB > TYPE-SEG-LTQA > LTERM-QSSA > TYPE-SSA > > Under online IMS, my PCB looks like this. This is the one that fails: > 3 PA Í&QUEUESEG DJLOGAN 2.70COMMDBPX > 444444444F44DC444075DECECECC44414440CDDDCCD4F4FFCDDDCCDE4444444044 > 000000000300710001508454525700000003413671502B70364442770000000F00 > > Under BTS, the above call works, and my PCB looks like this: > G1CPCOM 03 PA {QUEUESEG IOPCB 2.70COMM u > CFCDCDD4FF44DC44000CDECECECC00010000CDDCC444F4FFCDDD44444444000A00 > 71373640030071000F608454525700000003967320002B703644000000000F940F > > It appears that there are various fields that have EBCDIC spaces that > shouldn't in the online PCB. So I spent a lot of time reviewing the LANG= on > the PSBGEN at the recommendation of the messages manual. But, as it turns > out, LANG=, LANG=ASSEM and LANG=COBOL all generate the same PCB value, so > that's not it. > > So what is it? Where do I need to be looking? > > Thanks! > David Logan > > (p.s. Perhaps somebody also knows how to reload a program in IMS after a > relink without cycling IMS. In CICS, you can issue a "NEWCOPY". What do I > need to do in IMS to use a new load module?) > > ---------------------------------------------------------------------- > 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 ---------------------------------------------------------------------- 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
