Zum besseren Verständnis habe ich hier mal meine 2 Programme dargestellt. Wenn ich nun im Programm1 bei LEN als Wert Inz(21) angebe und im Programm2 DCL VAR(&LANG1) TYPE(*DEC) LEN(5 0) VALUE(21) angebe funktioniert mein Programm nicht. So war das gemeint, mit dem falschen Wert.

Dieses Programm wird per Batchdatei mit dem Befehl rmtcmd call pgm(Programm1)vom PC aus gestartet.

D Que s 10 Inz('DTAQSTEINL')
D Lib s 10 Inz('STAR')
D Len s 5 0 Inz(5)
D Wait s 5 0 Inz(-1)
D Data DS 50

C DoU *InLr
C Call 'QRCVDTAQ'
C Parm Que
C Parm Lib
C Parm Len
C Parm Data
C Parm Wait

C Select
C When Data = 'START'
C Leave

C EndSl

C EndDo

C Eval *InLr = *On


Programm2 starte ich mit dem Befehl call pgm(Programm2) nach dem das Programm1 per Batch gestartet wurde.

PGM

DCL VAR(&LANG1) TYPE(*DEC) LEN(5 0) VALUE(5)
DCL VAR(&TEXT1) TYPE(*CHAR) LEN(5) VALUE('START')

CALL PGM(QSNDDTAQ) PARM(DTAQSTEINL STAR &LANG1 &TEXT1)

ENDPGM