Yes, you're right. I mis-quoted into my initial post.

105          FREEMAIN RU,A=(1),LV=(0)   *** ,SP=(R2)                        
107+         DS    0H                                                  @P2A 
108+         LHI   15,X'0003'                        Add in parameters @P3A 
109+         SVC   120                               ISSUE FREEMAIN SVC     

But it still assembled for SVC x'78'.

Hmmm. Where did line 106 go? I never pay attention to those line numbers. Are 
they supposed to increase by exactly 1? There's no PRINT NOGEN or anything. 
There is only 

  10          SYSSTATE ARCHLVL=6,OSREL=ZOSV2R3                                  
     
 11+*        THE VALUE OF SYSSTATE IS NOW SET TO ASCENV=P AMODE64=NO 
ARCHLVX01-SYSST
   +               L=6 OSREL=ZOSV2R3 RMODE64=NO                                 
    

Charles


On Sat, 31 Aug 2024 01:12:44 +0000, Jim Mulder <[email protected]> wrote:

>         FREEMAIN A=(1),LV=(0)
>     12,***  IHB001  MODE OPERAND REQ'D-NOT SPECIFIED
>
>  So it would seem that you actually most have done something like FREEMAIN 
> RU,A=(1),LV=(0) 
>
>Jim Mulder
>
>-----Original Message-----
>From: Jim Mulder 
>Sent: Friday, August 30, 2024 8:21 PM
>To: IBM Mainframe Discussion List <[email protected]>
>Subject: RE: Subpool FREEMAIN
>
>  You did not specify a positional parameter.  It looks like the macro assumed 
> RU (SVC x'78') in that case, but you set R0 and R1 in the format for R (SVC 
> x'A').
>
>FREEMAIN R,A=(1),LV=(0)           should work better.  
>
>But I would recommend FREEMAIN RU,SP=1   
>
>Jim Mulder
>
>-----Original Message-----
>From: IBM Mainframe Discussion List <[email protected]> On Behalf Of 
>Charles Mills
>Sent: Friday, August 30, 2024 6:47 PM
>To: [email protected]
>Subject: Subpool FREEMAIN
>
>Okay, true confessions time: in more years of this than I care to admit I have 
>never done a subpool FREEMAIN.
>
>I am trying to free subpool 1.
>
>R0 = x'01000000'
>R1 = 0
>
>I issue FREEMAIN A=(1),LV=(0)

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to