Frohes Neues liebe RLP-Gemeinde !

Eine Dateigröße über API zu ermitteln ist nicht das Thema, sondern eher die Anzeige per 'QMHSNDPM'.

PGM-Ablauf ist folgender:

CMD 'DSPFSIZ' aufrufen, File und zugehörige Libl angeben.

Diese beiden Parameter werden an ein CLLE übergeben

Code:
 
/*------------------------------------------------------------------*
             PGM        PARM(&FIL &LIBL)                             
                                                                     
             DCL        VAR(&FIL) TYPE(*CHAR) LEN(10)                
             DCL        VAR(&LIBL) TYPE(*CHAR) LEN(10)               
                                                                     
/*    Programm zur Anzeige aufrufen                              */  
             CALL       PGM(WI567) PARM(&FIL &LIBL)                  
                                                                     
 ENDE:       ENDPGM
Leider funktioniert dann die Anzeige per QMHSNDPM nicht...

Rufe ich WI567 mit 2 Parametern ohne zwischengeschaltetes CL auf, funktionierts... wo liegt der Fehlerteufel begraben ?

Code:
D P_MsgID         S              7    INZ('CPF9897')
     D P_MsgFile       S             20    INZ('QCPFMSG   *LIBL')
     D P_MsgData       S             80
     D P_MsgKey        S              4
     D P_MsgType       S             10    INZ('*INFO')
     D P_PgmQueue      S             10    INZ('*CTLBDY')
     D P_PgmStack      S             10I 0 INZ(1)
     D P_DataLength    S             10I 0
 
 
 C                   CALL (E)  'QMHSNDPM'
     C                   PARM                    P_MsgID
     C                   PARM                    P_MsgFile
     C                   PARM                    P_MsgData
     C                   PARM                    P_DataLength
     C                   PARM                    P_MsgType
     C                   PARM                    P_PgmQueue
     C                   PARM                    P_PgmStack
     C                   PARM                    P_MsgKey
     C                   PARM                    P_Error
Gruß
Bratmaxxe