Subject: Re: IDCAMS in PROC.
Rbotsis@aol.com
Date: Mon Aug 03 2009 - 16:47:52 EDT
Mohammed, See below. Bob, I’ll second you on this requirement. This would be a great help. Submit a requirement. Maybe IBM will WAKE UP. Do you have an example of DITTO to correct DATA=value. There is NO JCL here. It's all done using Interactive DITTO which is invoked by entering DITT from a blank screen (in CICS). I use function 5.2 which brings up a screen to enter a library.sublibrary and membername.membertype. After entering it press enter. Move cursor to membername.membertype and press PF4. On the right DITTO will list the DATA= value (i.e. NO or YES). Overtype this value and press UPDATE (i.e. PF3). Voila, you done. Here's a sample of using Tonys program which I've renamed tp DPVSMR: // JOB DPVSMVJ GW00 DELETE/DEFINE SJ WATER PROD/TEST FILES. // EXEC DTRIATTN,PARM='L LST,*DPVSMVJ' /INCLUDE DPMACH // IF MACHINE=PROD THEN // GOTO PROD * TEST // SETPARM PFX='TEST.' // SETPARM BDV='CN098E' // SETPARM BIV='CN0989' // DLBL SJWKMST,'&PFX.SJWKMST.MASTER',,VSAM,CAT=USR1CAT // GOTO NEXT /. PROD * PROD // SETPARM PFX='PROD.' // SETPARM BDV='CN1817' // SETPARM BIV='CN180F' // DLBL SJWKMST,'SJWKMST.MASTER',,VSAM,CAT=USR1CAT /. NEXT // EXEC DPVSMV,SIZE=AUTO DELETE (&PFX.SJWKMST.MASTER) CL PURGE - CATALOG(USR1.CATALOG) DELETE (&PFX.SJWKMST.MASTER) CL PURGE - CATALOG(USR1.CATALOG) DEFINE CLUSTER(NAME(&PFX.SJWKMST.MASTER) - CYL(100 1) FREESPACE(0 1) IXD SPEED SHR(2 3)) - DATA( - CISZ(8192) NERAS KEYS(6 23) - NAME(&PFX.SJWKMST.MASTER.DATA) - RECSZ(2874 2874) NRUS NSPND SUBAL NWCK UNORD - VOLUMES(&BDV)) - INDEX( - NAME(&PFX.SJWKMST.MASTER.INDEX) UNORD NRUS SUBAL NWCK - VOLUMES(&BIV)) - CATALOG(USR1.CATALOG) /* /& Any other IDCAMS operand could have been substituted (i.e. CATALOG, CISZ, CYL) as well. Mohammed Imam County of Cumberland, NC. From: owner-vse-l@Lehigh.EDU [mailto:owner-vse-l@Lehigh.EDU] On Behalf Of Rbotsis@aol.com Sent: Monday, August 03, 2009 4:18 PM To: VSE Discussion List Subject: Re: IDCAMS in PROC. Your right. I missed that. However, Tony wrote a IDCAMS replacement that allows use of variable names, with substitution, perhaps that's a better way to fly this boat. Well maybe my requirement, to allow SLI's to contain variable names, should be backed by some of you guys also writing the same requirement. For those of you who are recataloging PROC's to correct DATA= values, this can be done using Interactive DITTO. Works real fine, should last a long time. I think the problem is that the SLI statement has a variable in it indicating the member name to be included for the reorganization job. POWER JECL does not get symbol substitution. -----Original Message----- From: owner-vse-l@Lehigh.EDU [mailto:owner-vse-l@Lehigh.EDU] On Behalf Of rbotsis@aol.com Sent: Monday, August 03, 2009 2:11 PM To: VSE Discussion List Subject: Re: IDCAMS in PROC. Rather than using a PROC use an SLI. The target of your SLI can contain an SLI. Change the PARMs you were using for the PROC to SETPARMs and use the variable names inside the SLI. -----Original Message----- From: Mohammed Imam <mimam@co.cumberland.nc.us> To: VSE Discussion List <vse-l@Lehigh.EDU> Sent: Mon, Aug 3, 2009 12:22 pm Subject: RE: IDCAMS in PROC. Thanks for all your help. I’ll try to find some alternative. From: owner-vse-l@Lehigh.EDU [mailto:owner-vse-l@Lehigh.EDU] On Behalf Of McBride, Catherine Sent: Monday, August 03, 2009 12:12 PM To: VSE Discussion List Subject: RE: IDCAMS in PROC. Not sure an SLI will work within a cataloged procedure, should give the restrictions in the Power manual. -----Original Message----- From: owner-vse-l@Lehigh.EDU [mailto:owner-vse-l@Lehigh.EDU]On Behalf Of Mohammed Imam Sent: Monday, August 03, 2009 11:09 AM To: VSE Discussion List Subject: RE: IDCAMS in PROC. My attempt to catalog with ‘DATA=YES’ failed. It seems like ‘* $$ SLI’ statement is not valid for PROC. // PROC FILENME=,FILEDEF= // DLBL INPB,'&FILENME.',,VSAM,CAT=UCAT1 // DLBL OUTB,'REORG.ESDS',,VSAM,CAT=UCTTMP1 // EXEC IDCAMS,SIZE=AUTO C2 REPRO INFILE(INPB) OUTFILE(OUTB) REUSE IF LASTCC GT 4 THEN SET MAXCC = 16 /* // DLBL INP,'&FILENME.',,VSAM,CAT=UCAT1 // EXEC IDCAMS,SIZE=IDCAMS * $$ SLI MEM=&FILEDEF..REORG,S=(IMAM.SOURCE) IF LASTCC GT 4 THEN SET MAXCC = 16 /* // DLBL INPR,'REORG.ESDS',,VSAM,CAT=UCTTMP1 // DLBL OUTR,'&FILENME.',,VSAM,CAT=UCAT1 // EXEC IDCAMS,SIZE=AUTO REPRO INFILE(INPR) OUTFILE(OUTR) IF LASTCC GT 4 THEN SET MAXCC = 16 /* How does a PROC process the S LI statement? From: owner-vse-l@Lehigh.EDU [mailto:owner-vse-l@Lehigh.EDU] On Behalf Of McBride, Catherine Sent: Monday, August 03, 2009 11:43 AM To: VSE Discussion List Subject: RE: IDCAMS in PROC. Is the proc cataloged with DATA=YES? -----Original Message----- From: owner-vse-l@Lehigh.EDU [mailto:owner-vse-l@Lehigh.EDU]On Behalf Of Mohammed Imam Sent: Monday, August 03, 2009 10:40 AM To: VSE Discussion List Subject: IDCAMS in PROC. Can IDCAMS commands and parameters be used in PROC? Following statement fails in a PROC. Works in a JOB, however. // EXEC IDCAMS,SIZE=AUTO REPRO INFILE(INPB) OUTFILE(OUTB) REUSE IF LASTCC GT 4 THEN SET MAXCC = 16 /* I need help from your experience in this regard. Thanks, Mohammed A. Imam County of Cumberland, NC. **************A Good Credit Score is 700 or Above. See yours in just 2 easy steps! (http://pr.atwola.com/promoclk/100126575x1222846709x1201493018/aol?redir=http://www.freecreditreport.com/pm/default.aspx?sc=668072&hmpgID=115&bcd =JulystepsfooterNO115)
This archive was generated by hypermail 2b25 : Wed Sep 02 2009 - 20:20:07 EDT