7.5
2014-03-28

Implement a Trigger with AS/400 Systems

TCP/IP Printing

When you implement a trigger for AS/400 systems, it is important to retrieve, edit and create a Workstation Customizing Object (WSCST). In the following procedure, LUNE is the WSCST name. It is recommended that you use a descriptive name such as the name of your document (for example, INVOICE or CHECK).

To retrieve the WSCST source:

  1. At the command line, enter RTVWSCST and press ENTER.

  2. At the Device type line, enter *TRANSFORM and press ENTER.

    The following window appears.

  3. Enter the following data:

    Manufacturer type and model: *NONE.

    Source member: Name of the source to retrieve.

    Source file: Location in which to store the source file member.

    Library: Location in which to store the source files.

    Type description: Short text description of the source file. This description should be unique.

  4. Press ENTER.

    A confirmation message appears.

Member SRCLUNE added to file QTXTSRC in OBJLUNE.

To edit the WSCST source:

  1. At the command line, enter STRSEU and press F4.

    The following window appears.

  2. Enter the source file name. For this example, QTXTSRC.

  3. Enter the library name. For this example, OBJLUNE.

  4. Press ENTER.

    The following window appears.

  5. In the Opt column, enter 2 and press ENTER.

    The following window appears.

  6. Replace INITPRT DATA = ' 00 ' X. by the following INIT string:

:INITPRT

DATA =

'1B252D31323334355840504A4C20656E746572206C616E67756167'X

'65203D20506F73747363726970740D0A'X

'28464F524D292072756E20464F524D0D0A'X.

The INITPRT string is the hexadecimal representation of the trigger. In the example, the trigger is:

<ESC>%-12345X@PJL ENTER LANGUAGE=POSTSCRIPT

(FORM) run FORM

In the example, the name of the document is FORM. Note: The bold characters in the INITPRT string are the letters FORM in hexadecimal (where 46=F, 4F=O, 52=R and 4D=M). Consult ASCII Conversion Table for help translating your trigger into hexadecimal.

7. Enter the RESETPRT DATA as displayed in the following window:

:RESETPRT

DATA ='1B252D313233343558'X.

The INITPRT string is the hexadecimal representation of the following trigger:

<ESC>%-12345X@PJL ENTER LANGUAGE=POSTSCRIPT

(FORM) run FORM

8. Press ENTER.

The following confirmation message appears:

Member SRCLUNE in file OBJLUNE/QTXTSRC changed with 19 records.

9. Press F3 to save the new WSCST.

The following window appears.

10. In the Change/create member line, enter Y, and press ENTER to confirm the save.

The following confirmation message appears.

Member SRCLUNE in file OBJLUNE/QTXTSRC changed with 19 records.

To create the WSCST:

  1. At the command line, enter CRTWSCST and press F4.

    The following window appears.

  2. Press F10 to display additional parameters.

  3. Enter the name of the workstation customizing object that you want to create, and the library name for the customizing object (the one previously changed).

  4. In the Additional Parameters section, enter the following:

    Source file: Enter the name of the source QTXTSRC.

    Library: Enter the name of the library containing the source file.

    Replace object: Enter *YES or *NO to indicate whether or not this name should replace an object with the same name.

    The following confirmation message appears.

The object LUNE customization has successfully been created.

If the creation of the WSCST was not successful, verify that the hexadecimal code for the INITPRT and RESETPRT strings is correct. Once you create the WSCST, you can use it in an output queue.