IBM Support

Sending PJL Commands to Activate Whole Page or Edge-to-Edge Printing for Printing UB-04 Forms

Troubleshooting


Problem

This document provides instructions for modifying a WSCST to send PJL commands to activate whole page or edge-to-edge printing, and to send the Left Offset Registration and Skip Perforation PCL commands to start printing at the left unprintable border when using Host Print Transform (HPT), specifically to print UB-04 forms.

Resolving The Problem

This document provides instructions for modifying a Workstation Customization Table (WSCST) to send PJL commands to activate whole page or edge-to-edge printing and to send the Left Offset Registration and Skip Perforation PCL commands to start printing at the left unprintable border when using Host Print Transform (HPT), specifically to print UB-04 forms.

This is done by retrieving and modifying a Workstation Customization Table (WSCST) and changing the values in some of the NOPRTBDR (No Print Border) tags and sending HP PJL commands and the Left Offset Registration and Skip Perforation PCL commands in the Initialize Printer (INITPRT) tag.

Notes:

oThe information in this document was developed while diagnosing a problem with printing on UB-04 Uniform Billing pre-printed forms. This form was designed to print 82 characters at 10 Characters per Inch (CPI). The HP Printer Control Language (PCL) has a limitation an 8.0 inch print line when printing in portrait on Letter sized (8.5 x 11 inch) paper. This makes it impossible to print 82 characters at 10 CPI in portrait unless the printer manufacturer has added support to use a larger print line by activating a whole page or edge-to-edge printing mode. For more information on the design of the UB-04 and the size and placement of each field in the form, refer to the following URLs:

www.nubc.org
www.cms.gov
www.cms.gov/Regulations-and-Guidance/Guidance/Transmittals/downloads/R1104CP.pdf
oThe UB-04 health care form was designed to print 82 columns of data at 10 Characters Per Inch (CPI), requiring an 8.2 inch print line. If a third-party application or in-house application has designed their spooled files to print 83 columns of data, as some have done, then they need to be changed to print only 82 columns, not 83.
oSelect printer models from IBM, InfoPrint Solutions Company, Lexmark, Ricoh, Savin, Nashuatec, Rex-Rotary, Gestetner, Lanier and Infotec support "whole page" printing that allows printing more than 8.0 inches on a line when in HP PCL5e/PCL6 mode. Whole page printing can be activated through the printer hardware settings; however, it should also be able to be activated through HP PJL commands.
oSelect models of HP LaserJet printers support edge-to-edge printing that can be activated with different HP PJL commands; however, this is not supported on all HP printers. According to documentation from HP.com, edge-to-edge printing is supported with the HP LaserJet 5100, 8150, 9000 and 9000mfp series printers. Edge-to-edge printing is not supported on the HP LaserJet 1150, 1200, 1300, 2200, 2300, 4100, 4100mfp, 4200, nor 4300 series printers.
oIf it is unknown if a specific model of printer supports whole page or edge-to-edge printing, contact your printer manufacturer to make a determination before proceeding with these instructions to ensure that they will work.
oActivating whole page or edge-to-edge mode on the printer hardware, either through PJL commands or through hardware settings, will greatly decrease if not eliminate the unprintable border. However, this will still most likely only increase the output to a 8.2 inch (or closer to an 81.9 inch) print line due to either HP PCL or printer hardware limitations. Therefore, there may be a small amount of truncation on column 82 and there will most likely be no way to print 83 columns of data.
oRochester Support Center knowledgebase document New contains a save file with pre-built Workstation Customizing Objects (WSCSTs) for some of the most requested and most helpful customizations.

As of 7 October 2008, this save file includes a pre-built WSCST object called PCL5UB04A that can be used to activate whole page mode on select printer models from certain printer manufacturers including IBM, InfoPrint Solutions Company, Lexmark, Ricoh, Savin, Nashuatec, Rex-Rotary, Gestetner, Lanier and Infotec, and a pre-built WSCST object called PCL5UB04B that can be used to activate edge-to-edge mode on select models of HP LaserJet printers. The save file also contains the WSCST source code for both PCL5UB04A and PCL5UB04B which can be used as a basis for your own modified WSCST objects.

For more information, refer to the following Rochester Support Center knowledgebase document:

N1019007: Pre-Built Workstation Customizing Objects (WSCSTs) from IBM iSeries Remote Technical Support
This document was last updated on 24 October 2013.


Caution: These instructions are provided as is. Any assistance with editing the Workstation Customization Table must be done through a consulting contract.

This document contains the following sections:
1.Basic Steps for Creating and Using a Workstation Customization Object discusses the basic steps for creating and using a Workstation Customization Object (WSCST). In-depth details for creating a WSCST object can be found in the following Rochester Support Center knowledgebase document:

