InfoPrint – Spool File to PDF mapping object
AS/400, AS/400 output files, IFS, IFS objects, InfoPrint Server, Integrated File System, iSeries, Spool File to PDF
have got spool file to pdf working using infoprint, stored in IFS and sent as email. Does anyone have example of mapping object so change directory path and name of pdf file when stored in ifs?
System uses job name etc. which will be variable. Thanks
Software/Hardware used:
Software/Hardware used:
ASKED:
December 22, 2008 3:58 AM
UPDATED:
February 9, 2010 6:09 PM
RELATED QUESTIONS
- Infoprint Mapping Object Exit Program to control name of PDF document stored on IFS
- Map spool file data to overlay
- Filesize PDF Spoolfile with overlay via InfoPrint or OVRPRTF TOSTMF WSCST(*PDF) Opties
- PDF Mapping Program Email Activity Log in iSeries
- HELP! InfoPrint Mapping Exit Prgm for PSFCFG to control variable name of PDF document stored on IFS
Answer Wiki:
I promised myself that if I found the answer to this question that I would answer you post as I had a similar problem. My resolution is below. I hope that it helps you.
PDF TO IFS DOCUMENTATION
Goal: Create PDF Invoices in the IFS as individual documents and name the PDF document that same name as the Invoice. Format YYYYMM-NNNNN.
PGMA – created to accommodate the addition of the field PAGGRP and to write to the record HEAD2 before any other records in the DDS and to write the record ENDRPT as the last record in the DDS. This allows the system to know the beginning and the end of each Customer Invoice.
paggrp S 10
: (code)
eval paggrp = hbol;
write header2;
: (code)
write endrpt;
DDSA – created to contain Start Page Group Command (STRPAGGRP) as First DDS Record and End Page Group Command (ENDPAGGRP) as the Last DDS Record. The field PAGGRP uses Type P to indicate a program-to-system field. PAGGRP is used by the system in the Mapping Exit Program.
A R HEADER2 STRPAGGRP(&PAGGRP)
A PAGGRP 10 P
: (DDS Code)
A R ENDRPT ENDPAGGRP
CLA - created to accommodate the addition of &MAILTAG in USRDFNDTA.
CHGVAR VAR(&MAILTAG) VALUE('MAILTAG(' *TCAT &USER +
*TCAT '@HELLO.COM)')
OVRPRTF FILE(DDSA) DEVTYPE(*AFPDS) OUTQ(PRT2IFS) +
SAVE(*YES) USRDTA('INVOICE') +
USRDFNDTA(&MAILTAG)
Original PSFCFG Test Objects
PSFCFG
PRT2IFS
PSFCFG PRINT Device
PRT2IFS
PSFCFG OUTQ
PRT2IFS
Creation of PSFCFG PRTIFS
PSFCFG Mapping Exit Program
XMAPPGM21 – (first one working to put PDF to IFS)
XMAPPGM22 – (refining for email w/PDF attachment & to PDF to IFS)
Create PSFCFG Object
Command CRTPSFCFG to start create PSFCFG process.
This is where the PDF user program or the Mapping Exit program is input. The program must exist before you add it here also – if any changes are made to the PSFCFG the writer must be ended. After the changes are made – restart the printer.
Creation of PSFCFG Printer Device
Command CRTPRTDEV to start create PSFCFG Print Device process.
Mapping Exit Program
// Mapping Exit Program XMAPGM21
D COPYENCL C 'QGPL/XMAPPGM6'
//
D INPUTDS DS
D JOBNAM 1 26
D SPLFID 27 36
D SPLNO 37 40B 0
D RTGTAG 41 290
D PDFFILE 291 630
D SVRTYPE 631 631
D RES1 632 632
D PATHCCSID 633 636B 0
D SENDER 637 646
D USRDTA 647 656
D SYSNAME 657 664
D TIMESTMP 665 672
D OUTQ 673 682
D OUTQLIB 683 692
D RES5 693 712
D FORMTYPE 713 722
//*********************************************
D OUTDS DS
D DISPOSTN 1
D CALLAGIN 1
D RES2 2
D MSGLEN 9B 0
D ADDRLEN 9B 0
D MSGTEXT 255
D RES3 1
D EXTOFF 9B 0
D CCSID 9B 0
D DSPPDFSTMF 1
D DSPPDFSPLF 1
D DSPPDFERR 1
D DSPAFPSPLF 1
D RES4 7
D ADDRESS 255
//
D EXTLEN 9B 0
D SUBOFF 9B 0
D SUBLEN 9B 0
D RPLYOFF 9B 0
D RPLYLEN 9B 0
D CCOFF 9B 0
D CCLEN 9B 0
D BCCOFF 9B 0
D BCCLEN 9B 0
D BDYPTHOFF 9B 0
D DIRPTHOFF 9B 0
D DIRPTHLEN 9B 0
D ATTPTHOFF 9B 0
D STMFNAMOFF 9B 0
D STMFNAMLEN 9B 0
D EATTNAMOFF 9B 0
D EATTNAMLEN 9B 0
D PUBAUTOFF 9B 0
D PUBAUTLEN 9B 0
D PDFSPLOFF 9B 0
D PDFSPLLEN 9B 0
D AFPSPLOFF 9B 0
D AFPSPLLEN 9B 0
D ENCRPTOFF 9B 0
D ENCRPTLEN 9B 0
//
D EXTSUBJ 80
D EXTRPLY 80
D EXTCC 80
D EXTBCC 80
//
D BDYLEN 9B 0
D BDYNUM 9B 0
D BDYX1 9B 0
D BDYY1 9B 0
D BDYOFF1 9B 0
D BDYPLEN1 9B 0
D BDYUSE1 1
D BDYRES1 3
D BDYPTH1 80
D BDYX2 9B 0
D BDYY2 9B 0
D BDYOFF2 9B 0
D BDYPLEN2 9B 0
D BDYUSE2 1
D BDYRES2 3
D BDYPTH2 80
D BDYX3 9B 0
D BDYY3 9B 0
D BDYOFF3 9B 0
D BDYPLEN3 9B 0
D BDYUSE3 1
D BDYRES3 3
D BDYPTH3 80
//
D ATTLEN 9B 0
D ATTNUMB 9B 0
D ATTX1 9B 0
D ATTY1 9B 0
D ATTOFF1 9B 0
D ATTPLEN1 9B 0
D ATTUSE1 1
D ATTRES1 3
D ATTPTH1 80
D ATTX2 9B 0
D ATTY2 9B 0
D ATTOFF2 9B 0
D ATTPLEN2 9B 0
D ATTUSE2 1
D ATTRES2 3
D ATTPTH2 80
D ATTX3 9B 0
D ATTY3 9B 0
D ATTOFF3 9B 0
D ATTPLEN3 9B 0
D ATTUSE3 1
D ATTRES3 3
D ATTPTH3 80
//
D DIRPTH 80
//
D PDFSTMFNAM 80
D PDFATTNAM 80
D PDFPUBAUT 10
//
D PDFOUTQ 10
D PDFOUTQLIB 10
D PDFSPLNAM 10
D PDFUSRDTA 10
D PDFUSRDFN 255
D PDFFORM 10
//
D AFPOUTQ 10
D AFPOUTQLIB 10
D AFPSPLNAM 10
D AFPUSRDTA 10
D AFPUSRDFN 255
D AFPFORM 10
//
D PDFMASTPW 32
D PDFUSRPW 32
D PDFPRT 1
D PDFDOCCHG 1
D PDFCOPY 1
D PDFENCLVL 1
D PDFCNTACC 1
D PDFCHGCMT 1
D PDFDOCASB 1
//
D INPUTLEN S 9B 0
D OUTPUTLEN S 9B 0
D OUTINFO S 9B 0
D PAGGRP S 10
D namelen s 4 0
D enname s 80
D ennam80 s 80
D holdnam s 80
D inv# s 10
//*********************************************
C *ENTRY PLIST
C PARM INPUTDS
C PARM INPUTLEN
C PARM OUTDS
C PARM OUTPUTLEN
C PARM OUTINFO
C
/FREE
outinfo = 2509;
if outinfo > outputlen;
return;
endif;
//
//
/end-free
C move *ALLx'00' outds
//
/free
callagin = '0';
res2 = X'0000';
res3 = X'00';
res4 = X'00000000000000';
extoff = 542;
extlen = 100;
//
dirpthoff = 1578;
dirpthlen = 80;
dirpth = '/WWW/PDFDOCS/INVOICES/';
//
dsppdfstmf = '1';
//
stmfnamoff = 1658;
/end-free
C movel rtgtag paggrp
/free
pdfstmfnam = pdffile;
holdnam = pdfstmfnam;
stmfnamlen = 80;
pubautoff = 1818;
pdfpubaut = '*RX';
pubautlen = %len(%trim(pdfpubaut));
//
clear inv#;
/end-free
C subst rtgtag inv#
//
/free
if holdnam <> *blank;
/end-free
C call copyencl
C parm inv#
C parm holdnam
/free
endif;
//
return;
/end-free
CL Used by Mapping Exit Program
PGM PARM(&CUSTNO &PDFIN)
DCL VAR(&PDFIN) TYPE(*CHAR) LEN(80)
DCL VAR(&TARGET) TYPE(*CHAR) LEN(80)
DCL VAR(&CUSTNO) TYPE(*CHAR) LEN(10)
DCL VAR(&LOOP) TYPE(*LGL) VALUE('1')
DCL VAR(&TIMES) TYPE(*DEC) LEN(3 0) VALUE(1)
addlible taatool
MONMSG MSGID(CPF2103)
DLYJOB DLY(2)
CHKIFSE OBJ(&PDFIN) AUT(*ALL)
MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(SKIP))
DLYJOB DLY(5)
CHGAUT OBJ(&PDFIN) USER(*PUBLIC) DTAAUT(*RWX) +
OBJAUT(*ALL)
skip: CPY OBJ(&PDFIN) TODIR('/encrypted')
MONMSG MSGID(CPFA09C CPFA0A0 CPFA0A9)
CHGVAR VAR(&TARGET) +
VALUE('/WWW/PDFDOCS/INVOICES/20' *TCAT +
&CUSTNO *TCAT '.PDF')
CPY OBJ(&PDFIN) TOOBJ(&TARGET)
MONMSG MSGID(CPFA09C CPFA0A0 CPFA0A0)
ENDPGM
To see all answers submitted to the Answer Wiki: View Answer History.
kdbwheels1, Can you share with me your program 2 PDF to email mapping program. I keep getting a road block. I get to copy obJ to the PSF400/xxxxx/xxxxx.pdf completes then it can not find the new object to find.
Help!
Now I am getting
Space offset X’00000000′ or X’0000000000000000′ is outside current limit for object &1