Query For Unposted Journals in R12

QUERY FOR UNPOSTED JOURNALS IN R12

SELECT
            GLSOB.NAME "gl book",
            GLJB.NAME "batch name" ,
            GLJH.NAME "journal name",
            GLJH.PERIOD_NAME ,
            DECODE (GLJH.STATUS ,'u','unposted',GLJH.STATUS) STATUS,
            GLJH.JE_CATEGORY CATEGORY ,
            GLJH.JE_SOURCE SOURCE ,
            GLJH.CURRENCY_CODE CURRENCY ,
            GLJH.RUNNING_TOTAL_DR "entered amount dr" ,
            GLJH.RUNNING_TOTAL_ACCOUNTED_DR "accounted amount dr" ,
            GLJH.RUNNING_TOTAL_CR "entered amount cr",
            GLJH.RUNNING_TOTAL_ACCOUNTED_CR "accounted amount cr"
FROM
            GL_JE_HEADERS GLJH,
            GL_JE_BATCHES GLJB ,
            GL_SETS_OF_BOOKS GLSOB
WHERE
            GLJB.JE_BATCH_ID = GLJH.JE_BATCH_ID AND
            GLJH.LEDGER_ID = GLSOB.SET_OF_BOOKS_ID AND
            GLJH.STATUS <> 'P'
ORDER BY
            GLSOB.NAME, GLJH.PERIOD_NAME