Probleme de réseau sur l'as400

IBM i, configuration, commandes, ...
guigui69

Probleme de réseau sur l'as400

Message par guigui69 »

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

gmenu
Messages : 30
Enregistré le : ven. 22 juin 2007, 17:12:22
Localisation : CARQUEFOU( 44470)
Contact :

(sans texte)

Message par gmenu »

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.

guigui69

(sans texte)

Message par guigui69 »

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

cmasse
Site Admin
Messages : 813
Enregistré le : mer. 14 févr. 2007, 18:00:03
Localisation : Nantes
Contact :

sauvegarde plantée

Message par cmasse »

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.
Christian Massé (Volubis.fr)

guigui69

(sans texte)

Message par guigui69 »

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

cmasse
Site Admin
Messages : 813
Enregistré le : mer. 14 févr. 2007, 18:00:03
Localisation : Nantes
Contact :

analyse de la LOG

Message par cmasse »

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 ?
Christian Massé (Volubis.fr)

newael
Messages : 21
Enregistré le : ven. 24 avr. 2009, 11:50:11

(sans texte)

Message par newael »

Ç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 ;-)

guigui69

(sans texte)

Message par guigui69 »

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

newael
Messages : 21
Enregistré le : ven. 24 avr. 2009, 11:50:11

(sans texte)

Message par newael »

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

guigui69

(sans texte)

Message par guigui69 »

Voici le résultat de la première commande:
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                   
                                                     
                                                     
  &#40;Objet correspondant au nom indiqué introuvable.&#41;  
Au niveau de la premiere commande, il y a pas de cmd ou de programme? si ?

guigui69

guigui69

(sans texte)

Message par guigui69 »

Merci newael

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    
La commande wrkcmd ARRET

Code : Tout sélectionner

                                                                                
 Commande . . . . . . . &#58;   ARRET         Bibliothèque . . . . . &#58;   ARRETPANI  
                                                                                
 Programme d'exécution de la commande . &#58;   ARRET                               
   Bibliothèque . . . . . . . . . . . . &#58;     *LIBL                             
   Etat utilisé pour l'appel du                                                 
     programme  . . . . . . . . . . . . &#58;     *USER                             
 Fichier source . . . . . . . . . . . . &#58;   QCMDSRC                             
   Bibliothèque . . . . . . . . . . . . &#58;     ARRETRAD                          
 Membre du fichier source . . . . . . . &#58;   ARRET                               
 Programme de contrôle de validité  . . &#58;   *NONE                               
 Modes d'exécution  . . . . . . . . . . &#58;   *PROD                               
                                            *DEBUG                              
                                            *SERVICE                            
 Environnement permis . . . . . . . . . &#58;   *IMOD      *BMOD      *IREXX        
                                            *BREXX     *BPGM      *IPGM         
                                            *EXEC      *INTERACT  *BATCH        
                                                                                
la commande WRKPGM ARRET:

Code : Tout sélectionner


                                                                               
 Programme  . . . . . . &#58;   ARRET         Bibliothèque . . . . . &#58;   ARRETPANI 
 Propriétaire . . . . . &#58;   ERI                                                
 Attribut du programme  &#58;   CLP                                                
                                                                               
 Informations sur la création du programme&#58;                                    
   Date et heure de création  . . . . . . . . . . . &#58;   23/06/99  17&#58;22&#58;29     
   Type du programme  . . . . . . . . . . . . . . . &#58;   OPM                    
   Fichier source . . . . . . . . . . . . . . . . . &#58;   QCLPSRC                
     Bibliothèque . . . . . . . . . . . . . . . . . &#58;     ARRETPANI            
   Membre source  . . . . . . . . . . . . . . . . . &#58;   ARRET                  
   Date et heure de modification du fichier source  &#58;   23/06/99  17&#58;22&#58;25     
   Informations observables . . . . . . . . . . . . &#58;   *ALL                   
   Profil utilisateur . . . . . . . . . . . . . . . &#58;   *USER                  
   Utilisation des droits adoptés . . . . . . . . . &#58;   *YES                   
   Consignation des commandes &#40;programme CL&#41;  . . . &#58;   *JOB                   
   RTVCLSRC possible &#40;programme CL&#41; . . . . . . . . &#58;   *YES                   
   Correction des données décimales . . . . . . . . &#58;   *NO                    
                                                                         
 Statistiques du programme&#58;                                              
   Nombre de paramètres . . . . . . . . . . . . . . &#58;   0                
   Taille du programme &#40;octets&#41; . . . . . . . . . . &#58;   32768            
   Taille espace associé &#40;octets&#41; . . . . . . . . . &#58;   4064             
   Taille de la mémoire statique &#40;octets&#41; . . . . . &#58;   0                
   Taille de la mémoire automatique &#40;octets&#41;  . . . &#58;   512              
   Nombre d'instructions MI . . . . . . . . . . . . &#58;   29               
   Nombre de postes ODT . . . . . . . . . . . . . . &#58;   79               
   Etat du programme  . . . . . . . . . . . . . . . &#58;   *USER            
   Domaine du programme . . . . . . . . . . . . . . &#58;   *USER            
   Compilateur  . . . . . . . . . . . . . . . . . . &#58;           V4R3M0   
   Exécution possible à partir de l'édition . . . . &#58;   V4R3M0           
   Conversion requise . . . . . . . . . . . . . . . &#58;   *NO              
 Attribut du programme  &#58;   CLP                                      
                                                                     
   Séquence de tri  . . . . . . . . . . . . . . . . &#58;   *HEX         
   Identificateur de langue . . . . . . . . . . . . &#58;   *JOBRUN      
 Performances du programme&#58;                                          
   Optimisation . . . . . . . . . . . . . . . . . . &#58;   *NOOPTIMIZE  
   Pool de pagination . . . . . . . . . . . . . . . &#58;   *USER        
   Mise à jour PASA . . . . . . . . . . . . . . . . &#58;   *NOUPDPASA   
   Mise à blanc PASA  . . . . . . . . . . . . . . . &#58;   *CLRPASA     
   Volume de pagination . . . . . . . . . . . . . . &#58;   *BLOCK       
                                                                     
                                                                     


