Robert Rosenberg wrote >Why not just multi-path logic? You pass a flag for the scope in pass_scope >as 0=SINGLE, 4=ALL, 8=COMMON and go:
I actually use a similiar logic now, I was trying to get a single routine and once instance of the macro. ---------- Original Message ---------- From: "Robert A. Rosenberg" <[email protected]> To: [email protected] Subject: Re: DSPSERV with SCOPE=? Date: Sat, 9 Feb 2013 15:32:25 -0500 At 15:53 +0000 on 02/09/2013, [email protected] wrote about DSPSERV with SCOPE=?: >I would like to develope a single routine which is passed >parameters, but the SCOPE= parameter does not seem to allow a >parameter to be passed. >For Example: > DSPSERV CREATE, > NAME=DSP_NAME, > SCOPE=SINGLE, > STOKEN=DSP_STOKEN, > BLOCKS=DSP_BLOCKS, > ORIGIN=DSP_ORIGIN, > NUMBLKS=DSP_#BLK, > MF=(E,WRKDSPLI) >* > >Are there any recommended techniques that can be used to supply a Variable >for SCOPE ? >I was hoping I could use a register for it. Why not just multi-path logic? You pass a flag for the scope in pass_scope as 0=SINGLE, 4=ALL, 8=COMMON and go: L R1,pass_scope B *+4(R1) B SINGLE B ALL B COMMON * SINGLE DSPSERV CREATE, NAME=DSP_NAME, SCOPE=SINGLE, STOKEN=DSP_STOKEN, BLOCKS=DSP_BLOCKS, ORIGIN=DSP_ORIGIN, NUMBLKS=DSP_#BLK, MF=(E,WRKDSPLI) B DONE ALL DSPSERV CREATE, NAME=DSP_NAME, SCOPE=ALL, STOKEN=DSP_STOKEN, BLOCKS=DSP_BLOCKS, ORIGIN=DSP_ORIGIN, NUMBLKS=DSP_#BLK, MF=(E,WRKDSPLI)ALL B DONE COMMON DSPSERV CREATE, NAME=DSP_NAME, SCOPE=COMMON, STOKEN=DSP_STOKEN, BLOCKS=DSP_BLOCKS, ORIGIN=DSP_ORIGIN, NUMBLKS=DSP_#BLK, MF=(E,WRKDSPLI) DONE DS 0H
