Les indicateurs MVS

1. Les indicateurs MVS Jérémie Poirier

2. SOMMAIRE • Introduction • Présentation • Environnement • Les indicateurs • Conclusion

3. Introduction • Stage pour découvrir le monde du IBM et mainframe • Problématique: optimisation et création d’indicateurs MVS

4. SOMMAIRE • Introduction • Présentation • IBM • SNECMA • Environnement • Les indicateurs • Conclusion

5. Présentation : IBM • En chiffre : • $98 Md en 2007 • 386 000 employés • Créé en 1911

6. Présentation : IBM • 3 principaux domaines : • Matériels (Mainframe, supercalculateur, processeurs…) - 28% • Logiciels (Base de données DB2, Tivoli, Websphere…) – 37% • Service (consulting, GTS, GBS,…) – 35%

7. Présentation : SNECMA • Société de fabrication de moteur aéronautique et astronautique • En chiffre : • 8 658 employés • 4.1 M€ en 2007 • Fait parti du groupe SAFRAN

8. Sommaire • Introduction • Environnement • MVS • Description • Schema • Les indicateurs • Conclusion

9. MVS • Multiple Virtual Storage • Système d’exploitation pour mainframe IBM • Lancé en 1974 • Principe de la mémoire virtuelle • Bien adapté pour les batchs

10. Description • Un mainframe H50 avec 4 partitions • Orange : production (RH, Paie, …) • Rouge : production (essai, calcul,…) • Cyan : Test / simulation • Serveur : connexion avec les partenaires • Système tournant sous MVS • Robotique SUN pour les cassettes • Travail essentiellement sur Orange et Rouge

11. 3745 Connection GE via Partition SERVEUR Partenaires SNECMA H50 CPU ETH0 IP Cyan DSR LMU 9330 ETH0 IP Serveur VSM3 VISARA Contrôleur d’écrans Armoire Disque EMC² LCU 9311 LSM 9310 CISCO Connection IP 9490 Timberline 9840 4 lecteurs Schéma hardware du MVS SNECMA-Villaroche Décembre 2007 TCP-IP SNECMA Gateway MT Consulting 5193 Environnement VM/VSE SAFRAN

12. Sommaire • Introduction • Environnement • Les indicateurs • Problématique • SAS - JCL • Optimisation • Création • Conclusion

13. Problématique : le projet • Projet IBM à la SNECMA : • Migrer toutes les applications du mainframe vers de l’open • Supprimer le mainframe

14. Problématique • Pourquoi les indicateurs ? • Permet de voir l’évolution du projet • Permet la facturation • Permet de déterminer par qui on va continuer

15. Problématique • Plusieurs indicateurs pour MVS déjà créés : • Espace disque par partition (total et pour la direction technique) • Conso d’unité d’œuvre par service (scientifique, infocentre, système,…) • Nombre de transaction IMS total et par service • Nombre de fichiers par partition

16. Problématique • Chaque indicateur est crée par des jobs • Les jobs utilisent le SAS pour générer ces indicateurs • On doit consulter une à une les sysouts de chaque job pour les récupérer

17. JCL • Job Control Language • Langage de programmation pour ordinateurs grand système • Optimiser pour les batchs

18. SAS • Statistical Analysis System • Créé en 1966 • Basé en 3 parties : • Le DATA pour la manipulation des données • Les procédures pour l’analyste statistique • Les macros pour automatiser les programmes

19. Optimisation • Le principe : • Modification des sorties des jobs pour obtenir des fichiers contenant les résultats en plus des reports. • Création d’un job afin de récupérer toutes les valeurs nécessaires.

20. Modification • Dans les jobs ayant déjà un saslist, on remplace la destination de ce dernier pour mettre un fichier à la place du report. • On crée le saslist pour les jobs qui n’en ont pas. • Pour les jobs avec un saslist, création d’un step exécutant un « iebgener » du fichier créé vers le report de base.

21. Exemple • On a : • //SASLIST DD SYSOUT=(I,FACT0008) • On remplace par : • //SASLIST DD SYSOUT=I011.FACT.JOB(+1) • On rajoute : • //COPY EXEC PGM=IEBGENER • //SYSPRINT DD DUMMY • //SYSIN DD DUMMY • //SYSUT1 DD DSN=I011.FACT.JOB(+1),DISP=(OLD,PASS) • //SYSUT2 DD SYSOUT=(I,FACT0008)

22. Récupération • Création d’un job, à lancer lorsqu’on a besoin des valeurs, qui parse les différents fichiers créés et récupère toutes les valeurs nécessaires pour les mettre dans un fichier. • On a plus qu’à recopier les indicateurs.

