!============================= ^PDFARC =========================================!

ArchivePDFDocument:
	IF PRINT$ NE 'P' GOTO APD90                            ! NOTHING PRINTED
	INQUIRE (7,2635) KEY = '*PDF'
	IF ZPDFFLAG$ EQ 'N' GOTO APD90                         ! ARCHIVE OFF
!-------------------- Create Extended Window ----------------------------------!
     PRINT (CreateWindowEx = 5, 5, 50, 2, 68, 0, "PDF Procesing")
     INPUT EXFILE$
     PRINT @(0,0);'Your PDF file is being prepared ... Please Wait.'
!------------------------------------------------------------------------------!      
	LET PDFFILE$ = STRIP(SUB(PSTAT(PARTITION$),1,8))
	IF LEN(STRIP(PDFREG$)) EQ 1 LET PDFREG$ = '00' + STRIP(PDFREG$)
	IF LEN(STRIP(PDFREG$)) EQ 2 LET PDFREG$ = '0' + STRIP(PDFREG$)
	LET PDFFILE$ = PDFFILE$ + '-' + PDFREG$
	PRINT (1) (SpoolMessage = PDFFILE$)	
	LET PDFFILE$ = PDFFILE$ + '-' + SUB(ZDATE$,7,4) + SUB(ZDATE$,1,2) + SUB(ZDATE$,4,2)
	LET PDFFILE$ = PDFFILE$ + '-' + SUB(SYSTIME$,1,2) + SUB(SYSTIME$,4,2) + SUB(SYSTIME$,7,2) + '.PDF'
	
	LET PASS$ = ZDATE$
	ENTER 'GETFY'                                          ! GET FISCAL YEAR
	INPUT (#) PDFFY$
	
     LET PDFDOC$ = STRIP(ZPDFPATH$) + 'FY' + PDFFY$ + '\' + PDFSRCE$ + '\' + STRIP(PDFFILE$)
	PRINT (1) (Document = PDFDOC$,"")
	
	IF ZPDFVIEW$ EQ 'Y'
		CLOSE (1)                                         ! RELEASE PRINTER   
		INPUT (#) PDFDOC$                                 ! GET pdfFactory name
		
		LET PDFDOC$ = '"' + STRIP(PDFDOC$) + '"'
		
		PRINT (LAUNCH = PDFDOC$)
		INPUT ""
	ELSE
		CLOSE (1)                                         ! RELEASE PRINTER	
	ENDIF
!------------------- Close Extended Window ------------------------------------!
     PRINT (DeleteWindowEx = ExFILE$)                       ! CLOSE WINDOW
!------------------------------------------------------------------------------!	
APD90:		
	RETURN