midrange.com code scratchpad |
Name:
Retrieve activation group of programs.
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
11/04/2015 04:27:44 pm
|
IP:
Logged
|
|
Description:
Example of retrieving activation group of programs.
|
Code:
- Pieces of CHECKILE rpgle program.
- * Create outfiles in QTEMP
-
- C eval RtnErr = ExcCmd('DSPOBJD OBJ(' + %trim(lib1)
- C
- C + '/*ALL) OBJTYPE(*PGM) OUTPUT(*OUTFILE) '
- C + 'OUTFILE(QTEMP/DSPOBJD1)'
- C :ErrMsgID:ErrMsg)
-
- C Call 'RTVPGMINF'
- C Parm Odobnm
- C Parm Odlbnm
- C Parm *Blanks Actgrp
- C Parm Errid
- C If Actgrp <> 'QILE'
- C except ile
- C Endif
-
- RTVPGMINF CLLE program
-
- PGM PARM(&PGMNAME &LIBNAME &ACTGRP &ERRORID)
-
- /* VARIABLES */
-
- DCL VAR(&RECEIVER) TYPE(*CHAR) LEN(399)
- DCL VAR(&RCVLEN) TYPE(*CHAR) LEN(4)
- DCL VAR(&FORMAT) TYPE(*CHAR) LEN(8)
-
- /* TOTAL LENGHT ERROR STRUCTURE */
- DCL VAR(&ERROR) TYPE(*CHAR) LEN(96)
-
- DCL VAR(&LENGTH) TYPE(*DEC) LEN(15 0)
- DCL VAR(&LENGTHA) TYPE(*CHAR) LEN(4)
-
- DCL VAR(&PGMNAME) TYPE(*CHAR) LEN(10)
- DCL VAR(&LIBNAME) TYPE(*CHAR) LEN(10)
- DCL VAR(&QUALPGMNME) TYPE(*CHAR) LEN(20)
-
- DCL VAR(&ACTGRP) TYPE(*CHAR) LEN(30)
- DCL VAR(&ERRORID) TYPE(*CHAR) LEN(7)
- /* SET VARIABLES */
- CHGVAR VAR(&QUALPGMNME) VALUE(&PGMNAME *CAT +
- &LIBNAME)
-
- CHGVAR VAR(&LENGTH) VALUE(399)
- CHGVAR VAR(%BIN(&RCVLEN)) VALUE(&LENGTH)
-
- CHGVAR VAR(&FORMAT) VALUE('PGMI0100')
-
- /* ERROR STRUCTURE AVAILABLE LENGTH */
- CHGVAR VAR(&LENGTH) VALUE(88)
- CHGVAR VAR(%BIN(&LENGTHA)) VALUE(&LENGTH)
- CHGVAR VAR(%SST(&ERROR 1 4)) VALUE(&LENGTHA)
-
- /* THE VALID ERROR LENGTH WILL BE SET BY THE API */
- CHGVAR VAR(&LENGTH) VALUE(0)
- CHGVAR VAR(%BIN(&LENGTHA)) VALUE(&LENGTH)
- CHGVAR VAR(%SST(&ERROR 5 4)) VALUE(&LENGTHA)
- CALL PGM(QCLRPGMI) PARM(&RECEIVER &RCVLEN &FORMAT +
- &QUALPGMNME &ERROR)
- MONMSG MSGID(CPF0000)
-
- /* DUE TO FACT THAT THE FIELDS DESCRIBED IN THE */
- /* DOCUMENT BEGIN AT POSITION ZERO YOU HAVE TO ADD +1 TO */
- /* THE GIVEN POSITION TO GET THE DATA CORRECTLY */
- CHGVAR VAR(&ACTGRP) VALUE(%SST(&RECEIVER 369 30))
- CHGVAR VAR(&ERRORID) VALUE(%SST(&ERROR 9 7))
-
- ENDE: RETURN
-
- ENDPGM
|
|
|