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 <[email protected]>
To: [email protected],
Date: 08/04/2013 03:09 PM
Subject: SYSIN in PROC -- technique
Sent by: IBM Mainframe Discussion List <[email protected]>
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 [email protected] with the message: INFO IBM-MAIN