N1010140: Instructions for Modifying a Workstation Customizing Object (WSCST)
2.Changing the NOPRTBDR (No Print Border) Tags for LEFT/PORTRAIT and RIGHT/PORTRAIT contains step-by-step instructions to change the NOPRTBDR tags for LEFT/PORTRAIT and RIGHT/PORTRAIT. These instructions are for printers that support Whole Page printing and for printers that support Edge-to-Edge printing.
3.Changing the Initialize Printer (INITPRT) and Reset Printer (RESETPRT) Tags to Activate and Deactivate Whole Page Printing contains step-by-step instructions to change the INITPRT and RESETPRT tags for IBM Infoprint and Lexmark Optra printers that support Whole Page printing. In addition, these instructions will most likely work for recent Ricoh, Savin, Nashuatec, Rex-Rotary, Gestetner, Lanier and Infotec printers.
4.Changing the Initialize Printer (INITPRT) and Reset Printer (RESETPRT) Tags to Activate and Deactivate Edge-to-Edge Printing contains step-by-step instructions to change the INITPRT and RESETPRT tags for HP LaserJet and compatible printers that support Edge-to-Edge printing.

The following are the basic steps for creating and using a Workstation Customization Object (WSCST). Regardless of the particular issue(s) you are attempting to resolve, these steps must always be taken. This information is intended to provide a 'quick start' to creating a WSCST object for users who have at least some familiarity with creating them and with configuring printers.

Note: Additional, in-depth details for creating a WSCST object can be found in the following Rochester Support Center knowledgebase document:

N1010140: Instructions for Modifying a Workstation Customizing Object (WSCST)

The following are the basic 'quick start' steps.

Step 1: Retrieve the WSCST source code. Type the following command on the operating system command line:

Important Note: Use the Manufacturer type and model (MFRTYPMDL) that is appropriate for your printer. Also, the Source member (in the following example, HP4) is a name that is appropriate to your customizing object. This is what you will be calling your workstation customizing object in Step 3.

RTVWSCST DEVTYPE(*TRANSFORM) MFRTYPMDL(*HP4) SRCMBR(HP4)
         SRCFILE(QGPL/QTXTSRC)

Press the Enter key.

Step 2: Edit the source code by using PDM or SEU:
oTo use PDM, on the operating system command line type the following:

WRKMBRPDM FILE(QGPL/QTXTSRC) MBR(HP4)

Press the Enter key. Select Option 2 to edit.
oTo use SEU, on the operating system command line type the following:

STRSEU SRCFILE(QGPL/QTXTSRC) SRCMBR(HP4)

Press the Enter key.
Make any changes necessary to the WSCST object source code. Refer to the following section Changing the INITPRT (Initialize Printer) Tag to Move Text Toward the Top of the Page to make your changes. Then, save and exit. Continue with Step 3.

Step 3: Create the WSCST object using the CRTWSCST command. On the operating system command line, type the following:

Important Note: Match the SRCMBR name from Step 1 to the WSCST object name that is created in this step.

CRTWSCST WSCST(QGPL/HP4) SRCFILE(QGPL/QTXTSRC)

Press the Enter key.

Step 4: Add the WSCST to the printer configuration by using the Change Device Print command (CHGDEVPRT), the Change Output Queue command (CHGOUTQ), or by changing the PC5250 printer emulation session configuration.
oTo add the WSCST to a device description, on the operating system command line type the following:

CHGDEVPRT DEVD(device_name) TRANSFORM(*YES) MFRTYPMDL(*WSCSTLETTER)
          WSCST(QGPL/HP4)

Press the Enter key.
oTo add the WSCST to a remote output queue description, on the operating system command line type the following:

CHGOUTQ OUTQ(queue_name) TRANSFORM(*YES) MFRTYPMDL(*WSCSTLETTER)
        WSCST(HP4)

Press the Enter key.
oTo add the WSCST to a PC5250 printer emulation session, do the following:

a In the PC5250 printer session, click on Communication > Configure.
b Click on the Setup button.
c In the Configure PC5250 Printer Emulation window, select the box next to Transform Print Data to ASCII on the iSeries and select the Printer Model value of *WSCST.
d In the same window, specify the name of the WSCST in the Customizing Object parameter and the library where it is found in the Library parameter, for example, Customizing Object HP4 and Library QGPL.
e Click OK three times.
f Click File > Save to save the configuration.

Note: If any changes are made to the WSCST object source code after the CRTWSCST command has been issued, it is necessary to issue the CRTWSCST command again. The printer writer must be ended and started again for the changes to take effect.

Changing the NOPRTBDR (No Print Border) Tags for LEFT/PORTRAIT and RIGHT/PORTRAIT

Once you are editing the WSCST source code using PDM or SEU, find the NOPRTBDR (No Print Border) tags for LEFT/PORTRAIT and RIGHT/PORTRAIT.

 Columns . . . :    1  71            Edit                       QSECOPR/QTXTSRC
 SEU==>                                                               WHOLEPAGE
 FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
+10     *************** Beginning of data *************************************
0000.01 :WSCST DEVCLASS=TRANSFORM.
0000.02
0000.03     :TRNSFRMTBL.
0000.04     :PRTDTASTRM
0000.05       DATASTREAM=HPPCL5.
0000.06     :NOPRTBDR
0000.07       OPTION=TOP
0000.08       ORIENT=PORTRAIT
0000.09       DATA =  240.
0000.10     :NOPRTBDR
0000.11       OPTION=LEFT
0000.12       ORIENT=PORTRAIT
0000.13       DATA =  360.
0000.14     :NOPRTBDR
0000.15       OPTION=RIGHT
0000.16       ORIENT=PORTRAIT

 F3=Exit   F4=Prompt   F5=Refresh   F9=Retrieve   F10=Cursor   F11=Toggle
 F16=Repeat find       F17=Repeat change          F24=More keys
                                         (C) COPYRIGHT IBM CORP. 1981, 2002.

These NOPRTBDR tags should start at the top of the WSCST source code and may go beyond the bottom on a 80 x 24 screen. If so, press the Tab key to get to the sequence number area. Then, type +10, and press the Enter key to move down 10 lines (so both NOPRTBDR tags that need to be changed can be seen at the same time).

 Columns . . . :    1  71            Edit                       QSECOPR/QTXTSRC
 SEU==>                                                               WHOLEPAGE
 FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
0000.10     :NOPRTBDR
0000.11       OPTION=LEFT
0000.12       ORIENT=PORTRAIT
0000.13       DATA =  360.
0000.14     :NOPRTBDR
0000.15       OPTION=RIGHT
0000.16       ORIENT=PORTRAIT
0000.17       DATA =  360.
0000.18     :NOPRTBDR
0000.19       OPTION=BOTTOM
0000.20       ORIENT=PORTRAIT
0000.21       DATA =  240.
0000.22     :NOPRTBDR
0000.23       OPTION=TOP
0000.24       ORIENT=LANDSCAPE
0000.25       DATA =  240.
0000.26     :NOPRTBDR

 F3=Exit   F4=Prompt   F5=Refresh   F9=Retrieve   F10=Cursor   F11=Toggle
 F16=Repeat find       F17=Repeat change          F24=More keys
                                         (C) COPYRIGHT IBM CORP. 1981, 2002.

Copy and paste the following NOPRTBDR tags on top of the existing NOPRTBDR tags for LEFT/PORTRAIT and RIGHT/PORTRAIT:

    :NOPRTBDR
      OPTION=LEFT                   /* Set LEFT/PORTRAIT NOPRTBDR   */
      ORIENT=PORTRAIT               /* tag to allow WHOLE PAGE or   */
      DATA =  001.                  /* EDGETOEDGE printing          */
    :NOPRTBDR
      OPTION=RIGHT                  /* Set RIGHT/PORTRAIT NOPRTBDR  */
      ORIENT=PORTRAIT               /* tag to allow WHOLE PAGE or   */
      DATA =  001.                  /* EDGETOEDGE printing          */

When done, the SEU Edit screen should look similar to the following:

 Columns . . . :    1  71            Edit                       QSECOPR/QTXTSRC
 SEU==>                                                               WHOLEPAGE
 FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
0000.10     :NOPRTBDR
0000.11       OPTION=LEFT                   /* Set LEFT/PORTRAIT NOPRTBDR   */
0000.12       ORIENT=PORTRAIT               /* tag to allow WHOLE PAGE or   */
0000.13       DATA =  001.                  /* EDGETOEDGE printing          */
0000.14     :NOPRTBDR
0000.15       OPTION=RIGHT                  /* Set RIGHT/PORTRAIT NOPRTBDR  */
0000.16       ORIENT=PORTRAIT               /* tag to allow WHOLE PAGE or   */
0000.17       DATA =  001.                  /* EDGETOEDGE printing          */
0000.18     :NOPRTBDR
0000.19       OPTION=BOTTOM
0000.20       ORIENT=PORTRAIT
0000.21       DATA =  240.
0000.22     :NOPRTBDR
0000.23       OPTION=TOP
0000.24       ORIENT=LANDSCAPE
0000.25       DATA =  240.
0000.26     :NOPRTBDR

 F3=Exit   F4=Prompt   F5=Refresh   F9=Retrieve   F10=Cursor   F11=Toggle
 F16=Repeat find       F17=Repeat change          F24=More keys
                                         (C) COPYRIGHT IBM CORP. 1981, 2002.

Changing the Initialize Printer (INITPRT) and Reset Printer (RESETPRT) Tags to Activate and Deactivate Whole Page Printing

Caution: These instructions have been tested on specific models of IBM Infoprint and Lexmark Optra printers. They most likely will work; however, they are not guaranteed to work on other printers that support whole page printing such as recent Ricoh, Savin, Nashuatec, Rex-Rotary, Gestetner, Lanier and Infotec printers because it not been tested with those printer.

Starting where you left off with replacing the NOPRTBDR tags for LEFT/PORTRAIT and RIGHT/PORTRAIT, press the Shift+Tab key to get to the SEU command line, then type "INITPRT" and press the F16 (Repeat find) key.

 Columns . . . :    1  71            Edit                       QSECOPR/QTXTSRC
 SEU==> INITPRT                                                       WHOLEPAGE
 FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
0000.10     :NOPRTBDR
0000.11       OPTION=LEFT                   /* Set LEFT/PORTRAIT NOPRTBDR   */
0000.12       ORIENT=PORTRAIT               /* tag to allow WHOLE PAGE or   */
0000.13       DATA =  001.                  /* EDGETOEDGE printing          */
0000.14     :NOPRTBDR
0000.15       OPTION=RIGHT                  /* Set RIGHT/PORTRAIT NOPRTBDR  */
0000.16       ORIENT=PORTRAIT               /* tag to allow WHOLE PAGE or   */
0000.17       DATA =  001.                  /* EDGETOEDGE printing          */
0000.18     :NOPRTBDR
0000.19       OPTION=BOTTOM
0000.20       ORIENT=PORTRAIT
0000.21       DATA =  240.
0000.22     :NOPRTBDR
0000.23       OPTION=TOP
0000.24       ORIENT=LANDSCAPE
0000.25       DATA =  240.
0000.26     :NOPRTBDR

 F3=Exit   F4=Prompt   F5=Refresh   F9=Retrieve   F10=Cursor   F11=Toggle
 F16=Repeat find       F17=Repeat change          F24=More keys
                                         (C) COPYRIGHT IBM CORP. 1981, 2002.

This will position you to the Initialize Printer (INITPRT) tag.

 Columns . . . :    1  71            Edit                       QSECOPR/QTXTSRC
 SEU==>                                                               WHOLEPAGE
 FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
0000.37       DATA =  240.
0000.38     :INITPRT
0000.39       DATA ='1B45'X.
0000.40     :RESETPRT
0000.41       DATA ='1B45'X.
0000.42     :BELL
0000.43       DATA ='07'X.
0000.44     :SPACE
0000.45       DATA ='20'X.
0000.46     :CARRTN
0000.47       DATA ='0D'X.
0000.48     :FORMFEED
0000.49       DATA ='0C'X.
0000.50     :LINEFEED
0000.51       DATA ='0A'X.
0000.52     :VERRMOV
0000.53       DIRECTION=UP

 F3=Exit   F4=Prompt   F5=Refresh   F9=Retrieve   F10=Cursor   F11=Toggle
 F16=Repeat find       F17=Repeat change          F24=More keys
                                         (C) COPYRIGHT IBM CORP. 1981, 2002.

Type "I13 " in the sequence number area BEFORE the INITPRT tag, and type a "D" in the sequence area for both lines of the INITPRT tag:

 Columns . . . :    1  71            Edit                       QSECOPR/QTXTSRC
 SEU==>                                                               WHOLEPAGE
 FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
I13           DATA =  240.
D           :INITPRT
D             DATA ='1B45'X.
0000.40     :RESETPRT
0000.41       DATA ='1B45'X.
0000.42     :BELL
0000.43       DATA ='07'X.
0000.44     :SPACE
0000.45       DATA ='20'X.
0000.46     :CARRTN
0000.47       DATA ='0D'X.
0000.48     :FORMFEED
0000.49       DATA ='0C'X.
0000.50     :LINEFEED
0000.51       DATA ='0A'X.
0000.52     :VERRMOV
0000.53       DIRECTION=UP

 F3=Exit   F4=Prompt   F5=Refresh   F9=Retrieve   F10=Cursor   F11=Toggle
 F16=Repeat find       F17=Repeat change          F24=More keys
                                         (C) COPYRIGHT IBM CORP. 1981, 2002.

Press the Enter key to delete the old INITPRT tag and provide 13 insert lines for the new INITPRT tag:

 Columns . . . :    1  71            Edit                       QSECOPR/QTXTSRC
 SEU==>                                                               WHOLEPAGE
 FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
0000.37       DATA =  240.
'''''''
'''''''
'''''''
'''''''
'''''''
'''''''
'''''''
'''''''
'''''''
'''''''
'''''''
'''''''
'''''''
0000.40     :RESETPRT
0000.41       DATA ='1B45'X.
0000.42     :BELL

 F3=Exit   F4=Prompt   F5=Refresh   F9=Retrieve   F10=Cursor   F11=Toggle
 F16=Repeat find       F17=Repeat change          F24=More keys
                                         (C) COPYRIGHT IBM CORP. 1981, 2002.

Press the Shift+Tab key to position to the beginning of the first insert line. Then, copy and paste the following INITPRT tag:

    :INITPRT
          /* Ec% - 1 2 3 4 5 X @ P J L CRLF@ P J L   S E T          */
      DATA ='1B252D31323334355840504A4C0D0A40504A4C2053455420'X
          /* L P A G E M O D E   =   W H O L E P A G E CRLF         */
            '4C504147454D4F4445203D2057484F4C45504147450D0A'X
          /* @ P J L   E N T E R   L A N G U A G E   =   P C L CRLF */
            '40504A4C20454E544552204C414E4755414745203D2050434C0D0A'X
          /* EcE     (Initialize Printer)                           */
            '1B45'X
          /* Ec& l + 1 0 8 U     (Left Offset = +108)               */
            '1B266C2B31303855'X
          /* Ec& l 0 L     (Skip Perforation)                       */
            '1B266C304C'X.

Press the Enter key:

 Columns . . . :    1  71            Edit                       QSECOPR/QTXTSRC
 SEU==>                                                               WHOLEPAGE
 FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
