D o m i n i q u e   G u e b e y    J u n g l e      Bazar informatique

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 &DEV                                                         
MONMSG CPF0000                                                         
                                                                       
FIN: ENDPGM                                                            
Cre : 01 mar 1997 - Maj : 21 dec 2004

A propos de ces pages / about these pages : http://www.dg77.net/about.htm
Gen : 22/04/2017-18:09:47,84