/* REXX *** */
PARSE UPPER ARG Location
/* check the arguments */
/* input location value is hexadecimal and 6 long */
If Length(Location) > 8 | Location = '' ,
   | \Datatype(Location, 'X') Then Do
   Say 'Invalid input address 'Location
   Exit 4
   End
Say 'Input value is 'Location
/* report what module is at that location */
Address TSO ,
   "CALL (CSVWHERE) '"Location"'"
xrc = RC
Say 'Function completed RC = 'xrc
Select
  When xrc =  0 then Nop
  When xrc =  4 then Say 'Unable to retrieve all requested information'
  When xrc =  8 then Say 'Unable to locate module'
  When xrc = 12 then Say 'Unable to obtain lock'
  When xrc = 16 then Say 'Unexpected error'
  When xrc = 20 then Say 'Unsupported function'
  Otherwise Say 'Unexpected return code value returned'
  End
Exit xrc