Debugging für IMS BTS-Programme im Nicht-Language Environment

Wenn Sie ein non-Language Environment ® -Programm debuggen möchten, das in IMS BTS ausgeführt wird, können Sie das Front-End-Programm der Anwendung EQANIAFE zusammen mit der Transaktion EQASET verwenden, um die Debugsitzung zu starten.

Sehen Sie sich das folgende Beispiel und die Schritte an, um EQANIAFE zu aktivieren und EQASET auszuführen:
//BTSITOC5 JOB ,'SYSADM',
//             CLASS=A,TIME=(3,14),MSGLEVEL=(1,1),REGION=128M,
//             NOTIFY=&SYSUID.,MSGCLASS=H
//G         EXEC PGM=BTSRC000,
//   PARM=(DLI,,0000,,0,,N,0,T,IMS1,,N,N,,N,,,'',,,,,,,'','')
//DFSRESLB  DD DISP=SHR,DSN=IMSBLD.I15RTSMM.SDFSRESL
//STEPLIB   DD DISP=SHR,DSN=USER.TEST.LOAD
//          DD DISP=SHR,DSN=EQAW.SEQAMOD
//          DD DISP=SHR,DSN=CEEV2R3Z.SCEERUN
//          DD DISP=SHR,DSN=CEEV2R3Z.SCEERUN2
//          DD DISP=SHR,DSN=IMSTOOL.BTS41.SBTSLMD0
//          DD DISP=SHR,DSN=IMSBLD.I15RTSMM.SDFSRESL
//*
//BTSIN   DD *
./E  APPLFE=EQANIAFE                                           1 
./*  TC=BTSTERM MDL=P2
./D  LTERM=BTSTERM TYPE=3270-A2 SIZE=(24,80) LIMIT=0
./T  TC=EQASET MBR=EQANISET PSB=ITOC05 LANG=CBL TYPE=MSG       2 
./T  TC=ITOC05 MBR=ITOC05 PSB=ITOC05 LANG=CBL TYPE=MSG
./* ESTABLISH A DEBUG ASSOCIATION FOR THIS TERMINAL
EQASET TCP=ON $                                                3 
./* CLEAR THE TERMINAL SCREEN BEFORE YOUR TRAN
CLEAR                                                          4 
ITOC05 ITOC05 $                                                5 
./* REMOVE THE DEBUG ASSOCIATION
EQASET TCP= $                                                  6 
/*
//EQANMDBG  DD *
ITOC05,TEST(ERROR,CMDS,PROMPT,TCPIP&9.85.213.175%8002:*)       7 
/*
  1. Ermitteln Sie ein Anwendungs-Front-End für die BTS-Umgebung über den Befehl ./E APPLFE.
  2. Fügen Sie eine Transaktionsdefinition für EQASET hinzu.
    Hinweis: EQANISET ist normalerweise als GPSB-Anwendung definiert, sodass Sie einen Ihrer PSBs für den PSB-Wert im Befehl ./T ersetzen müssen.
  3. Rufen Sie EQASET auf, um das BTS-Terminal einer Debugvorgabe zuzuordnen. Im obigen Beispiel gibt die Vorgabe lediglich an, dass das Debugging aktiviert ist. Die tatsächlichen Debugvorgaben werden über die DD-Karte EQANMDBG bereitgestellt ( 7 ). Das ermöglicht eine größere Flexibilität bei der Laufzeitoption TEST, wie z. B. die Angabe einer ursprünglichen Befehlsdatei (CMDS). In einem einfacheren Fall können Sie die vollständige Syntax von EQASET verwenden, um das Ziel für die Debugsitzung einzurichten (TCP, VTAM, MFI) und die restlichen TEST-Laufzeitoptionen mit den Standardwerten zu verwenden. Weitere Informationen zur Transaktion EQASET finden Sie unter Syntax der Transaktion EQASET für Nicht-Language Environment-MPPs.
  4. Leeren Sie den virtuellen Bildschirm mit dem Befehl CLEAR BTS.
  5. Rufen Sie Ihre Transaktion auf. Das Debugging startet mit den TEST -Laufzeitoptionen, die Sie in der DD-Karte EQANMDBG angegeben haben ( 7 ).
  6. Rufen Sie nach Abschluss des Debuggings die Transaktion EQASET auf, um die Debugzuordnung zu entfernen.