|
Here's a REXX program that lists ILE builtin functions. Run it with STRREXPRC. It reveals interesting things. 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 +---
As an Amazon Associate we earn from qualifying purchases.
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.