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 

IDCAMS print options

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities
View previous topic :: View next topic  
Author Message
fonrob
Beginner


Joined: 13 Feb 2004
Posts: 7
Topics: 3

PostPosted: Fri Feb 18, 2005 5:37 pm    Post subject: IDCAMS print options Reply with quote

Does anyone know were I can get some information on IDCAMS Print I have setup a job to print multiple DSN but I need to print each dsn on a seperate page. Is there a option to do this.

Thanks
Code:

//Z90FHRD1  JOB (V4ZD10000P,Z90,2),
//         'C04A: DAFSB GSC',
//         MSGCLASS=Y,TIME=1,NOTIFY=&SYSUID
//*
//PRINT    OUTPUT //PAGEDEF=8851,FORMDEF=LAND5S,CHARS=D224,DEST=U4723
//JS010    EXEC PGM=IDCAMS
//INDD1    DD DSN=V4.D90.DAX2444.AUDTRPT1(0),DISP=SHR
//         DD DSN=V4.D90.DAX2444.AUDTRPT2(0),DISP=SHR
//         DD DSN=V4.D90.DAX2444.AUDTRPT3(0),DISP=SHR
//         DD DSN=V4.D90.DAX2444.AUDTRPT4(0),DISP=SHR
//         DD DSN=V4.D90.DAX2444.AUDTRPT5(0),DISP=SHR
//         DD DSN=V4.D90.DAX2446.AUDTRPT(0),DISP=SHR
//         DD DSN=V4.D90.DAX2448.AUDTRPT(0),DISP=SHR
//SYSOUT   DD SYSOUT=A,DCB=RECFM=F,LRECL=133,
//            OUTPUT=*.PRINT
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
  REPRO   INFILE(INDD1),OUTFILE(SYSOUT)
