ILE RPG
...meinetwegen auch CLLE - dort habe ich schon folgendes gefunden (Umwandlung schlug aber mit "CPD0791 - Keine Kennsätze im Programm verwendet" fehl):
Code:PGM DCL VAR(&DSPMODE) TYPE(*CHAR) LEN(1) DCL VAR(&SSNID) TYPE(*INT) LEN(4) DCL VAR(&ERRDS) TYPE(*CHAR) LEN(16) + VALUE(X'0000000000000000') CALLPRC PRC('QSNRTVMOD') PARM((&DSPMODE *BYREF) + (&SSNID *BYREF) (&ERRDS *BYREF)) SNDPGMMSG MSG('DISPLAY SIZE IS SET TO ' *BCAT &DSPMODE) ENDPGM
Bookmarks