MSGSFL mit RPGIII / IV

[ebschubert]

Hallo an Alle

ich habe folgendes Problem:
Habe eine alte RPG3-Quelle mit DSPF und eigener MSGF mittels CVTRPGSRC auf RPG4 konvertiert.

Die DDS für das DSPF ist dabei die gleiche geblieben.

Das Fehlerhandling in der alten Quelle ist im DSPF über SFLMSG und SFLCTL gesteuert.

 A          R MSGRCD                    SFL                     
 A*%%TS  SD  19960410  142335  AS          REL-V2R3M0  5738-PW1 
 A                                      SFLMSGRCD(24)           
 A            MSGKEY                    SFLMSGKEY               
 A            ZZPGM                     SFLPGMQ                 
 A*                                                             
 A          R MSGCTL                    SFLCTL(MSGRCD)          
 A*%%TS  SD  19960410  142335  AS          REL-V2R3M0  5738-PW1 
 A                                      OVERLAY                 
 A  30                                  SFLDSP                  
 A  30                                  SFLDSPCTL               
 A  30                                  SFLINZ                  
 A                                      SFLSIZ(0003)            
 A                                      SFLPAG(0001)            
 A            ZZPGM                     SFLPGMQ                 
  *

Im RPG3 rufe ich dazu ein CL-PGM,
das die MSG mit

SNDPGMMSG  MSGID(&MSGID) MSGF(&MSGFL/&MSGF) +
             MSGDTA(&PARM) TOPGMQ(*PRV) +    
             MSGTYPE(*NOTIFY) KEYVAR(&MSGNBR)

reinstellt.
Das RPG3-Programm funktioniert!!!

Nach der Konvertierung auf RPG4 erscheinen aber meine Fehlernachrichten nicht mehr!!!!

Hat jemand eine Ahnung woran das liegen könnte?

Grüße und vielen Dank vorab

Andreas

[Fuerchau]

Das hat mit den Aufrufebenen zu tun.
ILERPG hat da noch ein paar Ebenen mehr.
Beim SNDPGMMSG muss genau der Aufrufstapel angegeben werden, der die DSPF eröffnet hat.
Halte dein CLP mal im Debugger an und schau dir den Call-Stack dann an.

Wenn dein CLP allerdings auch von OPM's noch aufgerufen wird, benötigst du ein neues.

Oder du nimmst statt dessen das API QMHSNDPM.

[ebschubert]

Das hat mit den Aufrufebenen zu tun.
ILERPG hat da noch ein paar Ebenen mehr.
Beim SNDPGMMSG muss genau der Aufrufstapel angegeben werden, der die DSPF eröffnet hat.
Halte dein CLP mal im Debugger an und schau dir den Call-Stack dann an.

Wenn dein CLP allerdings auch von OPM's noch aufgerufen wird, benötigst du ein neues.

Oder du nimmst statt dessen das API QMHSNDPM.

Hallo Herr Fuerchau,

das DSPF enthält ein SFL für Daten.
Wenn ich im DSPF nur mit einem normal RECORD arbeite, funktionierts.
Mit dem SLF dagegen wird nichts angezeigt.

Grüsse

[Fuerchau]

Das ist ja auch korrekt.
Eine SFLMSG erwartet die Nachrichten im aktuellen Aufrufstapel.
Dein CLP sendet Nachrichten an eine bestimmte PGMMSGQ, nämlich *PRV.
Da nun jeder Stapeleintrag eine eigene PGMQ hat, und sich bei ILE die Stapeleinträge vermehren, stimmt einfach diese Aufrufebene nicht mehr.

Dein CLP sendet also die Nachrichten nun nicht mehr an den Stapeleintrag, der die Nachrichten verarbeiten soll.
Also ist das CLP so zu ändern, dass die korrekte PGMQ angesprochen wird.

[ebschubert]

Das ist ja auch korrekt.
Eine SFLMSG erwartet die Nachrichten im aktuellen Aufrufstapel.
Dein CLP sendet Nachrichten an eine bestimmte PGMMSGQ, nämlich *PRV.
Da nun jeder Stapeleintrag eine eigene PGMQ hat, und sich bei ILE die Stapeleinträge vermehren, stimmt einfach diese Aufrufebene nicht mehr.

Dein CLP sendet also die Nachrichten nun nicht mehr an den Stapeleintrag, der die Nachrichten verarbeiten soll.
Also ist das CLP so zu ändern, dass die korrekte PGMQ angesprochen wird.

Habe das jetzt auf QMHSNDPM
und QMHRMVPM geändert - der Effekt ist der gleiche...

Eine Anmerkung dazu...
Im DSPJOBLOG sehe ich im PGM, das nur einen RECORD im DSPF ausgibt, meine Nachrichten.
Bei dem PGM, das SFL bedient, erscheint im DSPJOBLOG auch keine Nachricht!!!!

Grüsse und Danke

[Fuerchau]

SFLPGMQ muss bei ILE anders verwendet werden, da sonst der Stapel nicht korrekt gefunden wird.:
SFLPGMQ (Subfile Program Message Queue) keyword for display files