0000.37      DATA =  240.
0000.38    :INITPRT
0000.39          /* Ec% - 1 2 3 4 5 X @ P J L CRLF@ P J L   S E T          */
0000.40      DATA ='1B252D31323334355840504A4C0D0A40504A4C2053455420'X
0000.41          /* L P A G E M O D E   =   W H O L E P A G E CRLF         */
0000.42            '4C504147454D4F4445203D2057484F4C45504147450D0A'X
0000.43          /* @ P J L   E N T E R   L A N G U A G E   =   P C L CRLF */
0000.44            '40504A4C20454E544552204C414E4755414745203D2050434C0D0A'X
0000.45          /* EcE     (Initialize Printer)                           */
0000.46            '1B45'X
0000.47          /* Ec& l + 1 0 8 U     (Left Offset = +108)               */
0000.48            '1B266C2B31303855'X
0000.49          /* Ec& l 0 L     (Skip Perforation)                       */
0000.50            '1B266C304C'X.
0000.51     :RESETPRT
0000.52       DATA ='1B45'X.
0000.53     :BELL

 F3=Exit   F4=Prompt   F5=Refresh   F9=Retrieve   F10=Cursor   F11=Toggle
 F16=Repeat find       F17=Repeat change          F24=More keys
                                         (C) COPYRIGHT IBM CORP. 1981, 2002.

Press the Shift+Tab key to position to the sequence number area. Type the sequence number BEFORE the RESETPRT tag (for example, "0.50 "), and press the Enter key:

 Columns . . . :    1  71            Edit                       QSECOPR/QTXTSRC
 SEU==>                                                               WHOLEPAGE
 FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
0000.50            '1B266C304C'X.
0000.51     :RESETPRT
0000.52       DATA ='1B45'X.
0000.53     :BELL
0000.54       DATA ='07'X.
0000.55     :SPACE
0000.56       DATA ='20'X.
0000.57     :CARRTN
0000.58       DATA ='0D'X.
0000.59     :FORMFEED
0000.60       DATA ='0C'X.
0000.61     :LINEFEED
0000.62       DATA ='0A'X.
0000.63     :VERRMOV
0000.64       DIRECTION=UP
0000.65       VAROFFSET=    4
0000.66       VARLEN=    5

 F3=Exit   F4=Prompt   F5=Refresh   F9=Retrieve   F10=Cursor   F11=Toggle
 F16=Repeat find       F17=Repeat change          F24=More keys
                                         (C) COPYRIGHT IBM CORP. 1981, 2002.

Type "I9 " in the sequence number area BEFORE the RESETPRT tag and type a "D" in the sequence area for both lines of the RESETPRT tag:

 Columns . . . :    1  71            Edit                       QSECOPR/QTXTSRC
 SEU==>                                                               WHOLEPAGE
 FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
I9                 '1B266C304C'X.
D           :RESETPRT
D             DATA ='1B45'X.
0000.53     :BELL
0000.54       DATA ='07'X.
0000.55     :SPACE
0000.56       DATA ='20'X.
0000.57     :CARRTN
0000.58       DATA ='0D'X.
0000.59     :FORMFEED
0000.60       DATA ='0C'X.
0000.61     :LINEFEED
0000.62       DATA ='0A'X.
0000.63     :VERRMOV
0000.64       DIRECTION=UP
0000.65       VAROFFSET=    4
0000.66       VARLEN=    5

 F3=Exit   F4=Prompt   F5=Refresh   F9=Retrieve   F10=Cursor   F11=Toggle
 F16=Repeat find       F17=Repeat change          F24=More keys
                                         (C) COPYRIGHT IBM CORP. 1981, 2002.

Press the Enter key to delete the old RESETPRT tag and provide 9 insert lines for the new INITPRT tag:

 Columns . . . :    1  71            Edit                       QSECOPR/QTXTSRC
 SEU==>                                                               WHOLEPAGE
 FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
0000.50            '1B266C304C'X.
'''''''
'''''''
'''''''
'''''''
'''''''
'''''''
'''''''
'''''''
'''''''
0000.53     :BELL
0000.54       DATA ='07'X.
0000.55     :SPACE
0000.56       DATA ='20'X.
0000.57     :CARRTN
0000.58       DATA ='0D'X.
0000.59     :FORMFEED

 F3=Exit   F4=Prompt   F5=Refresh   F9=Retrieve   F10=Cursor   F11=Toggle
 F16=Repeat find       F17=Repeat change          F24=More keys
                                         (C) COPYRIGHT IBM CORP. 1981, 2002.

Press the Shift+Tab key to position to the beginning of the first insert line. Then, copy and paste the following RESETPRT tag:

    :RESETPRT
          /* Ec% - 1 2 3 4 5 X @ P J L CRLF@ P J L   S E T          */
      DATA ='1B252D31323334355840504A4C0D0A40504A4C2053455420'X
          /* L P A G E M O D E   =   N O R M A L CRLF               */
            '4C504147454D4F4445203D204E4F524D414C0D0A'X
          /* @ P J L   E N T E R   L A N G U A G E   =   P C L CRLF */
            '40504A4C20454E544552204C414E4755414745203D2050434C0D0A'X
          /* EcE                               (Initialize Printer) */
            '1B45'X.

