MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

AFP output into a file

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL)
View previous topic :: View next topic  
Author Message
sinduja
Beginner


Joined: 20 Jun 2005
Posts: 29
Topics: 14

PostPosted: Thu Apr 07, 2016 12:32 am    Post subject: AFP output into a file Reply with quote

Hi All,

I have a request from my client to archive a document that was so far only being printed.

This document is being printed with the JCL OUTPUT statement (similar
to the one given below).

Code:
FLOT         OUTPUT   PAGEDEF=ZMF05,                                   
             FORMDEF=ZMF05                                             
LISTZ100     DD       SYSOUT=(C,,MF03),                                 
             OUTPUT=*.FLOT,                                             
             DEST=CHZ0R3,                                               
             RECFM=FBA                                     


Here the OUTPUT statement sends the printable output to the Printer.

My question is this.
Is there a way I can get it in a file so that I can check the possibilities of archiving them.

(We have other documents that are being archived. They are from different platform (like ASF). The AFP output that is being sent to the printer is sent to a utility ACIF and then the output from files are used for archiving.)

Thank you in advance for any valuble input.

Regards,
Sinduja
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12357
Topics: 75
Location: San Jose

PostPosted: Thu Apr 07, 2016 1:50 pm    Post subject: Reply with quote

sinduja

Is it a program that is generating the report for AFP? Who is writing to the ddname LISTZ100?

If it is a program then change that step to write to a dataset and then add another step (IEBGENER) to print to Destination
_________________
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
sinduja
Beginner


Joined: 20 Jun 2005
Posts: 29
Topics: 14

PostPosted: Fri Apr 08, 2016 7:01 am    Post subject: Reply with quote

Kolusu,

There is a assembler program which writes to LISTZ100.

The OUTPUT statement includes PAGEDEF and FORMDEF information. The AFP output routed to the printer combines the PAGEDEF and FORMDEF information as well. Is this correct?

If I give a dataset in LISTZ100, will I get printable AFP output in the dataset.

Kindly correct me if my understanding is wrong. Or if I have to give any more details.

Thank you

Regards,
Sinduja.
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12357
Topics: 75
Location: San Jose

PostPosted: Fri Apr 08, 2016 1:26 pm    Post subject: Reply with quote

sinduja wrote:
Kolusu,

There is a assembler program which writes to LISTZ100.
If I give a dataset in LISTZ100, will I get printable AFP output in the dataset.



Sindhuja,

Change the JCL for assembler program to write out to a dataset like this
Code:

//LISTZ100 DD DSN=YOUR.ARCHIVE.GDGFILE(+1),
//            DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(X,Y),RLSE),
//            DCB=(LRECL=a,RECFM=b,BLKSIZE=c)
//*


And then add this step as the last step which would would print out the report like it did before.
Code:

//LASTSTEP EXEC PGM=IEBGENER                     
//SYSPRINT DD SYSOUT=*                           
//SYSUT1   DD DISP=SHR,DSN=YOUR.ARCHIVE.GDGFILE(+1)
//SYSUT2   DD SYSOUT=(C,,MF03),
//            OUTPUT=*.FLOT,
//            DEST=CHZ0R3,
//            RECFM=FBA
//SYSIN    DD DUMMY

_________________
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
sinduja
Beginner


Joined: 20 Jun 2005
Posts: 29
Topics: 14

PostPosted: Tue Apr 12, 2016 12:59 am    Post subject: Reply with quote

Kolusu,

Thank you for your time and input.

I still have some questions. I will try your suggestions and come back with the results.

Regards,
Sinduja
Back to top
View user's profile Send private message
pramitdas
Beginner


Joined: 26 Aug 2016
Posts: 12
Topics: 3

PostPosted: Sun Aug 28, 2016 12:14 am    Post subject: Re: AFP output into a file Reply with quote

sinduja wrote:
Hi All,

I have a request from my client to archive a document that was so far only being printed.

This document is being printed with the JCL OUTPUT statement (similar
to the one given below).

Code:
FLOT         OUTPUT   PAGEDEF=ZMF05,                                   
             FORMDEF=ZMF05                                             
LISTZ100     DD       SYSOUT=(C,,MF03),                                 
             OUTPUT=*.FLOT,                                             
             DEST=CHZ0R3,                                               
             RECFM=FBA                                     



It can be achieved easily without any major step. Just route the output in the spool and check.

Use the below code and check in the spool SYSOUT.

Code:
FLOT         OUTPUT   PAGEDEF=ZMF05,                                   
             FORMDEF=ZMF05                                             
LISTZ100     DD       SYSOUT=*                                 
             RECFM=FBA                                     



Thanks,
Pramit
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12357
Topics: 75
Location: San Jose

PostPosted: Sun Aug 28, 2016 12:39 am    Post subject: Re: AFP output into a file Reply with quote

pramitdas wrote:

It can be achieved easily without any major step. Just route the output in the spool and check

Thanks,
Pramit


Pramit,

I appreciate your enthusiasm to help but please take a minute to understand the real requirement before you pass on a solution. The original requirement is to

sinduja wrote:


My question is this.
Is there a way I can get it in a file so that I can check the possibilities of archiving them.


So how do you think your suggestion of routing the report to spool gonna solve the problem of the report being printed on the destination printer as well as the local dataset for archiving?

Think before you bump an old topic with inane solution
_________________
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
pramitdas
Beginner


Joined: 26 Aug 2016
Posts: 12
Topics: 3

PostPosted: Sun Aug 28, 2016 12:48 am    Post subject: Re: AFP output into a file Reply with quote

Very true.. I have missed that one and my sincere apologies Kolusu If it's about checking Possibility of archiving, we must need to route the output to a GDG . Thanks for reminding!
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL) All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group