/*
Back to top
View user's profile Send private message
superk
Advanced


Joined: 19 Dec 2002
Posts: 684
Topics: 5

PostPosted: Fri Feb 18, 2005 8:36 pm    Post subject: Reply with quote

Did you try HELP PRINT and/or HELP REPRO?
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


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

PostPosted: Mon Feb 21, 2005 8:43 am    Post subject: Reply with quote

fonrob,

There is no way for IDCAMS to determine the end of a file in concatenated list as it the entire concatenation is treated as a single file.

You can code individual repro statements for each file.

ex:
Code:

//INDD1    DD DSN=V4.D90.DAX2444.AUDTRPT1(0),DISP=SHR
//INDD2    DD DSN=V4.D90.DAX2444.AUDTRPT2(0),DISP=SHR
//INDD3    DD DSN=V4.D90.DAX2444.AUDTRPT3(0),DISP=SHR
//INDD4    DD DSN=V4.D90.DAX2444.AUDTRPT4(0),DISP=SHR
//INDD5    DD DSN=V4.D90.DAX2444.AUDTRPT5(0),DISP=SHR
//INDD6    DD DSN=V4.D90.DAX2446.AUDTRPT(0),DISP=SHR
//INDD7    DD DSN=V4.D90.DAX2448.AUDTRPT(0),DISP=SHR
//SYSOUT   DD SYSOUT=A,DCB=RECFM=F,LRECL=133,
//            OUTPUT=*.PRINT
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
  REPRO   INFILE(INDD1) OUTFILE(SYSOUT)
  REPRO   INFILE(INDD2) OUTFILE(SYSOUT)
  REPRO   INFILE(INDD3) OUTFILE(SYSOUT)
  REPRO   INFILE(INDD4) OUTFILE(SYSOUT)
  REPRO   INFILE(INDD5) OUTFILE(SYSOUT)
  REPRO   INFILE(INDD6) OUTFILE(SYSOUT)
  REPRO   INFILE(INDD7) OUTFILE(SYSOUT)
/*


Hope this helps...

Cheers

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


Joined: 13 Feb 2004
Posts: 7
Topics: 3

PostPosted: Mon Feb 21, 2005 11:05 am    Post subject: Reply with quote

Thanks for the help with this I did as you sugested and it still treated as a single file.
Back to top
View user's profile Send private message
Cogito-Ergo-Sum
Advanced


Joined: 15 Dec 2002
Posts: 637
Topics: 43
Location: Bengaluru, INDIA

PostPosted: Mon Feb 21, 2005 11:07 am    Post subject: Reply with quote

Kolusu,
Quote:
but I need to print each dsn on a seperate page.


So, until his data (in a single dataset or a concatenated list) has a page skip ANSI character, hyphen (-), why would a page break happen?

I mean, would copying datasets separately/individually necessarily mean it will go to next page?
_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.
Back to top
View user's profile Send private message
nevilh
Beginner


Joined: 11 Aug 2004
Posts: 115
Topics: 0

PostPosted: Tue Feb 22, 2005 4:23 am    Post subject: Reply with quote

ansi character for new page is the number 1 not a hyphen.
To achieve what you want to do create a file with recfm=fba and then put a 1 in column 1

then use your repro job to repro the newfile then your print file as many times as required
you should also change the dcb in your sysout to recfm=fba
Back to top
View user's profile Send private message
Cogito-Ergo-Sum
Advanced


Joined: 15 Dec 2002
Posts: 637
Topics: 43
Location: Bengaluru, INDIA

PostPosted: Tue Feb 22, 2005 5:02 am    Post subject: Reply with quote

Ohhh!!

Thank you, nevilh, for the correction.
_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


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

PostPosted: Tue Feb 22, 2005 6:06 am    Post subject: Reply with quote

Quote:

So, until his data (in a single dataset or a concatenated list) has a page skip ANSI character, hyphen (-), why would a page break happen?


Cogito, the default attributes for sysout are recfm=fba/vba

My suggestion works only for the first repro statement. For the subsquent repro's the output file is treated as MOD so the page skip does not occur. sorry about that

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


Joined: 04 Dec 2002
Posts: 71
Topics: 0
Location: Little Falls, NJ

PostPosted: Wed Feb 23, 2005 4:58 pm    Post subject: Reply with quote

Try this. since each SYSOUTn is a separate spool file, JES will start each one on a new page.
Code:


//INDD1    DD DSN=V4.D90.DAX2444.AUDTRPT1(0),DISP=SHR
//INDD2    DD DSN=V4.D90.DAX2444.AUDTRPT2(0),DISP=SHR
//INDD3    DD DSN=V4.D90.DAX2444.AUDTRPT3(0),DISP=SHR
//INDD4    DD DSN=V4.D90.DAX2444.AUDTRPT4(0),DISP=SHR
//INDD5    DD DSN=V4.D90.DAX2444.AUDTRPT5(0),DISP=SHR
//INDD6    DD DSN=V4.D90.DAX2446.AUDTRPT(0),DISP=SHR
//INDD7    DD DSN=V4.D90.DAX2448.AUDTRPT(0),DISP=SHR
//SYSOUT1   DD SYSOUT=A,DCB=RECFM=F,LRECL=133,
//            OUTPUT=*.PRINT
//SYSOUT2   DD SYSOUT=A,DCB=RECFM=F,LRECL=133,
//            OUTPUT=*.PRINT
//SYSOUT3   DD SYSOUT=A,DCB=RECFM=F,LRECL=133,
//            OUTPUT=*.PRINT
//SYSOUT4   DD SYSOUT=A,DCB=RECFM=F,LRECL=133,
//            OUTPUT=*.PRINT
//SYSOUT5   DD SYSOUT=A,DCB=RECFM=F,LRECL=133,
//            OUTPUT=*.PRINT
//SYSOUT6   DD SYSOUT=A,DCB=RECFM=F,LRECL=133,
//            OUTPUT=*.PRINT
//SYSOUT7   DD SYSOUT=A,DCB=RECFM=F,LRECL=133,
//            OUTPUT=*.PRINT
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
  REPRO   INFILE(INDD1) OUTFILE(SYSOUT1)
  REPRO   INFILE(INDD2) OUTFILE(SYSOUT2)
  REPRO   INFILE(INDD3) OUTFILE(SYSOUT3)
  REPRO   INFILE(INDD4) OUTFILE(SYSOUT4)
  REPRO   INFILE(INDD5) OUTFILE(SYSOUT5)
  REPRO   INFILE(INDD6) OUTFILE(SYSOUT6)
  REPRO   INFILE(INDD7) OUTFILE(SYSOUT7)
/*

_________________
Bruce A. Black
Senior Software Developer
Innovation Data Processing
Back to top
View user's profile Send private message Send e-mail Visit poster's website
fonrob
Beginner


Joined: 13 Feb 2004
Posts: 7
Topics: 3

PostPosted: Wed Feb 23, 2005 5:03 pm    Post subject: IDCAMS print options Reply with quote

Thanks for everyones input I created the following job and it worked great
Code:

//Z90FHRD1  JOB (V4ZD10000P,Z90,2),
//         'C04A: DAFSB GSC',
//         MSGCLASS=Y,TIME=1,NOTIFY=&SYSUID
//*
//PRINT   OUTPUT PAGEDEF=A06460,CHARS=ST10,FORMDEF=D10,DEST=U4723
//*PRINT    OUTPUT PAGEDEF=8851,FORMDEF=LAND5S,CHARS=D224,DEST=U4723
//JS010    EXEC PGM=IDCAMS
//INDD1    DD DSN=V4.D90.DAX2444.AUDTRPT1(0),DISP=SHR
//INDD2    DD DSN=V4.D90.DAX2444.AUDTRPT2(0),DISP=SHR
//INDD3    DD DSN=V4.D90.DAX2444.AUDTRPT3(0),DISP=SHR
//INDD4    DD DSN=V4.D90.DAX2444.AUDTRPT4(0),DISP=SHR
//INDD5    DD DSN=V4.D90.DAX2444.AUDTRPT5(0),DISP=SHR
//INDD6    DD DSN=V4.D90.DAX2446.AUDTRPT(0),DISP=SHR
//INDD7    DD DSN=V4.D90.DAX2448.AUDTRPT(0),DISP=SHR
//SYSOUT   DD SYSOUT=A,DCB=RECFM=FBA,LRECL=133,COPIES=1,
//            OUTPUT=*.PRINT
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
  REPRO   INFILE(INDD1),OUTFILE(SYSOUT)
  REPRO   INFILE(INDD2) OUTFILE(SYSOUT)
  REPRO   INFILE(INDD3) OUTFILE(SYSOUT)
  REPRO   INFILE(INDD4) OUTFILE(SYSOUT)
  REPRO   INFILE(INDD5) OUTFILE(SYSOUT)
  REPRO   INFILE(INDD6) OUTFILE(SYSOUT)
  REPRO   INFILE(INDD7) OUTFILE(SYSOUT)
/*
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 -> Utilities 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