hier ein kleines anregungsbeispiel
cl-proggie
[code]
pgm (&user &msg)
/* Variablen deklarieren */
dcl &user *char 10
dcl &msg *char 100
/* Work-File löschen */
dltf qtemp/userjob
monmsg cpf0000
/* Work-File erstellen */
crtpf qtemp/userjob rcdlen(132)
monmsg cpf0000
/* Benutzer-Jobs ermittel */
wrkusrjob &user *active *print
/* SpoolFile kopieren */
cpysplf qpdspsbj qtemp/userjob splnbr(*last)
/* SpoolFile löschen */
dltsplf qpdspsbj splnbr(*last)
/* Msg senden */
call sendmsg (&user &msg)
endpgm
und hier das rpg-proggie sendmsg
[code]
h dftactgrp(*no) bnddir('QC2LE')
fuserjob if f 132 disk
d system pr 10i 0 extproc('system')
d * value options(*string)
d user s 10a Benutzer
d msg s 100a Nachricht
d cmdstring s 255a
iuserjob rm 01
i 1 132 zeile
c *entry plist
c parm user
c parm msg
c
c read userjob
c dow not %eof(userjob)
c if %scan('INTER':zeile) > *zeros
c eval cmdstring = 'sndbrkmsg ''' +
c %trimr(msg) + ''' ' +
c %subst(zeile:4:10)
c callp system(cmdstring)
c
c endif
c read userjob
c enddo
c
c eval *inlr = *on
tschau ronald
[Dieser Beitrag wurde von malzusrex am 03. März 2003 editiert.]
Bookmarks