23. Fichier résultat *------------------------------------------* ! NOMBRE DE FICHIERS ! *------------------------------------------* SUR ROUGE (RHSM0H3) : NIVEAU 1 : 11518 NIVEAU 2 : 545145 NIVEAU 0 : 36353 NB DE K7 : 3900 SUR ORANGE (LHSM0H6J) : NIVEAU 1 : 1515 NIVEAU 2 : 163653 NIVEAU 0 : 23978 NB DE K7 : 13601 SUR CYAN (CHSM0J2J) : NIVEAU 1 : 1883 NIVEAU 2 : 36728 NIVEAU 0 : 12220 NB DE K7 : 957

24. *------------------------------------------* ! TRANSACTION IMS ! ! ROUGE PUIS ORANGE ! *------------------------------------------* NOMBRE DE TRANSACTIONS DIFFERENTES : 9 NOMBRE D'EXECUTION : 172 . NOMBRE DE TRANSACTIONS DIFFERENTES : 678 NOMBRE D'EXECUTION : 1353775 *------------------------------------------* ! ESPACE DISQUE UTILISE ! ! ETUDE / GESTION / SCIENTIFIQUE ! *------------------------------------------* NIVEAU 0 NIVEAU 1 NIVEAU 2 K7 -------- -------- -------- -- ETUDE : YD 12 040.67 1 064.13 50 639. 23 20 364.36 TOTAL 112 018.04 14 752.70 227 505. 45 243 181.28 GESTION : YD 44 040.67 4 064.13 44 639. 87 44 364.36 TOTAL 444 018.04 44 752.70 444 505. 65 444 181.28 SCIENTIFIQUE : YD 66 040.67 6 064.13 66 639. 23 66 364.36 TOTAL 666 018.04 66 752.70 666 505.09 666 181.28

25. *------------------------------------------* ! TRANSACTION IMS ! ! DETAIL ! *------------------------------------------* DIRECTION NOMBRE TOTAL DE TRANSACTIONS --------- ---------------------------- A 52 BX 6214 CD 178139 GD 128 HZ 19 IA 40 IB 6943 IR 40 LD 25116 P 1011388 RX 103251 V 9686 YD 13219 *------------------------------------------* ! CONSOMMATION UID ! *------------------------------------------* TYPE JOUR NUIT ---- ---- ---- SCIENTIFIQUE 524 14 GESTION 2623 17872 INFOCENTRE 1182 812 ETUDES 1364 107 SYSTEME 2720 9791 TOTAL 8415 28600

26. Création d’un indicateur • Création d’un indicateur sur le nombre d’utilisateurs connectés dans la journée

27. Création d’un indicateur • Création d’un job pour parser la log du jour et récupérer les user id de tous les utilisateurs qui se sont connectés • Stockage dans un fichier temporaire • Trie de ces user id afin de ne garder qu’une seule itération par user id

28. Job //TESTUSER JOB (XXXX,MVSS),POIRIER,CLASS=L,MSGCLASS=R,NOTIFY=&SYSUID //WRITE EXEC SAS //LEC1 DD DSN=I008.ST08622.SYSLOG.ORANGE,DISP=SHR //LEC2 DD DSN=I008.ST08622.CNTL.TMPUSR,DISP=SHR //ECR1 DD DSN=I008.ST08622.CNTL.TMPUSR,DISP=MOD //SASLIST DD DSN=I008.ST08622.CNTL.SASRESLT(+1),DISP=(,CATLG,DELETE), // DCB=(GDG,RECFM=FB,LRECL=140,BLKSIZE=1400),SPACE=(TRK,1),UNIT=HSM //SYSIN DD * DATA JOB1 (KEEP=USERID WHAT); INFILE LEC1; INPUT à65 USERID $CHAR7. à75 WHAT $CHAR9.; IF WHAT='LOGGED ON' THEN OUTPUT; ELSE DELETE ; DATA FIN; SET JOB1; FILE ECR1; PUT à8 USERID; // DD * DATA JOB2 (KEEP=USERID); INFILE LEC2; INPUT à8 USERID $CHAR7.; PROC SORT NODUP DATA=JOB2; BY USERID; PROC PRINT DATA=JOB2;

29. Résultat USER ID UNIQUE OBS USERID 1 H025964 2 ST08223 3 ST11244 4 ST11261 5 ST11586 6 ST11785 7 ST11925 8 S053134 9 S071540 10 S073581 11 S075266 12 S075677 13 S075760 14 S075796 15 S077090 16 S078737 17 S078809 18 S079018 19 S081839 20 S085992 21 S086000 22 S086901 23 S095129

30. Sommaire • Introduction • Environnement • Les indicateurs • Conclusion

31. Conclusion • Découverte de l’environnements IBM • Apprentissage de nouvelles technologies (SAS, JCL, MVS) • Contact direct avec le client au côté d’un IT spécialiste

32. Question ?