Re-Linkling a load module with AC(1)

2011-11-03 Thread Fred Kaptein
Hello,

I am looking to relink a vendor supplied program module which is set up similar 
to the following:
  - Module name is PCOPY
  - Module PCOPY is linked as AC(0)
  - Module PCOPY has an alias which is PCOPY2
  - Module PCOPY and PCOPY2 are in 'PCOPY.LOADLIB'
  
I would like to relink PCOPY with the following:
   - Linked as AC(1)
   - Retain the alias PCOPY2
   - Linked into a test load library called 'PCOPY.TESTLIB'

I tried the following JCL:
//LKED EXEC  PGM=IEWL,PARM='LET,LIST=SUMMARY,MAP,NCAL,XREF,AC=1'
//SYSLIB  DD DSN=PCOPY.LOADLIB,DISP=SHR   
//SYSLMOD  DD DSN=PCOPY.TESTLIB,DISP=SHR
  
//SYSUT1 DD DSN=SYSUT1,UNIT=SYSDA,SPACE=(CYL,(10,10))   
//SYSPRINT  DD SYSOUT=* 
//SYSLIN  DD *
  INCLUDE SYSLIB(PCOPY)   
  INCLUDE SYSLIB(PCOPY2)
  NAME PCOPY
  AC(1) 
  ALIAS PCOPY2 

but it fails with the following errors

IEW2230S 0414 MODULE HAS NO TEXT.   
IEW2677S 5130 A VALID ENTRY POINT COULD NOT BE DETERMINED.  
IEW2621E 4314 EXISTING ALIAS NAME PCOPY2 WITHIN MODULE TEMPNAM0 MATCHES ALIAS  
BEING ADDED.  
IEW2012I 0F09 ALL TEMPNAMES HAVE BEEN USED. THE MODULE CANNOT BE SAVED.
IEW2008I 0F03 PROCESSING COMPLETED.  RETURN CODE =  12.

We do not have the source for PCOPY

Does anyone know the correct JCL?

Thank you. 


 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


Smart Production - AXIOS

2011-10-05 Thread Fred Kaptein
Hello,
We are running a product called Smart Production from the vendor AXIOS.
We are looking for a replacement product.

Is anyone familiar with this product and can you recommend a replacement.

Thank you. 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


DFDSS COPY Return code

2011-04-01 Thread Fred Kaptein
Hello,

Some of our users are having problems with batch jobs that copy data sets 
using DFDSS.
They use JCL similar to the following:

//DSDSS   EXEC PGM=ADRDSSU 
//SYSPRINT  DD  SYSOUT=*
//SYSIN   DD  *   
  COPY DATASET(INCLUDE(DATA.SET.NAME)) -
   LOGINDYNAM(volser1) - 
   OUTDYNAM(volser2)  
/*  
//*  

If the data set 'DATA.SET.NAME' does not exist, the job still completes with a 
return code of 4
We are wondering if there is a way to make the return code 8 or greater,
just for this specific job. I believe there is a usermod, but at this time we 
do 
not want to make it a global change, as it may effect other user's batch jobs.

We are not concerned that there is no paramater to catalog the output data 
set

ADR383W (001)-DDDS (01), DATA SET DATA.SET.NAME NOT 
SELECTED
ADR455W (001)-DDDS (03), THE FOLLOWING DATA SETS WERE NOT 
SUCCESSFULLY PROCESSED
  DATA.SET.NAME 

ADR470W (001)-DDDS (04), NO DATA SETS SELECTED FOR 
PROCESSING   
ADR006I (001)-STEND(02), 2011.091 16:43:32 EXECUTION 
ENDS   
ADR013I (001)-CLTSK(01), 2011.091 16:43:32 TASK COMPLETED WITH 
RETURN CODE 0004 
 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


GDG Question

2011-01-18 Thread Fred Kaptein
Hello,

I have a question on GDGs
We have a GDG data set GDG.DSNAME.G0001V00 and append data into
this data set throughout the day.

We then run a batch job where we do the following:
1. Read GDG.DSNAME(0)
2. Delete GDG.DSNAME(0) as follows
//DELETE   EXEC PGM=IEFBR14  
//DD1DD DSN=GDG.DSNAME(0), 
// DISP=(OLD,DELETE,DELETE)   
3. Allocate a new GDG.DSNAME(+1) as  
follows:   
//ALLOC   EXEC PGM=IEFBR14,COND=(4,LE)   
//DD1  DD DSN=ISM.SMF.ZHAD011(+1),
//   DISP=(NEW,CATLG,DELETE),UNIT=3390,
//   SPACE=(CYL,(50,50))  

The ALLOC step actually allocates GDG dataset GDG.DSNAME.G0002V00
Besides changing SMS or running two batch jobs, is there any way to 
completely delete GDG.DSNAME(0) and allocate GDG.DSNAME(+1) where   
GDG.DSNAME(+1) will remain with the name GDG.DSNAME.G0001V00

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


Re: GDG Question

2011-01-18 Thread Fred Kaptein
Using   DSN=GDG.DSNAME(0),DISP=(NEW,CATLG) instead of (+1) is not valid 
on our system, as we use ThruPut Manager.
This JCL results in the following error message
   DTMI   DD1 - DISP FIELD INCOMPATIBLE WITH DSNAME   

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


Re: GDG Question

2011-01-18 Thread Fred Kaptein
There are too many JCL changes in other batch jobs, to change this
to a non-GDG file.
Reusing the same file without deleteing and reallocating the data set is an 
option.  
Thank you for your responses, we will take them into consideration.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html