I've gotten good results with the EXPORT before the PROC, this example is
cut down from a working job:
//TSRCMHL1 JOB 1000,STEVE.SMITH,NOTIFY=&SYSUID,
// CLASS=C,MSGCLASS=X,COND=(1,LT)
// EXPORT SYMLIST=(PFX,VER,REL,FIX)
//HLDLIBS PROC PFX=RCM,VER=VV,REL=RR,FIX=TAC99999
//AMS1 EXEC PGM=IDCAMS,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSIN DD *,SYMBOLS=JCLONLY
DELETE &PFX..HLD&VER.&REL..&FIX..*
SET MAXCC=0
//COPY1 EXEC PGM=IEBCOPY,REGION=0M
//SYSPRINT DD SYSOUT=*
//ASMIN DD DSN=RCM.WRK07&REL..ASM,DISP=SHR
//LOADIN DD DSN=RCM.WRK07&REL..LOADLIB,DISP=SHR
//ASMOUT DD DSN=&PFX..HLD&VER.&REL..&FIX..ASM,DISP=(NEW,CATLG),
// UNIT=SYSDA,SPACE=(CYL,(5,10,1),RLSE),
// DSNTYPE=LIBRARY,RECFM=FB,LRECL=80
//LOADOUT DD DSN=&PFX..HLD&VER.&REL..&FIX..S&PFX.LOAD,
// DISP=(NEW,CATLG),
// UNIT=SYSDA,SPACE=(TRK,(30,20,3),RLSE),
// RECFM=U,BLKSIZE=6233
//SYSIN DD DDNAME=&PFX.ASMIN
// DD *,SYMBOLS=JCLONLY
LOADLIB COPY INDD=LOADIN,OUTDD=LOADOUT
SELECT MEMBER=&PFX.00222
//MKCASMIN DD *
ASM COPY INDD=ASMIN,OUTDD=ASMOUT
SELECT MEMBER=((RCM00222,MKC00222))
//RCMASMIN DD *
ASM COPY INDD=ASMIN,OUTDD=ASMOUT
SELECT MEMBER=RCM00222
// PEND
//JS16730 EXEC HLDLIBS,PFX=RCM,VER=07,REL=05,FIX=TAC16730
//JS2740 EXEC HLDLIBS,PFX=MKC,VER=02,REL=05,FIX=MCA2740
//JS2741 EXEC HLDLIBS,PFX=MKC,VER=02,REL=06,FIX=MCA2741
//JS2742 EXEC HLDLIBS,PFX=MKC,VER=02,REL=07,FIX=MCA2742
//JS16731 EXEC HLDLIBS,PFX=RCM,VER=07,REL=07,FIX=TAC16731
//
Ain't JCL fun!
sas
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
