Lexmark E460 IPDS Emulation User's Guide - Page 69

Step 3. Sending Job From Host To Printer Selecting Font Character Set, You Want Printer To Capture

Page 69 highlights

//STEP1 EXEC PGM=APSRMARK //SYSPRINT DD SYSOUT=J //* //IN1 DD UNIT=3390,DSN=SYS1.FONT300,DISP=SHR,VOL=SER=OS3R7A //OUT1 DD UNIT=3390,DSN=SYS1.FONTNEW,DISP=SHR,VOL=SER=OS3R7A //SYSIN DD * INDD=IN1,OUTDD=OUT1,MEMBER=T1V10037,PUBLIC INDD=IN1,OUTDD=OUT1,MEMBER=C08400B0,PUBLIC /* Note: If you want to mark all fonts in a particular font library "PUBLIC" you can create a new font library, copy, and mark all fonts as "PUBLIC" at the same time. The following is a sample of the JCL commands to copy and mark all fonts "PUBLIC" to a new library. Sample JCL to copy and mark all fonts "PUBLIC" to a new font library: //APSRMARK JOB (), // CLASS=A, // MSGCLASS=A, // MSGLEVEL=(1,1), // NOTIFY=&SYSUID, // TIME=1440 //* THIS JOB WILL COPY/MOVE MEMBERS TO ALTERNATE FONT LIB AND * //* MARK THEM AS EITHER PUBLIC OR PRIVATE. TO MARK PUBLIC ENTER * //* "PUBLIC" KEYWORD ON LINE 18 INDD STATEMENT. FOR PRIVATE ENTER * //* "PRIVATE" KEYWORD ON LINE 18 INDD STATEMENT. THEN SUBMIT. * //* TO DISPLAY STATUS MARKING CHANGE RUN REPORT JOB "APSSHORT". * //* NOTE: BEFORE YOU RUN THIS JOB YOU MUST ALLOCATE NEW FONTLIB DSN * //* 1ST CREATE NEW LIB, THEN USE IEBGENER TO COPY FROM OLD LIB * //* I.E. SYS1.FONTLIBB TO NEW LIB SYS1.FONTPRIV OR SYS1.FONTPUB * //STEP1 EXEC PGM=APSRMARK //SYSPRINT DD SYSOUT=J //* //IN1 DD UNIT=3390,DSN=SYS1.FONTLIBB,DISP=SHR,VOL=SER=OS3R7A //INOUT1 DD UNIT=3390,DSN=SYS1.FONTPRIV,DISP=SHR,VOL=SER=OS3R7A //SYSIN DD * INDD=IN1,OUTDD=INOUT1,PUBLIC,MEMBER=ALL /* STEP 3. SENDING JOB FROM HOST TO PRINTER SELECTING FONT CHARACTER SET YOU WANT PRINTER TO CAPTURE Once you have marked fonts "PUBLIC" you can select the font character set to be captured from either within printer definition member in PSF or from within the in-stream JCL of the job. The following is an example of both. To select font capture from printer definition member, add the "CHARS" option as follows to your PSF printer member. // CHARS=(88FB) /* default font set */ 69

  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  • 31
  • 32
  • 33
  • 34
  • 35
  • 36
  • 37
  • 38
  • 39
  • 40
  • 41
  • 42
  • 43
  • 44
  • 45
  • 46
  • 47
  • 48
  • 49
  • 50
  • 51
  • 52
  • 53
  • 54
  • 55
  • 56
  • 57
  • 58
  • 59
  • 60
  • 61
  • 62
  • 63
  • 64
  • 65
  • 66
  • 67
  • 68
  • 69
  • 70
  • 71
  • 72
  • 73
  • 74
  • 75
  • 76
  • 77
  • 78
  • 79
  • 80
  • 81
  • 82
  • 83
  • 84
  • 85
  • 86
  • 87
  • 88
  • 89
  • 90
  • 91
  • 92
  • 93
  • 94
  • 95
  • 96
  • 97
  • 98
  • 99
  • 100
  • 101
  • 102
  • 103
  • 104
  • 105
  • 106
  • 107
  • 108
  • 109
  • 110
  • 111
  • 112
  • 113
  • 114
  • 115
  • 116
  • 117
  • 118
  • 119

//STEP1
EXEC
PGM=APSRMARK
//SYSPRINT DD SYSOUT=J
//*
//IN1
DD UNIT=3390,DSN=SYS1.FONT300,DISP=SHR,VOL=SER=OS3R7A
//OUT1
DD UNIT=3390,DSN=SYS1.FONTNEW,DISP=SHR,VOL=SER=OS3R7A
//SYSIN
DD *
INDD=IN1,OUTDD=OUT1,MEMBER=T1V10037,PUBLIC
INDD=IN1,OUTDD=OUT1,MEMBER=C08400B0,PUBLIC
/*
Note:
If you want to mark all fonts in a particular font library "PUBLIC" you can create a new font
library, copy, and mark all fonts as "PUBLIC" at the same time. The following is a sample of the
JCL commands to copy and mark all fonts "PUBLIC" to a new library.
Sample JCL to copy and mark all fonts "PUBLIC" to a new font library:
//APSRMARK JOB
(),
//
CLASS=A,
//
MSGCLASS=A,
//
MSGLEVEL=(1,1),
//
NOTIFY=&SYSUID,
//
TIME=1440
//*******************************************************************
//* THIS JOB WILL COPY/MOVE MEMBERS TO ALTERNATE FONT LIB AND
*
//* MARK THEM AS EITHER PUBLIC OR PRIVATE. TO MARK PUBLIC ENTER
*
//* "PUBLIC" KEYWORD ON LINE 18 INDD STATEMENT. FOR PRIVATE ENTER
*
//* "PRIVATE" KEYWORD ON LINE 18 INDD STATEMENT. THEN SUBMIT.
*
//* TO DISPLAY STATUS MARKING CHANGE RUN REPORT JOB "APSSHORT".
*
//* *****************************************************************
//* NOTE: BEFORE YOU
RUN THIS JOB YOU MUST ALLOCATE NEW FONTLIB DSN *
//* 1ST CREATE NEW LIB, THEN USE IEBGENER TO COPY FROM OLD LIB
*
//* I.E. SYS1.FONTLIBB TO NEW LIB SYS1.FONTPRIV OR SYS1.FONTPUB
*
//*******************************************************************
//STEP1
EXEC
PGM=APSRMARK
//SYSPRINT DD SYSOUT=J
//*
//IN1
DD UNIT=3390,DSN=SYS1.FONTLIBB,DISP=SHR,VOL=SER=OS3R7A
//INOUT1 DD UNIT=3390,DSN=SYS1.FONTPRIV,DISP=SHR,VOL=SER=OS3R7A
//SYSIN
DD *
INDD=IN1,OUTDD=INOUT1,PUBLIC,MEMBER=ALL
/*
STEP 3. SENDING JOB FROM HOST TO PRINTER SELECTING FONT CHARACTER SET
YOU WANT PRINTER TO CAPTURE
Once you have marked fonts "PUBLIC" you can select the font character set to be captured from either
within printer definition member in PSF or from within the in-stream JCL of the job. The following is an
example of both.
To select font capture from printer definition member, add the "CHARS" option as follows to your PSF
printer member.
//
CHARS=(88FB)
/* default font set */
69