Pour cette commande STRPDM je doit faire quoi ?

Merci

guigui69

newael
Messages : 21
Enregistré le : ven. 24 avr. 2009, 11:50:11

(sans texte)

Message par newael »

Taper STRPDM puis entrée
Taper 3 puis entrée
ensuite:

Image

guigui69

(sans texte)

Message par guigui69 »

Voici:

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 &#40;SOUMISSION ARRET & SAUVEGARDE*/ 
0003.00 /*       -----------------------------                               */ 
0004.00 /*                                                                   */ 
0005.00              PGM                                                        
0006.00              SBMJOB     CMD&#40;CALL PGM&#40;ARRETPANI/ARRET£2&#41;&#41; JOB&#40;ARRET&#41; +   
0007.00                           JOBQ&#40;QCTL&#41; LOG&#40;4 00 *SECLVL&#41; LOGCLPGM&#40;*YES&#41;   
0008.00              SNDUSRMSG  MSG&#40;'Sauvegarde soumise, vous pouvez fermer +   
0009.00                           cette session.'&#41;                              
0010.00 /* Fin                                                               */ 
0011.00  FIN&#58;        ENDPGM                                                     
        ***************  Fin des données  ************************************* 
                                                                                

Code : Tout sélectionner

                                                   
 Membre  . . . . . . . . &#58;   ARRET                 
 Fichier . . . . . . . . &#58;   QCLPSRC               
   Bibliothèque  . . . . &#58;     ARRETPANI           
 Type du membre  . . . . &#58;   CLP                   
                                                   
 Date de création  . . . &#58;   11/06/99              
 Heure de création . . . &#58;   09&#58;09&#58;31              
 Date de modification  . &#58;   23/06/99              
 Heure de modification . &#58;   17&#58;22&#58;25              
                                                   
 Date de sauvegarde  . . &#58;   04/02/10              
 Heure de sauvegarde . . &#58;   02&#58;02&#58;26              
 Date de restauration  . &#58;   15/06/99              
 Heure de restauration . &#58;   13&#58;37&#58;02              
                                                   
 Nombre d'enreg  . . . . &#58;   11                    
 Enreg supprimés . . . . &#58;    0                    
                                                   
 Texte . . . . . . . . . &#58;   Soumission arret      
                                                   
Merci pour votre aide

guigui69

newael
Messages : 21
Enregistré le : ven. 24 avr. 2009, 11:50:11

(sans texte)

Message par newael »

Cool des poupées gigognes ;-)

Faire la même manip que dans mon dernier message (STRPDM) mais avec ARRET£2 au lieu d'ARRET :-)

guigui69

(sans texte)

Message par guigui69 »

