site400 - Téléchargement | Système et réseau

Installation instructions for VNC

Some of the tools in the iSeries Tools for Developers PRPQ use the X Windowing System to display windows. This would require you to have a Unix or Linux based client as your desktop PC. Alternatively, you could run a product such as Hummingbird Exceed which emulates X on the Windows platform. Yet another alternative is an open source product VNC. The source is freely available from the AT&T labs web site However, to run this server in PASE you would need to compile the source on an AIX machine. So, the following instructions detail how you can download a precompiled OS/400 PASE ready version of VNC, restore it to a V4R5 or later system, and easily get started using VNC.

NOTE: as of Spring 2002, VNC has been included in the 57PTL-99 Distribution, so if you have a recent copy of this PRPQ, you will not need to download this older copy of VNC.

(1) Pre-create the save files on your iSeries system.
On your iSeries box system, run the following commands:

crtlib vncsavf

crtsavf vncsavf/vncpasswd

crtsavf vncsavf/vnc

crtsavf vncsavf/fonts

crtsavf vncsavf/icewm

(2) Download these save files.
One way to do this is right click on the file name and choose "save files as", then save the file to your PC.

Also download the vncviewer and make it available on your PC.

vncviewer.exe

(3) FTP the files to the iSeries machine.
To FTP the files you downloaded to your PC to the iSeries, run the following commands on your PC:

ftp youriseriesmachine

bin

cd /qsys.lib/vncsavf.lib

put vnc.savf

put icewm.savf

put vncpasswd.savf

put fonts.savf

bye

(4) Restore the save files.
To restore the save files run the following commands on the iSeries:

RSTOBJ OBJ(*ALL) SAVLIB(VNCSAVF) DEV(*SAVF) SAVF(VNCSAVF/VNCPASSWD)

RST DEV('/Qsys.lib/vncsavf.lib/vnc.file') OBJ(('/QOpenSys/QIBM/ProdData/DeveloperTools/vnc*'))

RST DEV('/Qsys.lib/vncsavf.lib/icewm.file') OBJ(('/QOpenSys/QIBM/ProdData/DeveloperTools/icewm*'))

RST DEV('/Qsys.lib/vncsavf.lib/fonts.file') OBJ(('/QOpenSys/QIBM/ProdData/DeveloperTools/fonts*'))

(5) Create a vnc password file
Create a passwd file containing your encrypted password by running the following command on your iSeries box:

mkdir '/home/youruserid/.vnc'

VNCSAVF/VNCPASSWD USEHOME(*NO) PWDFILE('/home/youruserid/.vnc/passwd')

(6) Run a setup program for the icewm window manager.
On the iSeries start the PASE shell by running:

call QP2TERM

Then run the following commands to set up some symbolic links (case matters on this command):

/QOpenSys/QIBM/ProdData/DeveloperTools/icewm/icewmsetup

(7) Start the VNC server
Run the following command on the iSeries to start your VNC Server environment:

/QOpenSys/QIBM/ProdData/DeveloperTools/vnc/vncserver

When the server starts you will see a message similar to the following:
New 'X' desktop is yoursystemname:1

(note that each time another vncserver is started, you will see a different number in the place of :1 in the example above)

(8) Next start the vncviewer you downloaded to your pc earlier:

Additional information:

>>>source

Cet outil vous permet d'automatiser la récupération des services packs iseries navigator sur votre iseries,
il trouve automatiquement votre niveau d'os et vérifie si vous avez déjà télécharger ce SP sur votre iseries

Il vous suffit de partager votre lecteur réseau avec netserver
de lui associer une lettre Après vous pouvez lancer l'installation de votre SP à partir de iseries navigator

pour les plus téméraires vous pouvez monter un service de commande distante sur les pc et faire piloter les mises par votre iseries

Vous pouvez par exemple sheduler ce job une fois par mois

Les OBJETS:

RECFTPC.CLP Programme en clp de pilotage
RECFTPR1.RPGLE Programme en rpgile qui récupère Les niveaux de SP disponibles et génère le scripte FTP LSPACK
RECFTPR2.RPGLE Programme en rpgile qui récupère Le SP à téléchargre et génère le scripte FTP RSPACK

Voici une petite procédure qui peut permettre de tracer lorsqu'un fichier
se trouve avec des données en erreurs après le passage d'un traitement batch
Vous pourrez trouver l'utilisateur, le travail, ou même le programme Fautif

Voici trois petits programmes à compiler :

Le premier est à lancer avant votre traitement
Le deuxième lorsque le traitement est terminé
Le troisième lorsque vous n'avez plus besoin de la journalisation

1) Démarrage de la journalisation

