List ILE Builtin Functions - where is QWXHTSPC?

Hi Gene,

 I came across this code from Gene Gaunt.  Under v5r3 QWXHTSPC seems to have
disappeared.  Is there a replacement?  Thanks.

 -mark


List ILE Builtin Functions
--------------------------
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)