IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

EZACFSM1 Won't Write to INTRDR?


IBM Mainframe Forums -> All Other Mainframe Topics
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1788
Location: Bloomington, IL

PostPosted: Wed Feb 17, 2010 1:09 am
Reply with quote

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
View user's profile Send private message
superk

Global Moderator


Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA

PostPosted: Wed Feb 17, 2010 1:24 am
Reply with quote

I need to include the two statements RECFM=FB and LRECL=254 for the //SYSOUT DD statement.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Wed Feb 17, 2010 1:28 am
Reply with quote

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
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1788
Location: Bloomington, IL

PostPosted: Wed Feb 17, 2010 1:28 am
Reply with quote

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
View user's profile Send private message
Bill Dennis

Active Member


Joined: 17 Aug 2007
Posts: 562
Location: Iowa, USA

PostPosted: Wed Feb 17, 2010 2:52 am
Reply with quote

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
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Wed Feb 17, 2010 3:12 am
Reply with quote

Bill, are you on a JES3 system?
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1702
Location: Australia

PostPosted: Wed Feb 17, 2010 3:16 am
Reply with quote

Hi,

mine works fine too without DCB information (JES2)


Gerry
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Wed Feb 17, 2010 3:07 pm
Reply with quote

gcicchet wrote:
mine works fine too without DCB information (JES2)
Ditto.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Wed Feb 17, 2010 3:14 pm
Reply with quote

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
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Wed Feb 17, 2010 3:19 pm
Reply with quote

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
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1788
Location: Bloomington, IL

PostPosted: Wed Feb 17, 2010 4:45 pm
Reply with quote

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
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Wed Feb 17, 2010 4:59 pm
Reply with quote

What about RACF or system exits to deny the use of using INTRDR ?
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1788
Location: Bloomington, IL

PostPosted: Wed Feb 17, 2010 8:22 pm
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> All Other Mainframe Topics

 


Similar Topics
Topic Forum Replies
No new posts Write line by line from two files DFSORT/ICETOOL 7
This topic is locked: you cannot edit posts or make replies. How To Write, Compile and Execute Cob... COBOL Programming 5
No new posts Compare two files with a key and writ... SYNCSORT 3
No new posts JCL to write the log on to a PDS file JCL & VSAM 10
No new posts COBOL - create and write to output fi... COBOL Programming 0
Search our Forums:

Back to Top