c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
c   This file contains all common used variables for the PASSWORD Program.
c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
	include		'($SYSSRVNAM)'
	include		'(STR$ROUTINES)'
	include		'(OTS$ROUTINES)'

	include		'($JPIDEF)'
	include		'($RMSDEF)'
	include		'($SSDEF)'
	include		'($STSDEF)'
	include		'($SYIDEF)'
	include		'($UAIDEF)'

	logical*1	Log /.FALSE./, Confirm /.FALSE./, Do_Modify /.FALSE./

	integer*2	OF_Len, Cnt, NPW_Len(2), Min_PWD_Length

	integer*4	Sts, Iosb(2), OF_Lun, CLI$PRESENT, CLI$GET_VALUE, CALLG_Sts, SAV_Lun

	integer*4	PWD_Save, PWD_Restore, PWD_Modify, PWD_Remove, PWD_List, PWD_Open_SAV_File, PWD_Close_SAV_File

	character	OF_Name*256, Dummy*1, SAV_File*20, NewPassWord(2)*32

	parameter	(SAV_File = 'PWD$DIR:PASSWORD.SAV')
c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
c   Common blocks, 1 per variable type
c~~~
	common	/PWD_Log1/	Log, Confirm, Do_Modify

	common	/PWD_Int2/	OF_Len, NPW_Len, Min_PWD_Length

	common	/PWD_Int4/	OF_Lun, CALLG_Sts, SAV_Lun

	common	/PWD_Char/	Dummy, OF_Name, NewPassWord

	common	/PWD_Recs/	PIC, PIO, PIN, GPI, SPI, NPI
c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
c   Define the VMS System Services itemlist structure, and other records
c~~~
	structure	/VMS_ItemList/
	 union
	  map
	   integer*2	Buflen, Itmcod
	   integer*4	Bufadr, Retlen
	  endmap
	  map
	   integer*4	Lstend
	  endmap
	 endunion
	endstructure

	structure	/SAV_Info/
	 union
	  map
	   character	Username*12, PWD_User*12, PWD_Node*15
	   byte		Encrypt1, Encrypt2, %fill(1)
	   logical*1	Modified, Restored
	   integer*2	UN_Len, Salt, PU_Len, PN_Len
	   integer*4	Pwd1(2), Pwd2(2), Pwd1_Date(2), Pwd2_Date(2), Store_Date(2), PWD_Pid
	  endmap
	 endunion
	endstructure

	record /SAV_Info/ PIC, PIO, PIN								! Password Info Current/Old/New
	record /VMS_Itemlist/ GPI(9), SPI(6), NPI(3)						! GET/SET UAI info from/in SYSUAF
c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
c   PWD Message definitions
c~~~
	external	PWD_SAVED, PWD_REPLACED, PWD_RESTORED, PWD_MODIFIED, PWD_REMOVED	! Success

	external	PWD_USERREM, PWD_UPDATED						! Informational

	external	PWD_NOTSAVED, PWD_NOTREPLACED, PWD_NOTRESTORED, PWD_NOTMODIFIED, 	! Warning
     +			PWD_NOTREMOVED, PWD_NOTUPDATE, PWD_NOTCHANGED, PWD_ALRRESTORED

	external	PWD_CHANGED, PWD_TOOLATE, PWD_NONEXUSER, PWD_USRNOTFND, PWD_NOSUCHUSER,	! Error
     +			PWD_MINPWDLEN
c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
c   External CLI symbol definitions
c~~~
	external	CLI$_PRESENT, CLI$_NEGATED, CLI$_DEFAULTED, CLI$_ABSENT, CLI$_COMMA
c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~