| 
ASSISTANT/400 Partie de l'OS/400 permettant de faire simplement les tâches les plus courantes,en essayant d'utiliser un langage non informatique. EN V1R3 option de l'OS/400 Depuis la V2R10 intégré dans l'OS/400, utilisé par beaucoup de commandes WRK...,l'écran est fonction du niveau de l'utilisateur. Sur un profil, paramètre ASTLVL : *BASIC (débutant => écrans assistant) *INTERMED (initié => écrans système touches de cdes affichées) *ADVANCED (expérimenté => idem initié mais "plein écran") |
|
ASSISTANT/400 Les commandes utilisant le niveau d'assistance sont: + WRKCFGSTS Gestion état de la configuration + WRKMSG Gestion des messages + WRKUSRJOB Gestion des travaux + WRKUSRPRF Gestion des profils + WRKSPLF Gestion des spoules + WRKWTR Gestion des éditeurs Les principaux menus sont + SETUP Définition du système + ASSIST Taches courantes d'un utilisateur ou d'un opérateur + DEVICESTS Gestion des unités + BACKUP Tâches de sauvegarde + POWER Mise hors/sous tension du système + CLEANUP Tâches de ménage |
|
Les API ASSISTANT Ce sont les programmes CL (placés dans QSYS) qui se cachent derriere les principales options ASSISTANT. 1/ QEZMAIN sans paramètres associé à la touche ATTN et qui appel le menu ASSIST après avoir démarré un travail de groupe. 2/ QEZAST sans paramètres pgm appellant ASSIST sans démarrer de travail de groupe (remplacez QEZMAIN par QEZAST dans la définition des profils pour lesquels vous ne voulez pas voir de travail de groupe initialié). |
|
2/ QEZSAVIN sans paramètre Entrée d'informations complémentaires sur un incident. Option 10 du menu USERHELP 3/ QEZBCHJB sans paramètre WRKUSRJOB JOBTYPE(*BATCH) Option 2 du menu ASSIST 4/ QEZMSG sans paramètre DSPMSG Option 3 du menu ASSIST 5/ QEZOUTPT sans paramètre WRKSPLF Option 1 du menu ASSIST |
|
6/ QEZSNDMSG Envoi de message(s) Option 5 du menu ASSIST Paramètres optionnels (groupe 1): (tous ou aucun) MSGTYP *CHAR 10 - type de message *INFO *INQ DLVRY *CHAR 10 - mode de délivrance *BREAK *NORMAL MSG *CHAR (?) - texte du message MSGLEN Binaire(4) - lg du texte USRLIST x fois *CHAR(10)-liste d'utilisateurs(*ALL,*ALLACT,*SYSOPR,-nom-) USRCNT Binaire(4) - nombre d'utilisateurs dans la liste Paramètres en retour : ENVOI Binaire(4) - message envoyé 1 ou plusieurs (par F10) 0 aucun SORTIE Binaire(4) - -4 par F3, -8 par F12 CODRT *CHAR (?) - code retour traditionnel pour les API. |
|
6/ QEZSNDMSG Envoi de message(s) Option 5 du menu ASSIST Paramètres optionnels (groupe 2): (tous ou aucun) AFFICHE *CHAR 1 - affichage de l'écran envoi de message (Y ou N) MSGQ *CHAR 20 - msgq devant recevoir les réponses en cas de message de type question <-msgq(10c)-><-bibli(10c)--> TYPE *CHAR 4 - type de nom dans la liste USRLIST *USR les noms représentent des utilisateurs *DSP les noms représentent des écrans (invalide avec AFFICHE=Y) |
|
7/ QEZLSGNU Liste les utilisateurs en session Paramètres USRSPC *CHAR 20 - user space devant recevoir cette liste <-*usrspc(10c)-><-bibli(10c)--> FORMAT *CHAR 8 - format de la liste SGNU0100 = liste des utilisateurs avec leur action SGNU0200 = idem SGNU0100 + textes profil et écran USER *CHAR 10 - utilisateur : nom, nom généric*, *ALL DSP *CHAR 10 - écran : nom, nom généric*, *ALL DSCJOB *CHAR 1 - inclure les job déconnectés (Y ou N) PRINT *CHAR 1 - inclure les jobs terminés avec spool en attente(Y/N) ERROR *CHAR ?? - code erreur en retour |
|
Vous pouvez associer des pgm entreprise à certaines fonctions assistant ces pgm sont déja automatiquement appellés par assistant QEZUSRCLNP quand assistant fait le ménage. QEZPWROFFP quand assitant arrete le système. Ces programmes sont fournis ALWRTVSRC(*YES) Il vous suffit d'extraire le source, de les completer et de placer la nouvelle version dans une bibliothèque se trouvant avant QSYS. |
|
a/ QEZUSRCLNP
PGM
DCL VAR(&COIBM) TYPE(*CHAR) LEN(128) VALUE(' 5738-SS1 (C) -
COPYRIGHT IBM CORP. 1980, 1991 ALL RIGHTS RESERVED. LICENSED -
MATERIALS - PROPERTY OF IBM')
/* placez ici vos commandes */
...
...
...
QSYS/SNDPGMMSG MSGID(CPI1E91) MSGF(QCPFMSG) TOMSGQ(*SYSOPR) -
MSGTYPE(*INFO)
QSYS/SNDPGMMSG MSGID(CPI1E92) MSGF(QCPFMSG) TOMSGQ(*SYSOPR) -
MSGTYPE(*INFO)
/* CPI1E92 = 'programme de ménage utilisateur terminé' */
RETURN
COPYWRITE: +
QSYS/CHGVAR VAR(&COIBM) VALUE(&COIBM)
PGM_END:
QSYS/ENDPGM
|
|
a/ QEZPWROFFP
PGM
DCL VAR(&COIBM) TYPE(*CHAR) LEN(128) VALUE(' 5738-SS1 (C) -
COPYRIGHT IBM CORP. 1980, 1991 ALL RIGHTS RESERVED. LICENSED -
MATERIALS - PROPERTY OF IBM')
/* placez ici vos commandes */
...
...
...
QSYS/PWRDWNSYS OPTION(*IMMED)
GOTO CMDLBL(PGM_END)
COPYWRITE: +
QSYS/CHGVAR VAR(&COIBM) VALUE(&COIBM)
PGM_END:
QSYS/ENDPGM
|
|
Il est enfin possible d'associer un pgm de sortie à la fonction BACKUP dans assistant. Il suffit de renseigner le paramètre EXITPGM sur la commande CHGBCKUP. Ce pgm sera appellé avant ET après le pgm assistant. Paramètres : PRODUCT *CHAR 10 - pgm appellant (QEZBACKUP pour assistant) QUAND *CHAR 10 - *BEFORE = avant assistant *AFTER = après OPTION *CHAR 10 - *DAILY,*WEEKLY,... (voir CHGBCKUP) DEVICE *CHAR 40 - nom(s) de une à quatre unités (cadrés sur 10 c.) LABEL *CHAR 4 - label à utiliser avant la notion de n° (01 à 99) CODRT *CHAR 7 - message retourné par BACKUP (blanc avant l'exécution). |
