Na dann mal viel Erfolg.

http://publib.boulder.ibm.com/infoce...s/sc415721.pdf

bringt dich vorwärts.

Hier mal was kleines:

PGM
DCL VAR(&C_TAG) TYPE(*CHAR) LEN(6) VALUE(' ')
DCL VAR(&C_TEST) TYPE(*CHAR) LEN(10) VALUE(' ')
DCL VAR(&I_WOCHE) TYPE(*DEC) LEN(1 0) VALUE(0)
RTVSYSVAL SYSVAL(QDAYOFWEEK) RTNVAR(&C_TEST)
SNDBRKMSG MSG(&C_TEST) TOMSGQ(xxx)
ENDPGM

Wobei XX durch deinen Terminalnamen ersetztz werden muß
GG