I decided to create a CLP with all the device descriptions and compile
it, then CALL the program.

It worked like a charm. Thanks for the many suggestions from everyone.

My next task is to FTP the CLP source to the other LPARS and repeat the
process again.

Rogers

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Chris Bipes
Sent: Wednesday, September 23, 2009 10:29 AM
To: Midrange Systems Technical Discussion
Subject: RE: Mass Creation of Printer Device Desc.

My preferred way is to put your configuration into a CLP. You can
compile and then execute the CLP to create the devices. If saved, you
can then recreate the devices by running the program again for DR
testing, etc.

If you have the devices created on another partition or system, you can
retrieve the device descriptions into a source file and then change the
type to CLP. You will just need to insert the PGM and ENDPGM command at
the start / end of the source member.

RTVCFGSRC CFGD(LAN*)
CFGTYPE(*DEVD)
SRCFILE(CHRISB/QCLSRC)

This will pull the configuration source for all devices that start with
"LAN"



Chris Bipes
Director of Information Services
CrossCheck, Inc.

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Laine, Rogers
Sent: Wednesday, September 23, 2009 8:01 AM
To: midrange-l@xxxxxxxxxxxx
Subject: Mass Creation of Printer Device Desc.


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.
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at http://archive.midrange.com/midrange-l.


This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].