I have a SYSOUT dataset in my program it too is SVC 99 Right after the SVC 99 I am able to 3.4 the name
This is at a test breakpoint while test is still running -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Paul Gilmartin Sent: Sunday, September 25, 2016 5:17 PM To: [email protected] Subject: Re: S99ERROR = 21C For &&OBJ 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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
