so I am getting several PDF files that I need to merge , and then to print
I am working on a code I received but I don't get it to work
//CISYSCL1 JOB E,MYNAME,
// CLASS=M,MSGCLASS=R,NOTIFY=&SYSUID
// REGION=6M
//PDFCNCAT PROC PDFFILE=
//TRANSFRMEXECPGM=AOPBATCH,PARM='/pdf2afp -o //DD:AFPOUT //DD:INPUT'
//INPUT DD DISP=SHR,DSN=&PDFFILE
//AFPOUT DD DISP=MOD,
// DSN=*.ALLOC.AFPOUT
//STDOUT DD SYSOUT=*
//STDERR DD SYSOUT=*
// PEND
//*
//ALLOC EXEC PGM=IEFBR14
//AFPOUT DD DSN=SERVE2.KRIS.TEST.AFP,
// DCB=(RECFM=VBM,LRECL=32756,BLKSIZE=32760),
// SPACE=(CYL,(30,5)),DISP=(NEW,CATLG,DELETE)
//PRINT1 EXEC PDFCNCAT,PDFFILE=SERVE2.KRIS.PART1.PDF
//PRINT2 EXEC PDFCNCAT,PDFFILE=SERVE2.KRIS.PART2.PDF
//PRINT3 EXEC PDFCNCAT,PDFFILE=SERVE2.KRIS.PART3.PDF
// CLASS=M,MSGCLASS=R,NOTIFY=&SYSUID
// REGION=6M
//PDFCNCAT PROC PDFFILE=
//TRANSFRMEXECPGM=AOPBATCH,PARM='/pdf2afp -o //DD:AFPOUT //DD:INPUT'
//INPUT DD DISP=SHR,DSN=&PDFFILE
//AFPOUT DD DISP=MOD,
// DSN=*.ALLOC.AFPOUT
//STDOUT DD SYSOUT=*
//STDERR DD SYSOUT=*
// PEND
//*
//ALLOC EXEC PGM=IEFBR14
//AFPOUT DD DSN=SERVE2.KRIS.TEST.AFP,
// DCB=(RECFM=VBM,LRECL=32756,BLKSIZE=32760),
// SPACE=(CYL,(30,5)),DISP=(NEW,CATLG,DELETE)
//PRINT1 EXEC PDFCNCAT,PDFFILE=SERVE2.KRIS.PART1.PDF
//PRINT2 EXEC PDFCNCAT,PDFFILE=SERVE2.KRIS.PART2.PDF
//PRINT3 EXEC PDFCNCAT,PDFFILE=SERVE2.KRIS.PART3.PDF
here is my code for Printing a PDF , this one works ( may be handy for one of you)
//CISYSCL1 JOB E,MYNAME,
// CLASS=M,MSGCLASS=R,NOTIFY=&SYSUID
/*JOBPARM SYSAFF=P1
//PRINT EXEC PGM=AOPBATCH,
// PARM='/pdf2afp -p 1 -l 297mm -w 210mm -o //DD:OUTPUT //DD:INPUT'
//ATTRIB DD *
/*
//OUTPUT DD DSN=&&PDF2AFP,
// DISP=(NEW,PASS),SPACE=(TRK,(10,9),RLSE),
// DCB=(LRECL=12880,RECFM=VBM)
//INPUT DD DSN=CISYSCL.TEST.PDF,DISP=SHR
//STDOUT DD SYSOUT=*
//STDERR DD SYSOUT=*
//S1 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=&&PDF2AFP,DISP=SHR
//SYSUT2 DD SYSOUT=(5,,STD),DEST=CIIPDS1,COPIES=1
//SYSIN DD *
// CLASS=M,MSGCLASS=R,NOTIFY=&SYSUID
/*JOBPARM SYSAFF=P1
//PRINT EXEC PGM=AOPBATCH,
// PARM='/pdf2afp -p 1 -l 297mm -w 210mm -o //DD:OUTPUT //DD:INPUT'
//ATTRIB DD *
/*
//OUTPUT DD DSN=&&PDF2AFP,
// DISP=(NEW,PASS),SPACE=(TRK,(10,9),RLSE),
// DCB=(LRECL=12880,RECFM=VBM)
//INPUT DD DSN=CISYSCL.TEST.PDF,DISP=SHR
//STDOUT DD SYSOUT=*
//STDERR DD SYSOUT=*
//S1 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=&&PDF2AFP,DISP=SHR
//SYSUT2 DD SYSOUT=(5,,STD),DEST=CIIPDS1,COPIES=1
//SYSIN DD *
I really need to merge those pdf before printing , that's very important
THank you very much in advance , I will continue working on this but if anyone of you may have a solution I would be very greatfull
Fuuss
