On Fri, 23 Sep 2016 17:17:03 -0400, Joe Reichman wrote:
>
>I am trying to dynamic allocate files for HLASM When I get to SYSLIN
>
Here's a solution in Rexx. BPXWDYN is a friencly wrapper for SVC 99.
It writes SYSPRINT and SYSTERM to catalogued data sets. It's
serially reusable. If you can convert the BPXWDYN options to
SVC 99 TUs, it should work similarly.
/*Rexx */ signal on novalue; /*
Doc: ASSEMBLE ASMASAMP with HLASM. Catalog SYSPRINT and SYSTERM.
*/
trace R
RC = BPXWDYN( 'alloc dd(SYSPRINT) dsn('userid()'.TEMP.SYSPRINT) mod catalog
msg(2)' )
RC = BPXWDYN( 'alloc dd(SYSPRINT) dsn('userid()'.TEMP.SYSPRINT) shr reuse
msg(2)' )
RC = BPXWDYN( 'alloc dd(SYSTERM) dsn('userid()'.TEMP.SYSTERM) mod catalog
msg(2)' )
RC = BPXWDYN( 'alloc dd(SYSTERM) dsn('userid()'.TEMP.SYSTERM) shr reuse
msg(2)' )
RC = BPXWDYN( 'alloc dd(SYSLIB) dsn(SYS1.MACLIB) shr reuse
msg(2)' )
RC = BPXWDYN( 'alloc dd(SYSIN) dsn(SYS1.SAMPLIB(ASMASAMP)) shr reuse
msg(2)' )
P1 = 'NOOBJECT,NODECK'
address 'LINKMVS' 'ASMA90 P1'
-- gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
