Send line or AFP data to an email destination as AFP data

This example shows how to send an output data set that contains either AFP data or line data with AFP resources to an email destination as an AFP file. This example specifies the subject of the email in the TITLE parameter and the name of the attachment in the MAILFILE parameter.

This example uses the IBM® ACIF program to collect AFP resources into a separate file and concatenate that file to the line or AFP data file so that the email recipient can view the file using the AFP Viewer plug-in for Windows and also print the file.

This example assumes that the administrator has set up the printer definition in the Printer Inventory:

• The IP PrintWay™ printer definition is named deptmail.
• The email protocol is selected and the recipient email address list or a z/OS UNIX sendmail alias name is specified in the printer definition.
• No transform is specified for the AFP data format.
• IP PrintWay basic mode: The none formatting option is selected.

//PWAYJOBL JOB ...
//ACIF     EXEC PGM=APKACIF,PARM='PARMDD=PARMS'
//SYSPRINT DD   SYSOUT=*
//INPUT    DD   DSNAME=MYFILE.AFP,DISP=SHR
//OUTPUT   DD   DUMMY
//RESOBJ   DD   DSNAME=&&RESLIB,DISP=(,PASS),
//         SPACE=(CYL,(5,5),RLSE),
//         UNIT=3390,VOL=SER=USR003,
//         DCB=(LRECL=12284,BLKSIZE=12288,RECFM=VBM)
//PARMS    DD   *
 INDEXOBJ = NONE          /* Do not create INDEX output */
 RESTYPE  = ALL           /* Collect all resource types */
 CCTYPE   = M             /* Carriage control type      */
 MCF2REF  = CF            /* Collect coded fonts        */
 FONTLIB  = SYS1.FONT300, /* Font libraries             */
            SYS1.SFNTILIB
 USERLIB  = MY.USERLIB    /* Other user resources       */
 FDEFLIB  = SYS1.FDEFLIB  /* Form definition library    */
 FORMDEF  = F1MYFDEF      /* Form definition to use     */
/*
//IEBGENER  EXEC   PGM=IEBGENER,COND=(0,NE)
//SYSPRINT  DD     SYSOUT=*
//SYSIN     DD     DUMMY
//OUTDS     OUTPUT CLASS=P,TITLE='Monthly Report',
//          FSSDATA='printer=deptmail',MAILFILE='January Report'
//SYSUT1    DD     DSNAME=*.ACIF.RESOBJ,DISP=(OLD,DELETE)
//          DD     DSNAME=MYFILE.AFP,DISP=SHR
//SYSUT2    DD     SYSOUT=(,),OUTPUT=(*.OUTDS)
 

Results: The recipients listed in the printer definition deptmail receive an email:

• The sender of the email is the user ID who submitted the job. For example, USER1@DOMAIN1.
• The subject of the email is Monthly Report.
• The email attachment is named January Report.afp and is in AFP format with all AFP resources inline. The attachment can be viewed with the AFP Viewer plug-in for Windows.