Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Using EZACFSM1 prog with instream data for file qualifier

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
rabiswas

New User


Joined: 15 Oct 2008
Posts: 11
Location: India

PostPosted: Sun Jun 08, 2014 5:12 pm    Post subject: Using EZACFSM1 prog with instream data for file qualifier
Reply with quote

Hi,


Im facing an issue in creating date-time qualified files via EZACFSM1. Im also punching the JCL to a PDS member and adding the filename to a VSAM control file.
This works fine if it is done directly in a JCL.. but there is JCL error if it is put in a PROC and called from a JCL.

Below is the PROC step -
//ARCH10 EXEC PGM=EZACFSM1
//SYSOUT DD DSN=USR1.TEST.IBM.JCL(SPZ864P1),DISP=SHR
//SYSIN DD DATA,DLM=@@
//SPZ864P1 JOB T,'ARCHIVE',CLASS=T,MSGCLASS=T
//*
//IEBGN01 EXEC PGM=IEBGENER
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=IBM.WBM.TX11,DISP=SHR
//SYSUT2 DD DSN=IBM.WBM.TX11.D&LYYMMDD..T&LHHMMSS,
// DISP=(NEW,CATLG,DELETE),UNIT=DISK,
// DCB=(LRECL=300,RECFM=FB),
// SPACE=(CYL,(5,5),RLSE)
//SYSIN DD DUMMY
//**
//**
//IDCAM01 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD1 DD *
IBM.WBM.TX11.D&LYYMMDD..T&LHHMMSS
//*
//OUTDD1 DD DSN=VSP.GDG.BKP.CNTLFILE,DISP=SHR
//SYSIN DD DSN=USR1.SYSINLIB(REPRO1),DISP=SHR
@@
//*


Calling JCL -
//RBISW0B1 JOB T,NOTIFY=&SYSUID,RESTART=*
//PROCLIB JCLLIB ORDER=USR1.TEST.IBM.PRC
//*
//JOBLIB DD DSN=USR1.LIBCCF.TESTLOAD,DISP=SHR
//*
//SPZ864P EXEC SPZ864P1
//*
//

Error shown -
4 IEFC001I PROCEDURE SPZ864P1 WAS EXPANDED USING PRIVA
27 IEFC601I INVALID JCL STATEMENT
28 IEFC019I MISPLACED JOB STATEMENT
30 IEFC601I INVALID JCL STATEMENT
33 IEFC627I INCORRECT USE OF AMPERSAND IN THE DSN FIELD
37 IEFC601I INVALID JCL STATEMENT
38 IEFC601I INVALID JCL STATEMENT
41 IEFC601I INVALID JCL STATEMENT


The JOBSCAN also shows error, most relevant one is probably -
P1//SYSIN DD DATA,DLM=@@
***ERROR - DSS2140E - IN-STREAM DATA NOT ALLOWED IN PROC
----+----1----+----2----+----3----+----4----+----5----+--
//SPZ864P1 JOB T,'ARCHIVE',CLASS=T,MSGCLASS=T



I need guidance to make it work inside a PROC. Any help is appreciated ! icon_smile.gif

RBiswas
Back to top
View user's profile Send private message

superk

Moderator Team Head


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

PostPosted: Sun Jun 08, 2014 6:48 pm    Post subject: Reply to: Using EZACFSM1 prog with instream data for file qu
Reply with quote

You've got me. Are you not running on the latest version of z/OS?
Back to top
View user's profile Send private message
steve-myers

Active User


Joined: 30 Nov 2013
Posts: 461
Location: The Universe

PostPosted: Sun Jun 08, 2014 7:01 pm    Post subject:
Reply with quote

Kevin -

Judging by the partial error messages, it would appear this is not z/OS 2.1. In addition, there appears to be a // JOB statement in a procedure, which I think is invalid even in z/OS 2.1.
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1219
Location: Israel

PostPosted: Sun Jun 08, 2014 7:05 pm    Post subject: Reply to: Using EZACFSM1 prog with instream data for file qu
Reply with quote

You already know the source of the problem:
rabiswas wrote:
The JOBSCAN also shows error, most relevant one is probably -
P1//SYSIN DD DATA,DLM=@@
***ERROR - DSS2140E - IN-STREAM DATA NOT ALLOWED IN PROC
And you know that because you've read the manual, of course:
MVS JCL Reference wrote:
A cataloged or in-stream procedure cannot contain a DD DATA statement.

So, why don't you put your in-stream data in some PDS and use
Code:
//SYSIN    DD   DISP=SHR,DSN=some.pds(SPZ864)

The procedure becomes:
Code:
//ARCH10   EXEC PGM=EZACFSM1
//SYSOUT   DD   DSN=USR1.TEST.IBM.JCL(SPZ864P1),DISP=SHR
//SYSIN    DD   DISP=SHR,DSN=some.pds(SPZ864)

The calling JCL stays the same, and then maybe the whole procedure becomes irrelevant and you can have this for JCL:
Code:
//RBISW0B1 JOB  T,NOTIFY=&SYSUID,RESTART=*
//JOBLIB   DD   DSN=USR1.LIBCCF.TESTLOAD,DISP=SHR
//ARCH10   EXEC PGM=EZACFSM1
//SYSOUT   DD   DSN=USR1.TEST.IBM.JCL(SPZ864P1),DISP=SHR
//SYSIN    DD   DISP=SHR,DSN=some.pds(SPZ864)
//*
//
Back to top
View user's profile Send private message
David Robinson

Active User


Joined: 21 Dec 2011
Posts: 175
Location: UK

PostPosted: Mon Jun 09, 2014 2:10 pm    Post subject:
Reply with quote

I believe instream data can be used in a proc from z/OS v1.13.
Back to top
View user's profile Send private message
rabiswas

New User


Joined: 15 Oct 2008
Posts: 11
Location: India

PostPosted: Wed Jun 18, 2014 3:58 pm    Post subject: Apologies for the delay in response.. but
Reply with quote

I could make this work.. followed Marso's inputs..

Thanks !
Back to top
View user's profile Send private message
Terry Heinze

JCL Moderator


Joined: 14 Jul 2008
Posts: 1238
Location: Richfield, MN, USA

PostPosted: Wed Jun 18, 2014 7:03 pm    Post subject:
Reply with quote

In z/OS 1.13, JEM will give you a "not allowed" message, but the PROC WILL allow instream data when executed.
Back to top
View user's profile Send private message
superk

Moderator Team Head


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

PostPosted: Wed Jun 18, 2014 7:10 pm    Post subject: Reply to: Using EZACFSM1 prog with instream data for file qu
Reply with quote

Yes. The original code as posted worked for me in both the JCL checker and when actually submitted.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Is the 'prompt' data for the DSLIST p... Willy Jensen TSO/ISPF 2 Tue Dec 06, 2016 4:38 am
This topic is locked: you cannot edit posts or make replies. How to move a long alphanumeric data ... lind sh COBOL Programming 8 Mon Dec 05, 2016 7:51 pm
No new posts Add PD field from 2nd file to PD in 1st Sushant Garje DFSORT/ICETOOL 6 Thu Dec 01, 2016 4:32 pm
No new posts File Aid to File Manager conversion murali3955 IBM Tools 4 Thu Nov 24, 2016 3:41 pm
No new posts How to convert the VBM file to VB or... Sulabh Agrawal JCL & VSAM 4 Fri Nov 18, 2016 1:04 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us