Discussion :

[passager123]

Bonjour à tous,

J'aimerai savoir si c'est possible via le WRKJOBSCDE de mettre la machine en mode restreint par le biais d'un CL. Si oui faut-il faire une configuration particulière ?

J'ai essayé de le faire mais a chaque fois j'ai un message d'erreur me disant "Commande ENDSYS non admise dans ce type d’exécution". Si je lance le CL manuellement, le système passe bien en mode restreint.

Merci d'avance pour votre aide.

[FORMULARY]

Bonjour.
Je ne suis pas sûr de ma réponse, mais il me semble qu'il faut indiquer CONFIRM(*NO) dans la commande ENDSYS, et il faut aussi que dans le scheduler, on aie spécifié la file d'attente du sous-système de contrôle (QBASE ou QCTL, selon la valeur système QSBSCTL)

[passager123]

Bonjour.
Je ne suis pas sûr de ma réponse, mais il me semble qu'il faut indiquer CONFIRM(*NO) dans la commande ENDSYS, et il faut aussi que dans le scheduler, on aie spécifié la file d'attente du sous-système de contrôle (QBASE ou QCTL, selon la valeur système QSBSCTL)

D'accord je vais essayer ça et je vous tiens au courant. Si vous avez d'autre idée je suis preneur. Merci

[passager123]

J'aurai une autre question, est-ce que quelqu'un peut me dire comment fonctionne le QSTRUPPGM ? A qu'elle moment le système y fait-il appel ? Est-ce juste à l'IPL ou aussi après le SAVE 21 ?

[FORMULARY]

Bonjour.
Le programme paramétré dans la variable système QSTRUPPGM est un programme qui est appelé à chaque démarrage du sous-système de contrôle.
Donc à la fin du save 21, il n'y a pas d'appel. C'est au redémarrage du sous-système de contrôle, après un IPL ou après un STRSBS que le programme est appelé.

Le programme démarre les autres sous-systèmes, ainsi que les imprimantes.
On peut faire un RTVCLSRC du programme de QSYS pour récupérer le source du programme.
Par contre, il vaut mieux ne pas recompiler votre QSTRUP dans QSYS.
Recompilez votre QSTRUP dans QGPL, et si vous voulez n'ajouter que vos ordres à exécuter, faire un programme avec vos commandes spécifiques et un call qsys/qstrup pour appeler les fonctions standard.
Ensuite, vous n'aurez plus qu'à modifier la valeur système pour retomber dans le standard ou dans le spécifique.

[m4k-Hurrican]

Bonjour,

Pour ce qui est de l'arrêt système, il ne peut être effectué qu'en interactif.
Si tu lances ton CL, çà fonctionnera.
Si tu soumets ton CL, çà ne fonctionnera pas.
Bref via leWRKJOBSCDE c'est impossible.

Ensuite, quelle est la raison pour laquelle tu veux planifier un ENDSYS ?
Si c'est pour éviter que des personnes ne travaillent durant une période, tu peux plutôt arrêter le/les sous-systèmes de travaux concernés (QBASE, QINTER, QBATCH par exemple).
Si c'est pour effectuer une sauvegarde générale, utilises plutôt ENDSBS SBS(*ALL).

[passager123]

Bonjour,

Pour ce qui est de l'arrêt système, il ne peut être effectué qu'en interactif.
Si tu lances ton CL, çà fonctionnera.
Si tu soumets ton CL, çà ne fonctionnera pas.
Bref via leWRKJOBSCDE c'est impossible.

Ensuite, quelle est la raison pour laquelle tu veux planifier un ENDSYS ?
Si c'est pour éviter que des personnes ne travaillent durant une période, tu peux plutôt arrêter le/les sous-systèmes de travaux concernés (QBASE, QINTER, QBATCH par exemple).
Si c'est pour effectuer une sauvegarde générale, utilises plutôt ENDSBS SBS(*ALL).

Bonjour et merci pour ta réponse m4k-Hurrican.

Je suis en train de créer des CL pour effectuer une sauvegarde complète de mon système. Les CL en question vont :

1- Mettre le système en Mode Restreint via la commande ENDSYS (*IMMED)

2 - Faire un Save 21

3- Lancer un Reclaim Storage (si besoin)

4- Lancer un IPL

Effectivement si je lance mon CL manuellement, tout fonctionne correctement. Mais comme tu me dis c'est interactif.