Press the Enter key:

 Columns . . . :    1  71            Edit                       QSECOPR/QTXTSRC
 SEU==>                                                               WHOLEPAGE
 FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
0000.50            '1B266C304C'X.
0000.51    :RESETPRT
0000.52          /* Ec% - 1 2 3 4 5 X @ P J L CRLF@ P J L   S E T          */
0000.53      DATA ='1B252D31323334355840504A4C0D0A40504A4C2053455420'X
0000.54          /* L P A G E M O D E   =   N O R M A L CRLF               */
0000.55            '4C504147454D4F4445203D204E4F524D414C0D0A'X
0000.56          /* @ P J L   E N T E R   L A N G U A G E   =   P C L CRLF */
0000.57            '40504A4C20454E544552204C414E4755414745203D2050434C0D0A'X
0000.58          /* EcE                               (Initialize Printer) */
0000.59            '1B45'X.
0000.60     :BELL
0000.61       DATA ='07'X.
0000.62     :SPACE
0000.63       DATA ='20'X.
0000.64     :CARRTN
0000.65       DATA ='0D'X.
0000.66     :FORMFEED
0000.67       DATA ='0C'X.

 F3=Exit   F4=Prompt   F5=Refresh   F9=Retrieve   F10=Cursor   F11=Toggle
 F16=Repeat find       F17=Repeat change          F24=More keys
                                         (C) COPYRIGHT IBM CORP. 1981, 2002.

Press the F3 (Exit) key to exit and save the changes to your WSCST source member.

Changing the Initialize Printer (INITPRT) and Reset Printer (RESETPRT) Tags to Activate and Deactivate Edge-to-Edge Printing

Caution: These instructions are not guaranteed to work with HP LaserJet printers that support edge-to-edge printing. Initial testing was performed on an HP LaserJet 4200 printer, but no testing has yet been performed with an HP LaserJet that supports edge-to-edge printing. Spooled files were able to print on the HP LaserJet 4200 printer with these changes, but they did not print with a longer print line. In addition, the text was no longer positioned correctly because of the use for the Left Offset Registration PCL command in the Initialize Printer (INITPRT) tag.

Starting where you left off with replacing the NOPRTBDR tags for LEFT/PORTRAIT and RIGHT/PORTRAIT, press the Shift+Tab key to get to the SEU command line. Then, type "INITPRT", and press the F16 (Repeat find) key.

 Columns . . . :    1  71            Edit                       QSECOPR/QTXTSRC
 SEU==> INITPRT                                                      EDGETOEDGE
 FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
0000.10     :NOPRTBDR
0000.11       OPTION=LEFT                   /* Set LEFT/PORTRAIT NOPRTBDR   */
0000.12       ORIENT=PORTRAIT               /* tag to allow WHOLE PAGE or   */
0000.13       DATA =  001.                  /* EDGETOEDGE printing          */
0000.14     :NOPRTBDR
0000.15       OPTION=RIGHT                  /* Set RIGHT/PORTRAIT NOPRTBDR  */
0000.16       ORIENT=PORTRAIT               /* tag to allow WHOLE PAGE or   */
0000.17       DATA =  001.                  /* EDGETOEDGE printing          */
0000.18     :NOPRTBDR
0000.19       OPTION=BOTTOM
0000.20       ORIENT=PORTRAIT
0000.21       DATA =  240.
0000.22     :NOPRTBDR
0000.23       OPTION=TOP
0000.24       ORIENT=LANDSCAPE
0000.25       DATA =  240.
0000.26     :NOPRTBDR

 F3=Exit   F4=Prompt   F5=Refresh   F9=Retrieve   F10=Cursor   F11=Toggle
 F16=Repeat find       F17=Repeat change          F24=More keys
                                         (C) COPYRIGHT IBM CORP. 1981, 2002.

This will position you to the Initialize Printer (INITPRT) tag.

 Columns . . . :    1  71            Edit                       QSECOPR/QTXTSRC
 SEU==>                                                              EDGETOEDGE
 FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
0000.37       DATA =  240.
0000.38     :INITPRT
0000.39       DATA ='1B45'X.
0000.40     :RESETPRT
0000.41       DATA ='1B45'X.
0000.42     :BELL
0000.43       DATA ='07'X.
0000.44     :SPACE
0000.45       DATA ='20'X.
0000.46     :CARRTN
0000.47       DATA ='0D'X.
0000.48     :FORMFEED
0000.49       DATA ='0C'X.
0000.50     :LINEFEED
0000.51       DATA ='0A'X.
0000.52     :VERRMOV
0000.53       DIRECTION=UP

 F3=Exit   F4=Prompt   F5=Refresh   F9=Retrieve   F10=Cursor   F11=Toggle
 F16=Repeat find       F17=Repeat change          F24=More keys
                                         (C) COPYRIGHT IBM CORP. 1981, 2002.

Type an "I13 " in the sequence number area BEFORE the INITPRT tag and type a "D" in the sequence area for both lines of the INITPRT tag:

 Columns . . . :    1  71            Edit                       QSECOPR/QTXTSRC
 SEU==>                                                              EDGETOEDGE
 FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
