Suche API: Bildschirm eines Benutzers

[malzusrex]

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.]