Le web de Dominique Guebey – IBM AS/400 iSeries

Page : http://www.dg77.net/tekno/as400/as400sppb.htm


   D o m i n i q u e   G u e b e y    J u n g l e     IBM AS/400 iSeries

Comment envoyer en un tournemain tous les listings d’une OUTQ sur une imprimante?

Il est trois heures du matin, quelque part en Bretagne l’opérateur revient du quai, siffle un petit verre de blanc, prend la liasse de papiers et commence sa saisie. Bientôt, il ne lui restera plus qu’à imprimer le rapport d’arrivage. Très loin de là, l’informaticien dort…

  1. L’utilisateur a le niveau d’assistance « débutant » (dans le profil : ASTLVL(*basic) ; ou encore [F21] sur la ligne de commande).
  2. L’état est dans la liste des fichiers « non associés à une imprimante démarrée ».
  3. Affichage du spool (wrksplf…).
  4. Option 9 (gérer l’état).
  5. Option 2 (modification ).
  6. Entrer un nom d’imprimante.
  7. Au lieu de l’option 1 (« placer le fichier dans la file de l’imprimante »), entrer encore une fois 2 (« modifier l’éditeur d’imprimante pour utiliser la file de sortie du fichier »). Supposons qu’il s’agisse de QPRINT avec 1500 listings entassés : les 1500 se mettent sur la file de sortie imprimante correspondante et l’impression commence..
Méthodes d’intervention
Non au petit blanc du matin !
Méthode générale : arrêter/redémarrer l’imprimante (depuis la ligne de commande : go printer/option 2 ; ou touche F22 en étant dans le spool).
Prise-en-compte du problème : créer une commande d’urgence, par exemple STOPR

Prompt

CMD PROMPT('STOPE/REDEMARRE UN EDITEUR')      
PARM KWD(DEV) TYPE(*CHAR) LEN(10) MIN(1) +    
     CHOICE('NOM') PROMPT('IMPRIMANTE :')     

CL utilisé

PGM PARM(&DEV)
                  
DCL &DEV TYPE(*CHAR) LEN(10)
DCL VAR(&JOBUS) TYPE(*CHAR) LEN(10)
                                       
RTVJOBA USER(&JOBUS)               
                                       
ENDWTR &DEV OPTION(*IMMED)         
MONMSG CPF3313 EXEC(DO)                
               SNDMSG MSG('EDITEUR NON ACTIF NI EN FILE DE +
TRAVAUX. VERIFIEZ SON NOM') TOUSR(&JOBUS)
GOTO FIN                 
               ENDDO
               
DLYJOB DLY(30) 
               
STRPRTWTR &DE
MONMSG CPF0000
              
FIN: ENDPGM