I have an associate who is attempting to use the IBM PSF product to send spool files as pdf documents via email.
They are attempting to use a PDFMAP program to get the email address from the USRDTA in the spool file attributes.
Instead of the program being called to process the data, it seems to be attempting to go directly to a printer.
The following is the configuration and program source:
Object Type Library Attribute Text
ORDEMAIL *DEVD QSYS PRTLAN SEND ORDERS TO VENDORS
ORDEMAIL *OUTQ QUSRSYS Default output queue for pr
ORDEMAIL *MSGQ QUSRSYS emailing orders to vendors
ORDEMAIL *PSFCFG QUSRSYS cfg to IFS DIR ordemaildir
ORDEMAIL *PGM LORENZ RPGLE email with a keyed file
ORDEMAIL *FILE LORENZ PRTF PRINTER FILE FOR PDF REPORT
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Display Device Description
Device description . . . . . . . . : ORDEMAIL
Option . . . . . . . . . . . . . . : *BASIC
Category of device . . . . . . . . : *PRT
Device class . . . . . . . . . . . : *LAN
Device type . . . . . . . . . . . : *IPDS
Device model . . . . . . . . . . . : 0
LAN attachment . . . . . . . . . . : *IP
Advanced function printing . . . . : *YES
Port number . . . . . . . . . . . : 5004
Online at IPL . . . . . . . . . . : *YES
Font:
Identifier . . . . . . . . . . . : 011
Point size . . . . . . . . . . . : *NONE
Form feed . . . . . . . . . . . . : *CONT
Separator drawer . . . . . . . . . : *FILE
Separator program . . . . . . . . : *NONE
Printer error message . . . . . . : *INQ
Message queue . . . . . . . . . . : *CTLD
Current message queue . . . . . . : QSYSOPR
Library . . . . . . . . . . . . : QSYS
Activation timer . . . . . . . . . : 170
Image configuration . . . . . . . : *NONE
Maximum pending requests . . . . . : 6
Print while converting . . . . . . : *YES
Print request timer . . . . . . . : *NOMAX
Form definition . . . . . . . . . : F1C10110
Library . . . . . . . . . . . . : *LIBL
Character identifier . . . . . . . : *SYSVAL
Remote location:
Name or address . . . . . . . . : 127.0.0.1
User-defined object . . . . . . . : ORDEMAIL
Library . . . . . . . . . . . . : QUSRSYS
Object type . . . . . . . . . . : *PSFCFG
Data transform program . . . . . . : *NONE
User-defined driver program . . . : *NONE
Dependent location name . . . . . : *NONE
Allocated to:
Job name . . . . . . . . . . . . . : ORDEMAIL
User . . . . . . . . . . . . . . : QSPLJOB
Number . . . . . . . . . . . . . : 227362
Published . . . . . . . . . . . . : *NO
Publishing information:
Support duplex . . . . . . . . . : *UNKNOWN
Support color . . . . . . . . . : *UNKNOWN
Pages per minute black . . . . . : *UNKNOWN
Pages per minute color . . . . . : *UNKNOWN
Location . . . . . . . . . . . . : *BLANK
Data streams supported . . . . . : *UNKNOWN
Text . . . . . . . . . . . . . . . : SEND ORDERS TO VENDORS
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Display PSF Configuration
PSF configuration: ORDEMAIL Library: QUSRSYS
User resource library . . . . . . . . . . . . . : *JOBLIBL
IPDS pass through . . . . . . . . . . . . . . . : *NO
Activate release timer . . . . . . . . . . . . . : *NORDYF
Release timer . . . . . . . . . . . . . . . . . : *NOMAX
Restart timer . . . . . . . . . . . . . . . . . : *IMMED
APPC and TCP/IP retry count . . . . . . . . . . : 15
Delay between APPC retries . . . . . . . . . . . : 90
Auto Session Recovery:
Enabled . . . . . . . . . . . . . . . . . . . : *NO
Message option . . . . . . . . . . . . . . . . :
Acknowledgment frequency . . . . . . . . . . . . : 100
Printer response timer . . . . . . . . . . . . . : *NOMAX
Blank page . . . . . . . . . . . . . . . . . . . : *YES
Page size control . . . . . . . . . . . . . . . : *NO
Resident fonts . . . . . . . . . . . . . . . . . : *YES
Resource retention . . . . . . . . . . . . . . . : *YES
Edge orient . . . . . . . . . . . . . . . . . . : *NO
Use outline fonts . . . . . . . . . . . . . . . : *NO
PSF defined options:
*NONE
Font substitution messages . . . . . . . . . . . : *YES
Capture host fonts at printer . . . . . . . . . : *NO
Font resolution for formatting . . . . . . . . . : *SEARCH
Font mapping table . . . . . . . . . . . . . . . : *NONE
Library . . . . . . . . . . . . . . . . . . . :
Cut sheet emulation mode . . . . . . . . . . . . : *NONE
Use DBCS simulation font . . . . . . . . . . . . : *NO
Generate PDF output . . . . . . . . . . . . . . : *MAIL
PDF device emulation type . . . . . . . . . . . : *IP40300
PDF paper size drawer 1 . . . . . . . . . . . . : *LETTER
PDF paper size drawer 2 . . . . . . . . . . . . : *LETTER
PDF multiple group handling:
Acknowledge multiple groups . . . . . . . . . : *NO
Process option . . . . . . . . . . . . . . . . :
PDF fonts inline . . . . . . . . . . . . . . . . : *YES
PDF data queue . . . . . . . . . . . . . . . . . : PDFDTAQ
Library . . . . . . . . . . . . . . . . . . . : QGPL
PDF mail server . . . . . . . . . . . . . . . . : *SNDDST
Sender of PDF mail . . . . . . . . . . . . . . . : PDFEMAIL
PDF administrator . . . . . . . . . . . . . . . : *NONE
PDF user program . . . . . . . . . . . . . . . . : ORDEMAIL
Library . . . . . . . . . . . . . . . . . . . : LORENZ
PDF mapping object . . . . . . . . . . . . . . . : *NONE
Library . . . . . . . . . . . . . . . . . . . :
PDF output queue . . . . . . . . . . . . . . . . :
Library . . . . . . . . . . . . . . . . . . . :
PDF file location . . . . . . . . . . . . . . . :
Save AFP data . . . . . . . . . . . . . . . . . : *NO
AFP output queue . . . . . . . . . . . . . . . . :
Library . . . . . . . . . . . . . . . . . . . :
Text description . . . . . . . . . . . . . . . . : cfg to IFS DIR ordemaildir
. . . . . . . LORENZ/QRPGLESRC
. . . . . . . ORDEMAIL
I used the sample exit program in Redbooks Printing VI appendix E
... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8
H/TITLE email using a key
H DATEDIT(*YMD)
F******************************************************************
F******************************************************************
FVENDORE IF E K disk
F
D*
D INPUTDS DS
D JOBNAM 1 26
D SPLFID 27 36
D SPLNO 37 40B 0
D MAILTAG 41 290
D PDFFILE 291 630
D RES1 631 632
D PATHCCSID 633 636B 0
D SENDER 637 646
D USRDTA 647 656
D*
D OUTDS DS
D DISPOSTN 1 1
D RES2 2 4
D MSGLEN 5 8B 0
D ADDRLEN 9 12B 0
D MSGTEST 13 267
D RES3 268 287
D ADDRES 288 542
D*
C*******************************************************************
C *ENTRY PLIST
C PARM INPUTDS 656
C PARM INPUTLEN 4 0
C PARM OUTDS 542
C PARM OUTPUTLEN 4 0
C PARM OUTINFO 4 0
C*
C EVAL MSGLEN = 225
C EVAL ADDRLEN = 255
C EVAL OUTPUTLEN = 542
C EVAL OUTINFO = 542
C*
C MOVEL *BLANKS ADDRES
C MOVEL USRDTA VENDORA 3
C MOVE VENDORA VENDR#
C VENDR# CHAIN VENDOER
C IF NOT %FOUND
C EXSR NOTFOUND
C RETURN
C END
C* MOVE FILE INTO DS
C MOVEL VADDRS ADDRES
C*
C EVAL MSGTEST = 'THIS IS YOUR VENDOR'
C EVAL DISPOSTN = '1'
C call 'found'
C parm VENDORA
C parm PDFFILE
C RETURN
C*********************************************************************
C NOTFOUND BEGSR
C call 'notfound'
C parm VENDORA
C parm PDFFILE
C eval dispostn = '0'
C ENDSR
Any suggestions would be appreciated.
Thanks,
Jeff Young
Sr. Programmer Analyst
IBM -e(logo) server Certified Systems Exper - iSeries Technical Solutions V5R2
IBM Certified Specialist- e(logo) server i5Series Technical Solutions Designer V5R3
IBM Certified Specialist- e(logo)server i5Series Technical Solutions Implementer V5R3
____________________________________________________________________________________
Catch up on fall's hot new shows on Yahoo! TV. Watch previews, get listings, and more!
http://tv.yahoo.com/collections/3658
midrange.com
