|
PTF#: |
SF29961 - OPERATING SYSTEM/400 |
|
Licensed Program: |
5763SS1 |
|
APAR Fixed: |
SA52291 |
|
Release: |
310 |
Abstract
AFP-OSP-PSF-TCPIP ADD DIAGNOSTIC INFORMATION
Pre/Co-Requisite PTF / Fix List
REQ LICENSED PTF/FIX
TYPE PROGRAM NUMBER LICENSED PROGRAM DESCRIPTION
---- -------- ------- -----------------------------------------------
PRE 5763999 MF09268 OPERATING SYSTEM/400
CO 5763SS1 SF29960 OPERATING SYSTEM/400
CO 5763SS1 SF29959 OPERATING SYSTEM/400
CO 5763SS1 SF29248 OPERATING SYSTEM/400
CO 5763SS1 SF29247 OPERATING SYSTEM/400
CO 5763SS1 SF28151 OPERATING SYSTEM/400
CO 5763SS1 SF28148 OPERATING SYSTEM/400
CO 5763SS1 SF24167 OPERATING SYSTEM/400
APAR Error Description / Circumvention
DESCRIPTION OF PROBLEM FIXED FOR APAR SA52291 :
-----------------------------------------------
PSF/400's TCP/IP support needs additional trace information
for field support.
CORRECTION FOR APAR SA52291 :
-----------------------------
Install this PTF if you are using PSF/400. You are using
PSF/400 if you have a printer device description specifying
AFP(*YES).
This PTF enhances the trace information output by PSF/400's
TCP/IP support. This information is output only when IBM
service requests trace information. Consider applying this
PTF if you are using PSF/400's TCP/IP support.
CIRCUMVENTION FOR APAR SA52291 :
--------------------------------
None.
Activation Instructions
If this PTF is applied or removed as a "Delayed" PTF, which
requires an IPL, no special consideration is necessary. If this
PTF is applied or removed "Immediate", you must first end all of
the printer writers or end the QSPL subsystem. The PTF will be
effective when the writers are started up again.
Special Instructions
********************************************************************
THE FOLLOWING ARE SUPERSEDED SPECIAL INSTRUCTIONS. IF THE SUPERSEDED
PTF HAS ALREADY BEEN APPLIED AND ITS SPECIAL INSTRUCTION FOLLOWED,
IT IS NOT NECESSARY TO FOLLOW THAT SPECIAL INSTRUCTION AGAIN.
********************************************************************
SPECIAL INSTRUCTIONS FOR SUPERSEDED PTF SF29249 :
=================================================
SPECIAL INSTRUCTIONS FOR THREE PTFS ARE CONTAINED IN THIS COVER
LETTER. IF YOU ARE READING THIS ONLINE, YOU MAY USE YOUR BROWSERS
FIND FUNCTION TO LOCATE THE SPECIAL INSTRUCTIONS THAT ARE OF
INTEREST TO YOU. SEARCH BY THE PTF NUMBERS LISTED BELOW.
- SF28153. PROVIDES SUPPORT FOR RESIDENT DOUBLE-BYTE RASTER
FONTS.
- SF24144. PROVIDES SOURCE CODE FOR A TOOL WHICH PROVIDES
ADDITIONAL CONFIGURATION OPTIONS FOR PSF/400.
- SF27170. MINOR CORRECTION TO SF24144.
The following note was added to SF24144:
Note that WRKAFP2 initializes the data area every time it is
invoked, except when PRINTONLY(*YES) is specified. So if you
must change a parameter after having previously used WRKAFP2,
all the original parameters must be entered again. To make
certain values are not accidentally lost, you may want to
consider using any of the following procedures to save the
values set by WRKAFP2:
1. Make a backup copy of the data area. Use a name for
the backup copy of the data area that does not correspond
to any existing printer device description.
2. Always print a copy of the values in the data area after
making any changes or creating the data area.
3. Print a copy of the values in the data area before making
any changes to the data area.
4. Save the CL source originally used for WRKAFP2.
The following change was added to EDGEORIENT in the source code for
the suggested command interface to QPQXWAFP:
PARM KWD(EDGEORIENT) +
TYPE(*CHAR) MIN(0) DFT(*NO) RSTD(*YES) +
LEN(4) PROMPT('Edge orient') +
PMTCTL(*PMTRQS) +
SPCVAL(*YES *NO)
SPECIAL INSTRUCTIONS FOR SUPERSEDED PTF SF28153 :
=================================================
Install this PTF if you use or are planning to use
Print Services Facility/400 (PSF/400) and are installing PTFs
for the following APARs:
- SA49551 Provides support for resident double byte raster
fonts for the 3130 printer (See hardware dependencies
for level of 3130 microcode required to support
double byte resident raster fonts).
A program provided in this PTF, QSYS/QPQCHGCF, provides a
way for you to indicate whether a particular section of a
double byte coded font is resident in the printer or should be
downloaded.
This cover letter provides the following information:
1. How to use the QPQCHGCF program
2. Examples of using the QPQCHGCF program .
3. Error messages issued when using the QPQCHGCF program
4. Restrictions on using the QPQCHGCF program
5. Miscellaneous notes
6. Hardware dependencies for PSF/400 resident raster font support
7. List of IBM supplied coded fonts whose font character sets are
resident in the 3130 printer.
8. How to copy the example QPQCHGCF invocations into a source
file.
9. Mark coded fonts sample source
1. How to use the QPQCHGCF program.
-----------------------------------
The QPQCHGCF program provides a way for you to indicate a
particular section of a double byte coded font is
1 - Resident in the printer and should not
be downloaded or
2 - Is not resident in the printer or has been changed
(different version than one in the printer) and needs to
be downloaded by PSF/400 to the printer.
QPQCHGCF has the following invocation format:
CALL QPQCHGCF (CODED-FONT-NAME CODED-FONT-LIBRARY-NAME|*LIBL
FONT-CHARACTER-SET-NAME|*ALL RESIDENT-FONT-INDICATOR)
where:
CODED-FONT-NAME: Specifies the name of the coded font to be marked.
This is a 8 character input parameter.
CODED-FONT-LIBRARY-NAME: Specifies the name of the library containing
the coded font.
This is a 10 character input parameter.
The coded font library name can be specified with the following
special value:
*LIBL This indicates that the job's current library list will be
used to search for the coded font.
FONT-CHARACTER-SET-NAME: Specifies the name of the font character
set to mark within the coded font.
This is a 8 character input parameter.
The font character set name can be specified with the following
special value:
*ALL This indicates that all the font character set/code page
pairs in the coded font are to be marked.
An addition special value is indicated by an "X" in the last
character of the font character set name. When this is specified,
the resident font indicator will be applied to all font character
sets that have the same characters preceding the "X". For
example, if C0G16F7X is specified, then C0G16F70 through
C0G16F7F will be searched for in the coded font and marked as
indicated by the resident font indicator.
If the font character set is not found in the coded font, no
error message will be issued.
RESIDENT-FONT-INDICATOR: Specifies whether the font character set
(specified with the FONT-CHAR-SET-NAME parameter) is to be
marked as resident in the printer or needs to be downloaded.
*YES Specifies the font character set/code page pair is
resident in the printer and should not be downloaded.
*NO Specifies the font character set/code page is not
resident in the printer or is a different version than the
one in the printer and should be downloaded to the printer
by PSF/400.
2. Examples of using QPQCHGCF
-----------------------------
A: Example below marks all the font character set/code page pairs
as resident in the printer for coded font X0G16F in library
QFNT61. No user defined sections will be downloaded.
CALL QPQCHGCF (X0G16F QFNT61 *ALL *YES)
B: Example below marks all the font character set/code page pairs
in sections 41 - 4F as resident and then marks sections 50 - 55
as resident.
CALL QPQCHGCF (X0G16B QFNT61 C0G16F4X *YES)
CALL QPQCHGCF (X0G16B QFNT61 C0G16F50 *YES)
CALL QPQCHGCF (X0G16B QFNT61 C0G16F51 *YES)
CALL QPQCHGCF (X0G16B QFNT61 C0G16F52 *YES)
CALL QPQCHGCF (X0G16B QFNT61 C0G16F53 *YES)
CALL QPQCHGCF (X0G16B QFNT61 C0G16F54 *YES)
CALL QPQCHGCF (X0G16B QFNT61 C0G16F55 *YES)
C: Example below marks all the font character set/code page pairs
in sections 41 - 4F as resident; then marks section 48 to be
downloaded. Sections 50 - 5F are marked as resident and sections
60 - 68 are marked as resident.
CALL QPQCHGCF (X0G16F QFNT61 C0G16F4X *YES)
CALL QPQCHGCF (X0G16F QFNT61 C0G16F48 *NO)
CALL QPQCHGCF (X0G16F QFNT61 C0G16F5X *YES)
CALL QPQCHGCF (X0G16F QFNT61 C0G16F60 *YES)
CALL QPQCHGCF (X0G16F QFNT61 C0G16F61 *YES)
CALL QPQCHGCF (X0G16F QFNT61 C0G16F62 *YES)
CALL QPQCHGCF (X0G16F QFNT61 C0G16F63 *YES)
CALL QPQCHGCF (X0G16F QFNT61 C0G16F64 *YES)
CALL QPQCHGCF (X0G16F QFNT61 C0G16F65 *YES)
CALL QPQCHGCF (X0G16F QFNT61 C0G16F66 *YES)
CALL QPQCHGCF (X0G16F QFNT61 C0G16F67 *YES)
CALL QPQCHGCF (X0G16F QFNT61 C0G16F68 *YES)
3. Error messages issued when using QPQCHGCF program
---------------------------------------
MSG ID Explanation
-------- -----------
PQT0100 Coded font was not changed in library, because a failure
occurred while changing the coded font.
See the previously listed messages.
PQT0101 You specified a font character set that was not found
in the coded font.
Correct the name of the font character set and then
invoke the program again.
PQT0102 You specified an invalid value for the resident font
indicator parameter.
Change the value of this parameter to *YES or *NO
and then invoke the program again.
CPF9801 Object XXXXXX in library XXXXXXXXXX not found.
You specified a coded font that could not be found
in the job's library list.
CPF9810 Library XXXXXXXXX not found.
You specified a library that does not exist or the
name of the library is not spelled correctly.
CPF9802 Not authorized to object XXXXXXXX in XXXXXXXXXX.
You do not have the correct authority to change the coded
font.
4. Restrictions on using the QPQCHGCF program
---------------------------------------------
Here are the restrictions involved:
- When marking fonts, the print writer must be stopped and re-started
If fonts are marked while the writer is active, unpredictable
results will occur.
-- End PSF/400 (ENDWTR), if it is active.
-- Use QPQCHGCF to mark the coded font.
-- Start PSF/400 (STRPRTWTR).
- If a section of a font is modified, the modified section must
contain all rotations that the original font contained. For example if
the coded font X0M16B is resident in the printer in rotations 0, 90,180
and 270 and section 46 is modified, then the modified section 46 must
also contain rotations 0, 90, 180, and 270.
- If IBM supplied coded fonts are modified, the user should not remove
sections from the coded font as supplied. This could result in
incorrect results when the modified font is referenced in a job
being printed on device that does not support resident double byte
raster fonts.
- PSF/400 does not support referencing a double byte resident raster
font by its registered font ID. That is, you should not specify a
double byte font on the FONT parameter of the printer file, on
the FONT DDS keyword, or with any other application that allows
you to specify font with its registered font ID.
5. Miscellaneous notes
----------------------
- All IBM supplied coded fonts are shipped with the resident font
indicator turned off. That means the entire font will be
downloaded unless the QPQCHGCF program is run to mark the
the IBM supplied sections as resident.
- The font character set and code page pair are treated the
the same for marking them resident or need to be downloaded.
If the font character set has changed, then the corresponding
code page will also be marked as needing to downloaded.
If the code page has been changed, then the corresponding
font character will also be marked as needing to downloaded.
6. Hardware dependencies for PSF/400 resident raster font support
-----------------------------------------------------------------
Release 2.0 of the 3130 microcode available 3/31/96 is required
for PSF/400 to support DBCS resident raster fonts on the 3130
printer.
7. Coded fonts whose font character sets are resident in the 3130
-----------------------------------------------------------------
The following is a list of the DBCS fonts that are resident in the
3130 printer.
Japanese (In QFNT61 library)
FONT RESIDENT FONT
FONT SIZE CODED FONT CHARACTER SET FONTID WIDTH
-------------------------------------------------------------
Mincho 16x16 X0M16B/F C0M16FXX 53559 096
Mincho 24x24 X0M24B/F C0M24FXX 53559 140
Mincho 20x24 X0Z24B/F C0Z24FXX 53559 144
Mincho 26x26 X0M26B/F C0M26FXX 53559 156
Mincho 32x32 X0M32B/F C0M32FXX 53559 180
Mincho 36x36 X0M36B/F C0M36FXX 53559 216
Mincho 40x40 X0M40B/F C0M40FXX 53559 240
Mincho 44x44 X0M44B/F C0M44FXX 53559 264
Mincho 48x48 X0M48B/F C0M48FXX 53559 288
Mincho 52x52 X0M52B/F C0M52FXX 53559 312
Mincho 64x64 X0M64B/F C0M64FXX 53559 384
Gothic 16x16 X0G16B/F C0G16FXX 53815 100
Gothic 20x24 X0G20B/F C0G20FXX 53813 120
Gothic 24x30 X0G24B/F C0G24FXX 53813 140
Gothic 32x32 X0G32B/F C0G32FXX 53815 192
Gothic 36x36 X0G36B/F C0G36FXX 53815 216
Gothic 48x48 X0G48B/F C0G48FXX 53815 288
Gothic 64x44 X0G64B/F C0G64FXX 53815 384
R-Gothic 36x36 X0R36B/F C0R36FXX 54071 216
R-Gothic 40x40 X0R40B/F C0R40FXX 54071 240
R-Gothic 48x48 X0R48B/F C0R48FXX 54071 288
R-Gothic 64x64 X0R64B/F C0R64FXX 54071 384
Korean (In QFNT62 library)
FONT RESIDENT FONT
FONT SIZE CODED FONT CHARACTER SET FONTID WIDTH
-------------------------------------------------------------
Mincho 24x24 X0M24K/L C0HB00XX 53559 144
Mincho 32x32 X0M32K/L C0HD00XX 53559 192
Mincho 36x36 X0M36K/L C0HE00XX 53559 216
Mincho 40x40 X0M40K/L C0HF00XX 53559 240
Mincho 48x48 X0M48K/L C0HG00XX 53559 288
Mincho 64x64 X0M64K/L C0HH00XX 53559 384
Gothic 16x16 X0G16K/L C0HA00XX 53815 096
Gothic 24x30 X0G24K/L C0HC00XX 53813 180
Traditional Chinese (In QFNT63 library)
FONT RESIDENT FONT
FONT SIZE CODED FONT CHARACTER SET FONTID WIDTH
-------------------------------------------------------------
Ming 24x24 X0M24T C0TB00XX 54583 144
Ming 32x32 X0M32T C0TC00XX 54583 192
Ming 40x40 X0M40T C0TD00XX 54583 240
Gothic 16x16 X0G16T C0TA00XX 53815 096
Simplified Chinese (In QFNT64 library)
FONT RESIDENT FONT
FONT SIZE CODED FONT CHARACTER SET FONTID WIDTH
-------------------------------------------------------------
Song 26x26 X0S26P C0S26PXX 54327 144
Song 32x32 X0S32P C0S32PXX 54327 192
Song 40x40 X0S40P C0S40PXX 54327 240
Gothic 16x16 X0G16P C0G16PXX 53815 096
Thai (In QFNT65 library)
FONT RESIDENT FONT
FONT SIZE CODED FONT CHARACTER SET FONTID WIDTH
-------------------------------------------------------------
Official 24x40 X0O40F C0O40FXX 57655 240
Official 24x60 X0O60F C0O60FXX 57655 360
Italics 24x60 X0I60F C0I60FXX 58039 360
8. How to copy the example QPQCHGCF invocations into a source
file.
---------------------------------------------------------------
These instructions assume you have a source physical file
named QCDEFNT. You can substitute another source file name for
QCDEFNT
a) WRKMBRPDM *LIBL/QCDEFNT
b) Press F6 to create a new member. Give it a meaningful
name and description. The type is CL. Press Enter.
c) You now have the SEU edit screen. Press F15 to
Browse/Copy member.
d) Select:
Selection: 1 = Member
Copy all records: N
Member: QSF28153
File: QAPZCOVER
Library: QGPL
Press Enter. This should give you a split screen.
e) At the command line for the screen type F '9. Mark'
and press Enter.
After the character string is located, press
F16 two times. Then scroll down until you find the
examples of QPQCHGCF that you want copied.
Type a CC in the control space at the
beginning of the line (//BCHJOB)
f) Continue scrolling down until the //ENDBCHJOB statement
is found. Type a CC in that line.
g) Move the cursor back to the new member you are creating
and type an "A" at the first line. Press Enter.
h) Press F12 to end the split screen. F3 to end the edit
session and Enter to save the new source.
i) You must now edit the source file created above if you
have changed any IBM supplied sections and want these
sections to be downloaded.
j) Note that when copying the records into your source file,
the //BCHJOB and //ENDBCHJOB must start in column 1.
You need to edit the JOBD parameter on the //BCHJOB
statement. This JOBD should have enough authority to
change the coded fonts in the QFNT6X libraries.
After the source file has been successfully created and
edited, you can run the batch job to mark the specified fonts.
This is done with the STRDBRDR command
STRDBRDR FILE(*LIBL/QCDEFNT)
MBR(member-name)
where member-name is the the name of the source file you
created above.
In order that the marked coded fonts take effect,
you must perform the following:
1. End PSF/400 (ENDWTR), if it is active.
2. Run batch program to mark coded fonts.
3. Start PSF/400 (STRPRTWTR).
9. Mark resident fonts sample source
------------------------------------
/***************************************************************/
/* Japanese coded fonts */
/* The following invocations of QPQCHGCF mark the IBM */
/* supplied sections of the coded fonts in QFNT61 as resident. */
/* If you have modified an IBM supplied section, then you need */
/* to edit this file to mark that section as non-resident (*NO)*/
/* For example, if you have changed section C0M16F48, then */
/* you need to add the following statement AFTER the */
/* statement that marks sections (41 - 4F) as resident. */
/* CALL QPQCHGCF (X0M16B QFNT61 C0M16F48 *NO) */
/***************************************************************/
//BCHJOB JOBD(user-id) ENDSEV(50) LOG(4 0 *MSG)
CALL QPQCHGCF (X0M16B QFNT61 C0M16F4X *YES)
CALL QPQCHGCF (X0M16B QFNT61 C0M16F50 *YES)
CALL QPQCHGCF (X0M16B QFNT61 C0M16F51 *YES)
CALL QPQCHGCF (X0M16B QFNT61 C0M16F52 *YES)
CALL QPQCHGCF (X0M16B QFNT61 C0M16F53 *YES)
CALL QPQCHGCF (X0M16B QFNT61 C0M16F54 *YES)
CALL QPQCHGCF (X0M16B QFNT61 C0M16F55 *YES)
CALL QPQCHGCF (X0M16F QFNT61 C0M16F4X *YES)
CALL QPQCHGCF (X0M16F QFNT61 C0M16F5X *YES)
CALL QPQCHGCF (X0M16F QFNT61 C0M16F60 *YES)
CALL QPQCHGCF (X0M16F QFNT61 C0M16F61 *YES)
CALL QPQCHGCF (X0M16F QFNT61 C0M16F62 *YES)
CALL QPQCHGCF (X0M16F QFNT61 C0M16F63 *YES)
CALL QPQCHGCF (X0M16F QFNT61 C0M16F64 *YES)
CALL QPQCHGCF (X0M16F QFNT61 C0M16F65 *YES)
CALL QPQCHGCF (X0M16F QFNT61 C0M16F66 *YES)
CALL QPQCHGCF (X0M16F QFNT61 C0M16F67 *YES)
CALL QPQCHGCF (X0M16F QFNT61 C0M16F68 *YES)
/***************************************************************/
CALL QPQCHGCF (X0M24B QFNT61 C0M24F4X *YES)
CALL QPQCHGCF (X0M24B QFNT61 C0M24F50 *YES)
CALL QPQCHGCF (X0M24B QFNT61 C0M24F51 *YES)
CALL QPQCHGCF (X0M24B QFNT61 C0M24F52 *YES)
CALL QPQCHGCF (X0M24B QFNT61 C0M24F53 *YES)
CALL QPQCHGCF (X0M24B QFNT61 C0M24F54 *YES)
CALL QPQCHGCF (X0M24B QFNT61 C0M24F55 *YES)
CALL QPQCHGCF (X0M24F QFNT61 C0M24F4X *YES)
CALL QPQCHGCF (X0M24F QFNT61 C0M24F5X *YES)
CALL QPQCHGCF (X0M24F QFNT61 C0M24F60 *YES)
CALL QPQCHGCF (X0M24F QFNT61 C0M24F61 *YES)
CALL QPQCHGCF (X0M24F QFNT61 C0M24F62 *YES)
CALL QPQCHGCF (X0M24F QFNT61 C0M24F63 *YES)
CALL QPQCHGCF (X0M24F QFNT61 C0M24F64 *YES)
CALL QPQCHGCF (X0M24F QFNT61 C0M24F65 *YES)
CALL QPQCHGCF (X0M24F QFNT61 C0M24F66 *YES)
CALL QPQCHGCF (X0M24F QFNT61 C0M24F67 *YES)
CALL QPQCHGCF (X0M24F QFNT61 C0M24F68 *YES)
/***************************************************************/
CALL QPQCHGCF (X0Z24B QFNT61 C0Z24F4X *YES)
CALL QPQCHGCF (X0Z24B QFNT61 C0Z24F50 *YES)
CALL QPQCHGCF (X0Z24B QFNT61 C0Z24F51 *YES)
CALL QPQCHGCF (X0Z24B QFNT61 C0Z24F52 *YES)
CALL QPQCHGCF (X0Z24B QFNT61 C0Z24F53 *YES)
CALL QPQCHGCF (X0Z24B QFNT61 C0Z24F54 *YES)
CALL QPQCHGCF (X0Z24B QFNT61 C0Z24F55 *YES)
CALL QPQCHGCF (X0Z24F QFNT61 C0Z24F4X *YES)
CALL QPQCHGCF (X0Z24F QFNT61 C0Z24F5X *YES)
CALL QPQCHGCF (X0Z24F QFNT61 C0Z24F60 *YES)
CALL QPQCHGCF (X0Z24F QFNT61 C0Z24F61 *YES)
CALL QPQCHGCF (X0Z24F QFNT61 C0Z24F62 *YES)
CALL QPQCHGCF (X0Z24F QFNT61 C0Z24F63 *YES)
CALL QPQCHGCF (X0Z24F QFNT61 C0Z24F64 *YES)
CALL QPQCHGCF (X0Z24F QFNT61 C0Z24F65 *YES)
CALL QPQCHGCF (X0Z24F QFNT61 C0Z24F66 *YES)
CALL QPQCHGCF (X0Z24F QFNT61 C0Z24F67 *YES)
CALL QPQCHGCF (X0Z24F QFNT61 C0Z24F68 *YES)
/***************************************************************/
CALL QPQCHGCF (X0M26B QFNT61 C0M26F4X *YES)
CALL QPQCHGCF (X0M26B QFNT61 C0M26F50 *YES)
CALL QPQCHGCF (X0M26B QFNT61 C0M26F51 *YES)
CALL QPQCHGCF (X0M26B QFNT61 C0M26F52 *YES)
CALL QPQCHGCF (X0M26B QFNT61 C0M26F53 *YES)
CALL QPQCHGCF (X0M26B QFNT61 C0M26F54 *YES)
CALL QPQCHGCF (X0M26B QFNT61 C0M26F55 *YES)
CALL QPQCHGCF (X0M26F QFNT61 C0M26F4X *YES)
CALL QPQCHGCF (X0M26F QFNT61 C0M26F5X *YES)
CALL QPQCHGCF (X0M26F QFNT61 C0M26F60 *YES)
CALL QPQCHGCF (X0M26F QFNT61 C0M26F61 *YES)
CALL QPQCHGCF (X0M26F QFNT61 C0M26F62 *YES)
CALL QPQCHGCF (X0M26F QFNT61 C0M26F63 *YES)
CALL QPQCHGCF (X0M26F QFNT61 C0M26F64 *YES)
CALL QPQCHGCF (X0M26F QFNT61 C0M26F65 *YES)
CALL QPQCHGCF (X0M26F QFNT61 C0M26F66 *YES)
CALL QPQCHGCF (X0M26F QFNT61 C0M26F67 *YES)
CALL QPQCHGCF (X0M26F QFNT61 C0M26F68 *YES)
/***************************************************************/
CALL QPQCHGCF (X0M32B QFNT61 C0M32F4X *YES)
CALL QPQCHGCF (X0M32B QFNT61 C0M32F50 *YES)
CALL QPQCHGCF (X0M32B QFNT61 C0M32F51 *YES)
CALL QPQCHGCF (X0M32B QFNT61 C0M32F52 *YES)
CALL QPQCHGCF (X0M32B QFNT61 C0M32F53 *YES)
CALL QPQCHGCF (X0M32B QFNT61 C0M32F54 *YES)
CALL QPQCHGCF (X0M32B QFNT61 C0M32F55 *YES)
CALL QPQCHGCF (X0M32F QFNT61 C0M32F4X *YES)
CALL QPQCHGCF (X0M32F QFNT61 C0M32F5X *YES)
CALL QPQCHGCF (X0M32F QFNT61 C0M32F60 *YES)
CALL QPQCHGCF (X0M32F QFNT61 C0M32F61 *YES)
CALL QPQCHGCF (X0M32F QFNT61 C0M32F62 *YES)
CALL QPQCHGCF (X0M32F QFNT61 C0M32F63 *YES)
CALL QPQCHGCF (X0M32F QFNT61 C0M32F64 *YES)
CALL QPQCHGCF (X0M32F QFNT61 C0M32F65 *YES)
CALL QPQCHGCF (X0M32F QFNT61 C0M32F66 *YES)
CALL QPQCHGCF (X0M32F QFNT61 C0M32F67 *YES)
CALL QPQCHGCF (X0M32F QFNT61 C0M32F68 *YES)
/***************************************************************/
CALL QPQCHGCF (X0M36B QFNT61 C0M36F4X *YES)
CALL QPQCHGCF (X0M36B QFNT61 C0M36F50 *YES)
CALL QPQCHGCF (X0M36B QFNT61 C0M36F51 *YES)
CALL QPQCHGCF (X0M36B QFNT61 C0M36F52 *YES)
CALL QPQCHGCF (X0M36B QFNT61 C0M36F53 *YES)
CALL QPQCHGCF (X0M36B QFNT61 C0M36F54 *YES)
CALL QPQCHGCF (X0M36B QFNT61 C0M36F55 *YES)
CALL QPQCHGCF (X0M36F QFNT61 C0M36F4X *YES)
CALL QPQCHGCF (X0M36F QFNT61 C0M36F5X *YES)
CALL QPQCHGCF (X0M36F QFNT61 C0M36F60 *YES)
CALL QPQCHGCF (X0M36F QFNT61 C0M36F61 *YES)
CALL QPQCHGCF (X0M36F QFNT61 C0M36F62 *YES)
CALL QPQCHGCF (X0M36F QFNT61 C0M36F63 *YES)
CALL QPQCHGCF (X0M36F QFNT61 C0M36F64 *YES)
CALL QPQCHGCF (X0M36F QFNT61 C0M36F65 *YES)
CALL QPQCHGCF (X0M36F QFNT61 C0M36F66 *YES)
CALL QPQCHGCF (X0M36F QFNT61 C0M36F67 *YES)
CALL QPQCHGCF (X0M36F QFNT61 C0M36F68 *YES)
/***************************************************************/
CALL QPQCHGCF (X0M40B QFNT61 C0M40F4X *YES)
CALL QPQCHGCF (X0M40B QFNT61 C0M40F50 *YES)
CALL QPQCHGCF (X0M40B QFNT61 C0M40F51 *YES)
CALL QPQCHGCF (X0M40B QFNT61 C0M40F52 *YES)
CALL QPQCHGCF (X0M40B QFNT61 C0M40F53 *YES)
CALL QPQCHGCF (X0M40B QFNT61 C0M40F54 *YES)
CALL QPQCHGCF (X0M40B QFNT61 C0M40F55 *YES)
CALL QPQCHGCF (X0M40F QFNT61 C0M40F4X *YES)
CALL QPQCHGCF (X0M40F QFNT61 C0M40F5X *YES)
CALL QPQCHGCF (X0M40F QFNT61 C0M40F60 *YES)
CALL QPQCHGCF (X0M40F QFNT61 C0M40F61 *YES)
CALL QPQCHGCF (X0M40F QFNT61 C0M40F62 *YES)
CALL QPQCHGCF (X0M40F QFNT61 C0M40F63 *YES)
CALL QPQCHGCF (X0M40F QFNT61 C0M40F64 *YES)
CALL QPQCHGCF (X0M40F QFNT61 C0M40F65 *YES)
CALL QPQCHGCF (X0M40F QFNT61 C0M40F66 *YES)
CALL QPQCHGCF (X0M40F QFNT61 C0M40F67 *YES)
CALL QPQCHGCF (X0M40F QFNT61 C0M40F68 *YES)
/***************************************************************/
CALL QPQCHGCF (X0M44B QFNT61 C0M44F4X *YES)
CALL QPQCHGCF (X0M44B QFNT61 C0M44F50 *YES)
CALL QPQCHGCF (X0M44B QFNT61 C0M44F51 *YES)
CALL QPQCHGCF (X0M44B QFNT61 C0M44F52 *YES)
CALL QPQCHGCF (X0M44B QFNT61 C0M44F53 *YES)
CALL QPQCHGCF (X0M44B QFNT61 C0M44F54 *YES)
CALL QPQCHGCF (X0M44B QFNT61 C0M44F55 *YES)
CALL QPQCHGCF (X0M44F QFNT61 C0M44F4X *YES)
CALL QPQCHGCF (X0M44F QFNT61 C0M44F5X *YES)
CALL QPQCHGCF (X0M44F QFNT61 C0M44F60 *YES)
CALL QPQCHGCF (X0M44F QFNT61 C0M44F61 *YES)
CALL QPQCHGCF (X0M44F QFNT61 C0M44F62 *YES)
CALL QPQCHGCF (X0M44F QFNT61 C0M44F63 *YES)
CALL QPQCHGCF (X0M44F QFNT61 C0M44F64 *YES)
CALL QPQCHGCF (X0M44F QFNT61 C0M44F65 *YES)
CALL QPQCHGCF (X0M44F QFNT61 C0M44F66 *YES)
CALL QPQCHGCF (X0M44F QFNT61 C0M44F67 *YES)
CALL QPQCHGCF (X0M44F QFNT61 C0M44F68 *YES)
/***************************************************************/
CALL QPQCHGCF (X0M48B QFNT61 C0M48F4X *YES)
CALL QPQCHGCF (X0M48B QFNT61 C0M48F50 *YES)
CALL QPQCHGCF (X0M48B QFNT61 C0M48F51 *YES)
CALL QPQCHGCF (X0M48B QFNT61 C0M48F52 *YES)
CALL QPQCHGCF (X0M48B QFNT61 C0M48F53 *YES)
CALL QPQCHGCF (X0M48B QFNT61 C0M48F54 *YES)
CALL QPQCHGCF (X0M48B QFNT61 C0M48F55 *YES)
CALL QPQCHGCF (X0M48F QFNT61 C0M48F4X *YES)
CALL QPQCHGCF (X0M48F QFNT61 C0M48F5X *YES)
CALL QPQCHGCF (X0M48F QFNT61 C0M48F60 *YES)
CALL QPQCHGCF (X0M48F QFNT61 C0M48F61 *YES)
CALL QPQCHGCF (X0M48F QFNT61 C0M48F62 *YES)
CALL QPQCHGCF (X0M48F QFNT61 C0M48F63 *YES)
CALL QPQCHGCF (X0M48F QFNT61 C0M48F64 *YES)
CALL QPQCHGCF (X0M48F QFNT61 C0M48F65 *YES)
CALL QPQCHGCF (X0M48F QFNT61 C0M48F66 *YES)
CALL QPQCHGCF (X0M48F QFNT61 C0M48F67 *YES)
CALL QPQCHGCF (X0M48F QFNT61 C0M48F68 *YES)
/***************************************************************/
CALL QPQCHGCF (X0M52B QFNT61 C0M52F4X *YES)
CALL QPQCHGCF (X0M52B QFNT61 C0M52F50 *YES)
CALL QPQCHGCF (X0M52B QFNT61 C0M52F51 *YES)
CALL QPQCHGCF (X0M52B QFNT61 C0M52F52 *YES)
CALL QPQCHGCF (X0M52B QFNT61 C0M52F53 *YES)
CALL QPQCHGCF (X0M52B QFNT61 C0M52F54 *YES)
CALL QPQCHGCF (X0M52B QFNT61 C0M52F55 *YES)
CALL QPQCHGCF (X0M52F QFNT61 C0M52F4X *YES)
CALL QPQCHGCF (X0M52F QFNT61 C0M52F5X *YES)
CALL QPQCHGCF (X0M52F QFNT61 C0M52F60 *YES)
CALL QPQCHGCF (X0M52F QFNT61 C0M52F61 *YES)
CALL QPQCHGCF (X0M52F QFNT61 C0M52F62 *YES)
CALL QPQCHGCF (X0M52F QFNT61 C0M52F63 *YES)
CALL QPQCHGCF (X0M52F QFNT61 C0M52F64 *YES)
CALL QPQCHGCF (X0M52F QFNT61 C0M52F65 *YES)
CALL QPQCHGCF (X0M52F QFNT61 C0M52F66 *YES)
CALL QPQCHGCF (X0M52F QFNT61 C0M52F67 *YES)
CALL QPQCHGCF (X0M52F QFNT61 C0M52F68 *YES)
/***************************************************************/
CALL QPQCHGCF (X0M64B QFNT61 C0M64F4X *YES)
CALL QPQCHGCF (X0M64B QFNT61 C0M64F50 *YES)
CALL QPQCHGCF (X0M64B QFNT61 C0M64F51 *YES)
CALL QPQCHGCF (X0M64B QFNT61 C0M64F52 *YES)
CALL QPQCHGCF (X0M64B QFNT61 C0M64F53 *YES)
CALL QPQCHGCF (X0M64B QFNT61 C0M64F54 *YES)
CALL QPQCHGCF (X0M64B QFNT61 C0M64F55 *YES)
CALL QPQCHGCF (X0M64F QFNT61 C0M64F4X *YES)
CALL QPQCHGCF (X0M64F QFNT61 C0M64F5X *YES)
CALL QPQCHGCF (X0M64F QFNT61 C0M64F60 *YES)
CALL QPQCHGCF (X0M64F QFNT61 C0M64F61 *YES)
CALL QPQCHGCF (X0M64F QFNT61 C0M64F62 *YES)
CALL QPQCHGCF (X0M64F QFNT61 C0M64F63 *YES)
CALL QPQCHGCF (X0M64F QFNT61 C0M64F64 *YES)
CALL QPQCHGCF (X0M64F QFNT61 C0M64F65 *YES)
CALL QPQCHGCF (X0M64F QFNT61 C0M64F66 *YES)
CALL QPQCHGCF (X0M64F QFNT61 C0M64F67 *YES)
CALL QPQCHGCF (X0M64F QFNT61 C0M64F68 *YES)
/***************************************************************/
CALL QPQCHGCF (X0G16B QFNT61 C0G16F4X *YES)
CALL QPQCHGCF (X0G16B QFNT61 C0G16F50 *YES)
CALL QPQCHGCF (X0G16B QFNT61 C0G16F51 *YES)
CALL QPQCHGCF (X0G16B QFNT61 C0G16F52 *YES)
CALL QPQCHGCF (X0G16B QFNT61 C0G16F53 *YES)
CALL QPQCHGCF (X0G16B QFNT61 C0G16F54 *YES)
CALL QPQCHGCF (X0G16B QFNT61 C0G16F55 *YES)
CALL QPQCHGCF (X0G16F QFNT61 C0G16F4X *YES)
CALL QPQCHGCF (X0G16F QFNT61 C0G16F5X *YES)
CALL QPQCHGCF (X0G16F QFNT61 C0G16F60 *YES)
CALL QPQCHGCF (X0G16F QFNT61 C0G16F61 *YES)
CALL QPQCHGCF (X0G16F QFNT61 C0G16F62 *YES)
CALL QPQCHGCF (X0G16F QFNT61 C0G16F63 *YES)
CALL QPQCHGCF (X0G16F QFNT61 C0G16F64 *YES)
CALL QPQCHGCF (X0G16F QFNT61 C0G16F65 *YES)
CALL QPQCHGCF (X0G16F QFNT61 C0G16F66 *YES)
CALL QPQCHGCF (X0G16F QFNT61 C0G16F67 *YES)
CALL QPQCHGCF (X0G16F QFNT61 C0G16F68 *YES)
/***************************************************************/
CALL QPQCHGCF (X0G20B QFNT61 C0G20F4X *YES)
CALL QPQCHGCF (X0G20B QFNT61 C0G20F50 *YES)
CALL QPQCHGCF (X0G20B QFNT61 C0G20F51 *YES)
CALL QPQCHGCF (X0G20B QFNT61 C0G20F52 *YES)
CALL QPQCHGCF (X0G20B QFNT61 C0G20F53 *YES)
CALL QPQCHGCF (X0G20B QFNT61 C0G20F54 *YES)
CALL QPQCHGCF (X0G20B QFNT61 C0G20F55 *YES)
CALL QPQCHGCF (X0G20F QFNT61 C0G20F4X *YES)
CALL QPQCHGCF (X0G20F QFNT61 C0G20F5X *YES)
CALL QPQCHGCF (X0G20F QFNT61 C0G20F60 *YES)
CALL QPQCHGCF (X0G20F QFNT61 C0G20F61 *YES)
CALL QPQCHGCF (X0G20F QFNT61 C0G20F62 *YES)
CALL QPQCHGCF (X0G20F QFNT61 C0G20F63 *YES)
CALL QPQCHGCF (X0G20F QFNT61 C0G20F64 *YES)
CALL QPQCHGCF (X0G20F QFNT61 C0G20F65 *YES)
CALL QPQCHGCF (X0G20F QFNT61 C0G20F66 *YES)
CALL QPQCHGCF (X0G20F QFNT61 C0G20F67 *YES)
CALL QPQCHGCF (X0G20F QFNT61 C0G20F68 *YES)
/***************************************************************/
CALL QPQCHGCF (X0G24B QFNT61 C0G24F4X *YES
CALL QPQCHGCF (X0G24B QFNT61 C0G24F50 *YES
CALL QPQCHGCF (X0G24B QFNT61 C0G24F51 *YES
CALL QPQCHGCF (X0G24B QFNT61 C0G24F52 *YES
CALL QPQCHGCF (X0G24B QFNT61 C0G24F53 *YES
CALL QPQCHGCF (X0G24B QFNT61 C0G24F54 *YES
CALL QPQCHGCF (X0G24B QFNT61 C0G24F55 *YES
CALL QPQCHGCF (X0G24F QFNT61 C0G24F4X *YES)
CALL QPQCHGCF (X0G24F QFNT61 C0G24F5X *YES)
CALL QPQCHGCF (X0G24F QFNT61 C0G24F60 *YES)
CALL QPQCHGCF (X0G24F QFNT61 C0G24F61 *YES)
CALL QPQCHGCF (X0G24F QFNT61 C0G24F62 *YES)
CALL QPQCHGCF (X0G24F QFNT61 C0G24F63 *YES)
CALL QPQCHGCF (X0G24F QFNT61 C0G24F64 *YES)
CALL QPQCHGCF (X0G24F QFNT61 C0G24F65 *YES)
CALL QPQCHGCF (X0G24F QFNT61 C0G24F66 *YES)
CALL QPQCHGCF (X0G24F QFNT61 C0G24F67 *YES)
CALL QPQCHGCF (X0G24F QFNT61 C0G24F68 *YES)
/***************************************************************/
CALL QPQCHGCF (X0G32B QFNT61 C0G32F4X *YES)
CALL QPQCHGCF (X0G32B QFNT61 C0G32F50 *YES)
CALL QPQCHGCF (X0G32B QFNT61 C0G32F51 *YES)
CALL QPQCHGCF (X0G32B QFNT61 C0G32F52 *YES)
CALL QPQCHGCF (X0G32B QFNT61 C0G32F53 *YES)
CALL QPQCHGCF (X0G32B QFNT61 C0G32F54 *YES)
CALL QPQCHGCF (X0G32B QFNT61 C0G32F55 *YES)
CALL QPQCHGCF (X0G32F QFNT61 C0G32F4X *YES)
CALL QPQCHGCF (X0G32F QFNT61 C0G32F5X *YES)
CALL QPQCHGCF (X0G32F QFNT61 C0G32F60 *YES)
CALL QPQCHGCF (X0G32F QFNT61 C0G32F61 *YES)
CALL QPQCHGCF (X0G32F QFNT61 C0G32F62 *YES)
CALL QPQCHGCF (X0G32F QFNT61 C0G32F63 *YES)
CALL QPQCHGCF (X0G32F QFNT61 C0G32F64 *YES)
CALL QPQCHGCF (X0G32F QFNT61 C0G32F65 *YES)
CALL QPQCHGCF (X0G32F QFNT61 C0G32F66 *YES)
CALL QPQCHGCF (X0G32F QFNT61 C0G32F67 *YES)
CALL QPQCHGCF (X0G32F QFNT61 C0G32F68 *YES)
/***************************************************************/
CALL QPQCHGCF (X0G36B QFNT61 C0G36F4X *YES)
CALL QPQCHGCF (X0G36B QFNT61 C0G36F50 *YES)
CALL QPQCHGCF (X0G36B QFNT61 C0G36F51 *YES)
CALL QPQCHGCF (X0G36B QFNT61 C0G36F52 *YES)
CALL QPQCHGCF (X0G36B QFNT61 C0G36F53 *YES)
CALL QPQCHGCF (X0G36B QFNT61 C0G36F54 *YES)
CALL QPQCHGCF (X0G36B QFNT61 C0G36F55 *YES)
CALL QPQCHGCF (X0G36F QFNT61 C0G36F4X *YES)
CALL QPQCHGCF (X0G36F QFNT61 C0G36F5X *YES)
CALL QPQCHGCF (X0G36F QFNT61 C0G36F60 *YES)
CALL QPQCHGCF (X0G36F QFNT61 C0G36F61 *YES)
CALL QPQCHGCF (X0G36F QFNT61 C0G36F62 *YES)
CALL QPQCHGCF (X0G36F QFNT61 C0G36F63 *YES)
CALL QPQCHGCF (X0G36F QFNT61 C0G36F64 *YES)
CALL QPQCHGCF (X0G36F QFNT61 C0G36F65 *YES)
CALL QPQCHGCF (X0G36F QFNT61 C0G36F66 *YES)
CALL QPQCHGCF (X0G36F QFNT61 C0G36F67 *YES)
CALL QPQCHGCF (X0G36F QFNT61 C0G36F68 *YES)
/***************************************************************/
CALL QPQCHGCF (X0G48B QFNT61 C0G48F4X *YES)
CALL QPQCHGCF (X0G48B QFNT61 C0G48F50 *YES)
CALL QPQCHGCF (X0G48B QFNT61 C0G48F51 *YES)
CALL QPQCHGCF (X0G48B QFNT61 C0G48F52 *YES)
CALL QPQCHGCF (X0G48B QFNT61 C0G48F53 *YES)
CALL QPQCHGCF (X0G48B QFNT61 C0G48F54 *YES)
CALL QPQCHGCF (X0G48B QFNT61 C0G48F55 *YES)
CALL QPQCHGCF (X0G48F QFNT61 C0G48F4X *YES)
CALL QPQCHGCF (X0G48F QFNT61 C0G48F5X *YES)
CALL QPQCHGCF (X0G48F QFNT61 C0G48F60 *YES)
CALL QPQCHGCF (X0G48F QFNT61 C0G48F61 *YES)
CALL QPQCHGCF (X0G48F QFNT61 C0G48F62 *YES)
CALL QPQCHGCF (X0G48F QFNT61 C0G48F63 *YES)
CALL QPQCHGCF (X0G48F QFNT61 C0G48F64 *YES)
CALL QPQCHGCF (X0G48F QFNT61 C0G48F65 *YES)
CALL QPQCHGCF (X0G48F QFNT61 C0G48F66 *YES)
CALL QPQCHGCF (X0G48F QFNT61 C0G48F67 *YES)
CALL QPQCHGCF (X0G48F QFNT61 C0G48F68 *YES)
/***************************************************************/
CALL QPQCHGCF (X0G64B QFNT61 C0G64F4X *YES)
CALL QPQCHGCF (X0G64B QFNT61 C0G64F50 *YES)
CALL QPQCHGCF (X0G64B QFNT61 C0G64F51 *YES)
CALL QPQCHGCF (X0G64B QFNT61 C0G64F52 *YES)
CALL QPQCHGCF (X0G64B QFNT61 C0G64F53 *YES)
CALL QPQCHGCF (X0G64B QFNT61 C0G64F54 *YES)
CALL QPQCHGCF (X0G64B QFNT61 C0G64F55 *YES)
CALL QPQCHGCF (X0G64F QFNT61 C0G64F4X *YES)
CALL QPQCHGCF (X0G64F QFNT61 C0G64F5X *YES)
CALL QPQCHGCF (X0G64F QFNT61 C0G64F60 *YES)
CALL QPQCHGCF (X0G64F QFNT61 C0G64F61 *YES)
CALL QPQCHGCF (X0G64F QFNT61 C0G64F62 *YES)
CALL QPQCHGCF (X0G64F QFNT61 C0G64F63 *YES)
CALL QPQCHGCF (X0G64F QFNT61 C0G64F64 *YES)
CALL QPQCHGCF (X0G64F QFNT61 C0G64F65 *YES)
CALL QPQCHGCF (X0G64F QFNT61 C0G64F66 *YES)
CALL QPQCHGCF (X0G64F QFNT61 C0G64F67 *YES)
CALL QPQCHGCF (X0G64F QFNT61 C0G64F68 *YES)
/***************************************************************/
CALL QPQCHGCF (X0R36B QFNT61 C0R36F4X *YES)
CALL QPQCHGCF (X0R36B QFNT61 C0R36F50 *YES)
CALL QPQCHGCF (X0R36B QFNT61 C0R36F51 *YES)
CALL QPQCHGCF (X0R36B QFNT61 C0R36F52 *YES)
CALL QPQCHGCF (X0R36B QFNT61 C0R36F53 *YES)
CALL QPQCHGCF (X0R36B QFNT61 C0R36F54 *YES)
CALL QPQCHGCF (X0R36B QFNT61 C0R36F55 *YES)
CALL QPQCHGCF (X0R36F QFNT61 C0R36F4X *YES)
CALL QPQCHGCF (X0R36F QFNT61 C0R36F5X *YES)
CALL QPQCHGCF (X0R36F QFNT61 C0R36F60 *YES)
CALL QPQCHGCF (X0R36F QFNT61 C0R36F61 *YES)
CALL QPQCHGCF (X0R36F QFNT61 C0R36F62 *YES)
CALL QPQCHGCF (X0R36F QFNT61 C0R36F63 *YES)
CALL QPQCHGCF (X0R36F QFNT61 C0R36F64 *YES)
CALL QPQCHGCF (X0R36F QFNT61 C0R36F65 *YES)
CALL QPQCHGCF (X0R36F QFNT61 C0R36F66 *YES)
CALL QPQCHGCF (X0R36F QFNT61 C0R36F67 *YES)
CALL QPQCHGCF (X0R36F QFNT61 C0R36F68 *YES)
/***************************************************************/
CALL QPQCHGCF (X0R40B QFNT61 C0R40F4X *YES)
CALL QPQCHGCF (X0R40B QFNT61 C0R40F50 *YES)
CALL QPQCHGCF (X0R40B QFNT61 C0R40F51 *YES)
CALL QPQCHGCF (X0R40B QFNT61 C0R40F52 *YES)
CALL QPQCHGCF (X0R40B QFNT61 C0R40F53 *YES)
CALL QPQCHGCF (X0R40B QFNT61 C0R40F54 *YES)
CALL QPQCHGCF (X0R40B QFNT61 C0R40F55 *YES)
CALL QPQCHGCF (X0R40F QFNT61 C0R40F4X *YES)
CALL QPQCHGCF (X0R40F QFNT61 C0R40F5X *YES)
CALL QPQCHGCF (X0R40F QFNT61 C0R40F60 *YES)
CALL QPQCHGCF (X0R40F QFNT61 C0R40F61 *YES)
CALL QPQCHGCF (X0R40F QFNT61 C0R40F62 *YES)
CALL QPQCHGCF (X0R40F QFNT61 C0R40F63 *YES)
CALL QPQCHGCF (X0R40F QFNT61 C0R40F64 *YES)
CALL QPQCHGCF (X0R40F QFNT61 C0R40F65 *YES)
CALL QPQCHGCF (X0R40F QFNT61 C0R40F66 *YES)
CALL QPQCHGCF (X0R40F QFNT61 C0R40F67 *YES)
CALL QPQCHGCF (X0R40F QFNT61 C0R40F68 *YES)
/***************************************************************/
CALL QPQCHGCF (X0R48B QFNT61 C0R48F4X *YES)
CALL QPQCHGCF (X0R48B QFNT61 C0R48F50 *YES)
CALL QPQCHGCF (X0R48B QFNT61 C0R48F51 *YES)
CALL QPQCHGCF (X0R48B QFNT61 C0R48F52 *YES)
CALL QPQCHGCF (X0R48B QFNT61 C0R48F53 *YES)
CALL QPQCHGCF (X0R48B QFNT61 C0R48F54 *YES)
CALL QPQCHGCF (X0R48B QFNT61 C0R48F55 *YES)
CALL QPQCHGCF (X0R48F QFNT61 C0R48F4X *YES)
CALL QPQCHGCF (X0R48F QFNT61 C0R48F5X *YES)
CALL QPQCHGCF (X0R48F QFNT61 C0R48F60 *YES)
CALL QPQCHGCF (X0R48F QFNT61 C0R48F61 *YES)
CALL QPQCHGCF (X0R48F QFNT61 C0R48F62 *YES)
CALL QPQCHGCF (X0R48F QFNT61 C0R48F63 *YES)
CALL QPQCHGCF (X0R48F QFNT61 C0R48F64 *YES)
CALL QPQCHGCF (X0R48F QFNT61 C0R48F65 *YES)
CALL QPQCHGCF (X0R48F QFNT61 C0R48F66 *YES)
CALL QPQCHGCF (X0R48F QFNT61 C0R48F67 *YES)
CALL QPQCHGCF (X0R48F QFNT61 C0R48F68 *YES)
/***************************************************************/
CALL QPQCHGCF (X0R64B QFNT61 C0R64F4X *YES)
CALL QPQCHGCF (X0R64B QFNT61 C0R64F50 *YES)
CALL QPQCHGCF (X0R64B QFNT61 C0R64F51 *YES)
CALL QPQCHGCF (X0R64B QFNT61 C0R64F52 *YES)
CALL QPQCHGCF (X0R64B QFNT61 C0R64F53 *YES)
CALL QPQCHGCF (X0R64B QFNT61 C0R64F54 *YES)
CALL QPQCHGCF (X0R64B QFNT61 C0R64F55 *YES)
CALL QPQCHGCF (X0R64F QFNT61 C0R64F4X *YES)
CALL QPQCHGCF (X0R64F QFNT61 C0R64F5X *YES)
CALL QPQCHGCF (X0R64F QFNT61 C0R64F60 *YES)
CALL QPQCHGCF (X0R64F QFNT61 C0R64F61 *YES)
CALL QPQCHGCF (X0R64F QFNT61 C0R64F62 *YES)
CALL QPQCHGCF (X0R64F QFNT61 C0R64F63 *YES)
CALL QPQCHGCF (X0R64F QFNT61 C0R64F64 *YES)
CALL QPQCHGCF (X0R64F QFNT61 C0R64F65 *YES)
CALL QPQCHGCF (X0R64F QFNT61 C0R64F66 *YES)
CALL QPQCHGCF (X0R64F QFNT61 C0R64F67 *YES)
CALL QPQCHGCF (X0R64F QFNT61 C0R64F68 *YES)
//ENDBCHJOB
/***************************************************************/
/* Korean coded fonts */
/* The following invocations of QPQCHGCF mark the IBM */
/* supplied sections of the coded fonts in QFNT62 as resident. */
/* If you have modified an IBM supplied section, then you need */
/* to edit this file to mark that section as non-resident (*NO)*/
/* For example, if you have changed section C0HB0048, then */
/* you need to add the following statement AFTER the */
/* statement that marks sections (41 - 4F) as resident. */
/* CALL QPQCHGCF (X0M24K QFNT62 C0HB0048 *NO) */
/***************************************************************/
//BCHJOB JOBD(user-id) ENDSEV(50) LOG(4 0 *MSG)
CALL QPQCHGCF (X0M24K QFNT62 C0HB004X *YES)
CALL QPQCHGCF (X0M24K QFNT62 C0HB005X *YES)
CALL QPQCHGCF (X0M24K QFNT62 C0HB006X *YES)
CALL QPQCHGCF (X0M24K QFNT62 C0HB007X *YES)
CALL QPQCHGCF (X0M24K QFNT62 C0HB008X *YES)
CALL QPQCHGCF (X0M24K QFNT62 C0HB0090 *YES)
CALL QPQCHGCF (X0M24K QFNT62 C0HB0091 *YES)
CALL QPQCHGCF (X0M24K QFNT62 C0HB0092 *YES)
CALL QPQCHGCF (X0M24K QFNT62 C0HB0093 *YES)
CALL QPQCHGCF (X0M24K QFNT62 C0HB0094 *YES)
CALL QPQCHGCF (X0M24K QFNT62 C0HB0095 *YES)
CALL QPQCHGCF (X0M24K QFNT62 C0HB0096 *YES)
CALL QPQCHGCF (X0M24K QFNT62 C0HB0097 *YES)
CALL QPQCHGCF (X0M24K QFNT62 C0HB0098 *YES)
CALL QPQCHGCF (X0M24L QFNT62 C0HB004X *YES)
CALL QPQCHGCF (X0M24L QFNT62 C0HB005X *YES)
CALL QPQCHGCF (X0M24L QFNT62 C0HB006X *YES)
CALL QPQCHGCF (X0M24L QFNT62 C0HB007X *YES)
CALL QPQCHGCF (X0M24L QFNT62 C0HB008X *YES)
CALL QPQCHGCF (X0M24L QFNT62 C0HB009X *YES)
CALL QPQCHGCF (X0M24L QFNT62 C0HB00AX *YES)
CALL QPQCHGCF (X0M24L QFNT62 C0HB00B0 *YES)
CALL QPQCHGCF (X0M24L QFNT62 C0HB00B1 *YES)
CALL QPQCHGCF (X0M24L QFNT62 C0HB00B2 *YES)
CALL QPQCHGCF (X0M24L QFNT62 C0HB00B3 *YES)
CALL QPQCHGCF (X0M24L QFNT62 C0HB00B4 *YES)
CALL QPQCHGCF (X0M24L QFNT62 C0HB00B5 *YES)
/***************************************************************/
CALL QPQCHGCF (X0M32K QFNT62 C0HD004X *YES)
CALL QPQCHGCF (X0M32K QFNT62 C0HD005X *YES)
CALL QPQCHGCF (X0M32K QFNT62 C0HD006X *YES)
CALL QPQCHGCF (X0M32K QFNT62 C0HD007X *YES)
CALL QPQCHGCF (X0M32K QFNT62 C0HD008X *YES)
CALL QPQCHGCF (X0M32K QFNT62 C0HD0090 *YES)
CALL QPQCHGCF (X0M32K QFNT62 C0HD0091 *YES)
CALL QPQCHGCF (X0M32K QFNT62 C0HD0092 *YES)
CALL QPQCHGCF (X0M32K QFNT62 C0HD0093 *YES)
CALL QPQCHGCF (X0M32K QFNT62 C0HD0094 *YES)
CALL QPQCHGCF (X0M32K QFNT62 C0HD0095 *YES)
CALL QPQCHGCF (X0M32K QFNT62 C0HD0096 *YES)
CALL QPQCHGCF (X0M32K QFNT62 C0HD0097 *YES)
CALL QPQCHGCF (X0M32K QFNT62 C0HD0098 *YES)
CALL QPQCHGCF (X0M32L QFNT62 C0HD004X *YES)
CALL QPQCHGCF (X0M32L QFNT62 C0HD005X *YES)
CALL QPQCHGCF (X0M32L QFNT62 C0HD006X *YES)
CALL QPQCHGCF (X0M32L QFNT62 C0HD007X *YES)
CALL QPQCHGCF (X0M32L QFNT62 C0HD008X *YES)
CALL QPQCHGCF (X0M32L QFNT62 C0HD009X *YES)
CALL QPQCHGCF (X0M32L QFNT62 C0HD00AX *YES)
CALL QPQCHGCF (X0M32L QFNT62 C0HD00B0 *YES)
CALL QPQCHGCF (X0M32L QFNT62 C0HD00B1 *YES)
CALL QPQCHGCF (X0M32L QFNT62 C0HD00B2 *YES)
CALL QPQCHGCF (X0M32L QFNT62 C0HD00B3 *YES)
CALL QPQCHGCF (X0M32L QFNT62 C0HD00B4 *YES)
CALL QPQCHGCF (X0M32L QFNT62 C0HD00B5 *YES)
/***************************************************************/
CALL QPQCHGCF (X0M36K QFNT62 C0HE004X *YES)
CALL QPQCHGCF (X0M36K QFNT62 C0HE005X *YES)
CALL QPQCHGCF (X0M36K QFNT62 C0HE006X *YES)
CALL QPQCHGCF (X0M36K QFNT62 C0HE007X *YES)
CALL QPQCHGCF (X0M36K QFNT62 C0HE008X *YES)
CALL QPQCHGCF (X0M36K QFNT62 C0HE0090 *YES)
CALL QPQCHGCF (X0M36K QFNT62 C0HE0091 *YES)
CALL QPQCHGCF (X0M36K QFNT62 C0HE0092 *YES)
CALL QPQCHGCF (X0M36K QFNT62 C0HE0093 *YES)
CALL QPQCHGCF (X0M36K QFNT62 C0HE0094 *YES)
CALL QPQCHGCF (X0M36K QFNT62 C0HE0095 *YES)
CALL QPQCHGCF (X0M36K QFNT62 C0HE0096 *YES)
CALL QPQCHGCF (X0M36K QFNT62 C0HE0097 *YES)
CALL QPQCHGCF (X0M36K QFNT62 C0HE0098 *YES)
CALL QPQCHGCF (X0M36L QFNT62 C0HE004X *YES)
CALL QPQCHGCF (X0M36L QFNT62 C0HE005X *YES)
CALL QPQCHGCF (X0M36L QFNT62 C0HE006X *YES)
CALL QPQCHGCF (X0M36L QFNT62 C0HE007X *YES)
CALL QPQCHGCF (X0M36L QFNT62 C0HE008X *YES)
CALL QPQCHGCF (X0M36L QFNT62 C0HE009X *YES)
CALL QPQCHGCF (X0M36L QFNT62 C0HE00AX *YES)
CALL QPQCHGCF (X0M36L QFNT62 C0HE00B0 *YES)
CALL QPQCHGCF (X0M36L QFNT62 C0HE00B1 *YES)
CALL QPQCHGCF (X0M36L QFNT62 C0HE00B2 *YES)
CALL QPQCHGCF (X0M36L QFNT62 C0HE00B3 *YES)
CALL QPQCHGCF (X0M36L QFNT62 C0HE00B4 *YES)
CALL QPQCHGCF (X0M36L QFNT62 C0HE00B5 *YES)
/***************************************************************/
CALL QPQCHGCF (X0M40K QFNT62 C0HF004X *YES)
CALL QPQCHGCF (X0M40K QFNT62 C0HF005X *YES)
CALL QPQCHGCF (X0M40K QFNT62 C0HF006X *YES)
CALL QPQCHGCF (X0M40K QFNT62 C0HF007X *YES)
CALL QPQCHGCF (X0M40K QFNT62 C0HF008X *YES)
CALL QPQCHGCF (X0M40K QFNT62 C0HF0090 *YES)
CALL QPQCHGCF (X0M40K QFNT62 C0HF0091 *YES)
CALL QPQCHGCF (X0M40K QFNT62 C0HF0092 *YES)
CALL QPQCHGCF (X0M40K QFNT62 C0HF0093 *YES)
CALL QPQCHGCF (X0M40K QFNT62 C0HF0094 *YES)
CALL QPQCHGCF (X0M40K QFNT62 C0HF0095 *YES)
CALL QPQCHGCF (X0M40K QFNT62 C0HF0096 *YES)
CALL QPQCHGCF (X0M40K QFNT62 C0HF0097 *YES)
CALL QPQCHGCF (X0M40K QFNT62 C0HF0098 *YES)
CALL QPQCHGCF (X0M40L QFNT62 C0HF004X *YES)
CALL QPQCHGCF (X0M40L QFNT62 C0HF005X *YES)
CALL QPQCHGCF (X0M40L QFNT62 C0HF006X *YES)
CALL QPQCHGCF (X0M40L QFNT62 C0HF007X *YES)
CALL QPQCHGCF (X0M40L QFNT62 C0HF008X *YES)
CALL QPQCHGCF (X0M40L QFNT62 C0HF009X *YES)
CALL QPQCHGCF (X0M40L QFNT62 C0HF00AX *YES)
CALL QPQCHGCF (X0M40L QFNT62 C0HF00B0 *YES)
CALL QPQCHGCF (X0M40L QFNT62 C0HF00B1 *YES)
CALL QPQCHGCF (X0M40L QFNT62 C0HF00B2 *YES)
CALL QPQCHGCF (X0M40L QFNT62 C0HF00B3 *YES)
CALL QPQCHGCF (X0M40L QFNT62 C0HF00B4 *YES)
CALL QPQCHGCF (X0M40L QFNT62 C0HF00B5 *YES)
/***************************************************************/
CALL QPQCHGCF (X0M48K QFNT62 C0HG004X *YES)
CALL QPQCHGCF (X0M48K QFNT62 C0HG005X *YES)
CALL QPQCHGCF (X0M48K QFNT62 C0HG006X *YES)
CALL QPQCHGCF (X0M48K QFNT62 C0HG007X *YES)
CALL QPQCHGCF (X0M48K QFNT62 C0HG008X *YES)
CALL QPQCHGCF (X0M48K QFNT62 C0HG0090 *YES)
CALL QPQCHGCF (X0M48K QFNT62 C0HG0091 *YES)
CALL QPQCHGCF (X0M48K QFNT62 C0HG0092 *YES)
CALL QPQCHGCF (X0M48K QFNT62 C0HG0093 *YES)
CALL QPQCHGCF (X0M48K QFNT62 C0HG0094 *YES)
CALL QPQCHGCF (X0M48K QFNT62 C0HG0095 *YES)
CALL QPQCHGCF (X0M48K QFNT62 C0HG0096 *YES)
CALL QPQCHGCF (X0M48K QFNT62 C0HG0097 *YES)
CALL QPQCHGCF (X0M48K QFNT62 C0HG0098 *YES)
CALL QPQCHGCF (X0M48L QFNT62 C0HG004X *YES)
CALL QPQCHGCF (X0M48L QFNT62 C0HG005X *YES)
CALL QPQCHGCF (X0M48L QFNT62 C0HG006X *YES)
CALL QPQCHGCF (X0M48L QFNT62 C0HG007X *YES)
CALL QPQCHGCF (X0M48L QFNT62 C0HG008X *YES)
CALL QPQCHGCF (X0M48L QFNT62 C0HG009X *YES)
CALL QPQCHGCF (X0M48L QFNT62 C0HG00AX *YES)
CALL QPQCHGCF (X0M48L QFNT62 C0HG00B0 *YES)
CALL QPQCHGCF (X0M48L QFNT62 C0HG00B1 *YES)
CALL QPQCHGCF (X0M48L QFNT62 C0HG00B2 *YES)
CALL QPQCHGCF (X0M48L QFNT62 C0HG00B3 *YES)
CALL QPQCHGCF (X0M48L QFNT62 C0HG00B4 *YES)
CALL QPQCHGCF (X0M48L QFNT62 C0HG00B5 *YES)
/***************************************************************/
CALL QPQCHGCF (X0M64K QFNT62 C0HH004X *YES)
CALL QPQCHGCF (X0M64K QFNT62 C0HH005X *YES)
CALL QPQCHGCF (X0M64K QFNT62 C0HH006X *YES)
CALL QPQCHGCF (X0M64K QFNT62 C0HH007X *YES)
CALL QPQCHGCF (X0M64K QFNT62 C0HH008X *YES)
CALL QPQCHGCF (X0M64K QFNT62 C0HH0090 *YES)
CALL QPQCHGCF (X0M64K QFNT62 C0HH0091 *YES)
CALL QPQCHGCF (X0M64K QFNT62 C0HH0092 *YES)
CALL QPQCHGCF (X0M64K QFNT62 C0HH0093 *YES)
CALL QPQCHGCF (X0M64K QFNT62 C0HH0094 *YES)
CALL QPQCHGCF (X0M64K QFNT62 C0HH0095 *YES)
CALL QPQCHGCF (X0M64K QFNT62 C0HH0096 *YES)
CALL QPQCHGCF (X0M64K QFNT62 C0HH0097 *YES)
CALL QPQCHGCF (X0M64K QFNT62 C0HH0098 *YES)
CALL QPQCHGCF (X0M64L QFNT62 C0HH004X *YES)
CALL QPQCHGCF (X0M64L QFNT62 C0HH005X *YES)
CALL QPQCHGCF (X0M64L QFNT62 C0HH006X *YES)
CALL QPQCHGCF (X0M64L QFNT62 C0HH007X *YES)
CALL QPQCHGCF (X0M64L QFNT62 C0HH008X *YES)
CALL QPQCHGCF (X0M64L QFNT62 C0HH009X *YES)
CALL QPQCHGCF (X0M64L QFNT62 C0HH00AX *YES)
CALL QPQCHGCF (X0M64L QFNT62 C0HH00B0 *YES)
CALL QPQCHGCF (X0M64L QFNT62 C0HH00B1 *YES)
CALL QPQCHGCF (X0M64L QFNT62 C0HH00B2 *YES)
CALL QPQCHGCF (X0M64L QFNT62 C0HH00B3 *YES)
CALL QPQCHGCF (X0M64L QFNT62 C0HH00B4 *YES)
CALL QPQCHGCF (X0M64L QFNT62 C0HH00B5 *YES)
/***************************************************************/
CALL QPQCHGCF (X0G16K QFNT62 C0HA004X *YES)
CALL QPQCHGCF (X0G16K QFNT62 C0HA005X *YES)
CALL QPQCHGCF (X0G16K QFNT62 C0HA006X *YES)
CALL QPQCHGCF (X0G16K QFNT62 C0HA007X *YES)
CALL QPQCHGCF (X0G16K QFNT62 C0HA008X *YES)
CALL QPQCHGCF (X0G16K QFNT62 C0HA0090 *YES)
CALL QPQCHGCF (X0G16K QFNT62 C0HA0091 *YES)
CALL QPQCHGCF (X0G16K QFNT62 C0HA0092 *YES)
CALL QPQCHGCF (X0G16K QFNT62 C0HA0093 *YES)
CALL QPQCHGCF (X0G16K QFNT62 C0HA0094 *YES)
CALL QPQCHGCF (X0G16K QFNT62 C0HA0095 *YES)
CALL QPQCHGCF (X0G16K QFNT62 C0HA0096 *YES)
CALL QPQCHGCF (X0G16K QFNT62 C0HA0097 *YES)
CALL QPQCHGCF (X0G16K QFNT62 C0HA0098 *YES)
CALL QPQCHGCF (X0G16L QFNT62 C0HA004X *YES)
CALL QPQCHGCF (X0G16L QFNT62 C0HA005X *YES)
CALL QPQCHGCF (X0G16L QFNT62 C0HA006X *YES)
CALL QPQCHGCF (X0G16L QFNT62 C0HA007X *YES)
CALL QPQCHGCF (X0G16L QFNT62 C0HA008X *YES)
CALL QPQCHGCF (X0G16L QFNT62 C0HA009X *YES)
CALL QPQCHGCF (X0G16L QFNT62 C0HA00AX *YES)
CALL QPQCHGCF (X0G16L QFNT62 C0HA00B0 *YES)
CALL QPQCHGCF (X0G16L QFNT62 C0HA00B1 *YES)
CALL QPQCHGCF (X0G16L QFNT62 C0HA00B2 *YES)
CALL QPQCHGCF (X0G16L QFNT62 C0HA00B3 *YES)
CALL QPQCHGCF (X0G16L QFNT62 C0HA00B4 *YES)
CALL QPQCHGCF (X0G16L QFNT62 C0HA00B5 *YES)
/***************************************************************/
CALL QPQCHGCF (X0G24K QFNT62 C0HC004X *YES)
CALL QPQCHGCF (X0G24K QFNT62 C0HC005X *YES)
CALL QPQCHGCF (X0G24K QFNT62 C0HC006X *YES)
CALL QPQCHGCF (X0G24K QFNT62 C0HC007X *YES)
CALL QPQCHGCF (X0G24K QFNT62 C0HC008X *YES)
CALL QPQCHGCF (X0G24K QFNT62 C0HC0090 *YES)
CALL QPQCHGCF (X0G24K QFNT62 C0HC0091 *YES)
CALL QPQCHGCF (X0G24K QFNT62 C0HC0092 *YES)
CALL QPQCHGCF (X0G24K QFNT62 C0HC0093 *YES)
CALL QPQCHGCF (X0G24K QFNT62 C0HC0094 *YES)
CALL QPQCHGCF (X0G24K QFNT62 C0HC0095 *YES)
CALL QPQCHGCF (X0G24K QFNT62 C0HC0096 *YES)
CALL QPQCHGCF (X0G24K QFNT62 C0HC0097 *YES)
CALL QPQCHGCF (X0G24K QFNT62 C0HC0098 *YES)
CALL QPQCHGCF (X0G24L QFNT62 C0HC004X *YES)
CALL QPQCHGCF (X0G24L QFNT62 C0HC005X *YES)
CALL QPQCHGCF (X0G24L QFNT62 C0HC006X *YES)
CALL QPQCHGCF (X0G24L QFNT62 C0HC007X *YES)
CALL QPQCHGCF (X0G24L QFNT62 C0HC008X *YES)
CALL QPQCHGCF (X0G24L QFNT62 C0HC009X *YES)
CALL QPQCHGCF (X0G24L QFNT62 C0HC00AX *YES)
CALL QPQCHGCF (X0G24L QFNT62 C0HC00B0 *YES)
CALL QPQCHGCF (X0G24L QFNT62 C0HC00B1 *YES)
CALL QPQCHGCF (X0G24L QFNT62 C0HC00B2 *YES)
CALL QPQCHGCF (X0G24L QFNT62 C0HC00B3 *YES)
CALL QPQCHGCF (X0G24L QFNT62 C0HC00B4 *YES)
CALL QPQCHGCF (X0G24L QFNT62 C0HC00B5 *YES)
//ENDBCHJOB
/***************************************************************/
/* Traditional Chinese coded fonts */
/* The following invocations of QPQCHGCF mark the IBM */
/* supplied sections of the coded fonts in QFNT63 as resident. */
/* If you have modified an IBM supplied section, then you need */
/* to edit this file to mark that section as non-resident (*NO)*/
/* For example, if you have changed section C0TB0048, then */
/* you need to add the following statement AFTER the */
/* statement that marks sections (41 - 4F) as resident. */
/* CALL QPQCHGCF (X0M24T QFNT63 C0TB0048 *NO) */
/***************************************************************/
//BCHJOB JOBD(user-id) ENDSEV(50) LOG(4 0 *MSG)
CALL QPQCHGCF (X0M24T QFNT63 C0TB004X *YES)
CALL QPQCHGCF (X0M24T QFNT63 C0TB005X *YES)
CALL QPQCHGCF (X0M24T QFNT63 C0TB006X *YES)
CALL QPQCHGCF (X0M24T QFNT63 C0TB007X *YES)
/***************************************************************/
CALL QPQCHGCF (X0M32T QFNT63 C0TC004X *YES)
CALL QPQCHGCF (X0M32T QFNT63 C0TC005X *YES)
CALL QPQCHGCF (X0M32T QFNT63 C0TC006X *YES)
CALL QPQCHGCF (X0M32T QFNT63 C0TC007X *YES)
/***************************************************************/
CALL QPQCHGCF (X0M40T QFNT63 C0TD004X *YES)
CALL QPQCHGCF (X0M40T QFNT63 C0TD005X *YES)
CALL QPQCHGCF (X0M40T QFNT63 C0TD006X *YES)
CALL QPQCHGCF (X0M40T QFNT63 C0TD007X *YES)
/***************************************************************/
CALL QPQCHGCF (X0G16T QFNT63 C0TA004X *YES)
CALL QPQCHGCF (X0G16T QFNT63 C0TA005X *YES)
CALL QPQCHGCF (X0G16T QFNT63 C0TA006X *YES)
CALL QPQCHGCF (X0G16T QFNT63 C0TA007X *YES)
//ENDBCHJOB
/***************************************************************/
/* Simplified Chinese coded fonts */
/* The following invocations of QPQCHGCF mark the IBM */
/* supplied sections of the coded fonts in QFNT64 as resident. */
/* If you have modified an IBM supplied section, then you need */
/* to edit this file to mark that section as non-resident (*NO)*/
/* For example, if you have changed section C0S26P48, then */
/* you need to add the following statement AFTER the */
/* statement that marks sections (41 - 4F) as resident. */
/* CALL QPQCHGCF (X0S26P QFNT64 C0S26P48 *NO) */
/***************************************************************/
//BCHJOB JOBD(user-id) ENDSEV(50) LOG(4 0 *MSG)
CALL QPQCHGCF (X0S26P QFNT64 C0S26P4X *YES)
CALL QPQCHGCF (X0S26P QFNT64 C0S26P5X *YES)
CALL QPQCHGCF (X0S26P QFNT64 C0S26P60 *YES)
CALL QPQCHGCF (X0S26P QFNT64 C0S26P61 *YES)
CALL QPQCHGCF (X0S26P QFNT64 C0S26P62 *YES)
CALL QPQCHGCF (X0S26P QFNT64 C0S26P63 *YES)
CALL QPQCHGCF (X0S26P QFNT64 C0S26P64 *YES)
CALL QPQCHGCF (X0S26P QFNT64 C0S26P65 *YES)
CALL QPQCHGCF (X0S26P QFNT64 C0S26P66 *YES)
CALL QPQCHGCF (X0S26P QFNT64 C0S26P67 *YES)
CALL QPQCHGCF (X0S26P QFNT64 C0S26P68 *YES)
CALL QPQCHGCF (X0S26P QFNT64 C0S26P69 *YES)
CALL QPQCHGCF (X0S26P QFNT64 C0S26P6A *YES)
CALL QPQCHGCF (X0S26P QFNT64 C0S26P6B *YES)
CALL QPQCHGCF (X0S26P QFNT64 C0S26P6C *YES)
/***************************************************************/
CALL QPQCHGCF (X0S32P QFNT64 C0S32P4X *YES)
CALL QPQCHGCF (X0S32P QFNT64 C0S32P5X *YES)
CALL QPQCHGCF (X0S32P QFNT64 C0S32P60 *YES)
CALL QPQCHGCF (X0S32P QFNT64 C0S32P61 *YES)
CALL QPQCHGCF (X0S32P QFNT64 C0S32P62 *YES)
CALL QPQCHGCF (X0S32P QFNT64 C0S32P63 *YES)
CALL QPQCHGCF (X0S32P QFNT64 C0S32P64 *YES)
CALL QPQCHGCF (X0S32P QFNT64 C0S32P65 *YES)
CALL QPQCHGCF (X0S32P QFNT64 C0S32P66 *YES)
CALL QPQCHGCF (X0S32P QFNT64 C0S32P67 *YES)
CALL QPQCHGCF (X0S32P QFNT64 C0S32P68 *YES)
CALL QPQCHGCF (X0S32P QFNT64 C0S32P69 *YES)
CALL QPQCHGCF (X0S32P QFNT64 C0S32P6A *YES)
CALL QPQCHGCF (X0S32P QFNT64 C0S32P6B *YES)
CALL QPQCHGCF (X0S32P QFNT64 C0S32P6C *YES)
/***************************************************************/
CALL QPQCHGCF (X0S40P QFNT64 C0S40P4X *YES)
CALL QPQCHGCF (X0S40P QFNT64 C0S40P5X *YES)
CALL QPQCHGCF (X0S40P QFNT64 C0S40P60 *YES)
CALL QPQCHGCF (X0S40P QFNT64 C0S40P61 *YES)
CALL QPQCHGCF (X0S40P QFNT64 C0S40P62 *YES)
CALL QPQCHGCF (X0S40P QFNT64 C0S40P63 *YES)
CALL QPQCHGCF (X0S40P QFNT64 C0S40P64 *YES)
CALL QPQCHGCF (X0S40P QFNT64 C0S40P65 *YES)
CALL QPQCHGCF (X0S40P QFNT64 C0S40P66 *YES)
CALL QPQCHGCF (X0S40P QFNT64 C0S40P67 *YES)
CALL QPQCHGCF (X0S40P QFNT64 C0S40P68 *YES)
CALL QPQCHGCF (X0S40P QFNT64 C0S40P69 *YES)
CALL QPQCHGCF (X0S40P QFNT64 C0S40P6A *YES)
CALL QPQCHGCF (X0S40P QFNT64 C0S40P6B *YES)
CALL QPQCHGCF (X0S40P QFNT64 C0S40P6C *YES)
/***************************************************************/
CALL QPQCHGCF (X0G16P QFNT64 C0G16P4X *YES)
CALL QPQCHGCF (X0G16P QFNT64 C0G16P5X *YES)
CALL QPQCHGCF (X0G16P QFNT64 C0G16P60 *YES)
CALL QPQCHGCF (X0G16P QFNT64 C0G16P61 *YES)
CALL QPQCHGCF (X0G16P QFNT64 C0G16P62 *YES)
CALL QPQCHGCF (X0G16P QFNT64 C0G16P63 *YES)
CALL QPQCHGCF (X0G16P QFNT64 C0G16P64 *YES)
CALL QPQCHGCF (X0G16P QFNT64 C0G16P65 *YES)
CALL QPQCHGCF (X0G16P QFNT64 C0G16P66 *YES)
CALL QPQCHGCF (X0G16P QFNT64 C0G16P67 *YES)
CALL QPQCHGCF (X0G16P QFNT64 C0G16P68 *YES)
CALL QPQCHGCF (X0G16P QFNT64 C0G16P69 *YES)
CALL QPQCHGCF (X0G16P QFNT64 C0G16P6A *YES)
CALL QPQCHGCF (X0G16P QFNT64 C0G16P6B *YES)
CALL QPQCHGCF (X0G16P QFNT64 C0G16P6C *YES)
//ENDBCHJOB
/***************************************************************/
/* Thai coded fonts */
/* The following invocations of QPQCHGCF mark the IBM */
/* supplied sections of the coded fonts in QFNT65 as resident. */
/* If you have modified an IBM supplied section, then you need */
/* to edit this file to mark that section as non-resident (*NO)*/
/* For example, if you have changed section C0O40F48, then */
/* you need to add the following statement AFTER the */
/* statement that marks sections (41 - 4F) as resident. */
/* CALL QPQCHGCF (X0O40F QFNT65 C0O40F48 *NO) */
/***************************************************************/
//BCHJOB JOBD(user-id) ENDSEV(50) LOG(4 0 *MSG)
CALL QPQCHGCF (X0O40F QFNT65 C0O40F4X *YES)
CALL QPQCHGCF (X0O40F QFNT65 C0O40F5X *YES)
CALL QPQCHGCF (X0O40F QFNT65 C0O40F60 *YES)
CALL QPQCHGCF (X0O40F QFNT65 C0O40F61 *YES)
CALL QPQCHGCF (X0O40F QFNT65 C0O40F62 *YES)
CALL QPQCHGCF (X0O40F QFNT65 C0O40F63 *YES)
CALL QPQCHGCF (X0O40F QFNT65 C0O40F64 *YES)
CALL QPQCHGCF (X0O40F QFNT65 C0O40F65 *YES)
CALL QPQCHGCF (X0O40F QFNT65 C0O40F66 *YES)
CALL QPQCHGCF (X0O40F QFNT65 C0O40F67 *YES)
/***************************************************************/
CALL QPQCHGCF (X0O60F QFNT65 C0O60F4X *YES)
CALL QPQCHGCF (X0O60F QFNT65 C0O60F5X *YES)
CALL QPQCHGCF (X0O60F QFNT65 C0O60F60 *YES)
CALL QPQCHGCF (X0O60F QFNT65 C0O60F61 *YES)
CALL QPQCHGCF (X0O60F QFNT65 C0O60F62 *YES)
CALL QPQCHGCF (X0O60F QFNT65 C0O60F63 *YES)
CALL QPQCHGCF (X0O60F QFNT65 C0O60F64 *YES)
CALL QPQCHGCF (X0O60F QFNT65 C0O60F65 *YES)
CALL QPQCHGCF (X0O60F QFNT65 C0O60F66 *YES)
CALL QPQCHGCF (X0O60F QFNT65 C0O60F67 *YES)
/***************************************************************/
CALL QPQCHGCF (X0I60F QFNT65 C0I60F4X *YES)
CALL QPQCHGCF (X0I60F QFNT65 C0I60F5X *YES)
CALL QPQCHGCF (X0I60F QFNT65 C0I60F60 *YES)
CALL QPQCHGCF (X0I60F QFNT65 C0I60F61 *YES)
CALL QPQCHGCF (X0I60F QFNT65 C0I60F62 *YES)
CALL QPQCHGCF (X0I60F QFNT65 C0I60F63 *YES)
CALL QPQCHGCF (X0I60F QFNT65 C0I60F64 *YES)
CALL QPQCHGCF (X0I60F QFNT65 C0I60F65 *YES)
CALL QPQCHGCF (X0I60F QFNT65 C0I60F66 *YES)
CALL QPQCHGCF (X0I60F QFNT65 C0I60F67 *YES)
//ENDBCHJOB
SPECIAL INSTRUCTIONS FOR SUPERSEDED PTF SF27170 :
=================================================
The Special Instructions for Superseded PTF SF24144 have been
changed to add a description of the EDGEORIENT parameter in the
WRKAFP2 command description. The syntax for the EDGEORIENT
parameter is also added. This parameter was called EDGSNSTV on
the WRKAFP command for V2R3.
SPECIAL INSTRUCTIONS FOR SUPERSEDED PTF SF24144 :
=================================================
Install this PTF if you use or are planning to use
Print Services Facility/400 (PSF/400) and are installing PTFs
for the following APARs:
- SA44298. Provides support for printer attachments using
TCP/IP.
- SA44300. Adds support for IPDS passthrough
- SA44303. Provides APPC enhancements permitting multiple
AS/400s to share a PSF Direct session.
The program provided in this PTF, QSYS/QPQXWAFP, provides an
interface to a data area used by PSF/400 to obtain additional
configuration information not provided through use of the
CRTDEVPRT command. QPQXWAFP creates a data area in library QGPL
with authority of *LIBCRTAUT.
This cover letter assumes that you will use the command
interface provided in this cover letter. This command interface
is called WRKAFP2. Documentation provided here will reference
the name WRKAFP2 and the parameters used by the command to
provide an interface to QPQXWAFP. QPQXWAFP will be the program
to process the command.
This cover letter provides the following information:
1. How to use WRKAFP2.
2. Examples for using WRKAFP2.
3. Data area migration concerns.
4. Reference codes returned by QPQXWAFP.
5. How to copy the source code for a suggested command
interface, WRKAFP2, to QPQXWAFP from this cover letter
into a physical file.
6. How to compile the suggested command interface.
7. Source code for a suggested command interface to QPQXWAFP.
When configuring PSF/400 for any of these new functions, please
refer to the cover letter for the PTF which adds that function,
in addition to this cover letter.
1. How to use WRKAFP2
---------------------
WRKAFP2 has the following parameters:
a. DEVD. Printer device name
This is the name of the data area to be created, modified
or migrated by WRKAFP2. The value may be any name
permitted for a data area.
b. PRINTONLY. Print data area only
Use a value of *YES if you wish to print the contents of a
data area previously created by WRKAFP2. Valid values are
*YES and *NO. When *YES is specified, all other parameters
are ignored. The default value is *NO.
c. IPDSPASTHR. IPDS pass through
Specifies if you are using PSF/400's IPDS Passthrough
function. You may use this function when printing on any
connection: Twinaxial, APPC and TCP/IP. Valid values are
*YES and *NO. The default value is *NO.
d. TCPIP. TCP/IP.
Specifies if you are attaching to a device which requires
PSF/400's TCP/IP support. Valid values are *YES and *NO. If
you specify *YES, you will have to specify values for
RMTSYS and PORT; see below. The default value is *NO.
e. RMTSYS. Remote system.
Specifies the remote system name of the printer. You may
use either a host name or an IP address.
f. PORT. Port.
Specifies the port number for the device. Valid values
range from 1-65535.
g. ACTTMR. Activation timer.
Specifies the number of seconds PSF/400 will wait for a
printer to respond to an activation request. If the printer
does not respond within this time, PSF/400 terminates. The
value specified depends on what is required in your
environment. The value you select is dependent on whether
you are sharing the printer with another PSF, or the length
of time required for an activation request to reach the
printer. This parameter is used only for TCP/IP-attached
printers. Acceptable values are 1-2550 seconds and *NOMAX
(wait forever). The default value is 170.
h. RETRY. SNA retry count
Specifies the number of retries PSF/400 should attempt when
trying to establish a session with a device. RETRY may be
used for devices attached by APPC. This value is ignored
for Twinax and TCP/IP. This parameter is designed for use
with PSF Direct. If you are sharing a PSF Direct-attached
printer with another PSF, then you may want to give
consideration to how this value should be set. Valid values
are 1-99 and *NOMAX (try forever). The default value is 2.
i. RETRYDLY. Delay time between SNA retries.
Specifies the number of seconds to wait between retry
attempts to establish a session. This parameter
applies to APPC-configured printers only. This parameter
only applies if the RETRY parameter has a value greater
than 0. This parameter is designed for use with PSF Direct.
If you are sharing a PSF Direct-attached printer with
another PSF, then you may want to give consideration to how
this value should be set. Valid values are 0 -999 seconds.
The default value is 0.
j. INACTTMR. Inactivity timer.
Specifies the length of time PSF/400 will maintain a
session with the printer while there are no spooled files
with a status of RDY. If the specified time elapses,
PSF/400 closes the connection with the printer, which
permits another PSF to use the printer. This parameter is
used for APPC- and TCP/IP-attached printers only. Valid
values are 1-30 minutes, *NOMAX (never close the
connection), *SEC15 (15 seconds) and *SEC30 (30 seconds).
The default value is *NOMAX.
The remaining parameters have already been made available
by setting values in a data area accessed by PSF/400. They are
made available through WRKAFP2.
k. SBP. Suppress blank pages.
Specifies that PSF/400 does not issue a blank page after
every separator page and spool file copy that contains an
odd number of pages. This parameter is used for the 3835
and 3900 printers only. Valid values are *YES and *NO. The
default value is *NO.
l. PSC. Page size control.
Specifies whether PSF/400 sets the page size (forms) in
the printer. This parameter only applies to the 4224, 4230,
4234, 4028, 6404, 6408, and 6412 printers. Valid values are
*YES and *NO. If *YES is specified, the page size in the
spooled file overrides the printer's configuration. The
default value is *NO.
m. DRF. Disable resident fonts.
Specifies whether PSF/400 does not support the resident
fonts on a printer that has resident fonts. If *YES is
specified, PSF/400 will map resident font references to the
equivalent host font and then download the host font to the
printer. Valid values are *YES and *NO. The default value
is *NO.
n. DRR. Disable resource retention.
Specifies if PSF/400 should delete page segments and
overlays from the printer after printing a spooled file
which references page segments and overlays. Valid values
are *YES and *NO. The default value is *NO.
o. EDGEORIENT. Edge orient
This parameter permits you to force the AFP printer
writer to rotate 90 degree output an extra 180
degrees. Setting EDGEORIENT(*YES) will cause the writer
to rotate 90 degree output 180 degrees. Setting
EDGEORIENT(*NO) will cause the writer not to rotate the
data any extra. You may want to set this value to *YES
if the printer you are using edge sensitive paper and
landscape output is printed upside down.
Note that WRKAFP2 initializes the data area every time it is
invoked, except when PRINTONLY(*YES) is specified. So if you
must change a parameter after having previously used WRKAFP2,
all the original parameters must be entered again. To make
certain values are not accidentally lost, you may want to
consider using any of the following procedures to save the
values set by WRKAFP2:
1. Make a backup copy of the data area. Use a name for
the backup copy of the data area that does not correspond
to any existing printer device description.
2. Always print a copy of the values in the data area after
making any changes or creating the data area.
3. Print a copy of the values in the data area before making
any changes to the data area.
4. Save the CL source originally used for WRKAFP2.
2. Examples for using WRKAFP2
-----------------------------
This section gives examples of how to use WRKAFP2 for
different printing requirements. The term printer is used to
mean either an IBM IPDS printer which provides TCP/IP support
or the i-data 7913 Printer LAN Attachment.
a. Using WRKAFP2 to configure PSF/400 to use IPDS Passthrough
for a Twinaxial-attached printer.
WRKAFP2 DEVD(PRT3112) IPDSPASTHR(*YES)
Changes to the printer device description are not required.
Note that IPDSPASTHR(*YES) may be specified when printing
on any connection: Twinaxial, APPC and TCP/IP.
b. Using WRKAFP2 to configure PSF/400 to attach to a printer
which provides TCP/IP support.
WRKAFP2 DEVD(PRT3130) TCPIP(*YES) RMTSYS('9.5.12.102')
PORT(5001)
See the PTF cover letter for APAR SA44298 for additional
configuration information.
c. Using WRKAFP2 to configure PSF/400 on two or more AS/400s
to continually share a TCP/IP-attached printer. The
following must be done on each AS/400:
WRKAFP2 DEVD(PRT3130) TCPIP(*YES) RMTSYS('9.99.12.112')
PORT(5001) ACTTMR(*NOMAX) INACTTMR(5)
This definition configures PSF/400 to wait forever
ACTTMR(*NOMAX) to establish a connection with a printer.
After making a connection, if there are no spooled files
with a status of RDY on the output queue in use by PSF/400
after 5 minutes, INACTTMR(5), then the connection with the
printer is ended. PSF/400, however, will not end. As soon
as a spooled file becomes RDY, PSF/400 will attempt to make
a connection with the printer. The value specified for
ACTTMR affect the length of time for which PSF/400 attempts
to again make a connection with the printer.
Note that while one AS/400 is printing, one or more AS/400s
may be attempting to make a connection. As soon as an
AS/400 ends the connection to a printer, another AS/400 can
get a connection to the printer.
See the PTF cover letter for APAR SA44298 for additional
configuration information.
d. Using WRKAFP2 to configure PSF/400 on two or more AS/400s
to continually share a printer attached through the PSF
Direct function provided by PSF/2 and PSF/6000.
WRKAFP2 DEVD(PSFD3900) RETRY(*NOMAX) RETRYDLY(60)
INACTTMR(*SEC30)
This definition configures PSF/400 to make an infinite
number of attempts, RETRY(*NOMAX), to establish a
connection with PSF/2 or PSF/6000. PSF/400 will pause
60 seconds, RETRYDLY(60), between each attempt to
establish a connection. After making a connection, if
there are no spooled files with a status of RDY on the
output queue in use by PSF/400 after 30 seconds,
INACTTMR(*SEC30), then the connection with the printer is
ended. However, PSF/400 will not end. As soon as a spooled
file becomes RDY, PSF/400 will attempt to make a connection
with the printer. The values specified for RETRY and
RETRYDLY affect the length of time for which PSF/400
attempts to again make a connection with the printer.
Note that while one AS/400 is printing, one or more AS/400s
may be attempting to make a connection. As soon as an
AS/400 ends the connection to a printer, another AS/400 can
get a connection to the printer.
Changes to the printer device description are not required.
3. Data area migration concerns
-------------------------------
You may already be using a data area to control some aspects of
AFP printing. WRKAFP2 will automatically migrate that data area
to the new one required to configure for the above-mentioned new
functions. This is necessary if the existing data area is not of
the correct size.
A data area will be migrated if the following conditions exist:
a. The data area specified for DEVD in WRKAFP2 exists in
library QGPL.
b. The first eight bytes of the data area are set to WWPDTRHR.
The migration performed by WRKAFP2 involves the following steps:
a. Save the value stored within the existing data area.
b. Delete the existing data area.
c. Create a new data area of the correct size.
d. Copy the values from the old data area to the new data
area.
e. Add any new values you have specified to the new data area.
4. Reference Codes returned by QPQXWAFP.
----------------------------------------
Listed below are the reference codes that can be returned by
QPQXWAFP. An explanation for each code is given.
Reference code Explanation
-------------- -----------
QPQXWAFP 0001 You gave a blank value for DEVD. Use WRKAFP2
again and specify a nonblank value for DEVD.
QPQXWAFP 0002 You specified TCPIP(*YES) but did not give a
value for RMTSYS. Use WRKAFP2 again and specify
a value for RMTSYS.
QPQXWAFP 0003 You specified TCPIP(*YES) but did not give a
value for PORT. Use WRKAFP2 again and specify a
value for PORT.
QPQXWAFP 0004 You specified PRINTONLY(*YES) but the specified
data area could not be found. Use WRKAFP2
again, specifying a data area created by
QPQXWAFP.
QPQXWAFP 0005 QPQXWAFP was unable to open a spooled file for
output. Review the messages in your job log for
additional information.
QPQXWAFP 0006 QPQXWAFP was unable to write to the spooled
file it had opened. Review the messages in your
job log for additional information.
QPQXWAFP 0007 QPQXWAFP was unable to close the spooled file
it was using. Review the messages in your job
log for additional information.
QPQXWAFP 0009 You specified PRINTONLY(*YES) but the specified
data area could not be interpreted by QPQXWAFP.
This means that the data area was not created
by QPQXWAFP. Delete the data area, DLTDTAARA,
and then use QPQXWAFP to create the data area.
QPQXWAFP 0009 The data area to be migrated does not have the
first eight bytes set to WWPDTRHR. Delete the
data area, DLTDTAARA, and then run WRKAFP2.
QPQXWAFP 0010 The caller of QPQXWAFP does not have authority
to the data area specified for DEVD.
QPQXWAFP 9999 An existing data area was successfully migrated
to a new data area.
If a data area is successfully created or changed (but not
migrated), a reference code is not issued by QPQXWAFP.
5. How to copy the source code for a suggested command
interface to QPQXWAFP into a physical file.
---------------------------------------------------------------
These instructions assume you have a source physical file
named QCMDSRC.
a) WRKMBRPDM QGPL/QCMDSRC
b) Press F6 to create a new member. Name it WRKAFP2 and
the type is CMD. Give it a meaningful description. Press
Enter.
c) You now have the SEU edit screen. Press F15 to
Browse/Copy member.
d) Select:
Selection: 1 = Member
Copy all records: N
Member: QSF27847
File: QAPZCOVER
Library: QGPL
Press Enter. This should give you a split screen.
e) At the command line for the screen type F WRKAFP2: CMD and
press Enter. After the character string is located, press
F16 two times. You will see a line that begins
"WRKAFP2: CMD". Type a CC in the control space at the
beginning of the line.
f) Now go to the end of the program. Type B at the command
line to go to the end of the member. Type a CC in that
line.
g) Move the cursor back to the new member you are creating
and type an "A" at the first line. Press Enter.
h) Press F12 to end the split screen. F3 to end the edit
session and Enter to save the new source.
i) You must now compile the command. Use the following to
compile your command:
CRTCMD CMD(QGPL/WRKAFP2) PGM(QSYS/QPQXWAFP)
SRCFILE(QGPL/QCMDSRC)
After the command successfully compiles, you are ready to use
the WRKAFP2 command. In order that the values specified by the
use of WRKAFP2 take effect, you must perform the following:
1. End PSF/400 (ENDWTR), if it is active.
2. Use WRKAFP2 to set the values.
3. Start PSF/400 (STRPRTWTR).
Values specified with WRKAFP2 take effect only when PSF/400
is started (STRPRTWTR).
6. How to compile the suggested command interface.
CRTCMD CMD(QGPL/WRKAFP2) PGM(QSYS/QPQXWAFP)
SRCFILE(my_lib/QCMDSRC)
7. Source code for a suggested command interface to QPQXWAFP
------------------------------------------------------------
WRKAFP2: CMD PROMPT('Work with AFP 2.0')
PARM KWD(DEVD) TYPE(*NAME) LEN(10) RSTD(*NO) +
MIN(1) MAX(1) DTAARA(*YES) EXPR(*YES) +
VARY(*NO) PASSATR(*NO) PROMPT('Printer +
device name')
PARM KWD(PRINTONLY) +
TYPE(*CHAR) LEN(1) MIN(0) MAX(1) +
FILE(*NO) RSTD(*YES) DFT(*NO) +
SPCVAL((*YES Y) (*NO N)) +
PROMPT('Print data area only')
PARM KWD(IPDSPASTHR) +
TYPE(*CHAR) LEN(1) MIN(0) MAX(1) +
FILE(*NO) RSTD(*YES) DFT(*NO) +
SPCVAL((*YES Y) (*NO N)) +
PROMPT('IPDS pass through')
PARM KWD(TCPIP) +
TYPE(*CHAR) LEN(1) MIN(0) MAX(1) +
FILE(*NO) RSTD(*YES) DFT(*NO) +
SPCVAL((*YES Y) (*NO N)) +
PROMPT('TCP/IP support')
PARM KWD(RMTSYS) +
TYPE(*CHAR) LEN(255) MIN(0) MAX(1) +
PMTCTL(TCPIP) +
PROMPT('Remote system')
PARM KWD(PORT) +
TYPE(*INT4) RSTD(*NO) +
RANGE(1 65535) MIN(0) MAX(1) +
FULL(*NO) EXPR(*YES) +
PASSATR(*NO) +
PMTCTL(TCPIP) +
PROMPT('Port')
PARM KWD(ACTTMR) +
TYPE(*INT4) +
RANGE(1 2550) SPCVAL((*NOMAX 0)) +
MIN(0) MAX(1) +
DFT(170) +
PMTCTL(TCPIP) +
PROMPT('Activation timer')
PARM KWD(RETRY) +
TYPE(*INT2) RSTD(*NO) DFT(2) +
RANGE(1 99) MIN(0) MAX(1) +
SPCVAL((*NOMAX X'FFFF')) +
FULL(*NO) EXPR(*YES) +
PASSATR(*NO) +
PMTCTL(TCPIPNO) +
PROMPT('APPC retry count')
PARM KWD(RETRYDLY) +
TYPE(*INT2) RSTD(*NO) DFT(0) +
RANGE(0 999) MIN(0) MAX(1) +
FULL(*NO) EXPR(*YES) +
PASSATR(*NO) +
PMTCTL(TCPIPNO) +
PROMPT('Delay between APPC retries')
PARM KWD(INACTTMR) +
TYPE(*INT4) +
RANGE(1 30) +
MIN(0) MAX(1) +
DFT(*NOMAX) +
SPCVAL((*NOMAX 0) (*SEC15 254) +
(*SEC30 255)) +
PROMPT('Inactivity timer')
PARM KWD(SBP) +
TYPE(*CHAR) LEN(1) MIN(0) MAX(1) +
FILE(*NO) RSTD(*YES) DFT(*NO) +
SPCVAL((*YES Y) (*NO N)) +
PMTCTL(*PMTRQS) +
PROMPT('Suppress blank pages')
PARM KWD(PSC) +
TYPE(*CHAR) LEN(1) MIN(0) MAX(1) +
FILE(*NO) RSTD(*YES) DFT(*NO) +
SPCVAL((*YES Y) (*NO N)) +
PMTCTL(*PMTRQS) +
PROMPT('Page size control')
PARM KWD(DRF) +
TYPE(*CHAR) LEN(1) MIN(0) MAX(1) +
FILE(*NO) RSTD(*YES) DFT(*NO) +
SPCVAL((*YES Y) (*NO N)) +
PMTCTL(*PMTRQS) +
PROMPT('Disable resident fonts')
PARM KWD(DRR) +
TYPE(*CHAR) LEN(1) MIN(0) MAX(1) +
FILE(*NO) RSTD(*YES) DFT(*NO) +
SPCVAL((*YES Y) (*NO N)) +
PMTCTL(*PMTRQS) +
PROMPT('Disable resource retention')
PARM KWD(EDGEORIENT) +
TYPE(*CHAR) MIN(0) DFT(*NO) RSTD(*YES) +
LEN(4) PROMPT('Edge orient') +
PMTCTL(*PMTRQS) +
SPCVAL(*YES *NO)
TCPIP: PMTCTL CTL(TCPIP) COND((*EQ Y))
TCPIPNO: PMTCTL CTL(TCPIP) COND((*EQ N))
PMTCTL CTL(PRINTONLY) COND((*EQ N)) LGLREL(*AND)
Default Instructions
THIS PTF CAN BE APPLIED IMMEDIATE OR DELAYED.
Supersedes
PTF/FIX NO(S). APAR TITLE LINE
-------------- -----------------------------------------------------------
SF29249 AFP-OSP-PSF DUMMY PTR TO GO OUT WITH B201812
SF28527 OSP-AFP MSGPQT3825 CHANGE ALIGNMENT ON A D/T4230 CONNECTED
SF28153 AFP-OSP-PSF DBCS RESIDENT RASTER SUPPORT
SF27847 AFP-OSP-PSF-INCORROUT AFP PRINTER MESSAGES
SF27170 AFP-OSP-PSF DUMMY PTR TO GO OUT WITH SA46880
SF25540 OSP-AFP-PSF MSGCPF0030-D/T3130-PAR-940XCOMETN
SF24337 AFP-PSF UPDATE OF MESSAGES
SF24144 AFP-NEW PARAMETERS FOR TCP/IP IPDS PASSTHROUGH SNA
Summary Information
System................. AS/400
Models................. *ALL
Release................ V3R1M0
Recompile.............. N
Library................ QSYS
MRI Feature............ NONE