I13           DATA =  240.
D           :INITPRT
D             DATA ='1B45'X.
0000.40     :RESETPRT
0000.41       DATA ='1B45'X.
0000.42     :BELL
0000.43       DATA ='07'X.
0000.44     :SPACE
0000.45       DATA ='20'X.
0000.46     :CARRTN
0000.47       DATA ='0D'X.
0000.48     :FORMFEED
0000.49       DATA ='0C'X.
0000.50     :LINEFEED
0000.51       DATA ='0A'X.
0000.52     :VERRMOV
0000.53       DIRECTION=UP

 F3=Exit   F4=Prompt   F5=Refresh   F9=Retrieve   F10=Cursor   F11=Toggle
 F16=Repeat find       F17=Repeat change          F24=More keys
                                         (C) COPYRIGHT IBM CORP. 1981, 2002.

Press the Enter key to delete the old INITPRT tag and provide 13 insert lines for the new INITPRT tag:

 Columns . . . :    1  71            Edit                       QSECOPR/QTXTSRC
 SEU==>                                                              EDGETOEDGE
 FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
0000.37       DATA =  240.
'''''''
'''''''
'''''''
'''''''
'''''''
'''''''
'''''''
'''''''
'''''''
'''''''
'''''''
'''''''
'''''''
0000.40     :RESETPRT
0000.41       DATA ='1B45'X.
0000.42     :BELL

 F3=Exit   F4=Prompt   F5=Refresh   F9=Retrieve   F10=Cursor   F11=Toggle
 F16=Repeat find       F17=Repeat change          F24=More keys
                                         (C) COPYRIGHT IBM CORP. 1981, 2002.

Press the Shift+Tab key to position to the beginning of the first insert line, then copy and paste the following INITPRT tag:

    :INITPRT
          /* Ec% - 1 2 3 4 5 X @ P J L CRLF@ P J L   S E T          */
      DATA ='1B252D31323334355840504A4C0D0A40504A4C2053455420'X
          /* E D G E T O E D G E   =   O N CRLF                     */
            '45444745544F45444745203D204F4E0D0A'X
          /* @ P J L   E N T E R   L A N G U A G E   =   P C L CRLF */
            '40504A4C20454E544552204C414E4755414745203D2050434C0D0A'X
          /* EcE     (Initialize Printer)                           */
            '1B45'X
          /* Ec& l - 0 6 0 U     (Left Offset = -060)               */
            '1B266C2D30363055'X
          /* Ec& l 0 L     (Skip Perforation)                       */
            '1B266C304C'X.

Press the Enter key:

 Columns . . . :    1  71            Edit                       QSECOPR/QTXTSRC
 SEU==>                                                              EDGETOEDGE
 FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
0000.37      DATA =  240.
0000.38    :INITPRT
0000.39          /* Ec% - 1 2 3 4 5 X @ P J L CRLF@ P J L   S E T          */
0000.40      DATA ='1B252D31323334355840504A4C0D0A40504A4C2053455420'X
0000.41          /* E D G E T O E D G E   =   O N CRLF                     */
0000.42            '45444745544F45444745203D204F4E0D0A'X
0000.43          /* @ P J L   E N T E R   L A N G U A G E   =   P C L CRLF */
0000.44            '40504A4C20454E544552204C414E4755414745203D2050434C0D0A'X
0000.45          /* EcE     (Initialize Printer)                           */
0000.46            '1B45'X
0000.47          /* Ec& l - 0 6 0 U     (Left Offset = -060)               */
0000.48            '1B266C2D30363055'X
0000.49          /* Ec& l 0 L     (Skip Perforation)                       */
0000.50            '1B266C304C'X.
0000.51     :RESETPRT
0000.52       DATA ='1B45'X.
0000.53     :BELL

 F3=Exit   F4=Prompt   F5=Refresh   F9=Retrieve   F10=Cursor   F11=Toggle
 F16=Repeat find       F17=Repeat change          F24=More keys
                                         (C) COPYRIGHT IBM CORP. 1981, 2002.

Press the Shift+Tab key to position to the sequence number area, type the sequence number BEFORE the RESETPRT tag (for example, "0.50 "), and press the Enter key:

 Columns . . . :    1  71            Edit                       QSECOPR/QTXTSRC
 SEU==>                                                              EDGETOEDGE
 FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
0000.50            '1B266C304C'X.
0000.51     :RESETPRT
0000.52       DATA ='1B45'X.
0000.53     :BELL
0000.54       DATA ='07'X.
0000.55     :SPACE
0000.56       DATA ='20'X.
0000.57     :CARRTN
0000.58       DATA ='0D'X.
0000.59     :FORMFEED
0000.60       DATA ='0C'X.
0000.61     :LINEFEED
0000.62       DATA ='0A'X.
0000.63     :VERRMOV
0000.64       DIRECTION=UP
0000.65       VAROFFSET=    4
0000.66       VARLEN=    5

 F3=Exit   F4=Prompt   F5=Refresh   F9=Retrieve   F10=Cursor   F11=Toggle
 F16=Repeat find       F17=Repeat change          F24=More keys
                                         (C) COPYRIGHT IBM CORP. 1981, 2002.

