Printer definitions consist of several elements:
varies depending on type and use of printer
Standard printer, Label printer, Card Embosser, Print Server
Normal printer name is "VPRT3xxP"
Label printer name is "VPRT3xxL"
Card Embosser name is "VPRT3CRn"
Always Portrait and usually Landscape mode
One for each DRS definition
One for each DRS definition
The VPS library involved is LRS.VPS.V1R80.CNTL and the members are:
$README - has JES2 DEST value for next printer to be added.
Current value is used for this printer, then member updated by 1
VPSMLIST - list of all printers - used at VPS Startup
VPRTnnnn - the definition of the new printer.
When a printer is being added, I decide on a name, based on the location or function, then make sure the name and IP are not already in use. As examples, suppose we are adding:
HP4000 in Physical Therapy on 10.10.42.26
HP8000 in South Circle on 10.10.60.4
After looking at library, we decide to give them PrinterIDs 3PXP and 3SCP, respectively
$README says next printer should have DEST of U1090. We will assign U1090 to 3PXP and U1091 to 3SCP. We update $README to U1092 for the next to be added after these two.
The HP4000 is the most common printer and defined with "COMMTYPE=(TCPIP,SOK)"
The HP8000 really is a server-printer and defined with "COMMTYPE=(TCPIP,LPD)"
Locate a member with SOK definition, such as VPRT3RDP and create a copy named VPRT3PXP
Locate a member with LPD definition, such as VPRT1APP and create a copy named VPRT3SCP
Edit VPRT3PXP and VPRT3SCP and set DEST values to U1090 and U1091, respectively; set the IP addresses to 10.10.42.26 and 10.10.60.4, respectively; change the comments to indicate where the printers are located.
Add the printer names just before the last line of VPSMLIST.
Library is LRS.DRS.V1R34.CNTL
DRSMLIST (startup list) - Add VPRT3PXP, VPRT3PXX, VPRT3SCP and VPRT3SCX before last line
Edit most recent "VPRT3xxP" member and save as VPRT3PXP and VPRT3SCP
Edit VPRT3PXP, change DEST to U1090, Save
Edit VPRT3SCP, change DEST ot U1091, Save
Make copies of VPRT3PXP and VPRT3SCP as VPRT3PXX and VPRT3SCX, respectively
Edit VPRT3PXX and VPRT3SCX and change "WRITER=SBOK" to "WRITER=SSTD"
Add printer LUs to APLPRTV6 (for example)
Added VPRT3PXP, VPRT3PXX, VPRT3SCP and VPRT3SCX
The definitions ending in "P" are for Portrait, the "X" for Landscape
Note that while a VTAM definition for a PC only has the LU name once,
it occurs twice in a printer definition.
Create copy of APLPRTV6 as some temporary name such as "TEMP01"
Edit TEMP01 and delete all except the first line and the new definitions. Should have:
APLPRTV6 VBUILD TYPE=APPL
VPRT3PXP APPL ACBNAME=VPRT3PXP,...
VPRT3PXX APPL ACBNAME=VPRT3PXX,...
VPRT3SCP APPL ACBNAME=VPRT3SCP,...
VPRT3SCX APPL ACBNAME=VPRT3SCX,...
Activating new VPS, VTAM and DRS definitions
On TSO, do "S;LOG"
should see the four LUs connectible: VPRT3PXP, VPRT3PXX, VPRT3SCP and VPRT3SCX
should see VPRT3PXP and VPRT3SCP in "IDLE" status.
should show printers defined but not connected
Id/Pwd of "LDT" and "LDT"
CEDA EXP LIST(SMS#01) - get list of groups - will see DRSVASPn - will add to DRSVASP3
Add to the permanent printer group definition
CEDA DEF GROUP(DRSVASP3) TERMINAL(3PXP) NETNAME(VPRT3PXP) TYPETERM(DFHSCSP)
CEDA DEF GROUP(DRSVASP3) TERMINAL(3PXX) NETNAME(VPRT3PXX) TYPETERM(DFHSCSP)
CEDA DEF GROUP(DRSVASP3) TERMINAL(3SCP) NETNAME(VPRT3SCP) TYPETERM(DFHSCSP)
CEDA DEF GROUP(DRSVASP3) TERMINAL(3SCX) NETNAME(VPRT3SCX) TYPETERM(DFHSCSP)
Create temporary printer group - "ttemp1" for example
CEDA DEF GROUP(ttemp1) TERMINAL(3PXP) NETNAME(VPRT3PXP) TYPETERM(DFHSCSP)
CEDA DEF GROUP(ttemp1) TERMINAL(3PXX) NETNAME(VPRT3PXX) TYPETERM(DFHSCSP)
CEDA DEF GROUP(ttemp1) TERMINAL(3SCP) NETNAME(VPRT3SCP) TYPETERM(DFHSCSP)
CEDA DEF GROUP(ttemp1) TERMINAL(3SCX) NETNAME(VPRT3SCX) TYPETERM(DFHSCSP)
Install temporary group
CEDA INS GROUP(ttemp1)
Delete temporary group
CEDA EXP GROUP(ttemp1)
Enter "DELETE" to the right of each printer name,
tabbing from name to name, then hit ENTER, then F9.
Should say "group deleted"
CEMT I TER(3PX*
change "Rel" to "Acq" for both LUs
CEMT I TER(3SC*
change "Rel" to "Acq" FOR BOTH LUs
wait several seconds, generate Attention (CTL-SHIFT-A)
to scroll thru printer list if desired...should find the new ones
Logoff A2K and logon TSO
should see them "connected to partner LU A2KPPROD"