	PROGRAM PDSOUT@C_TITLE PDSOUT  Query the user to verify his decision to LOGOFF.CC_ARGS  RAD$EXE:PDSOUT.PDFCC_VARSA	INCLUDE 'PIC$INC:TAEBAS.INC'	! TAE include file and declarationsCEC_DESC	PDSOUT queries the user to verify his decision to logoff.  The@C	user's response (Y or N) is returned to the calling procedure,
C	ULOGOFF.CC_KEYS	PDS, TAEC3C_HIST	14JUL89  Debbie Cook  USGS  Original VersionC)	CHARACTER*1 RESPONSE  		!User's response?	DATA ITT/5/,IPR/6/		!Logical units for screen input and output	INTEGER *4 SFI	CHARACTER*80 SKEYA	CALL XZINIT(BLOCK,XPRDIM,IPR,XABORT,ISTAT) !Initialize TAE block	WRITE(IPR,5     .    '('' Are you sure you wish to terminate '',$     .    ''your session (Y/N)?'')')	READ(ITT,'(A1)') RESPONSE%	IF (RESPONSE.EQ.'n')  RESPONSE = 'N'	ICOUNT = 17	CALL XQSTR(BLOCK,'QUERY',ICOUNT,RESPONSE,XUPDAT,ISTAT)	CALL XQOUT(BLOCK,ISTAT)	SFI = 1	CALL XZEXIT(SFI,SKEY)C  	STOP	END