|
View previous topic :: View next topic
|
| Author |
Message |
rabiswas
New User
Joined: 15 Oct 2008
Posts: 11
Location: India
|
|
|
|
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 ! 
RBiswas |
|
| Back to top |
|
 |
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
| You've got me. Are you not running on the latest version of z/OS? |
|
| Back to top |
|
|
steve-myers
Active Member
Joined: 30 Nov 2013
Posts: 917
Location: The Universe
|
|
|
|
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 |
|
|
Marso
REXX Moderator
Joined: 13 Mar 2006
Posts: 1356
Location: Israel
|
|
|
|
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 |
|
|
David Robinson
Active User
Joined: 21 Dec 2011
Posts: 199
Location: UK
|
|
|
|
| I believe instream data can be used in a proc from z/OS v1.13. |
|
| Back to top |
|
|
rabiswas
New User
Joined: 15 Oct 2008
Posts: 11
Location: India
|
|
|
|
I could make this work.. followed Marso's inputs..
Thanks ! |
|
| Back to top |
|
|
Terry Heinze
JCL Moderator
Joined: 14 Jul 2008
Posts: 1248
Location: Richfield, MN, USA
|
|
|
|
| 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 |
|
|
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
| Yes. The original code as posted worked for me in both the JCL checker and when actually submitted. |
|
| Back to top |
|
|
|
|
  |
All times are GMT + 6 Hours |
|
