TIPS AS400 IBMi CMD SYSTEM

  • Afficher la version de l’OS400

    DSPDTAARA QUSRSYS/QSS1MRI

  • Copier un spoule dans l’IFS
    1. CRTPF FILE(QTEMP/SPOULE) RCDLEN(132)
    2. CPYSPLF FILE(NOM_SPOULE) TOFILE(QTEMP/SPOULE)
    3. CPYTOSTMF FROMMBR('/QSYS.LIB/QTEMP.LIB/SPOULE.FILE/SPOULE.MBR') TOSTMF('/home/mon_user/spoule.txt') STMFCCSID(*PCASCII)
  • Superviser mon AS400 avec Metabase

    Metabase est un outil de visualisation des données sous forme d’un dashboard graphique.
    Exemple d’utilisation :

    Requêtes utilisées pour cette exemple :
    1) % occupation disque
    SELECT SYSTEM_ASP_USED FROM qsys2.system_status_info

    2) Nombre de travaux intéractifs
    SELECT count(*) FROM TABLE(active_job_info()) where job_type=’INT’

    3) Nombre de travaux en message
    SELECT count(*) FROM TABLE(active_job_info()) WHERE job_status='MSGW'

    4) Palmarès du nombre de spoules par utilisateur
    SELECT job_user , count(*) AS nombre FROM TABLE(QSYS2.SPOOLED_FILE_INFO(USER_NAME =>'*'))
    WHERE job_user'QTCP'
    GROUP BY job_user
    ORDER BY nombre DESC
    LIMIT 10

    5) Palmarès des plus gros fichiers
    SELECT objlib concat '/' concat objname , objsize
    FROM TABLE(QSYS2.OBJECT_STATISTICS('*ALLUSR', 'FILE'))
    WHERE objowner NOT LIKE 'Q%' AND objattribute='PF'
    ORDER BY objsize DESC LIMIT 15

  • Importer un SAVF depuis l’IFS

    – Création du savf (par exemple dans qtemp) :
    CRTSAVF FILE(QTEMP/MONSAVF)
    – Importation du savf depuis l’IFS :
    CPYFRMSTMF FROMSTMF('/home/monprofil/monsavf') TOMBR('/qsys.lib/qtemp.lib/monsavf.file') MBROPT(*REPLACE)

  • Agrandir la ligne de commande

    Sur une ligne de commande : CALL QCMD

    On obtient 4 lignes :

    Et pour avoir encore plus grand : F11=Plein écran