| 
PGM
DCLF FILE(WRKTOOLD) RCDFMT(TITRE SELECT)
DCL &SRCFIC *CHAR 10
DCL &FICLIB *CHAR 20
/* TOUTES LES LISTES SERONT FAITES VIA */
/* UN USER SPACE DANS QTEMP */
/* SI LE *USRSPC N'EXISTE PAS ==> CREATION */
CHKOBJ OBJ(QTEMP/SPCTOOL) OBJTYPE(*USRSPC)
MONMSG CPF9801 EXEC(DO)
CALL QUSCRTUS PARM('SPCTOOL QTEMP ' +
'TOOLS ' +
X'00000FFF' +
' ' +
'*CHANGE ' +
'USER SPACE POUR LISTE DES OUTILS' )
ENDDO
SNDF RCDFMT(TITRE)
IMAGE: SNDRCVF RCDFMT(SELECT)
/* F3 OU F12 = SORTIE */
IF &IN03 DO
DLTUSRSPC QTEMP/SPCTOOL
MONMSG CPF0000
RCLRSC
RETURN
ENDDO
/* F21 FENETRE VIA API */
IF &IN21 DO
CALL QUSCMDLN
GOTO IMAGE
ENDDO
CHGVAR &SRCFIC ('QATTINFO')
/* STOCKAGE DU PARAMETRE SAISI SUR IMAGE 1 */
CALL QUSCHGUS PARM('SPCTOOL QTEMP ' +
/* POSITION DE DEBUT */ X'00000001' +
/* LG DES DONNEES=10 */ X'0000000A' +
/* DONNEES */ &SEL +
/* FEOD (0=NO) */ '0' )
/* REMPLISSAGE AVEC LISTE DES MEMBRES */
|
|
CHGVAR &FICLIB (&SRCFIC *CAT 'QUSRTOOL')
CALL QUSLMBR PARM('SPCTOOL QTEMP ' +
'MBRL0200' +
&FICLIB +
&SEL +
'0' )
/* APPEL DU PGM LISTE DES OUTILS */
CALL WRKTOOL1
GOTO IMAGE
ENDPGM
|
