|
View previous topic :: View next topic
|
| Author |
Message |
jzhardy
Active User
Joined: 31 Oct 2006
Posts: 139
Location: brisbane
|
|
|
|
i can easily concatenate DSN to SYSIN, eg :
| Code: |
//SYSUT1 DD DSN=SOME.INPUT,DISP=(SHR)
// DD *
--- some trailing comment ---
/* |
but what if I want to reverse this order, ie, have the comment before the data set ? |
|
| Back to top |
|
 |
steve-myers
Active Member
Joined: 30 Nov 2013
Posts: 917
Location: The Universe
|
|
|
|
So why do you think you can't do this? -
| Code: |
//SYSUT1 DD *
--- Some leading data ---
// DD DSN=SOME.INPUT,DISP=SHR |
I prepared and ran this JCL -
| Code: |
//A EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD *
--- DATA IN A DATA SET ---
//SYSIN DD DUMMY
//SYSUT2 DD DISP=(,PASS),UNIT=SYSDA,SPACE=(TRK,(1,1)),
// DCB=(RECFM=FB,LRECL=80,DSORG=PS)
//B EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD *
--- DATA IN JOB STREAM ---
// DD DISP=(OLD,DELETE),DSN=*.A.SYSUT2
//SYSUT2 DD SYSOUT=*
//SYSIN DD DUMMY
|
This is what was in the data set specified by the SYSUT2 DD statement in the second step.
| Code: |
--- DATA IN JOB STREAM ---
--- DATA IN A DATA SET --- |
Now this won't work if the DCB attributes for the disk data set are much different than the DCB sttributes assigned by JES for the DD * data set, but ... |
|
| Back to top |
|
|
jzhardy
Active User
Joined: 31 Oct 2006
Posts: 139
Location: brisbane
|
|
|
|
sorry for late reply,
no still doesn't work. I get error IEB311I - Conflicting DCB Parameters
| Code: |
//STEP2 EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD *
====== START LINE
// DD DSN=&&SQLOUT,DISP=(OLD,PASS)
// DD *
=================== END: DSNTEP2 OUTPUT ====================
/*
//SYSUT2 DD SYSOUT=* |
|
|
| Back to top |
|
|
Garry Carroll
Senior Member
Joined: 08 May 2006
Posts: 1205
Location: Dublin, Ireland
|
|
|
|
| Quote: |
| I get error IEB311I - Conflicting DCB Parameters |
//SYSUT1 DD * has an LRECL=80
What has your &&SQLOUT dataset got ?
Garry. |
|
| Back to top |
|
|
jzhardy
Active User
Joined: 31 Oct 2006
Posts: 139
Location: brisbane
|
|
|
|
| FB, LRECL=133 |
|
| Back to top |
|
|
Garry Carroll
Senior Member
Joined: 08 May 2006
Posts: 1205
Location: Dublin, Ireland
|
|
|
|
That's your problem - all in the concatenation need to have same DCB parameters. DD * will always be LRECL=80
Garry. |
|
| Back to top |
|
|
Nic Clouston
Global Moderator
Joined: 10 May 2007
Posts: 2454
Location: Hampshire, UK
|
|
|
|
Except BLKSIZE - the system can handle mixed BLKSIZEs. You don't even have to specify the largest first as you used to have to do.
If you want those two 'eyecatchers' then either use IEBGENER to create them or, easier, your sort product. |
|
| Back to top |
|
|
jzhardy
Active User
Joined: 31 Oct 2006
Posts: 139
Location: brisbane
|
|
|
|
| thanks, easy fix ! |
|
| Back to top |
|
|
|
|