Y aurait-il un moyen pour que je corrige mon problème de ENDSYS afin que je puisse lancer mon CL via le WRKJOBSCDE et que toutes le étapes fonctionne ?

Est-ce que le ENDSBS SBS(*ALL) fait la même chose ?

Encore merci pour votre aide.

[passager123]

Je viens de tester avec un ENDSBS (*ALL) (*IMMED) et voila le message que j'ai en retour lorsque le WRKJOBSCDE lance mon CL.

[m4k-Hurrican]

Étrange,
J'ai moi même un programme qui tourne régulièrement et qui fait une sauvegarde sur les bandes en fin de semaine.
Tu as quoi comme commande dans ton WRKJOBSCDE ?
Et peut-on voir le source du programme ?

J'y pense, sachant que l'arrêt complet des sous-systèmes ne peut se faire que depuis un sous-système qui va rester actif (à savoir QCTL), as tu bien affecté la file d'attente QCTL de QSYS dans ton WRKJOBSCDE ?

[passager123]

Étrange,
J'ai moi même un programme qui tourne régulièrement et qui fait une sauvegarde sur les bandes en fin de semaine.
Tu as quoi comme commande dans ton WRKJOBSCDE ?
Et peut-on voir le source du programme ?

J'y pense, sachant que l'arrêt complet des sous-systèmes ne peut se faire que depuis un sous-système qui va rester actif (à savoir QCTL), as tu bien affecté la file d'attente QCTL de QSYS dans ton WRKJOBSCDE ?

Bonjour,

Oui j'ai mis comme ceci dans le WRKJOBSCDE :



Avec la file d'attente de travaux dans QCTL, je lance même avec QSECOFR.

Une capture d'ou se trouve le job lors de son lancement :



Voila le CL que je lance :

PGM

DCL VAR(&FICNOM) TYPE(*CHAR) LEN(10) VALUE('LOG')

ADDLIBLE LIB(LIBBCKP)
MONMSG MSGID(CPF0000)

CALL PGM(PRDMODRST)

/*CALL PGM(PRDSAVE21)*/

/*CALL PGM(PRDRCLSTG)*/

CALL PRDFICHDAT PARM(&FICNOM)

DSPJOBLOG JOB(*) OUTPUT(*OUTFILE) OUTFILE(LIBPRDDTA/&FICNOM)
DSPJOBLOG JOB(*) OUTPUT(*PRINT)

/* CALL PGM(PRDIPL)*/

RMVLIBLE LIB(LIBBCKP)

ENDPGM

Et voici le PRDMODRST :

PGM

ENDSBS SBS(*ALL) OPTION(*IMMED) DELAY(600)

ENDPGM

[m4k-Hurrican]

Alors ton problème est simple. Il manque un paramètre à ta commande ENDSBS. BCHTIMLMT(nbr_Minutes) !
Ajoute un BCHTIMLMT(180) par exemple pour limiter l'exécution à 3h.

[passager123]

Alors ton problème est simple. Il manque un paramètre à ta commande ENDSBS. BCHTIMLMT(nbr_Minutes) !
Ajoute un BCHTIMLMT(180) par exemple pour limiter l'exécution à 3h.

Parfait ! je viens de faire le test ça fonctionne. Encore Merci.

J'en profite j'aurai juste 2-3 questions de plus si je peux me permettre :

- A quoi sert le BCHTIMLMT ?

- Qu'elle est la différence entre le ENDSBS et ENDSYS ? Pourquoi l'un fonctionne et l'autre pas via le WRKJOBSCDE ?

- Est-ce que si j'ai des sous-systèmes actifs avec des jobs qui tourne à l'intérieur, le ENDSBS arrête proprement les jobs ?

- Est-il possible d’éditer un rapport (log) à la fin de mon CL avant l'IPL pour me montrer les étapes faites ? car en fin de CL j'ai mis un DSPJOBLOG mais ç'est assez imbuvable à lire ?

[m4k-Hurrican]

Le paramètre BCHTIMLMT va éviter qu'un programme soumis en mode restreint bloque la machine au delà d'un certain temps.
Au delà du temps imparti, le job sera arrêté, et le sous-système de contrôle redémarré.

Si tu fais un DSPCMD sur les commandes ENDSYS et ENDSBS, tu verras qu'elles n'ont pas les mêmes environnement d'exécution. Pourquoi ? Il faudrait poser la question à IBM. reste que ENDSYS ne peut pas être exécuté en BATCH, donc pas au travers du planning d'exécution (WRKJOBSCDE). Les commandes sont en gros équivalentes.

