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
CL Program for AS/400 Systems
This appendix provides the CL program you use with AS/400 systems.
PGM PARM(&WATCHPRTFN &WATCHPRTFL &OUTPUTQS +
&OUTPUTQSLB &OUTPUTQD &OUTPUTQDLB +
&TRIGGERFN &TRIGGERLIB)
/*************************************************************************/
/* WATCH */
/* THIS PROGRAM IS USED TO INTERCEPT SPOOLFILES FROM AN OUTPUT QUEUE AND */
/* TO INSERT A TRIGGER. A NEW FILE IS CREATED WITH THE TRIGGER PREPENDED */
/* TO THE DATA OF THE ORIGINAL SPOOL FILE. THIS NEW FILE IS THEN */
/* TRANSFERRED TO THE DESTINATION OUPTUT QUEUE. */
/* */
/* AUTEUR : STEVE FLEURY */
/* CIE : OBJECTIF LUNE INC. */
/* DATE : 12 JUILLET 2000 */
/* */
/*************************************************************************/
/*************************************************************************/
/* DECLARATION: VARIABLES AND FILES */
/*************************************************************************/
/* */
/* &OUTPUTQS : OUTPUT QUEUE TO WATCH */
/* &OUTPUTQD : OUTPUT QUEUE OF DESTINATION */
/* &TRIGGERFN : FILE NAME FOR THE TRIGGER */
/* &TRIGGERLIB: LIBRARY NAME FOR THE TRIGGER FILE */
/* &SPLFNAME : NAME ATTRIBUTE OF SPOOLFILE */
/* &SPLFUSER : USER ATTRIBUTE OF SPOOLFILE */
/* &SPLFSTS : STATUS ATTRIBUTE OF SPOOLFILE */
/* &SPLFJOB : JOB ATTRIBUTE OF SPOOLFILE */
/* &SPLFNB : NUMBER ATTRIBUTE OF SPOOLFILE */
/* &WATCHPRTFN: NAME OF PRINTER FILE USED TO CREATE THE NEW SPOOLFILE */
/* &WATCHPRTFL: NAME OF THE LIBRARY OF PRTFILE */
/* */
/*************************************************************************/
DCL VAR(&OUTPUTQS) TYPE(*CHAR) LEN(10)
DCL VAR(&OUTPUTQSLB) TYPE(*CHAR) LEN(10)
DCL VAR(&OUTPUTQD) TYPE(*CHAR) LEN(10)
DCL VAR(&OUTPUTQDLB) TYPE(*CHAR) LEN(10)
DCL VAR(&TRIGGERFN) TYPE(*CHAR) LEN(10)
DCL VAR(&TRIGGERLIB) TYPE(*CHAR) LEN(10)
DCL VAR(&SPLFNAME) TYPE(*CHAR) LEN(10)
DCL VAR(&SPLFUSER) TYPE(*CHAR) LEN(10)
DCL VAR(&SPLFSTS) TYPE(*CHAR) LEN(3)
DCL VAR(&SPLFJOB) TYPE(*CHAR) LEN(10)
DCL VAR(&SPLFNB) TYPE(*CHAR) LEN(6)
DCL VAR(&WATCHPRTFN) TYPE(*CHAR) LEN(10)
DCL VAR(&WATCHPRTFL) TYPE(*CHAR) LEN(10)
DCLF FILE(OBJLUNE/WATCHWORK)
/*************************************************************************/
CL Program for AS/400 Systems
©2014 Objectif Lune Inc - 75 -