PGM PARM(&FIC &LIB) /*-----------------------------------------------*/
/*     MISE EN PLACE DE LA JOURNALISATION SUR UN FICHIER             */
/*-------------------------------------------------------------------*/
DCL &FIC *CHAR 10
DCL &LIB *CHAR 10
/*-------------------------------------------------------------------*/
/* CREATION DU RECEPTEUR DE JOURNAL                                  */
/*-------------------------------------------------------------------*/
             CRTJRNRCV JRNRCV(&LIB/JOURNRCV) THRESHOLD(500000) +
                          TEXT('Journalisation pour' *BCAT &FIC)
/*-------------------------------------------------------------------*/
/* CREATION DU JOURNAL                                               */
/*-------------------------------------------------------------------*/
             CRTJRN     JRN(&LIB/JOUR000001) JRNRCV(&LIB/JOURNRCV) +
                          MNGRCV(*SYSTEM) TEXT('Journalisation +
                          pour' *BCAT &FIC)
/*-------------------------------------------------------------------*/
/* DEMARRAGE DE LA JOURNALISATION                                    */
/*-------------------------------------------------------------------*/
             STRJRNPF   FILE(&LIB/&FIC) JRN(&LIB/JOUR000001) +
  IMAGES(*BOTH)
ENDPGM

2) Consultation

PGM PARM(&FIC &LIB) /*-----------------------------------------------*/
/*     AFFICHAGE RESULTAT                                            */
/*-------------------------------------------------------------------*/
DCL &FIC *CHAR 10
DCL &LIB *CHAR 10
/*-------------------------------------------------------------------*/
/* AFFICHAGE DU JOURNAL                                              */
/*-------------------------------------------------------------------*/
             DSPJRN     JRN(&LIB/JOUR000001) FILE((&LIB/&FIC)) +
                          RCVRNG(*CURCHAIN) OUTPUT(*OUTFILE) +
                          OUTFILE(votrebib/JOURNRES)
/*-------------------------------------------------------------------*/
/* Traitement automatique du fichier                                 */
/* Par exemple un query ou sql                                       */
/*   RUNQRY ....                                                     */
/*                                                                   */
/*-------------------------------------------------------------------*/

ENDPGM

2) Arrêt de la journalisation et suppression de l'environnement

PGM PARM(&FIC &LIB) /*-----------------------------------------------*/
/*     ARRET DE LA JOURNALISATION SUR UN FICHIER                     */
/*-------------------------------------------------------------------*/
DCL &FIC *CHAR 10
DCL &LIB *CHAR 10
/*-------------------------------------------------------------------*/
/* ARRET DE LA JOURNALISATION                                    */
/*-------------------------------------------------------------------*/
             ENDJRNPF   FILE(&LIB/&FIC)
/*-------------------------------------------------------------------*/
/* SUPPRESSION JOURNAL                                               */
/*-------------------------------------------------------------------*/
             DLTJRN     JRN(&LIB/JOUR00*)
/*-------------------------------------------------------------------*/
/* SUPRESSION RECEPTEUR DE JOURNAL                                  */
/* ATTENTION SI PAS SAUVEGARDER * ERREUR *                           */
/*-------------------------------------------------------------------*/
             DLTJRNRCV JRNRCV(&LIB/JOURNRCV)
ENDPGM

remarque :

Lorsque vous aurez trouvé le résultat, n'oubliez pas de supprimer le fichier
votrelib/journres

Cet outil est un exemple qui permet de modifier l'execution d'une commande IBM

En utilisant le "point d'exit" QIBM_QCA_CHG_COMMAND car dans une future release
(à priori pas encore la 6.1), on ne pourra plus jouer sur l'ordre des bibliothèques
de la *SYSLIBL.
En effet, le système ne va plus utiliser *LIBL pour accéder aux commandes
mais *NLVLIBL ou *SYSTEM.

Donc vous l'avez compris il faudra modifier les xxlib en tete de liste des bib qui
contenaient souvent des commandes modifiées de QSYS

cette appi peut permettre également de tracer, de mettre des droits etc...

Principe de cette API

Recoit comme parametre la commande à traiter et on lui renvoi la commande à exécuter réellement

Notre exemple montre comment forcer un query à s'exécuter en batch

j'ai laissé le copyright du model de source

Les Objets:

EP_RUNQRY CLP le programme

Installation :

Restaurer le membre sur votre as400

Compiler le programme EP_RUNQRY dans votre bib systeme

Ensuite ajouter votre exit pgm par wrkreginf

ou directement par

ADDEXITPGM EXITPNT(QIBM_QCA_CHG_COMMAND)
          FORMAT(CHGC0100)
          PGMNBR(1)
          PGM(votrebib/EP_RUNQRY)
          TEXT('Exit program for RUNQRY')
          PGMDTA(*JOB 20 'RUNQRY    QSYS')

Si vous avez déja des programmes pour QIBM_QCA_CHG_COMMAND mettez le numéro suivant PGMNBR(n)

Le PGMDTA contient le nom de la commande à trapper

et aprés vous n'avez plus qu'a tester en lancant un RUNQRY

Restriction :

attention au droit sur votre programme, il doit etre accessible à tous

Téléchargement

OutilsDate