PSF/MVS AFP Printing Using TCP/IP

Xerox 4500 PS TR

13.2 PSF/MVS startup procedure

000001

//PSF4

PROC

 

 

 

 

 

 

000002

//STEP01

EXEC PGM=APSPPIEP,REGION=1750K

 

 

 

 

000003

//JOBHDR

OUTPUT PAGEDEF=V06483,

 

 

/*

JOB SEPARATOR PAGEDEF

*/

000004

//

FORMDEF=A10110,CHARS=GT15

 

 

/*

JOB SEPARATOR FORMDEF

*/

000005

//JOBTLR

OUTPUT PAGEDEF=V06483,

 

 

/*

JOB SEPARATOR PAGEDEF

*/

000006

//

FORMDEF=A10110,CHARS=GT15

 

 

/*

JOB

SEPARATOR FORMDEF

*/

000007

//DSHDR

OUTPUT PAGEDEF=V06483,

 

 

/*

DS

SEPARATOR PAGEDEF

*/

000008

//

FORMDEF=A10120,CHARS=GT15

 

 

/*

DS

SEPARATOR FORMDEF

*/

000009

//MSGDS

OUTPUT PAGEDEF=A06462,

 

 

/*

MESSAGE DATASET PAGEDEF

*/

000010

//

FORMDEF=A10110

 

 

/*

MESSAGE DATASET FORMDEF

*/

000011

//********************************************************************

000012

//*

 

 

 

 

 

 

 

000013

//*

THIS PROC. IS TO BE USED FOR 300 DPI DEVICES

 

000014

//*

 

-----------

 

 

 

 

000015

//********************************************************************

000016

//FONT01 DD DSN=IDAPBJ.AFPLIB,DISP=SHR

/*

PBJ

FONTS - 300 DPI

*/

000017

//

DD DSN=SYS2.FONT300,DISP=SHR

 

/*

SYSTEM FONTS - 300 DPI

*/

000020

//*-------------------------------------------------------------------

 

 

 

 

 

 

000021

//PSEG01 DD DSN=IDAPBJ.AFPLIB,DISP=SHR

/*

SYSTEM PAGE SEGMENTS

*/

000022

//

DD DSN=SYS2.PSEGLIB,DISP=SHR

 

/*

SYSTEM PAGE SEGMENTS

*/

000023

//

DD DSN=SYS1.PSEGLIB,DISP=SHR

 

/*

SYSTEM PAGE SEGMENTS

*/

000024

//*-------------------------------------------------------------------

 

 

 

 

 

 

000025

//OLAY01 DD DSN=IDAPBJ.AFPLIB,DISP=SHR

/*

SYSTEM MEDIUM OVERLAYS

*/

000026

//

DD DSN=SYS2.OVERLIB,DISP=SHR

 

/*

SYSTEM MEDIUM OVERLAYS

*/

000027

//

DD DSN=SYS1.OVERLIB,DISP=SHR

 

/*

SYSTEM MEDIUM OVERLAYS

*/

000028

//*-------------------------------------------------------------------

 

 

 

 

 

 

000029

//PDEF01 DD DSN=SYS2.PDEFLIB,DISP=SHR

 

/*

SYSTEM PAGEDEFS

*/

000030

//

DD DSN=SYS1.PDEFLIB,DISP=SHR

 

/*

SYSTEM PAGEDEFS

*/

000031

//*-------------------------------------------------------------------

 

 

 

 

 

 

000032

//FDEF01 DD DSN=SYS2.FDEFLIB,DISP=SHR

 

/*

SYSTEM FORMDEFS

*/

000033

//

DD DSN=SYS1.FDEFLIB,DISP=SHR

 

/*

SYSTEM FORMDEFS

*/

000034

//********************************************************************

000035

//*

STANDARD

 

 

PRINTDEV

 

*/

000036

//********************************************************************

000037

//PRT420 CNTL

 

 

 

 

 

 

000038

//PRT420 PRINTDEV FONTDD=*.FONT01,

 

/* FONT

 

LIBRARY DD

*/

000039

//

OVLYDD=*.OLAY01,

 

/* OVERLAY

LIBRARY DD

*/

000040

//

PSEGDD=*.PSEG01,

 

/* SEGMENT

LIBRARY DD

*/

000041

//

PDEFDD=*.PDEF01,

 

/* PAGEDEF

LIBRARY DD

*/

000042

//

FDEFDD=*.FDEF01,

 

/* FORMDEF

LIBRARY DD

*/

000043

//

JOBHDR=*.JOBHDR,

 

/* JOB

HEADER SEPARATOR OUTPUT

*/

000044

//

JOBTRLR=*.JOBTLR,

 

/* JOB

TRAILER SEPARATOR OUTPUT */

000045

//

DSHDR=*.DSHDR,

 

/* DATA SET HEADER SEPERATOR

*/

000046

//

MESSAGE=*.MSGDS,

 

/* MESSAGE DATA SET OUTPUT

*/

000047

//

PAGEDEF=A06462,

 

/* DEVICE PAGEDEF DEFAULT

*/

000048

//

FORMDEF=A10110,

 

/* DEVICE FORMDEF DEFAULT

*/

000049

//

CHARS=(GT10,

 

/* DEVICE

 

*/

000050

//

GT12,GT15,GT10),

 

/* DEFAULT FONT SET

*/

000051

//

PIMSG=YES,

 

/* ACCUMULATE DATA SET MESSAGES */

000052

//

DATACK=BLOCK,

 

/* REPORT ALL DATA-CHECK ERRORS */

000053

//

TRACE=NO,

 

/* CREATE INTERNAL TRACE

*/

000054

//

FAILURE=WCONNECT,

 

/* ACTION ON PRINTER FAILURE

*/

000055

//

TIMEOUT=REDRIVE,

 

/* PSF

ACTION ON TIMEOUT

*/

000056

//

DISCINTV=0,

 

/* DISCONNECT INTERVAL IN SECS. */

000057

//

MGMTMODE=IMMED,

 

/* ACTIVATE PRINTER AT STARTUP

*/

000058 //

IPADDR=‘192.0.110.21’

/* IP ADDRESS

*/

000059 //

PORTNO=5001

/* IP ADDRESS

*/

000060

//PRT420

ENDCNTL

 

 

 

 

 

 

Using IP address 192.0.110.21 and port number 5001

The IP address of the Xerox 4500 PS TR IPC(IPDS) should be programmed in the IPADDR statement. The PORTNO 5001 is the default port number of the first IPDS port on the Xerox 4500 PS TR IPC (IPDS).

121

Page 121
Image 121
Xerox 4500 PS TR instruction manual 13.2 PSF/MVS startup procedure, Pbj