!
     READ (2,Z8) KEY=KZ8$                               ! EMAIL QUEUE FILE
!     
     EMLDOC$ = 'InvNo '+ Z8DOC$                         ! Z8DOC$ IS tHE INVOICE NUMBER (IN THIS CASE 31162497)
!
!********    OLD CODE
!
     EMLDOC$ = STRIP(EMLDOC$)                           ! OLD CODE 
!
!********    NEW CODE
!
     EMLDOC$ = STRIP(EMLDOC$)+'.pdf'                    ! NEW CODE
!
     PRINT (0,2720)                          
!
     IF EMLSEND$ = 'Y'
        PRINT (1) (TR);(Document = EMLDOC$,'DOC')       ! CREATE DOCUMENT IN 'DOC' FOLDER
     ENDIF
!