/* REXX */
TRACE O
ARG QNAME .
SELECT
  WHEN QNAME = 'HELP' THEN DO
    SAY '>> ENQ - Resource Information Block Search ----------------'
    SAY '>>                                                         '
    SAY '>> Usage                                                   '
    SAY '>>  Case 1 : Specify R-Name Search .                       '
    SAY '>>   -> TSO @ENQ string ( string = Search R-Name )         '
    SAY '>>  Case 2 : Reserved Unit Search .                        '
    SAY '>>   -> TSO @ENQ R                                         '
    SAY '>>  Case 3 : Waitting Resource Tasks Search .              '
    SAY '>>   -> TSO @ENQ                                           '
    SAY '>>                                                         '
    SAY '>> Indicate                                                '
    SAY '>> QN : Q-Name                                             '
    SAY '>> RN : R-Name (Maximam 61 Byte)                           '
    SAY '>> J  : JobName                                            '
    SAY '>> S  : System-ID                                          '
    SAY '>> S  : Scope & Global (Scope:STEP,SYS,SYSS),(Global:G,_)  '
    SAY '>> T  : Type (EXClusive or SHaRed)                         '
    SAY '>> S  : Sharing (OWNerS or SHARed)                         '
    SAY '>> R  : Reserved & Reserved Unit Address                   '
    SAY '>> G  : Request Indicator (G:Global _:Local)               '
    SAY '>> O  : Owner Count                                        '
    SAY '>> X  : Exclusive Waitting Tasks Count                     '
    SAY '>> S  : Sharing Waitting Tasks Count                       '
  END
  WHEN QNAME = '' THEN
    ADDRESS TSO CALL "'your.loadlib(@ENQ#003)'"
  OTHERWISE
    ADDRESS TSO CALL "'your.loadlib(@ENQ#003)'" "'"QNAME"'"
END