But &SYSPARM can be passed to Assembler from any JES: //******************************************************************** //* SUBSTITUTE VARIABLES BY ASSEMBLING 'PUNCH &SYSPARM' in x.TEST.SOURCE(PARMTODD) //******************************************************************** // SET PPP=<your variable string> //ASM EXEC PGM=ASMA90,PARM=('SYSPARM(&PPP)') //SYSIN DD DSN=x.TEST.SOURCE(PARMTODD),DISP=SHR //SYSUT1 DD SPACE=(4096,(2,2)),UNIT=VIO //SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR //SYSPRINT DD SYSOUT=* //SYSLIN DD UNIT=VIO,DISP=(,PASS),SPACE=(TRK,(1,1)), // DCB=(BLKSIZE=80,LRECL=80,RECFM=FB) //... //*next Step SYSIN ////SYSIN DD DISP=(OLD,DELETE),DSN=*.ASM.SYSLIN
HTH, -Victor- =============================================================== Be aware, use of system symbols in JCL is supported in JES2 in z/OS 2.1, NOT JES3. Sean M. Smith OSS Program Products <SNIPPED> From: Paul Gilmartin <paulgboul...@aim.com> To: IBM-MAIN@listserv.ua.edu, Date: 08/04/2013 03:09 PM Subject: SYSIN in PROC -- technique Sent by: IBM Mainframe Discussion List <IBM-MAIN@listserv.ua.edu> I just discovered I can do such as: //SOURCE PROC //C EXEC PGM=ASMA90 //SYSIN DD * For caller to override. // DD * Main body of code MACRO TESTIT CSECT ... END // PEND ... and the caller can (optionally) provide an overriding prelude SYSIN containing various ACONTROL and SETC instructions to govern the rest of the processing. Could be very useful for storing tailorable SYSIN in a PROCLIB. Will be even better with symbol substitution in 2.1. -- gil ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN