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