Voici:

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 &#40;SOUMISSION ARRET & SAUVEGARDE*/ 
0003.00 /*       -----------------------------                               */ 
0004.00 /*                                                                   */ 
0005.00              PGM                                                        
0006.00 /*                                                                   */ 
0007.00              DCL        VAR&#40;&JJJ&#41; TYPE&#40;*CHAR&#41; LEN&#40;4&#41;                    
0008.00              RTVSYSVAL  SYSVAL&#40;QDAYOFWEEK&#41; RTNVAR&#40;&JJJ&#41;                 
0009.00              SNDMSG     MSG&#40;'Sauvegarde soumise'&#41; TOUSR&#40;*SYSOPR&#41;        
0010.00                                                                         
0011.00 /*RETARDE TRAVAIL A 02H                                             */  
0012.00              DLYJOB     RSMTIME&#40;'02&#58;00&#58;00'&#41;                             
0013.00                                                                         
0014.00 /*  VENDREDI                                                            
0015.00              IF         COND&#40;&JJJ *EQ '*FRY'&#41; THEN&#40;DO&#41;                  
0016.00              CLROUTQ    OUTQ&#40;QEZJOBLOG&#41;                                 
0017.00              MONMSG     MSGID&#40;CPF0000&#41;                                  
0018.00              CLROUTQ    OUTQ&#40;QEZDEBUG&#41;                                  
0019.00              MONMSG     MSGID&#40;CPF0000&#41;                                  
0020.00              ENDDO                                                      
0021.00                                                                         
0022.00 /* soumission sauvegarde                                             */ 
0023.00                                                                         
0024.00              ENDSBS     SBS&#40;QINTER&#41; OPTION&#40;*CNTRLD&#41; DELAY&#40;60&#41;           
0025.00              MONMSG     MSGID&#40;CPF0000&#41;                                  
0026.00              CLRJOBQ    JOBQ&#40;QBATCH&#41;                                    
0027.00              MONMSG     MSGID&#40;CPF0000&#41;                               
0028.00              ENDSBS     SBS&#40;QBATCH&#41; OPTION&#40;*CNTRLD&#41; DELAY&#40;60&#41;        
0029.00              MONMSG     MSGID&#40;CPF0000&#41;                               
0030.00              DLYJOB     DLY&#40;120&#41;                                     
0031.00              STRSBS     QINTER                                       
0032.00              MONMSG     MSGID&#40;CPF0000&#41;                               
0033.00              STRSBS     QBATCH                                       
0034.00              MONMSG     MSGID&#40;CPF0000&#41;                               
0035.00                                                                                           
0036.00                                                                     
0037.00              INZTAP     DEV&#40;TAP01&#41; NEWVOL&#40;PANI&#41; CHECK&#40;*NO&#41; +        
0038.00                           DENSITY&#40;*CTGTYPE&#41;                         
0039.00              MONMSG     MSGID&#40;CPF0000&#41; EXEC&#40;GOTO CMDLBL&#40;FIN&#41;&#41;       
0040.00 /*                                                                  
0041.00 /* SAUVEGARDE LES BIBLIOTHÈQUES                                     
0042.00                                                                     
0043.00              SAVLIB     LIB&#40;*ALLUSR&#41; DEV&#40;TAP01&#41; ENDOPT&#40;*LEAVE&#41; +    
0044.00                           OMITLIB&#40;BAGPGM GESIM50FM2 +               
0045.00                           GESIM50EXE GESIM50FR2 GESIM50SP2 +            
0046.00                           GESIM50QR2 GRH400PGM HOTLINE ICASRV IR5_1 +   
0047.00                           TELEMA TFOR2 XL400&#41;                           
0048.00              MONMSG     MSGID&#40;CPF0000&#41;                                  
0049.00 /*                                                                      
0050.00 /* ARRETE L'INTERFACE                                                   
0051.00              ENDTCPIFC  INTNETADR&#40;'172.16.0.2'&#41;                         
0052.00              MONMSG     MSGID&#40;CPF0000&#41;                                  
0053.00              DLYJOB     DLY&#40;30&#41;                                         
0054.00 /*                                                                                                   
0055.00 /* ARRETE SERVEUR NT4                                                   
0056.00              VRYCFG     CFGOBJ&#40;NTSVR&#41; CFGTYPE&#40;*NWS&#41; STATUS&#40;*OFF&#41; +      
0057.00                           ASCVRYOFF&#40;*YES&#41; FRCVRYOFF&#40;*YES&#41;               
0058.00              MONMSG     MSGID&#40;CPF0000&#41;                                  
0059.00 /*                                                                      
0060.00              DLYJOB     DLY&#40;360&#41;                                        
0061.00 /*                                                                      
0062.00 /* SAUVEGARDE LES DONNÉES NT                                            
0063.00 /*           SAV        DEV&#40;'/QSYS.LIB/TAP01.DEVD'&#41; OBJ&#40;&#40;'/qibm/*'&#41; +   
0064.00                           &#40;'/qfpnwsstg/ntsvrdskf'&#41; +                    
0065.00                           &#40;'/sauvegarde/*'&#41; &#40;'/tmp/*'&#41;&#41; ENDOPT&#40;*REWIND&#41; 
0066.00 /*           MONMSG     MSGID&#40;CPF0000&#41;                                  
0067.00                                                                         
0068.00 /* ARRETE LIGNE ETH AS/400                                              
0069.00              ENDTCP                                                     
0070.00              MONMSG     MSGID&#40;CPF0000&#41;                                  
0071.00 /*                                                                      
0072.00              DSPTAP     DEV&#40;TAP01&#41; OUTPUT&#40;*PRINT&#41;                       
0073.00              MONMSG     MSGID&#40;CPF0000&#41;                                  
0074.00 /*                                                                      
0075.00                                                                         
0076.00                                                                         
0077.00 /* Fin                                                               */ 
0078.00  FIN&#58;                                                                   
0079.00              PWRDWNSYS  OPTION&#40;*IMMED&#41; DELAY&#40;300&#41; RESTART&#40;*YES +        
0080.00                           *SYS&#41; IPLSRC&#40;B&#41;                               
0081.00                                                                         
0082.00              ENDPGM                                                     
        ***************  Fin des données  ************************************* 
                                                                                
guigui69

Répondre