[ebschubert]

SFLPGMQ muss bei ILE anders verwendet werden, da sonst der Stapel nicht korrekt gefunden wird.:
SFLPGMQ (Subfile Program Message Queue) keyword for display files

jetzt wird's spannend.
Habe im DSPF mein Queue-Feld geändert

  A            ZZPGM                     SFLPGMQ(276)

Im RPG steht

D  ZZPGM            *proc

Wenn ich das so kompilieren bekomme ich :

*RNF6033 30      1 Länge des extern beschriebenen Felds stimmt nicht mit einer
                   vorherigen Definition überein; die Bestimmung wird ignorier

Definiere ich hingegen

D  ZZPGM            1    276

bekomme ich beim Aufruf:

 Aufrufstapeleintrag nicht gefunden.                                       
 Funktionsprüfung. CPF247A nicht überwacht durch QSFMQDSP bei Anweisung *N,

Wo ist der Hase da im Pfeffer????

[Fuerchau]

Das ist ja das Problem bei ILE.
Du musst erst feststellen, wie dein Aufrufstapeleintrag genau heißt!
Diesen Namen musst du dann (siehe Link) in die Variable ZZPGM in dem korrekten Format einstellen.

Ansonsten lass das Programm halt auf OPM.

[ebschubert]

Das ist ja das Problem bei ILE.
Du musst erst feststellen, wie dein Aufrufstapeleintrag genau heißt!
Diesen Namen musst du dann (siehe Link) in die Variable ZZPGM in dem korrekten Format einstellen.

Ansonsten lass das Programm halt auf OPM.

Guten Morgen

Wenn es denn schon nicht in SDS *PROC ist, gibts es einen Weg, sowas zur Laufzeit zu ermitteln?

Grüsse

[B.Hauser]

Hallo,

es ist zwar schon eine Weile her, dass ich mich mit MSGSFLs auseinandergesetzt habe, da ich die Nachrichten immer direkt an die externe Message Queue schicke und mir damit keine Gedanken um einen Aufrufstapel machen muss.

Wenn ich micht recht erinnere ist es bei ILE 1 Stufe mehr als bei OPM, da die Funktion gewrappt wird.
Langer Rede kurzer Sinn versuch's doch einfach mal mit:

SNDPGMMSG MSGID(&MSGID) MSGF(&MSGFL/&MSGF)  +
          MSGDTA(&PARM) [B]TOPGMQ(* (2)) [/B]+       
          MSGTYPE(*NOTIFY)  KEYVAR(&MSGNBR) 

Birgitta

[ebschubert]

Hallo,

es ist zwar schon eine Weile her, dass ich mich mit MSGSFLs auseinandergesetzt habe, da ich die Nachrichten immer direkt an die externe Message Queue schicke und mir damit keine Gedanken um einen Aufrufstapel machen muss.

Wenn ich micht recht erinnere ist es bei ILE 1 Stufe mehr als bei OPM, da die Funktion gewrappt wird.
Langer Rede kurzer Sinn versuch's doch einfach mal mit:

SNDPGMMSG MSGID(&MSGID) MSGF(&MSGFL/&MSGF)  +
          MSGDTA(&PARM) [b]TOPGMQ(* (2)) [/b]+       
          MSGTYPE(*NOTIFY)  KEYVAR(&MSGNBR) 

Birgitta

Vielen Dank

.... aber es geht noch einfacher !!!!!

aus dem Link
http://publib.boulder.ibm.com/infoce...mstdfsfpmq.htm

Special value

The SFLPGMQ field can contain a special value, * (asterisk), instead of a program message queue name. If the program moves an asterisk to the SFLPGMQ field, the i5/OS operating system uses the message queue of the program issuing the output operation. You cannot use an asterisk if your program is a CL program.

Habe den SDS *PROC-Bereich wie folgt definiert

 D PGMDS          SDS              
 d  ZZPGM                  1    276
 d  ZZPG1                  1    256
 d  ZZPG2                257    266
 d  ZZPG3                267    276
 ** ZZPGM            *proc

und dann einfach folgendes gemacht

 
c                   movel(p)  '*'           zzpg1
c                   move      *blanks       zzpg2
c                   move      *blanks       zzpg3

... und es funxt!!!!!!!!!!


Trotzdem vielen Dank...

Grüsse
Andreas

[B.Hauser]

Ich wollte Dir gerade noch die folgende Lösung vorschlagen:

Der Programm-Name in Deinem Anzeige-Programm ist bekannt (Programm-Status-Datenstruktur Stelle 1-10).
Übergib diesen Programm-Namen an Dein CL-Programm und schicke die Message direkt an diese Programm-Queue.

SNDPGMMSG MSGID(&MSGID) MSGF(&MSGFL/&MSGF)  +
          MSGDTA(&PARM) TOPGMQ(&MYPGM) +       
          MSGTYPE(*NOTIFY)  KEYVAR(&MSGNBR) 

Ich würde von der Programm-Status-Datenstruktur die Finger lassen und NICHT verändern.

Birgitta