|
View previous topic :: View next topic
|
| Author |
Message |
Akatsukami
Global Moderator
Joined: 03 Oct 2009
Posts: 1787
Location: Bloomington, IL
|
|
|
|
One of my kouhai asked for help with the following JCL:
| Code: |
//CURDATE JOB ,'RUNJCL',CLASS=F,MSGCLASS=1,
// NOTIFY=&SYSUID,REGION=4096K
//STEP00 EXEC PGM=EZACFSM1
//SYSIN DD DATA,DLM=@@
//MEEBDATE JOB ,'RUNJCL',CLASS=F,MSGCLASS=1,
// NOTIFY=&SYSUID,REGION=4096K
//STEP01 EXEC PGM=IEFBR14
//SYSUT2 DD DSN=MEEB.WORK.D&LYYMMDD,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,RECFM=FB,LRECL=80,
// SPACE=(CYL,(1,1),RLSE)
@@
//SYSOUT DD SYSOUT=(*,INTRDR)
|
He couldn't get EZACFSM1 to write to SYSOUT. Neither could I...if it were defined as SYSOUT=(*,INTRDR). Anything else, no problem. However, the following JCL did achieve the desired effect:
| Code: |
//SHGBD1 JOB ,'RUNJCL',CLASS=F,MSGCLASS=1,
// NOTIFY=&SYSUID,REGION=4096K
//STEP00 EXEC PGM=EZACFSM1
//SYSPRINT DD SYSOUT=*
//SYSIN DD DATA,DLM=@@
//SHGBD2 JOB ,'RUNJCL',CLASS=F,MSGCLASS=1,
// NOTIFY=&SYSUID,REGION=4096K
//STEP01 EXEC PGM=IEFBR14
//SYSUT2 DD DSN=SHGB.WORK.D&LYYMMDD,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,RECFM=FB,LRECL=80,
// SPACE=(CYL,(1,1),RLSE)
@@
//SYSOUT DD DSN=&&FOO,DISP=(NEW,PASS),SPACE=(TRK,1),UNIT=TEMPDISK,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)
//STEP02 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//SYSUT1 DD DSN=&&FOO,DISP=(OLD,DELETE)
//SYSUT2 DD SYSOUT=(*,INTRDR)
|
Has anyone seen a similar phenomenon? A locally-defined exit, or even a zap? |
|
| Back to top |
|
 |
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
| I need to include the two statements RECFM=FB and LRECL=254 for the //SYSOUT DD statement. |
|
| Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8700
Location: Dubuque, Iowa, USA
|
|
|
|
Have you tried
| Code: |
//CURDATE JOB ,'RUNJCL',CLASS=F,MSGCLASS=1,
// NOTIFY=&SYSUID,REGION=4096K
//STEP00 EXEC PGM=EZACFSM1
//SYSIN DD DATA,DLM=@@
//MEEBDATE JOB ,'RUNJCL',CLASS=F,MSGCLASS=1,
// NOTIFY=&SYSUID,REGION=4096K
//STEP01 EXEC PGM=IEFBR14
//SYSUT2 DD DSN=MEEB.WORK.D&LYYMMDD,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,RECFM=FB,LRECL=80,
// SPACE=(CYL,(1,1),RLSE)
@@
//SYSOUT DD SYSOUT=(*,INTRDR),LRECL=80,BLKSIZE=80,BUFNO=1,RECFM=F |
|
|
| Back to top |
|
|
Akatsukami
Global Moderator
Joined: 03 Oct 2009
Posts: 1787
Location: Bloomington, IL
|
|
|
|
| Hmmm, now that you mention the subject, wouldn't the DCB for a file defined as SYSOUT=* be RECFM=FBA,LRECL=133? That might cause INTRDR to choke, perhaps? |
|
| Back to top |
|
|
Bill Dennis
Active Member
Joined: 17 Aug 2007
Posts: 562
Location: Iowa, USA
|
|
|
|
SYSOUT is not always a "report" file. This case of SYSOUT is simply the OUT copy of the IN file.
BTW, my JCL works correctly without any DCB info on SYSOUT. |
|
| Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8700
Location: Dubuque, Iowa, USA
|
|
|
|
| Bill, are you on a JES3 system? |
|
| Back to top |
|
|
gcicchet
Senior Member
Joined: 28 Jul 2006
Posts: 1702
Location: Australia
|
|
|
|
Hi,
mine works fine too without DCB information (JES2)
Gerry |
|
| Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6248
Location: Mumbai, India
|
|
|
|
| gcicchet wrote: |
| mine works fine too without DCB information (JES2) |
Ditto. |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10900
Location: italy
|
|
|
|
| Quote: |
| //SYSOUT DD SYSOUT=(*,INTRDR) |
looks odd that the second time worked
the sysout=* construct puts things in the same sysout class as the msgclass!
and thats usually a <printer> thing
the traditional class for <punched> things is B
but there would be the need of some testing to find out| |
|
| Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6248
Location: Mumbai, India
|
|
|
|
ok, I tried with with/without DCB parametes - both work for me. However, when you say
| Quote: |
| He couldn't get EZACFSM1 to write to SYSOUT. Neither could I...if it were defined as SYSOUT=(*,INTRDR). |
what exactly happend? |
|
| Back to top |
|
|
Akatsukami
Global Moderator
Joined: 03 Oct 2009
Posts: 1787
Location: Bloomington, IL
|
|
|
|
| Anuj Dhawan wrote: |
ok, I tried with with/without DCB parametes - both work for me. However, when you say
| Quote: |
| He couldn't get EZACFSM1 to write to SYSOUT. Neither could I...if it were defined as SYSOUT=(*,INTRDR). |
what exactly happend? |
As far as I could tell, nothing. The JCL was not submitted, and there were no EXCPs for SYSOUT in the system messages. To the left, when I defined the DD as SYSOUT=* or as DSN=..., the JCL appeared in sysout or the data set, and there were two EXCPs to SYSOUT.
| enrico-sorichetti wrote: |
the traditional class for <punched> things is B
but there would be the need of some testing to find out|
|
I'll have to review the standard sysout class documentation when my office opens up in a couple of hours, but I'm 99% sure that sysout class B has been redefined to mean some sort of letterhead. |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
| What about RACF or system exits to deny the use of using INTRDR ? |
|
| Back to top |
|
|
Akatsukami
Global Moderator
Joined: 03 Oct 2009
Posts: 1787
Location: Bloomington, IL
|
|
|
|
| expat wrote: |
| What about RACF or system exits to deny the use of using INTRDR ? |
That was what I was thinking, although I was not sure if they could detect that the write to INTRDR was coming from EZACFSM1 vs. IEBGENER, which would be necessary for the situation to have been true.
===
I think that the responses from various members that the original JCL does/does not work for them without DCB parameters indicates that there is enough variation in installations that this behavior, although surprising, should not be wholly unexpected. Thank you all for your efforts in this matter. |
|
| Back to top |
|
|
|
|
  |
All times are GMT + 6 Hours |
|