Si tu fais un ENDSBS OPTION(*CNTRLD), alors les jobs tournant recevront un message d'arrêt du sous-système. S'ils sont programmés pour intercepter ce message (avec SHTDN dans un RPG par exemple), ils peuvent s'arrêter proprement. Sinon ils seront arrêtés de manière forcée lorsque la limite indiquée dans le paramètre DELAY() sera atteinte.

Pour le JobLog, rien d'extraordinaire. Fais un CHGJOB en début de programme, pour programmer une sortie de tout ce qui se déroule, avec enregistrement des commandes CL : CHGJOB LOG(4 00 *SECLVL) LOGCLPGM(*YES) pour avoir un maximum de détails. Ce ne sera pas forcément très lisible, mais au moins tu auras des infos.

[passager123]

Le paramètre BCHTIMLMT va éviter qu'un programme soumis en mode restreint bloque la machine au delà d'un certain temps.
Au delà du temps imparti, le job sera arrêté, et le sous-système de contrôle redémarré.

Si tu fais un DSPCMD sur les commandes ENDSYS et ENDSBS, tu verras qu'elles n'ont pas les mêmes environnement d'exécution. Pourquoi ? Il faudrait poser la question à IBM. reste que ENDSYS ne peut pas être exécuté en BATCH, donc pas au travers du planning d'exécution (WRKJOBSCDE). Les commandes sont en gros équivalentes.

Si tu fais un ENDSBS OPTION(*CNTRLD), alors les jobs tournant recevront un message d'arrêt du sous-système. S'ils sont programmés pour intercepter ce message (avec SHTDN dans un RPG par exemple), ils peuvent s'arrêter proprement. Sinon ils seront arrêtés de manière forcée lorsque la limite indiquée dans le paramètre DELAY() sera atteinte.

Pour le JobLog, rien d'extraordinaire. Fais un CHGJOB en début de programme, pour programmer une sortie de tout ce qui se déroule, avec enregistrement des commandes CL : CHGJOB LOG(4 00 *SECLVL) LOGCLPGM(*YES) pour avoir un maximum de détails. Ce ne sera pas forcément très lisible, mais au moins tu auras des infos.

Encore merci M4k pour ton aide, je suis débutant dans le monde de l'IBMi et c'est pas toujours facile. Heureusement qu'il y a des gens comme toi qui réponde aux messages.

Nous seront surement amené à nous reparler car je pense que je reposerai des questions sur le forum.

Merci beaucoup et bonne journée.

[passager123]

Je me permet de vous solliciter encore car je viens de rencontrer un soucis juste après le ENDSBS *all.

Juste après le ENDSBS *all mon CL ne fais plus rien, je pense que c'est normal étant donné qu'on arrête tous les sous systèmes donc même QCTL ( qui est le sous-système de contrôle) et mon CL de sauvegarde est schedulé sous QCTL. De plus le fais de faire un ENDSBS *all je perd même la main sur DSP01 donc je n'ai plus le choix d'attendre la fin du BATCHLIMIT.

Si c'est le cas il faudrait que je personnalise ma commande ENDSBS en mettant tous les sous système sauf QCTL ? Si oui, quel sous système faut-il arrêter obligatoirement avant des sauvegardes ?

Merci encore pour ton aide.

[m4k-Hurrican]

QCTL ne s'arrête pas lors d'un ENDSBS(*ALL) s'il est le sous-système de contrôle.
Ce que je suppose c'est que sur ton serveur la valeur système QCTLSBSD est toujours sur la valeur par défaut QBASE.
Ton serveur est livré d'origine avec 2 sous-systèmes de contrôle. QBASE la valeur par défaut, et QCTL (tous deux dans la bibliothèque QSYS).
En gros, QBASE est une version simplifiée, qui regroupe QCTL, QBATCH et QINTER, et QCTL une version avec une gestion plus fine, où les 3 sous-systèmes sont bien séparés.
Si tu changes la valeur de QCTLSBSD pour QSYS/QCTL tu ne devrais plus avoir de soucis.

Ton poste DSP01, que je suppose être une console, ne peux tourner que si QCTL est actif.

[FORMULARY]

