On Tuesday, August 13, 2002 10:35:56 AM UTC-4, Devries, Phil wrote:
Can anyone provide any pointers or examples (e.g., EXIT01 ???), for adding the
FORMS= field to our JES banner sheet (i.e., begining and ending banner sheets
for printed output).
A postprocessing vendor we are working with has requested that I:
1) Add FORMS= field to JES Banner sheet
2) Place JOBID=, JOB NAME=, and FORMS= on the same record/line in the file.
- Tech Notes -
We are sending Xerox MetaCode via Bus and Tag to an Oce Prisma Server(AFP
Host Printer), and trying to extract(scrape) off the JOBID=, JOB NAME=, and
FORMS= information from the JES banner page via the Xerox JSL and make it
available in the Prisma LCDS spool manager.
Thank you,
Phil DeVries
Grand Rapids, MI
**Disclaimer**
This memo and any attachments may be confidential and legally privileged.
If you are not the intended recipient and have received this in error,
kindly destroy this message and notify the sender.
Thank you for your assistance.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
No, that is NOT AFP/IPDS. they are most likely using the old JES exit for an
impact or MIC Fish printer. the banner would be modified in the JES EXIT.
Most XEROX LCDS printers look like a IBM 3211 Impact to JES.
you should be able to get your information in the banner detect area. Mine
looks like this.
JDL/JSL AS400.JSL to be compiled to AS400.JDL "This runs on the printer or
transform"
/* T1 edited by Jeff Munsey 5-9-2013 to look at new AS400 banner page */
T1: TABLE CONSTANT=('* User name');
T2: TABLE CONSTANT=(X'1313131313131313');
T4: TABLE CONSTANT=(X'2Bd306f6');
TBAN1: TABLE CONSTANT=(X'000500008B');
TW20: TABLE CONSTANT= ('W20NDB');
C4: CRITERIA CONSTANT=(1,4,EQ,T4) LINENUM=(1,7); /* Delete junk */
RDELETE TEST=C4;
C1: CRITERIA CONSTANT=(0,11,EQ,T1) LINENUM=(4,5);
C2: CRITERIA CHANGE=(37,23,NE,LAST) LINENUM=(4,1);
C3: CRITERIA CONSTANT=(8,8,EQ,T2);
CRSTK: CRITERIA CONSTANT=(1,8,EQ,T2);
VOLUME HOST=IBMONL,
OPTIMIZE=NONE;
RECORD LENGTH=220;
LINE PCCTYPE=IBM3211,VFU=VFU1,
UCSB=PROCESS,FCB=IGNORE;
ACCT USER=(NONE);
/* ~~~~~~~~~~~~~ IBM AS400 GENERATED BANNER PAGES ~~~~~~~~~~~~~ */
BANNER TEST=CRSTK,HCOUNT=1,TCOUNT=1,TYPE=DATA,
HRPTNA=(13,8),HJOBNO=(38,5);
/* ~~~~~~~~~~~~~ IBM GENERATED BANNER PAGES ~~~~~~~~~~~~~ */
/* ~~~~~~~~~~~~~ SET LCDS IDEN Statement ~~~~~~~~~~~~~~~~~~~~~~~~~~ */
/* RPAGE TEST=C1,SIDE=(NUFRONT,OFFSET);*/
IDEN PREFIX='DJDE',SKIP=8,OFFSET=3,OPRINFO=YES;
OUTPUT IDR=IDR1,STOCKS=DRWS;
/* ~~~~~~~~~~~~~~~~ RSTACK ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
RSTACK TEST=CRSTK,DELIMITER=YES;
/* ************ Start of DJDE *********************************** */
Like all of the old things disregarded, LCDS is a very nice language.
This all depends on how the data is blocked coming down the wire.
XEROX Manual can be viewed here.
http://download.support.xerox.com/pub/docs/DocuPrint_100_100MX/userdocs/any-os/en/00PDLGd_701P47156.pdf
