× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  • Subject: Re: MI Module
  • From: Zhukov Alexey <Zhukov@xxxxxxxxxx>
  • Date: Mon, 19 Jun 2000 11:11:03 +0400

Hi all .

It's great list of built-in functions, but useless without knowledge of type
and quantity of parameters.
Does any body know where it is possible to read about this information?
I know, of course, that there is  "MI Functional Reference" book, but it has
not all functions description, as I know, and it is not accessible to me
now. Is there other way? 

Zhukov Alexey.

>/********************************************************************/
>/*  PROGRAM  - PRTBUILTIN                                           */
>/*  FUNCTION - print the ILE built-in functions                     */
>/*  LANGUAGE - REXX                                                 */
>/*  AUTHOR   - Gene Gaunt                                           */
>/********************************************************************/

>Data = ''
>Get = Copies('00'x, 512)
>Obj = 'QWXHTSPC  QSYS      '
>"CALL QUSRUSAT (&Get X'00000200' SPCA0100 &Obj X'00000000')"
>Do X = 1 By 512 For C2D(Substr(Get,9,4))/512
>   "CALL QUSRTVUS (&Obj X'"D2X(X,8)"' X'00000200' &Get)"
>   Data = Insert(Get, Data, X-1, 512); End X
>"OVRPRTF STDOUT QSYSPRT"
>Do X = 173 By 20 While X < Int(5)+1
>   Line = Left(Substr(Data, Int(5)+Int(X)+1, Int(X+4)), 23)
>   If Int(X+12) = 0 Then Do
>      Line = '             ' Line
>      Do Y = Int(9)+Int(X+16)+1 By 4 For Int(X+20)/4
>         Line = Line Format(Int(Y), 5); End Y
>      X = X + 4; End
>   Else Line = Format(Int(X+12), 5) Format(Int(X+16), 5) ' ' Line
>   Say Line; End
>Return
>INT: Return C2D(Substr(Data, Arg(1), 4), 4)


+---
| 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
+---


 

+---
| 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
+---

As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.