Bonjour à tous,
je me permet de poster sur ce forum, car je suis actuellement devant un probleme.
Mon entreprise dispose d'un as400:
systep type:9406
system model:170
susystem OS V4R3M0
et depuis 3 jours nous rencontrons un problème.
Tout les jours j'enclenche la sauvegarde (sauvegarde + démarrage). Et depuis 3 jours lorsque l'on arrive le matin plus de réseau.
-Pas de coupure électrique de nos dispositifs réseau.
Test effectué depuis l'ecran as400 ping son IP il nous retourne ceci:
"No TCP/IP service available" je n'ai jamais rencontré ce problème depuis que je suis dans l'entreprise.
Donc depuis 3 jours j'effectue un arret de l'as400, et je redémarre. (Et la pas de problème réseau)
Pourriez-vous m'aiguillez pour mettre trouver la cause de ce dysfonctionnement.
PS: Je ne suis pas un expert as400.
Merci d'avance pour votre aide
guigui69
Probleme de réseau sur l'as400
-
gmenu
- Messages : 30
- Enregistré le : ven. 22 juin 2007, 17:12:22
- Localisation : CARQUEFOU( 44470)
- Contact :
(sans texte)
Bonjour,
Votre procédure de sauvegarde ne se termine peut-être pas correctement depuis quelques jours.
Et si votre procédure effectue un arrêt de TCP/IP avant sauvegarde et un redémarrage ensuite, le redémarrage n'est donc pas effectué.
Vérifiez les messages avec DSPMSG QSYSOPR, et s'il y a un message d'erreur répondez de façon à ignorer l'erreur pour terminer la procédure.
Ensuite analysez le problème signalé pour éviter son retour le lendemain.
Votre procédure de sauvegarde ne se termine peut-être pas correctement depuis quelques jours.
Et si votre procédure effectue un arrêt de TCP/IP avant sauvegarde et un redémarrage ensuite, le redémarrage n'est donc pas effectué.
Vérifiez les messages avec DSPMSG QSYSOPR, et s'il y a un message d'erreur répondez de façon à ignorer l'erreur pour terminer la procédure.
Ensuite analysez le problème signalé pour éviter son retour le lendemain.
-
guigui69
(sans texte)
Merci pour ces indications.
concernant la sauvegarde c'est vrai qu'elle ma indiquée un message.
( des messages concernant la sauvegarde, ça arrive de temps en temps mais cela n'a jamais bloqué le démarrage du réseau sur notre as400)
dans DSPMSG QSYSOPR je n'ai pas de message en attente.
Merci d'avance pour votre aide
Guigui69
concernant la sauvegarde c'est vrai qu'elle ma indiquée un message.
( des messages concernant la sauvegarde, ça arrive de temps en temps mais cela n'a jamais bloqué le démarrage du réseau sur notre as400)
dans DSPMSG QSYSOPR je n'ai pas de message en attente.
Merci d'avance pour votre aide
Guigui69
-
cmasse
- Site Admin
- Messages : 813
- Enregistré le : mer. 14 févr. 2007, 18:00:03
- Localisation : Nantes
- Contact :
sauvegarde plantée
JE suis d'accord avec GUY, il doit y avoir un CL qui arrete TCP/IP.
le message que vous recevez doit être le TCP2670 et donc il y a la commande ENDTCP quelque part, probablement dans un CL de nuit.
si c'est le cas, vous devez avoir dans QSYSOPR, des messages de ce genre :
-ENDTCP started for user QSECOFR in job 027861/QSECOFR/DSP01
puis
-ENDTCP completed successfully.
retrouvez alors le JOB qui lance le CL contenant cette commande et regardez dans l'historique du JOB pourquoi il s'est arrêté de manière anormale.
le message que vous recevez doit être le TCP2670 et donc il y a la commande ENDTCP quelque part, probablement dans un CL de nuit.
si c'est le cas, vous devez avoir dans QSYSOPR, des messages de ce genre :
-ENDTCP started for user QSECOFR in job 027861/QSECOFR/DSP01
puis
-ENDTCP completed successfully.
retrouvez alors le JOB qui lance le CL contenant cette commande et regardez dans l'historique du JOB pourquoi il s'est arrêté de manière anormale.
Christian Massé (Volubis.fr)
-
guigui69
(sans texte)
Merci pour ta réponse.
Comme je suis pas un expert en as400 pourriez-vous me décrire la démarche?
Ici les fichier log dsplog:
Ici
(log du 03/02/2010 à 21h jusqu'a ce matin)
Est-ce de ce fichier de log que vous me parler?
Merci
guigui69
Comme je suis pas un expert en as400 pourriez-vous me décrire la démarche?
Ici les fichier log dsplog:
Ici
(log du 03/02/2010 à 21h jusqu'a ce matin)
Est-ce de ce fichier de log que vous me parler?
Merci
guigui69
-
cmasse
- Site Admin
- Messages : 813
- Enregistré le : mer. 14 févr. 2007, 18:00:03
- Localisation : Nantes
- Contact :
analyse de la LOG
Je vois deux choses dans votre historique système :
1 /
**** ATTENTION ! **** Mémoire secondaire pleine. Appuyez sur AIDE.
Limite inférieure critique atteinte pour la mémoire secondaire.
2/ Commande ENDSYS en cours. (à 4H du matin)
qui est une commande d'arrêt du système à l'exception de la console.
Cela arrête effectivement IP.
je suis incapable, à distance, de savoir ce qui doit d'habitude relancer la machine, sans doute la commande STRSBS QCTL dans un CL ? lequel ?
1 /
**** ATTENTION ! **** Mémoire secondaire pleine. Appuyez sur AIDE.
Limite inférieure critique atteinte pour la mémoire secondaire.
2/ Commande ENDSYS en cours. (à 4H du matin)
qui est une commande d'arrêt du système à l'exception de la console.
Cela arrête effectivement IP.
je suis incapable, à distance, de savoir ce qui doit d'habitude relancer la machine, sans doute la commande STRSBS QCTL dans un CL ? lequel ?
Christian Massé (Volubis.fr)
(sans texte)
Ça me choque quelque peu de voir que cet AS400 soit arrêté chaque nuit mais bon.
Savez vous comment est planifié votre sauvegarde? Un ordonnanceur? Le scheduleur de l'AS400 ?
Pour rétablir l'accès à l'AS400 il faut lancer un STRTCP ou (pour plus de sureté) un QSTRUP (sauf si vous avez une version personnelle portant un autre nom).
Je m'égare
Savez vous comment est planifié votre sauvegarde? Un ordonnanceur? Le scheduleur de l'AS400 ?
Pour rétablir l'accès à l'AS400 il faut lancer un STRTCP ou (pour plus de sureté) un QSTRUP (sauf si vous avez une version personnelle portant un autre nom).
Je m'égare
-
guigui69
(sans texte)
je pense pas qu'il doit redémarrer complement en fait il doit se mettre en mode restreint faire la sauvegarde et se mettre de nouveau en mode normale.
J'exécute la commande "arret" tout les jours pour lancer la sauvegarde.
Comment savoir se que réalise la commande arret exactement?
Merci
guigui69
J'exécute la commande "arret" tout les jours pour lancer la sauvegarde.
Comment savoir se que réalise la commande arret exactement?
Merci
guigui69
(sans texte)
2 choix principaux 
Pour trouver le type il faut faire un WRKOBJ ARRET, la colonne TYPE indique...le type
Soit c'est effectivement une commande au sens AS400 du terme, dans ce cas trouver le programme sur lequel elle s'appuie.
Soit c'est un programme (CLP plus vraisemblablement).
Pour une commande, faire un wrkcmd ARRET, là noter ce qu'il y a en face des lignes:
Programme d'exécution de la commande . :
Bibliothèque . . . . . . . . . . . . :
Ca donne le programme appelé derrière.
Pour un programme, il faut trouver le code source (ca commence à devenir un brin dur):
Faire un WRKPGM <nom du programme>
Taper 5 devant le programme et noter ce qu'il y a en face des lignes:
Fichier source . . . . . . . . . . . . . . . . . :
Bibliothèque . . . . . . . . . . . . . . . . . :
Membre source . . . . . . . . . . . . . . . . . :
Ensuite STRPDM pour retrouver le source du prog (oui là je fais court).
Et avec le source on pourra y voir plus clair
Pour trouver le type il faut faire un WRKOBJ ARRET, la colonne TYPE indique...le type
Soit c'est effectivement une commande au sens AS400 du terme, dans ce cas trouver le programme sur lequel elle s'appuie.
Soit c'est un programme (CLP plus vraisemblablement).
Pour une commande, faire un wrkcmd ARRET, là noter ce qu'il y a en face des lignes:
Programme d'exécution de la commande . :
Bibliothèque . . . . . . . . . . . . :
Ca donne le programme appelé derrière.
Pour un programme, il faut trouver le code source (ca commence à devenir un brin dur):
Faire un WRKPGM <nom du programme>
Taper 5 devant le programme et noter ce qu'il y a en face des lignes:
Fichier source . . . . . . . . . . . . . . . . . :
Bibliothèque . . . . . . . . . . . . . . . . . :
Membre source . . . . . . . . . . . . . . . . . :
Ensuite STRPDM pour retrouver le source du prog
(oui là je fais court).Et avec le source on pourra y voir plus clair
-
guigui69
(sans texte)
Voici le résultat de la première commande:
WRKOBJ ARRET:
wrkcmd ARRET
Au niveau de la premiere commande, il y a pas de cmd ou de programme? si ?
guigui69
WRKOBJ ARRET:
Code : Tout sélectionner
Opt Objet Type Biblio Attribut Texte
ARRET *USRPRF QSYS Opérateur arret
ARRET *MSGQ QUSRSYS Opérateur arret wrkcmd ARRET
Code : Tout sélectionner
Opt Commande Biblio Texte
(Objet correspondant au nom indiqué introuvable.) guigui69
-
guigui69
(sans texte)
Merci newael
je me suis mi sous l'user arret:
La commande wrkcmd ARRET
la commande WRKPGM ARRET:
Pour cette commande STRPDM je doit faire quoi ?
Merci
guigui69
je me suis mi sous l'user arret:
Code : Tout sélectionner
Opt Objet Type Biblio Attribut Texte
ARRET *USRPRF QSYS Opérateur arret
ARRET *MSGQ QUSRSYS Opérateur arret
ARRET *PGM ARRETPANI CLP Soumission arret
ARRET *CMD ARRETPANI commande arret
Code : Tout sélectionner
Commande . . . . . . . : ARRET Bibliothèque . . . . . : ARRETPANI
Programme d'exécution de la commande . : ARRET
Bibliothèque . . . . . . . . . . . . : *LIBL
Etat utilisé pour l'appel du
programme . . . . . . . . . . . . : *USER
Fichier source . . . . . . . . . . . . : QCMDSRC
Bibliothèque . . . . . . . . . . . . : ARRETRAD
Membre du fichier source . . . . . . . : ARRET
Programme de contrôle de validité . . : *NONE
Modes d'exécution . . . . . . . . . . : *PROD
*DEBUG
*SERVICE
Environnement permis . . . . . . . . . : *IMOD *BMOD *IREXX
*BREXX *BPGM *IPGM
*EXEC *INTERACT *BATCH
Code : Tout sélectionner
Programme . . . . . . : ARRET Bibliothèque . . . . . : ARRETPANI
Propriétaire . . . . . : ERI
Attribut du programme : CLP
Informations sur la création du programme:
Date et heure de création . . . . . . . . . . . : 23/06/99 17:22:29
Type du programme . . . . . . . . . . . . . . . : OPM
Fichier source . . . . . . . . . . . . . . . . . : QCLPSRC
Bibliothèque . . . . . . . . . . . . . . . . . : ARRETPANI
Membre source . . . . . . . . . . . . . . . . . : ARRET
Date et heure de modification du fichier source : 23/06/99 17:22:25
Informations observables . . . . . . . . . . . . : *ALL
Profil utilisateur . . . . . . . . . . . . . . . : *USER
Utilisation des droits adoptés . . . . . . . . . : *YES
Consignation des commandes (programme CL) . . . : *JOB
RTVCLSRC possible (programme CL) . . . . . . . . : *YES
Correction des données décimales . . . . . . . . : *NO
Statistiques du programme:
Nombre de paramètres . . . . . . . . . . . . . . : 0
Taille du programme (octets) . . . . . . . . . . : 32768
Taille espace associé (octets) . . . . . . . . . : 4064
Taille de la mémoire statique (octets) . . . . . : 0
Taille de la mémoire automatique (octets) . . . : 512
Nombre d'instructions MI . . . . . . . . . . . . : 29
Nombre de postes ODT . . . . . . . . . . . . . . : 79
Etat du programme . . . . . . . . . . . . . . . : *USER
Domaine du programme . . . . . . . . . . . . . . : *USER
Compilateur . . . . . . . . . . . . . . . . . . : V4R3M0
Exécution possible à partir de l'édition . . . . : V4R3M0
Conversion requise . . . . . . . . . . . . . . . : *NO
Attribut du programme : CLP
Séquence de tri . . . . . . . . . . . . . . . . : *HEX
Identificateur de langue . . . . . . . . . . . . : *JOBRUN
Performances du programme:
Optimisation . . . . . . . . . . . . . . . . . . : *NOOPTIMIZE
Pool de pagination . . . . . . . . . . . . . . . : *USER
Mise à jour PASA . . . . . . . . . . . . . . . . : *NOUPDPASA
Mise à blanc PASA . . . . . . . . . . . . . . . : *CLRPASA
Volume de pagination . . . . . . . . . . . . . . : *BLOCK
Pour cette commande STRPDM je doit faire quoi ?
Merci
guigui69
(sans texte)
Taper STRPDM puis entrée
Taper 3 puis entrée
ensuite:
Taper 3 puis entrée
ensuite:
-
guigui69
(sans texte)
Voici:
Merci pour votre aide
guigui69
Code : Tout sélectionner
SEU==> ARRET
FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
************** Début des données ************************************
0001.00 /* */
0002.00 /* CL ARRET SYSTEME ET SAUVGARDE (SOUMISSION ARRET & SAUVEGARDE*/
0003.00 /* ----------------------------- */
0004.00 /* */
0005.00 PGM
0006.00 SBMJOB CMD(CALL PGM(ARRETPANI/ARRET£2)) JOB(ARRET) +
0007.00 JOBQ(QCTL) LOG(4 00 *SECLVL) LOGCLPGM(*YES)
0008.00 SNDUSRMSG MSG('Sauvegarde soumise, vous pouvez fermer +
0009.00 cette session.')
0010.00 /* Fin */
0011.00 FIN: ENDPGM
*************** Fin des données *************************************
Code : Tout sélectionner
Membre . . . . . . . . : ARRET
Fichier . . . . . . . . : QCLPSRC
Bibliothèque . . . . : ARRETPANI
Type du membre . . . . : CLP
Date de création . . . : 11/06/99
Heure de création . . . : 09:09:31
Date de modification . : 23/06/99
Heure de modification . : 17:22:25
Date de sauvegarde . . : 04/02/10
Heure de sauvegarde . . : 02:02:26
Date de restauration . : 15/06/99
Heure de restauration . : 13:37:02
Nombre d'enreg . . . . : 11
Enreg supprimés . . . . : 0
Texte . . . . . . . . . : Soumission arret
guigui69
(sans texte)
Cool des poupées gigognes
Faire la même manip que dans mon dernier message (STRPDM) mais avec ARRET£2 au lieu d'ARRET
Faire la même manip que dans mon dernier message (STRPDM) mais avec ARRET£2 au lieu d'ARRET
-
guigui69
(sans texte)
Voici:
guigui69
Code : Tout sélectionner
SEU==> ARRET£2
FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
************** Début des données ************************************
0001.00 /* */
0002.00 /* CL ARRET SYSTEME ET SAUVGARDE (SOUMISSION ARRET & SAUVEGARDE*/
0003.00 /* ----------------------------- */
0004.00 /* */
0005.00 PGM
0006.00 /* */
0007.00 DCL VAR(&JJJ) TYPE(*CHAR) LEN(4)
0008.00 RTVSYSVAL SYSVAL(QDAYOFWEEK) RTNVAR(&JJJ)
0009.00 SNDMSG MSG('Sauvegarde soumise') TOUSR(*SYSOPR)
0010.00
0011.00 /*RETARDE TRAVAIL A 02H */
0012.00 DLYJOB RSMTIME('02:00:00')
0013.00
0014.00 /* VENDREDI
0015.00 IF COND(&JJJ *EQ '*FRY') THEN(DO)
0016.00 CLROUTQ OUTQ(QEZJOBLOG)
0017.00 MONMSG MSGID(CPF0000)
0018.00 CLROUTQ OUTQ(QEZDEBUG)
0019.00 MONMSG MSGID(CPF0000)
0020.00 ENDDO
0021.00
0022.00 /* soumission sauvegarde */
0023.00
0024.00 ENDSBS SBS(QINTER) OPTION(*CNTRLD) DELAY(60)
0025.00 MONMSG MSGID(CPF0000)
0026.00 CLRJOBQ JOBQ(QBATCH)
0027.00 MONMSG MSGID(CPF0000)
0028.00 ENDSBS SBS(QBATCH) OPTION(*CNTRLD) DELAY(60)
0029.00 MONMSG MSGID(CPF0000)
0030.00 DLYJOB DLY(120)
0031.00 STRSBS QINTER
0032.00 MONMSG MSGID(CPF0000)
0033.00 STRSBS QBATCH
0034.00 MONMSG MSGID(CPF0000)
0035.00
0036.00
0037.00 INZTAP DEV(TAP01) NEWVOL(PANI) CHECK(*NO) +
0038.00 DENSITY(*CTGTYPE)
0039.00 MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(FIN))
0040.00 /*
0041.00 /* SAUVEGARDE LES BIBLIOTHÈQUES
0042.00
0043.00 SAVLIB LIB(*ALLUSR) DEV(TAP01) ENDOPT(*LEAVE) +
0044.00 OMITLIB(BAGPGM GESIM50FM2 +
0045.00 GESIM50EXE GESIM50FR2 GESIM50SP2 +
0046.00 GESIM50QR2 GRH400PGM HOTLINE ICASRV IR5_1 +
0047.00 TELEMA TFOR2 XL400)
0048.00 MONMSG MSGID(CPF0000)
0049.00 /*
0050.00 /* ARRETE L'INTERFACE
0051.00 ENDTCPIFC INTNETADR('172.16.0.2')
0052.00 MONMSG MSGID(CPF0000)
0053.00 DLYJOB DLY(30)
0054.00 /*
0055.00 /* ARRETE SERVEUR NT4
0056.00 VRYCFG CFGOBJ(NTSVR) CFGTYPE(*NWS) STATUS(*OFF) +
0057.00 ASCVRYOFF(*YES) FRCVRYOFF(*YES)
0058.00 MONMSG MSGID(CPF0000)
0059.00 /*
0060.00 DLYJOB DLY(360)
0061.00 /*
0062.00 /* SAUVEGARDE LES DONNÉES NT
0063.00 /* SAV DEV('/QSYS.LIB/TAP01.DEVD') OBJ(('/qibm/*') +
0064.00 ('/qfpnwsstg/ntsvrdskf') +
0065.00 ('/sauvegarde/*') ('/tmp/*')) ENDOPT(*REWIND)
0066.00 /* MONMSG MSGID(CPF0000)
0067.00
0068.00 /* ARRETE LIGNE ETH AS/400
0069.00 ENDTCP
0070.00 MONMSG MSGID(CPF0000)
0071.00 /*
0072.00 DSPTAP DEV(TAP01) OUTPUT(*PRINT)
0073.00 MONMSG MSGID(CPF0000)
0074.00 /*
0075.00
0076.00
0077.00 /* Fin */
0078.00 FIN:
0079.00 PWRDWNSYS OPTION(*IMMED) DELAY(300) RESTART(*YES +
0080.00 *SYS) IPLSRC(B)
0081.00
0082.00 ENDPGM
*************** Fin des données *************************************