Type an "I9 " in the sequence number area BEFORE the RESETPRT tag and type a "D" in the sequence area for both lines of the RESETPRT tag:

 Columns . . . :    1  71            Edit                       QSECOPR/QTXTSRC
 SEU==>                                                              EDGETOEDGE
 FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
I9                 '1B266C304C'X.                      /* Skip Perforation */
D           :RESETPRT
D             DATA ='1B45'X.
0000.53     :BELL
0000.54       DATA ='07'X.
0000.55     :SPACE
0000.56       DATA ='20'X.
0000.57     :CARRTN
0000.58       DATA ='0D'X.
0000.59     :FORMFEED
0000.60       DATA ='0C'X.
0000.61     :LINEFEED
0000.62       DATA ='0A'X.
0000.63     :VERRMOV
0000.64       DIRECTION=UP
0000.65       VAROFFSET=    4
0000.66       VARLEN=    5

 F3=Exit   F4=Prompt   F5=Refresh   F9=Retrieve   F10=Cursor   F11=Toggle
 F16=Repeat find       F17=Repeat change          F24=More keys
                                         (C) COPYRIGHT IBM CORP. 1981, 2002.

Press the Enter key to delete the old RESETPRT tag and provide 9 insert lines for the new INITPRT tag:

 Columns . . . :    1  71            Edit                       QSECOPR/QTXTSRC
 SEU==>                                                              EDGETOEDGE
 FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
0000.46            '1B266C304C'X.                      /* Skip Perforation */
'''''''
'''''''
'''''''
'''''''
'''''''
'''''''
'''''''
'''''''
'''''''
0000.53     :BELL
0000.54       DATA ='07'X.
0000.55     :SPACE
0000.56       DATA ='20'X.
0000.57     :CARRTN
0000.58       DATA ='0D'X.
0000.59     :FORMFEED

 F3=Exit   F4=Prompt   F5=Refresh   F9=Retrieve   F10=Cursor   F11=Toggle
 F16=Repeat find       F17=Repeat change          F24=More keys
                                         (C) COPYRIGHT IBM CORP. 1981, 2002.

Press the Shift+Tab key to position to the beginning of the first insert line, then copy and paste the following RESETPRT tag:

    :RESETPRT
          /* Ec% - 1 2 3 4 5 X @ P J L CRLF@ P J L   S E T          */
      DATA ='1B252D31323334355840504A4C0D0A40504A4C2053455420'X
          /* E D G E T O E D G E   =   O F F CRLF                   */
            '45444745544F45444745203D204F46460D0A'X
          /* @ P J L   E N T E R   L A N G U A G E   =   P C L CRLF */
            '40504A4C20454E544552204C414E4755414745203D2050434C0D0A'X
          /* EcE                               (Initialize Printer) */
            '1B45'X.

Press the Enter key:

 Columns . . . :    1  71            Edit                       QSECOPR/QTXTSRC
 SEU==>                                                              EDGETOEDGE
 FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
0000.50            '1B266C304C'X.
0000.51    :RESETPRT
0000.52          /* Ec% - 1 2 3 4 5 X @ P J L CRLF@ P J L   S E T          */
0000.53      DATA ='1B252D31323334355840504A4C0D0A40504A4C2053455420'X
0000.54          /* E D G E T O E D G E   =   O F F CRLF                   */
0000.55            '45444745544F45444745203D204F46460D0A'X
0000.56          /* @ P J L   E N T E R   L A N G U A G E   =   P C L CRLF */
0000.57            '40504A4C20454E544552204C414E4755414745203D2050434C0D0A'X
0000.58          /* EcE                               (Initialize Printer) */
0000.59            '1B45'X.                            /* Initialize Prt   */
0000.60     :BELL
0000.61       DATA ='07'X.
0000.62     :SPACE
0000.63       DATA ='20'X.
0000.64     :CARRTN
0000.65       DATA ='0D'X.
0000.66     :FORMFEED

 F3=Exit   F4=Prompt   F5=Refresh   F9=Retrieve   F10=Cursor   F11=Toggle
 F16=Repeat find       F17=Repeat change          F24=More keys
                                         (C) COPYRIGHT IBM CORP. 1981, 2002.

Press the F3 (Exit) key to exit and save the changes to your WSCST source member.

[{"Product":{"code":"SWG60","label":"IBM i"},"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Component":"Print","Platform":[{"code":"PF012","label":"IBM i"}],"Version":"Version Independent;7.1.0;7.1;6.1.1;6.1.0;6.1;5.4.5;5.4.0;5.3.5;5.3.0;5.2.0","Edition":"","Line of Business":{"code":"LOB08","label":"Cognitive Systems"}},{"Product":{"code":"SSC52E","label":"IBM i 7.1"},"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Component":" ","Platform":[{"code":"","label":null}],"Version":"","Edition":"","Line of Business":{"code":"","label":""}},{"Product":{"code":"SSC3X7","label":"IBM i 6.1"},"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Component":" ","Platform":[{"code":"","label":null}],"Version":"","Edition":"","Line of Business":{"code":"","label":""}}]

Historical Number

443116785

Document Information

Modified date:
18 December 2019

UID

nas8N1018916