Re: GETOWNLIB automatic memory allocation

OK, Don, I'll try from here

----- Original Message -----
From: Don <dr2@cssas400.com>
To: <leif@attglobal.net>
Sent: Thursday, November 11, 1999 9:48 PM
Subject: BOUNCE mi400@midrange.com: Non-member submission from
[leif@attglobal.net] (fwd)


>
> Geezuz, and I thought I had alot of email addrs...:)
>
>
>
>
> ---------- Forwarded message ----------
> Date: Thu, 11 Nov 1999 20:52:30 -0600
> From: owner-mi400@midrange.com
> To: owner-mi400@midrange.com
> Subject: BOUNCE mi400@midrange.com:    Non-member submission from
[leif@attglobal.net]
>
> >From mi400-owner@midrange.com  Thu Nov 11 20:52:23 1999
> Received: (from uucp@localhost)
> by midrange.com (8.9.3/8.9.3) with UUCP id UAA22832
> for MI400@midrange.com; Thu, 11 Nov 1999 20:45:27 -0600
> From: leif@attglobal.net
> Received: from prserv.net (out5.prserv.net [165.87.194.243])
> by uucphost.mcs.net (8.9.3/8.8.8) with ESMTP id UAA35538
> for <MI400@midrange.com>; Thu, 11 Nov 1999 20:34:34 -0600 (CST)
> Received: from leif.etk.com ([32.101.245.156]) by prserv.net (out5) with
SMTP
>           id <19991112023432243065piuke>; Fri, 12 Nov 1999 02:34:32 +0000
> Message-ID: <01dc01bf2cb6$8c88aa60$9cf56520@etk.com>
> To: <MI400@midrange.com>
> References: <51B42B70315AD2119F6800AA0029E73E056A29@snail>
> Subject: Re: GETOWNLIB automatic memory allocation
> Date: Thu, 11 Nov 1999 20:35:12 -0600
> MIME-Version: 1.0
> Content-Type: text/plain;
> charset="iso-8859-1"
> Content-Transfer-Encoding: 7bit
> X-Priority: 3
> X-MSMail-Priority: Normal
> X-Mailer: Microsoft Outlook Express 5.00.2014.211
> X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2014.211
>
> From: Tim McCarthy <TimM@softwarejungle.com
> > OK, I gave in and joined this list. Leif you could avoid the whole size
> > issue by doing this instead:
> >
> >  DCL DD INVINFO CHAR(16) BDRY(16);
> >  DCL SYSPTR INVPGM DEF(INVINFO) POS(1);
> >  DCL SPCPTR P#INVINF INIT(INVINFO);
> > /* The attribute info selects the program pointer.
> >  DCL DD ATTINFO CHAR(144) BDRY(16);
> >  DCL DD NUMATT BIN(4) DEF(ATTINFO) POS(1) INIT(1);
> >  DCL DD ATTID BIN(4) DEF(ATTINFO) POS(17) INIT(6);
> >  DCL DD ATTLGH BIN(4) DEF(ATTINFO) POS(29) INIT(16);
> >  DCL SPCPTR P#ATTINF INIT(ATTINFO);
> >  /* The selection criteria controls the invocation level.
> >  DCL DD SELECT CHAR(48) BDRY(16);
> >  DCL DD SRCINV BIN(4) DEF(SELECT) POS(1) INIT(-1);
> >
> >  /* Materialize the INVOCATION stack - current-1
> >    MATINVAT P#INVINF,SELECT,P#ATTINF;
> >
> > then you can materialize INVPGM...short too!
>
> Thank you Tim, that is the whole point of this list: to ferret out those
> nuggets
> of wisdom that ARE out there. My example had a hidden agenda: to show
> the use of MODASA.
>
> I indented your code so I could read it:
>
>  DCL DD INVINFO CHAR(16) BDRY(16);
>      DCL SYSPTR INVPGM DEF(INVINFO) POS(1);
>
>  DCL SPCPTR P#INVINF INIT(INVINFO);
>
> /* The attribute info selects the program pointer.*/
>  DCL DD ATTINFO CHAR(144) BDRY(16);
>      DCL DD NUMATT  BIN(4) DEF(ATTINFO) POS(1)  INIT(1);
>      DCL DD ATTID   BIN(4) DEF(ATTINFO) POS(17) INIT(6);
>      DCL DD ATTLGH  BIN(4) DEF(ATTINFO) POS(29) INIT(16);
>      DCL SPCPTR P#ATTINF                        INIT(ATTINFO);
>
>  /* The selection criteria controls the invocation level. */
>  DCL DD SELECT CHAR(48) BDRY(16);
>      DCL DD SRCINV  BIN(4) DEF(SELECT)  POS(1)  INIT(-1);
>
>  /* Materialize the INVOCATION stack - current-1 */
>      MATINVAT  P#INVINF, SELECT, P#ATTINF;
>
> then you can materialize INVPGM...short too!
>
>
>
>
>

+---
| This is the MI Programmers Mailing List!
| To submit a new message, send your mail to MI400@midrange.com.
| To subscribe to this list send email to MI400-SUB@midrange.com.
| To unsubscribe from this list send email to MI400-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: dr2@cssas400.com
+---