Several PDF files that I need to merge , and then to print



JES, JES2, JCL utilities, IDCAMS, Compile & Run JCLs, PROCs etc...

Several PDF files that I need to merge , and then to print

Postby fuuss » Fri Apr 25, 2008 5:19 pm

Ok I am facing a larger problem , still has to do with my infoprint problem that I will try to explain later , to stress ,

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


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 *


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
fuuss
 
Posts: 40
Joined: Wed Mar 19, 2008 3:53 pm
Has thanked: 0 time
Been thanked: 0 time

Re: This time something special lol , sorry for that

Postby fuuss » Fri Apr 25, 2008 5:43 pm

I just wanted to add , in my code I try to merge the PDF to AFP , what is ok , I didn't found a free solution to merge pdf directly
fuuss
 
Posts: 40
Joined: Wed Mar 19, 2008 3:53 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Several PDF files that I need to merge , and then to print

Postby fuuss » Tue Apr 29, 2008 7:51 pm

oK i just got it myself to work , I changed a bit the parameters and voila

I post it here , could be useful :-)
//CISYSCL1 JOB E,YOURID,                                     
//    CLASS=M,MSGCLASS=R,NOTIFY=&SYSUID                               
/*JOBPARM SYSAFF=P1                                                   
//PDFCNCAT PROC PDFFILE=                                             
//TRANSFRM EXEC PGM=AOPBATCH,                                         
// PARM='/pdf2afp -c 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=CISYSCL.TEST.AFP,                                 
//      DCB=(RECFM=VBM,LRECL=32756,BLKSIZE=32760),                   
//      SPACE=(CYL,(30,5)),DISP=(NEW,CATLG,DELETE)                   
//PRINT1   EXEC PDFCNCAT,PDFFILE=TESTPDF.TEST.PDF                     
//PRINT2   EXEC PDFCNCAT,PDFFILE=TESTPDF.TEST2.PDF
fuuss
 
Posts: 40
Joined: Wed Mar 19, 2008 3:53 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Several PDF files that I need to merge , and then to print

Postby CICS Guy » Wed Apr 30, 2008 12:46 am

fuuss wrote:oK i just got it myself to work , I changed a bit the parameters and voila

I post it here , could be useful :-)
Yes, it could very well be, thanks.......
CICS Guy
 
Posts: 246
Joined: Wed Jun 20, 2007 4:08 am
Has thanked: 0 time
Been thanked: 0 time


Return to JCL

 


  • Related topics
    Replies
    Views
    Last post