[bit.listserv.cics-l] Error handling for remote BTAM 3270's

SNPB@UTEPA.BITNET (Garnet MacPhee) (02/05/90)

Hello.

I am in the process of converting an application that uses remote BTAM
3270 terminals. These terminals previously were defined as CLUSTERS on
VM, then DIAL'ed to the application. Since we will soon be converting to
VM/XA, which does not support remote 3270 clusters, I have been trying to
attach the lines to MVS and define remote 3270's in the CICS TCT.

All of this appears to work for a while, then we get the following messages:

IEA000I 04C,0,LDA,02,0F00,0200,91**4040,,jobname,hh.mm.ss
DFH0601 - PROGRAM INTERRUPT OCCURRED WITH SYSTEM TASK IN CONTROL
DFH0606 - ABEND U0601 HAS BEEN DETECTED

The relevant info from the TCT is as follows:



         DFHTCT TYPE=SDSCI,                                            X
               DEVICE=R3270,                                           X
               ERROPT=ET,                                              X
               DSCNAME=TL0
         DFHTCT TYPE=LINE,                                             X
               ACCMETH=BTAM,                                           X
               BTAMRLN=1,                                              X
               TRMTYPE=R3270,                                          X
               INAREAL=2000,                                           X
               DSCNAME=TL0,                                            X
               CLASS=CONV,                                             X
               FEATURE=AUTOPOLL,                                       X
               LISTADR=(TL0POLL,WRAP)
L000     DFHTCT TYPE=TERMINAL,                                         X
               TRMIDNT=L000,                                           X
               TRMADDR=AL000,                                          X
               TRMSTAT=TRANSCEIVE,                                     X
               POLLPOS=1,                                              X
               TRMMODL=2,                                              X
               FEATURE=(DCKYBD,UCTRAN,TEXTKYBD,3270E,SELCTPEN)
               .....
TL0POLL  DFTRMLST AUTOWLST,(40407F7F2D,3737373737)
AL000    DFTRMLST OPENLST,(606040402D)
               .....
Anyone have any suggestions? CICS is 1.6.1, MVS is 1.3.5.

Thanks,
Garnet MacPhee
U. Texas El Paso

SORREL@DCSPROD.BYU.EDU (02/05/90)

>All of this appears to work for a while, then we get the following messages:
>
>IEA000I 04C,0,LDA,02,0F00,0200,91**4040,,jobname,hh.mm.ss
>DFH0601 - PROGRAM INTERRUPT OCCURRED WITH SYSTEM TASK IN CONTROL
>DFH0606 - ABEND U0601 HAS BEEN DETECTED
>
>Anyone have any suggestions? CICS is 1.6.1, MVS is 1.3.5.
>
>Thanks,
>Garnet MacPhee
>U. Texas El Paso

Sounds like a CICS bug to me. We have the same problem at BYU under 1.7
(lost data, then pgm check 601). Let me know if you find a resolution..