Discussion :

[pier06]

Bonjour à tous,

Je me permets de vous écrire afin d'avoir si possible votre aide concernant la modification des sous systèmes démarrés après un IPL sur AS400.

En effet, comme vous le savez, lors du redémarrage de l'AS400, les sous systèmes par défaut sont lancés, à savoir QSPL, QSERVER, QBATCH, etc...), mais rien par exemple pour CFT ou encore QSNADS.

En surfant sur différents site, il est souvent indiqué de passer la commande RTVCLSRC PGM(QSYS/QSTRUP) SRCFILE($BLDSS1/S000028739) après récupération de la valeur système de QSTRUP dans WRKSYSVAL.

Mon problème est que j'ai tout respecté mais ça ne fonctionne pas, je n'arrive pas à accéder au CL pour rajouter les lignes CFT, QSNADS (j'ai essayé avec la bibliothèque QSYS, QGPL rien ne marche). Je suis novice alors je sais pas trop...

Pouvez-vous m'aider et m'expliquer comment faire svp ??

Je vous remercie à tous pour vos conseils

Cordialement

[Hédhili Jaïdane]

Bonjour.

Pour changer le programme de démarrage automatique après l'IPL, voilà ce que tu devrais faire :

1. Regarder ce que contient la sysval QSTRUPPGM par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DSPSYSVAL QSTRUPPGM

Supposons que tu trouves MONSTRPGM1 dans la biblio MAPERMLIB1. Initialement c'est la biblio QSYS.

2. Récupérer le programme source qui correspond à ce programme par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RTVCLSRC PGM(MAPERMLIB1/MONSTRPGM1) SRCFILE(MAPERLIB2/MONFICCL) SRCMBR(MONSTRPGM2)

Par cette commande, tu vas mettre le source récupéré dans le membre MONSTRPGM2 dans le fichier source MONFICCL de la biblio MAPERLIB2

3. Modifier ce programme par SEU en ajouter les lignes que tu veux juste avant les 3 dernières lignes du membre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
/* Ajout des lignes user */
RETURN
CHGVAR VAR(&CPYR) VALUE(&CPYR)
ENDPGM

4. Tu compiles ton membre source MONSTRPGM2 par l'option 14 de PDM ou la commande CRTCLPGM pour créer le programme objet exécutable avec le même nom MONSTRPGM2 (ou un autre nom).

5. Tester le programme créé MONSTRPGM2, il n'y a pas grand risque sauf s'il y a dans ce programme des programmes utilisateurs qui ont un effet cumulatif.

6. Remplacer le programme et la bibliothèque de la sysval QSTRUPPGM par le nouveau programme MONSTRPGM2 et sa biblio MAPERLIB2

J'ai fait exprès de donner un exemple de noms bien tarabiscotés, mais normalement le programme d'origine est QSYS/QSTRUP et le nouveau programme devrait porter le même QSTRUP pour des raisons de lisibilité et de préférence mis dans la biblio QGPL. Son membre devrait aussi s'appeler QSTRUP et mis le fichier source QCLSRC de la biblio QGPL.

[pier06]

Bonjour Hédhili Jaïdane,

Tout d'abord je te remercie pour ta réponse très détaillée Je testerais dès lundi au boulot.

Point 1 : Pas de problème

Point 2 : Pour la première partie du code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RTVSYSVAL PGM(MAPERMLIB1/MONSTRPGM1)

Pas de problème, je récupère l'info SYSVAL de QSTRUPPGM,

Par contre, pour la seconde partie du code j'ai pas tout bien compris,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SRCFILE(MAPERLIB2/MONFICCL) SRCMBR(MONSTRPGM2)

A quoi correspondent MAPERLIB2, MONFICCL et MONSTRPGM2 ?

Point 3 : Donc dans PDM, choix 2, je modifie le source MONFICCL de la biblio MAPERLIB2 en y rajoutant les lignes que je souhaite, est-ce bien ça ?

Encore merci pour ton aide et désolé pour ces nouvelles questions, comme je suis pas un spécialiste, je préfère demander pour être sûr avant de faire ces modifs

[Hédhili Jaïdane]

....Par contre, pour la seconde partie du code j'ai pas tout bien compris,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SRCFILE(MAPERLIB2/MONFICCL) SRCMBR(MONSTRPGM2)

A quoi correspondent MAPERLIB2, MONFICCL et MONSTRPGM2 ?

C'est la suite des paramètres de la commande RTVCLSRC au temps pour moi, à rectifier (j'ai rectifié mon précédent post):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RTVCLSRC PGM(MAPERMLIB1/MONSTRPGM1) SRCFILE(MAPERLIB2/MONFICCL) SRCMBR(MONSTRPGM2)

Par cette commande, tu vas mettre le source récupéré dans le membre MONSTRPGM2 dans le fichier source MONFICCL de la biblio MAPERLIB2

Point 3 : Donc dans PDM, choix 2, je modifie le source MONFICCL de la biblio MAPERLIB2 en y rajoutant les lignes que je souhaite, est-ce bien ça ?

Oui et non, tu modifies le membre source MONSTRPGM2 qui a été mis par la commande RTVCLSRC dans le fichier source MONFICCL de la biblio MAPERLIB2 puis tu le compiles.

STRPDM > option 2 (Gestion des objets), renseigner la biblio, > option 12 devant MONFICCL > option 2 devant MONSTRPGM2, tu modifies, tu sauvegardes et tu compiles par l'option 14.

Tu as intérêt à ce que le biblio dans laquelle tu vas mettre ton nouveau programme soit une bibliothèque permanente sur l'AS/400, sinon ça plantera. Je te conseille vivement de faire les remplacements suivants :

MONSTRPGM2 ==> QSTRUP
MONFICCL ==> QCLSRC
MAPERLIB2 ==> QGPL

- N'hésite pas d'utiliser F4 pour te permettre de paramétrer les commandes ou voir les valeurs possibles d'un paramètre.

- Utilise aussi F1 pour de l'aide, l'AS/400 est bien bavard, mais son aide est bien utile.

[pier06]

Je te remercie pour ton aide Hédhili Jaïdane ! Je testerais dès lundi

[pier06]

Salut Hédhili Jaïdane,

Merci pour tes conseils, ça a parfaitement fonctionné, avec la commande RTVCLSRC, le source a été extrait et mis dans QCLSRC de la biblio QGPL. Du coup, j'ai pu accéder au détail des commandes lancées après IPL

Pour t'expliquer, ma boite possède deux AS4000, 1 pour le quotidien et 1 pour le backup en cas de pb. Je veux configurer la seconde machine pour qu'elle soit prête le cas échéant.

J'ai comparé le source extrait du backup et de la prod quotidienne, et c'est le même, le paramétrage du démarrage automatique de CFTSBS1 et de ses sous systèmes + QSNADS et de ses sous systèmes après IPL se trouve visiblement ailleurs. Sais-tu où par hasard ?

Encore merci pour ta précieuse aide

[Hédhili Jaïdane]

Bonjour.

Je ne connais pas bien le volet des s/systèmes, mais regarde, avec WRKSBSD, le poste des travaux à démarrage automatique du s/système de contrôle QBASE ou QCTL. Comme on peut starter un s/système par la simple commande STRSBS, ça peut être aussi n'importe où dans des programmes utilisateurs. Regarde aussi dans les travaux planifiés (WRKJOBSCDE).

Mais le plus simple est de demander à l'admin du/des systèmes.