Re: Re:MI Module

["JeanMichel" <jmpenasse@xxxxxxxxxxx>]

Does this mean that one can use all these "bif" ???
What a dream if yes... CRTPG, RETDSEN ... Whaooooo
I can't believe it !
What do the numbers in the list mean ?

Jean-Michel Penasse
EXPERIA Europe
jmpenasse@experia.com
www.experia.com
_____________________________________________
----- Original Message -----
From: <Gene_Gaunt/ReviewWorks@reviewworks.com>
To: <MI400@midrange.com>
Sent: Friday, June 16, 2000 2:24 PM
Subject: Re:MI Module


| Here it is.  Use STRREXPRC.
|
| /********************************************************************/
| /*  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
+---