MVSFORUMS.com A Community of and for MVS Professionals
View previous topic :: View next topic
Author
Message
fonrob Beginner Joined: 13 Feb 2004 Posts: 7 Topics: 3
Posted: Fri Feb 18, 2005 5:37 pm Post subject: IDCAMS print options
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
superk Advanced Joined: 19 Dec 2002 Posts: 684 Topics: 5
Posted: Fri Feb 18, 2005 8:36 pm Post subject:
Did you try HELP PRINT and/or HELP REPRO?
Back to top
kolusu Site Admin Joined: 26 Nov 2002 Posts: 12375 Topics: 75 Location: San Jose
Posted: Mon Feb 21, 2005 8:43 am Post subject:
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
fonrob Beginner Joined: 13 Feb 2004 Posts: 7 Topics: 3
Posted: Mon Feb 21, 2005 11:05 am Post subject:
Thanks for the help with this I did as you sugested and it still treated as a single file.
Back to top
Cogito-Ergo-Sum Advanced Joined: 15 Dec 2002 Posts: 637 Topics: 43 Location: Bengaluru, INDIA
Posted: Mon Feb 21, 2005 11:07 am Post subject:
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
nevilh Beginner Joined: 11 Aug 2004 Posts: 115 Topics: 0
Posted: Tue Feb 22, 2005 4:23 am Post subject:
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
Cogito-Ergo-Sum Advanced Joined: 15 Dec 2002 Posts: 637 Topics: 43 Location: Bengaluru, INDIA
Posted: Tue Feb 22, 2005 5:02 am Post subject:
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
kolusu Site Admin Joined: 26 Nov 2002 Posts: 12375 Topics: 75 Location: San Jose
Posted: Tue Feb 22, 2005 6:06 am Post subject:
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
bablack Beginner Joined: 04 Dec 2002 Posts: 71 Topics: 0 Location: Little Falls, NJ
Posted: Wed Feb 23, 2005 4:58 pm Post subject:
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
fonrob Beginner Joined: 13 Feb 2004 Posts: 7 Topics: 3
Posted: Wed Feb 23, 2005 5:03 pm Post subject: IDCAMS print options
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
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