Gemeinsames Kommando für STRDBG/STRISDB ?

[cbe]

Hallo,

nachdem ich mich lange genug damit rumgeärgert habe, dass ich vor dem Debug immer raten muss, ob das Programm sich mit STRDBG oder mit STRISDB verarbeiten lässt, will ich das mal ändern.

Ich möchte nicht alle bestehenden Programme neu wandeln, deshalb kam ich auf die Idee, ein eigenes Kommando zu erstellen, das abh. vom Programmobjekt den entspr. Debugger aufruft.

Dafür müsste ich aber dem Objekt ansehen, wie es umgewandelt wurde.
Wisst Ihr vielleicht, ob man diese Info per Programm rausbekommen kann?
Bei RTVOBJD fand ich zumindest nichts.

Gruß
Christian

[kuempi von stein]

Hallo,

so ganz verstehe ich noch nicht.
Was meinst Du mit "wie es umgewandelt ist"?
Ich dachte immer STRDBG geht immer und STRISDB nur bei OPM RPG, CLP und COBOL?

Sprich ILE mit STRDBG und den Rest mit STRISDB? Ist das Dein Ziel?

Dann sollte doch aber RTVOBJD funktionieren? Da gibt es doch den Parameter OBJATR?

Und ansonsten könnte man ja im CL immer erst mit STRISDB versuchen, Fehlermeldung abfangen und wenn Fehler dann eben STRDBG?

kuempi

[cbe]

Hallo,

beim wandeln kann ich bei "alten" Programmen z.B. sagen:
... OPTION(*LSTDBG),

dann kann ich anschließend sogar RPT-Programme mit STRDBG debuggen mit:
STRDBG ... OPMSRC(*YES)

Nur sind halt noch viele alte Programme nicht so umgewandelt. Da bringt STRDBG keinen Fehler, aber tut halt nicht.

Gruß,
Christian

[Fuerchau]

Da gibt es leider nur MI-Befehle.
An jedem Objekt kann ein Space-Objekt "angehängt" werden.
Mit den entsprechenden MI's kann man darauf zugreifen um die Existenz von Debugdaten zu prüfen.

Übrigens:
STRDBG geht immer, nur nicht immer im Source-Mode.
Wenn man noch einen Spool hat, kann man mit ADDBKP, DSPPGMVAR u.ä. das Programm testen.
Zugegeben, nicht sehr komfortabel.

[cbe]

...
Und ansonsten könnte man ja im CL immer erst mit STRISDB versuchen, Fehlermeldung abfangen und wenn Fehler dann eben STRDBG?

kuempi

das war eine gute Idee!
Sorum habe ich es nicht hinbekommen, da ich nach Möglichkeit STRDBG verwenden möchte und nicht den ISDB.

Aber einfach STRDBG aufrufen und dann schauen, wie der Debugger reagiert, das geht.
Wen es interessiert hier das Ergebnis:

            CMD        PROMPT('Starten Debugger abh. vom Typ')       
 
            PARM       KWD(PGM) TYPE(OBJ1) MIN(1) +                  
                         PROMPT('Programmname')                      
 
            PARM       KWD(SRCM) TYPE(*CHAR) LEN(10) CHOICE('Name') +
                         PROMPT('Quelle Teildatei')                  
            PARM       KWD(SRCF) TYPE(OBJ2) MIN(1) PROMPT('Quelle +  
                         Datei')                                     
 
OBJ1:       QUAL       TYPE(*NAME) LEN(10) CHOICE('Programmname')    
            QUAL       TYPE(*NAME) LEN(10) CHOICE('Bibliothek')      
 
OBJ2:       QUAL       TYPE(*NAME) LEN(10) CHOICE('Dateiname')       
            QUAL       TYPE(*NAME) LEN(10) CHOICE('Bibliothek')

             PGM        PARM(&PGMOLB &SRCMBR &SRCFLB)                   
 
             DCL        VAR(&PGMOLB) TYPE(*CHAR) LEN(20)                
             DCL        VAR(&SRCMBR) TYPE(*CHAR) LEN(10)                
             DCL        VAR(&SRCFLB) TYPE(*CHAR) LEN(20)                
 
             DCL        VAR(&PGMLIB) TYPE(*CHAR) LEN(10)                
             DCL        VAR(&PGM   ) TYPE(*CHAR) LEN(10)                
             DCL        VAR(&SRCLIB) TYPE(*CHAR) LEN(10)                
             DCL        VAR(&SRCFIL) TYPE(*CHAR) LEN(10)                
 
             DCL        VAR(&MHKTOOL) TYPE(*CHAR) LEN(10)               
 
 
/*  Standardwerte + Initialisierungen  */                               
             CHGVAR     VAR(&PGM   ) VALUE(%SST(&PGMOLB 1 10))          
             CHGVAR     VAR(&PGMLIB) VALUE(%SST(&PGMOLB 11 10))         
             CHGVAR     VAR(&SRCFIL) VALUE(%SST(&SRCFLB 1 10))          
             CHGVAR     VAR(&SRCLIB) VALUE(%SST(&SRCFLB 11 10))         
             IF         COND(&SRCMBR = ' ') THEN(CHGVAR VAR(&SRCMBR) +  
                          VALUE('*N'))                                  
             IF         COND(&SRCFIL = ' ') THEN(CHGVAR VAR(&SRCFIL) +  
                          VALUE('*N'))                                  
             IF         COND(&SRCLIB = ' ') THEN(CHGVAR VAR(&SRCLIB) +  
                          VALUE('*N'))                                  
 
 
/*  Debugger prüfen  */                                                 
             STRDBG     PGM(&PGMLIB/&PGM)                               
             DSPBKP     OUTPUT(*PRINT) PGM(*ALL)                        
               MONMSG     MSGID(CPF1906 CPF1999) EXEC(GOTO +            
                          CMDLBL(L_STRDBG))                             
             ENDDBG                                                     
             DLTSPLF    FILE(QPDBGDSP) SPLNBR(*LAST)                    
               MONMSG     MSGID(CPF0000)                                
 
 
L_ISDB:                                                                 
             STRISDB    PGM(&PGMLIB/&PGM) SRCMBR(&SRCMBR) +             
                          SRCF(&SRCLIB/&SRCFIL)                         
               MONMSG     MSGID(CPF0000) EXEC(DO)                       
                 ?STRISDB PGM(&PGMLIB/&PGM) SRCMBR(&SRCMBR) +           
                          SRCF(&SRCLIB/&SRCFIL)                         
                 ENDDO                                                  
             GOTO       CMDLBL(ENDE)                                    
 
 
L_STRDBG:                                                              
             GOTO       CMDLBL(ENDE)                                   
 
 
 
 ENDE:       ENDPGM

Kann man bestimmt noch verschönern, ist auch nicht auf Herz+Nieren getestet, aber es funktioniert schon mal für RPGLE, RPT mit+ohne *LSTDBG.

Vieren Dank Euch beiden!
Christian