Re: Mass Creation of Printer Device Desc.

["Raul A. Jager W." <raul@xxxxxxxxxx>]

or REXX

do count = 1 to 100
'CRTDEVPRT DEVD(LAN' + count + 'DEVCLS...
end

CRTDEVPRT  DEVD(&DEVD) DEVCLS(*LAN) TYPE(3812) MODEL(1) + 


Wayne McAlpine wrote:

> A simple CL program could be used to create the devices:
>
>              PGM 
>
>              DCL        VAR(&COUNT) TYPE(*DEC) LEN(3 0) 
>
>              DCL        VAR(&COUNTC) TYPE(*CHAR) LEN(3) 
>
>              DCL        VAR(&DEVD) TYPE(*CHAR) LEN(10) 
>
>              DCL        VAR(&RMTLOCNAME) TYPE(*CHAR) LEN(15) 
>
>  LOOP:       CHGVAR     VAR(&COUNT) VALUE(&COUNT + 1) 
>
>              IF         COND(&COUNT *EQ 100) THEN(GOTO CMDLBL(PGMEND)) 
>
>              CHGVAR     VAR(&COUNTC) VALUE(&COUNT) 
>
>              CHGVAR     VAR(&DEVD) VALUE('LAN' *TCAT &COUNTC) 
>
>              CHGVAR     VAR(&RMTLOCNAME) +
> 			VALUE('172.31.40.' *TCAT &COUNTC)
>              CRTDEVPRT  DEVD(&DEVD) DEVCLS(*LAN) TYPE(3812) MODEL(1) + 
>
>                           LANATTACH(*IP) PORT(9100) FONT(11) + 
>
>                           FORMFEED(*AUTOCUT) TRANSFORM(*YES) + 
>
>                           MFRTYPMDL(*HPCOLORLJ) + 
>
>                           RMTLOCNAME(&RMTLOCNAME) SYSDRVPGM(*HPPJLDRV) 
>
>              GOTO       CMDLBL(LOOP) 
>
>  PGMEND:     ENDPGM 
>
>
> Laine, Rogers wrote:
>  
>
> > I have over 100 printers to define to a given LPAR and I would like to
> > do this using an in stream member with multiply CRTDEVPRT commands as
> > shown below.
> >
> > Questions....
> >
> > 1. Can this be done and how would this be executed (PGM, Utility, etc)
> >
> > 2. What type of file would be used to create this?
> >
> >
> > I'm new to this platform and my background is on the Z-Series, so please
> > forgive me if my terminology to not correct.
> >
> > I would like to keep this very simple, if possible.
> >
> >
> > CRTDEVPRT DEVD(LAN01)                     
> >
> >          DEVCLS(*LAN)                    
> >
> >          TYPE(3812)                      
> >
> >          MODEL(1)                        
> >
> >          LANATTACH(*IP)                  
> >
> >          PORT(9100)                      
> >
> >          FONT(11)                        
> >
> >          FORMFEED(*AUTOCUT)              
> >
> >          PARITY(*NONE)                   
> >
> >          STOPBITS(1)                     
> >
> >          TRANSFORM(*YES)                 
> >
> >          MFRTYPMDL(*HPCOLORLJ)           
> >
> >          RMTLOCNAME('172.31.40.70')      
> >
> >          SYSDRVPGM(*HPPJLDRV)  
> >
> > CRTDEVPRT DEVD(LAN02)                     
> >
> >          DEVCLS(*LAN)                    
> >
> >          TYPE(3812)                      
> >
> >          MODEL(1)                        
> >
> >          LANATTACH(*IP)                  
> >
> >          PORT(9100)                      
> >
> >          FONT(11)                        
> >
> >          FORMFEED(*AUTOCUT)              
> >
> >          PARITY(*NONE)                   
> >
> >          STOPBITS(1)                     
> >
> >          TRANSFORM(*YES)                 
> >
> >          MFRTYPMDL(*HPCOLORLJ)           
> >
> >          RMTLOCNAME('172.31.40.71')      
> >
> >          SYSDRVPGM(*HPPJLDRV)            
> >
> >
> >
> >          
> >
> > ************************************************
> > This E-Mail transmission (and/or the documents accompanying it) 
> > may contain information belonging to the sender which is confidential, 
> > privileged and/or exempt from disclosure under applicable law. The 
> > information is intended only for the use of the individual(s) or entity 
> > named above. If you are not the intended recipient, you are hereby 
> > notified that any disclosure, copying, distribution or the taking of any 
> > action in reliance on the contents of this information is strictly 
> > prohibited. If you have received this E-Mail transmission in error, 
> > please immediately notify us by return E-Mail or telephone to arrange 
> > for return of its contents including any documents.
> >