Bonjour.
Lorsque le programme s'exécute dans le sous-système de contrôle (qctl chez toi, apparemment), il peut lancer la commande ENDSBS *ALL et n'est pas arrêté par celle-ci. le programme peut donc continuer et faire sa sauvegarde.
Peut-être y a-t-il autre chose. Est-ce que le travail laisse une trace dans l'outq QEZJOBLOG ?
Après la sauvegarde, le programme fait-il un STRSBS ou un PWRDWNSYS ?
Si tu peux, essaie de nous donner le listing de ce programme.

[passager123]

QCTL ne s'arrête pas lors d'un ENDSBS(*ALL) s'il est le sous-système de contrôle.
Ce que je suppose c'est que sur ton serveur la valeur système QCTLSBSD est toujours sur la valeur par défaut QBASE.
Ton serveur est livré d'origine avec 2 sous-systèmes de contrôle. QBASE la valeur par défaut, et QCTL (tous deux dans la bibliothèque QSYS).
En gros, QBASE est une version simplifiée, qui regroupe QCTL, QBATCH et QINTER, et QCTL une version avec une gestion plus fine, où les 3 sous-systèmes sont bien séparés.
Si tu changes la valeur de QCTLSBSD pour QSYS/QCTL tu ne devrais plus avoir de soucis.

Ton poste DSP01, que je suppose être une console, ne peux tourner que si QCTL est actif.

Encore merci pour ta réponse, j'ai bien le sous-système de contrôle sours QCTL.



Et Oui DSP01, c'est ma console HMC et elle se trouve bien dans le sous-système QCTL.

Le problème est que lorsque ma commande :

ENDSBS SBS(*ALL) OPTION(*IMMED) BCHTIMLMT(180)

DLYJOB DLY(120)

Je perd la main également sur ma console HMC. Et plus rien ne se passe car mon CL fais le ENDSBS puis ensuite lance les sauvegardes

PGM

DCL VAR(&FICNOM) TYPE(*CHAR) LEN(10)

INZTAP DEV(TAP01) NEWVOL(DEV) CHECK(*NO)

SAVLIB LIB(LIBPTOTO LIBTATA) DEV(TAP01) ENDOPT(*LEAVE) +
DTACPR(*NO)

SAVSYS DEV(TAP01) VOL(*MOUNTED) ENDOPT(*LEAVE)
MONMSG MSGID(CPF0000)

SAVLIB LIB(*NONSYS) DEV(TAP01) ENDOPT(*LEAVE) ACCPTH(*YES)
MONMSG MSGID(CPF0000)

SAVDLO DLO(*ALL) FLR(*ANY) DEV(TAP01) ENDOPT(*LEAVE)
MONMSG MSGID(CPF0000)

SAV DEV('/QSYS.LIB/TAP01.DEVD') OBJ(('/*') +
('/QSYS.LIB' *OMIT) ('/QDLS' *OMIT)) +
ENDOPT(*LEAVE) UPDHST(*YES)
MONMSG MSGID(CPF0000)

ENDPGM

Voila mon programme s'arrête après la ligne en rouge. J'ai bien sur ma TAP le SAVLIB mais à partir de SAVSYS rien !

Je ne vois pas du tout d'ou viens le problème.

[FORMULARY]

Apparemment, l'arrêt du sous-système ne fait pas partie du programme. C'est là que le problème réside.

Il faudrait un CLP qui exécute l'arrêt du sous-système et lance la sauvegarde puis redémarre la machine, dans un seul programme.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
PGM

ENDSBS SBS(*ALL) OPTION(*IMMED) BCHTIMLMT(180)

DLYJOB DLY(60)

SAVSYS ...
SAVCFG ...
SAVLIB *NONSYS ...
...

PWRDWNSYS *IMMED RESTART(*YES)

Là on dirait que tu as deux programmes. Un pour le ENDSBS et un pour la sauvegarde elle-même

[passager123]

Effectivement je vous explique comment fonctionne mes sauvegardes.

J'ai 5 CL :

- 1 CL de traitement qui va lancer les 4 autres CL par étape ---> (CLTRT)

- 1 CL qui fait le mode restreint (ENDSBS *all) ---> (CLMODRST)

- 1 CL qui fait les sauvegardes ---> (CLBCKP)

- 1 CL qui fait le Reclaim Storage --> (CLRS)

- 1 CL qui fait l'IPL ---> (CLIPL)

Donc le CLTRT lance 1 par 1 les autres CL. J'ai l'impression que lorsque nous faisons un CALL CLTRT ca fonctionne bien mais via WRKJOBSCDE ça ne fonctionne pas.