How to get status by ABAP

In SAP 4.6c, when we want to retrieve status of production order by ABAP, we can apply function 'STATUS_READ'.
This function require only object no. of production order.
Example

CALL FUNCTION 'STATUS_READ'
EXPORTING
* CLIENT = SY-MANDT
OBJNR = PA_OBJNR
* ONLY_ACTIVE = ' '
* IMPORTING
* OBTYP =
* STSMA =
* STONR =
* TABLES
* STATUS =
* EXCEPTIONS
* OBJECT_NOT_FOUND = 1
* OTHERS = 2 .

If we want to know only active status, we can mark 'X' in export parameter 'ONLY_ACTIVE'. This function will return all status in term of internal table and return active user status in import parameters.