Adding a printer

Printer definitions consist of several elements:
VPS definition:
     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"
DRS definition(s):
     Always Portrait and usually Landscape mode
VTAM definition(s):
     One for each DRS definition
CICS definition(s):
     One for each DRS definition

VPS Definitions

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.

 

DRS defintions

Library is LRS.DRS.V1R34.CNTL
DRSMLIST (startup list) - Add VPRT3PXP, VPRT3PXX, VPRT3SCP and VPRT3SCX before last line
SORT CHA
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"

VTAM definitions

Edit SYS1.VTAMLST
  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,...
DLOGMOD=SCS,....
VPRT3PXX APPL ACBNAME=VPRT3PXX,...
DLOGMOD=SCS,...
VPRT3SCP APPL ACBNAME=VPRT3SCP,...
DLOGMOD=SCS,...
VPRT3SCX APPL ACBNAME=VPRT3SCX,...
DLOGMOD=SCS,...

 

Activating new VPS, VTAM and DRS definitions

On TSO, do "S;LOG"
/V NET,ACT,ID=TEMP01,SCOPE=ALL
/D NET,ID=TEMP01,E
  should see the four LUs connectible: VPRT3PXP, VPRT3PXX, VPRT3SCP and VPRT3SCX

/F VPS,ACT,VPRT3PXP
/F VPS,ACT,VPRT3SCP
/F VPS,DIS,VPRT3PXP
/F VPS,DIS,VPRT3SCP
  should see VPRT3PXP and VPRT3SCP in "IDLE" status.

/F DRSV,ACT,VPRT3PXP
/F DRSV,ACT,VPRT3PXX
/F DRSV,ACT,VPRT3SCP
/F DRSV,ACT,VPRT3SXX
/F DRSV,DIS,VPRT3PXP
/F DRSV,DIS,VPRT3PXX
/F DRSV,DIS,VPRT3SCP
/F DRSV,DIS,VPRT3SXX
  should show printers defined but not connected

 

CICS definitions

Logon A2K
Clear
SMSN
  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

PSRE
  wait several seconds, generate Attention (CTL-SHIFT-A)

ODAV
  to scroll thru printer list if desired...should find the new ones

Logoff A2K and logon TSO
S;LOG
/F DRSV,DIS,VPRT3PXP
/F DRSV,DIS,VPRT3PXX
/F DRSV,DIS,VPRT3SCP
/F DRSV,DIS,VPRT3SCX
  should see them "connected to partner LU A2KPPROD"


NOTE: Record the information so that it can be added to the MS Access database for the IP/ID Lookup part of this site.

PRINT