API QMHLJOBL (List Job Log Messages)

[LIANAZEL]

Bonjour,


Quelqu'un aurait-il sous la main un exemple de programme ou l'API
QMHLJOBL ( List Job Log Messages) est utilisée ?

Merci.

[FORMULARY]

Source récupéré je ne sais plus où sur le net :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
PGM
  DCL &SPACE      *CHAR 20 VALUE('LJOBL     QTEMP')
  DCL &BIN4       *CHAR 4
  DCL &OFFSET     *CHAR 4
  DCL &CNT *DEC LEN(5 0) VALUE(0)
  DCL &JSLT *CHAR 200 VALUE(' ')
  DCL &BUFFER *CHAR 200
  DCL &DESC *CHAR 50 VALUE(' ')
  DCL &MSGID *CHAR 7
  DCL &MSGKY *CHAR 4
  DCL &SENDER *CHAR 12

  CALL QUSCRTUS PARM(&SPACE +
          'USF400     ' X'00000400' ' ' '*CHANGE   ' &DESC)
    MONMSG CPF9870 EXEC(RCVMSG MSGTYPE(*LAST))

  /*  LIST THE 10 MOST RECENT MESSAGES IN THE JOB LOG            */

  CHGVAR %SST(&JSLT 1  4) X'0000000A'     /* MAX TO RETURN */
  CHGVAR %SST(&JSLT 5 11) '*PRV      *'
  CHGVAR %SST(&JSLT 57 4) X'FFFFFFFF'     /* LAST MSG FIRST */
  CHGVAR %SST(&JSLT 69 4) X'00000058'     /* OFFSET 89 */
  CHGVAR %SST(&JSLT 73 4) X'00000001'     /* NUMBER OF FIELDS */
  CHGVAR %SST(&JSLT 77 4) X'00000054'     /* OFFSET 85 */
  CHGVAR %SST(&JSLT 81 4) X'00000001'
  CHGVAR %SST(&JSLT 85 1) '*'             /* ALL MESSAGES */
  CHGVAR %SST(&JSLT 89 4) X'0000025B'     /* 603 IS SENDER PGM NAME */

  CALL QMHLJOBL PARM(&SPACE LJOB0100 &JSLT X'00000060' 'JSLT0100' +
         X'00000000')
  CALL QUSRTVUS PARM(&SPACE X'00000085' X'00000004' &BIN4)
  CHGVAR &CNT %BINARY(&BIN4)
  IF (&CNT = 0) THEN(GOTO NOMSG)
  CALL QUSRTVUS PARM(&SPACE X'0000007D' X'00000004' &BIN4)
LOOP:
  CALL QUSRTVUS PARM(&SPACE &BIN4 X'0000003E' &BUFFER)
  CHGVAR &BIN4   %SST(&BUFFER 2 4)     /* NEXT RECORD */
  CHGVAR &OFFSET %SST(&BUFFER 6 4)
  CHGVAR &MSGID  %SST(&BUFFER 18 7)
  CHGVAR &MSGKY  %SST(&BUFFER 27 4)
  CALL QUSRTVUS PARM(&SPACE &OFFSET X'0000003E' &BUFFER)
  CHGVAR &SENDER %SST(&BUFFER 34 12)    /* skip 32-byte data header */
  IF (&MSGID ='CPF9801') THEN(RMVMSG MSGKEY(&MSGKY))
  IF (&MSGID ='       ') THEN(RMVMSG MSGKEY(&MSGKY))
  IF (&SENDER='MYPGM') THEN(RMVMSG MSGKEY(&MSGKY))
  CHGVAR &CNT (&CNT - 1)
  IF (&CNT *GT 0) THEN(GOTO LOOP)
  RETURN
NOMSG:
  SNDPGMMSG 'No messages found!'
ENDPGM

[LIANAZEL]

Merci pour le coup de pouce.

Je vais potasser ce source