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
Bookmarks