Discussion :

[Techno_400]

Bonjour à tous
J'ai un boitier serveur d'impression à connecter sur mon imprimante 6400 qui était en twinax et un serveur model 720 en V4R4.
Ya t'il des paramètres de config particulière dans crtdevprt au niveau de l'as/400 ? car nous avons essayer mais le serveur n'arrive pas à communiquer avec l'imprimante pour les tests d'impression. Devrions nous tenir compte d'autres paramètres ?
NB: erreur imprévu lors du démarrage de l'éditeur 'MCH1210 non intercepté par QEZHNRPR à la specif *N, inst X'0320'.

merci d'avance

[rcordonnier]

Bonjour,

les paramètres principaux a verifier sont DEVCLS nom de la prt
TYPE son type (F4)
MODEL SON Modèle (F4)
un autre paramètre a vérifier est ADPTCNTYP *parrallel

a vérifier également si l'imprimante est connue lors de l'ipl online *yes
pour l'instant je ne vois rien d'autres

tiens nous au courant

[rcordonnier]

Bonjour
en complément voici un pgm qui permet de creer des imprimantes sur deux types

j'espère que cela pourra vous servir.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
PGM        PARM(&TYPE &NOM &ADDR &PORT &TEXT)                      
/* MODIF DU 09/09/02 CHG DE LA TAILLE NOM ADDR ET PORT DE 8 A 9 */             
            DCL        VAR(&TYPE) TYPE(*CHAR) LEN(3)                           
            DCL        VAR(&NOM) TYPE(*CHAR) LEN(10)                           
            DCL        VAR(&ADDR) TYPE(*CHAR) LEN(9)                           
            DCL        VAR(&PORT) TYPE(*CHAR) LEN(9)                           
            DCL        VAR(&TEXT) TYPE(*CHAR) LEN(40)                          
            IF         (&TYPE *EQ 'PJL') GOTO PJL                              
            ELSE IF    (&TYPE *EQ 'LPR') GOTO LPR                              
            ELSE IF    (&TYPE *EQ 'DJ')  GOTO DESKJET                          
            ELSE GOTO  ABORT                                                   
PJL:        CRTDEVPRT  DEVD(&NOM) DEVCLS(*LAN) TYPE(3812) MODEL(1) +           
                         LANATTACH(*IP) PORT(9100) FONT(11) +                  
                         FORMFEED(*AUTOCUT) TRANSFORM(*YES) +                  
                         MFRTYPMDL(*WSCSTA4) RMTLOCNAME(&ADDR) +               
                         SYSDRVPGM(*HPPJLDRV) TEXT(&TEXT) +                    
                         WSCST(QGPL/HP)                                        
           CHGOUTQ       &NOM TEXT(&TEXT)                                      
           VRYCFG        &NOM *DEV *ON       
            STRPRTWTR     &NOM                                                   
            GOTO FIN                                                             
 LPR:        CRTOUTQ    OUTQ(QUSRSYS/&NOM) RMTSYS(&ADDR) +                       
                          RMTPRTQ(&PORT) AUTOSTRWTR(1) CNNTYPE(*IP) +            
                          DESTTYPE(*OTHER) MFRTYPMDL(*WSCSTA4) +                 
                          WSCST(BEXPPGMSYS/LEXOPTRAS) DESTOPT(XAIX) +            
                          SEPPAGE(*NO) TEXT(&TEXT)                               
             CRTDEVPRT DEVD(&NOM) DEVCLS(*VRT) TYPE(3812) MODEL(1)  +            
                       ONLINE(*NO) FONT(011) TEXT(&TEXT)                         
             MONMSG MSGID(CPI2611)                                               
            GOTO FIN

bien cordialement