7.2
Table Of Contents
- Copyright Information
- Table of Content
- Overview
- Capturing Data
- Sample Data File
- Spool File
- Capture Sample Data for a Document You Install on a Printer
- Capture Sample Data for a Document You Install in your PlanetPress Suite Work...
- Capture Sample Data in Windows NT
- Capture Sample Data in Windows 2000/Server 2003/XP
- Capture Sample Data in Windows Host Using a Novell Print Server
- Capture Sample Data in UNIX (Solaris)
- Capture Sample Data using an AS/400 Systems
- Capture Sample Data From a Serial Port
- Creating Triggers
- Trigger
- Trigger Syntax
- Techniques for Inserting Triggers
- Implement a Trigger under Novell 3.x
- Implement a Trigger under Novell 4.x and 5.x with NDS or Bindery Printers
- Implement a Trigger under Windows with TCP/IP
- Implement a Trigger under BSD Printing Systems (BSDi, FreeBSD, Linux)
- Implement a Trigger under UNIX System V (Solaris)
- Implement a Trigger and Configure an AIX 4.3 Printer
- Implement a Trigger under VMS
- Implement a Trigger with AS/400 Systems
- Prepare SAP Device Type for PlanetPress Design
- Implement a Trigger under HP 3000
- Special Printer Requirements
- ASCII Conversion Table
- CL Program for AS/400 Systems
- Index
/* CREATE THE TEMPORARY FILE NEEDED DURING THE PROGRAM */
/*************************************************************************/
CRTPF FILE(QTEMP/TRANSITF) RCDLEN(200) +
TEXT('file to build the new spoolfile')
MONMSG MSGID(CPF7302) /* file already exists */
/*************************************************************************/
/* TAKE A SNAPSHOT OF THE OUTPUT QUEUE IN A FILE AND SEND IT IN THE */
/* WORKFILE FILE. THIS WILL ALLOW US TO MANIPULATE THE CONTENT. */
/*************************************************************************/
WRKOUTQ OUTQ(&OUTPUTQSLB/&OUTPUTQS) OUTPUT(*PRINT)
CPYSPLF FILE(QPRTSPLQ) TOFILE(OBJLUNE/WATCHWORK) +
SPLNBR(*LAST)
DLTSPLF FILE(QPRTSPLQ) SPLNBR(*LAST)
/*************************************************************************/
/* READ THE CONTENT OF THE WORKFILE TO DETERMINE IF THERE ARE SPOOLFILES */
/* TO BE TREATED. IF THE SPOOLFILE STATUS IS NOT RDY THIS IS BECAUSE */
/* WE ARE IN THE HEATHER LINES OR THE STATUS IS HLD OR SAV, ETC... */
/*************************************************************************/
BEGIN: RCVF
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(END)) /* eof +
of file encountered */
IF COND(%SST(&WATCHWORK 36 3) *NE RDY) THEN(GOTO +
CMDLBL(BEGIN)) /* bypass of heathers and +
non ready spools */
CHGVAR VAR(&SPLFNAME) VALUE(%SST(&WATCHWORK 2 10))
CHGVAR VAR(&SPLFUSER) VALUE(%SST(&WATCHWORK 13 10))
CHGVAR VAR(&SPLFSTS) VALUE(%SST(&WATCHWORK 36 3))
CHGVAR VAR(&SPLFJOB) VALUE(%SST(&WATCHWORK 82 10))
CHGVAR VAR(&SPLFNB) VALUE(%SST(&WATCHWORK 93 6))
/*************************************************************************/
/* CREATION OF NEW SPOOLFILE FROM THE TRIGGER AND DATA FROM THE */
/* SPOOLFILE IN TRANSIT. THE PROCEDURE IS THE FOLLOWING: */
/* - COPY THE TRIGGER INTO A TEMP FILE. */
/* - APPEND THE SPOOLFILE INTO THE TEMP FILE */
/* - CREATE A SPOOLFILE FROM THIS PHYSICAL FILE */
/*************************************************************************/
CPYF FROMFILE(&TRIGGERLIB/&TRIGGERFN) +
TOFILE(QTEMP/TRANSITF) FROMMBR(*ALL) +
MBROPT(*REPLACE) FMTOPT(*NOCHK)
CPYSPLF FILE(&SPLFNAME) TOFILE(QTEMP/TRANSITF) +
JOB(&SPLFNB/&SPLFUSER/&SPLFJOB) MBROPT(*ADD)
CPYF FROMFILE(QTEMP/TRANSITF) +
TOFILE(&WATCHPRTFL/&WATCHPRTFN) +
PRINT(*COPIED) FMTOPT(*NOCHK)
CHGSPLFA FILE(&WATCHPRTFN) SPLNBR(*LAST) +
OUTQ(&OUTPUTQDLB/&OUTPUTQD)
/*************************************************************************/
/* ERASE THE TEMPORARY SPOOLFILES CREATED BY THE COPY OPERATIONS. */
/*************************************************************************/
DLTSPLF FILE(QSYSPRT) SPLNBR(*LAST) SELECT(*CURRENT +
*OUTQ)
GOTO BEGIN
CL Program for AS/400 Systems
©2014 Objectif Lune Inc - 76 -