Using EZACFSM1 prog with instream data for file qualifier

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

superk · Posted: Sun Jun 08, 2014 6:48 pm

You've got me. Are you not running on the latest version of z/OS?

steve-myers · Posted: Sun Jun 08, 2014 7:01 pm

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.

Marso · Posted: Sun Jun 08, 2014 7:05 pm

You already know the source of the problem:

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.

rabiswas · New User Joined: 15 Oct 2008 Posts: 11 Location: India

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

Thanks !

Terry Heinze · Posted: Wed Jun 18, 2014 7:03 pm

In z/OS 1.13, JEM will give you a "not allowed" message, but the PROC WILL allow instream data when executed.

superk · Posted: Wed Jun 18, 2014 7:10 pm

Yes. The original code as posted worked for me in both the JCL checker and when actually submitted.