IDENTIFICATION DIVISION.

PROGRAM-ID.	 DIALUPINI.
AUTHOR.  KEN RICHARDSON.
DATE-WRITTEN.  11/16/83.
DATE-COMPILED.
*REMARKS.
*
*	This program initializes the dial-up line to quiet mode
*	(no RING or CONNECT messages sent to VMS)
*

ENVIRONMENT	DIVISION.

CONFIGURATION SECTION.

SOURCE-COMPUTER.  VAX.
OBJECT-COMPUTER.  VAX.

DATA DIVISION.

WORKING-STORAGE SECTION.


01  constants.

    02	ws-true						pic x value "T".


01  variables.

    02	dialup-device-name				pic x(7) value "dialup:".
    02	dialup-channel					pic s9(9) comp.
    02	dialup-condition				pic s9(9) comp.
	88  accvio					value is external ss$_accvio.
	88  devalloc					value is external ss$_devalloc.
	88  devoffline					value is external ss$_devoffline.
	88  exquota					value is external ss$_exquota.
	88  illefc					value is external ss$_illefc.
	88  insfarg					value is external ss$_insfarg.
	88  insfmem					value is external ss$_insfmem.
	88  ivchan					value is external ss$_ivchan.
	88  ivdevnam					value is external ss$_ivdevnam.
	88  noiochan					value is external ss$_noiochan.
	88  nopriv					value is external ss$_nopriv.
	88  normal					value is external ss$_normal.
	88  nosuchdev					value is external ss$_nosuchdev.
	88  unasefc					value is external ss$_unasefc.
	88  abort					value is external ss$_abort.
	88  datacheck					value is external ss$_datacheck.
	88  drverr					value is external ss$_drverr.
	88  dataoverun					value is external ss$_dataoverun.
	88  parity					value is external ss$_parity.
	88  ctrlerr					value is external ss$_ctrlerr.
	88  timeout					value is external ss$_timeout.
	88  writlck					value is external ss$_writlck.


PROCEDURE DIVISION.

Initialize_dialup.

	call	"sys$assign"	using
		by descriptor	dialup-device-name
		by reference	dialup-channel
		by value	0
		by value	0
		giving		dialup-condition

	display "Modem channel assignment status:  "
		with no advancing
	perform print-status-word

	call	"ci$initialize_usr_modem"
		using	by reference	dialup-channel
			by reference	dialup-condition

	display "Modem channel write status:       "
		with no advancing
	perform print-status-word

	if	normal
	then
		display	"Dialup line initialized."
	else
		display "Abnormal dialup status!"
		display	"Dialup line not initialized correctly."
	end-if

	stop	run
	.

Print-status-word.
	if	accvio
		display "accvio"
	else if devalloc
		display "devalloc"
	else if devoffline
		display "devoffline"
	else if exquota
		display "exquota"
	else if illefc
		display "illefc"
	else if insfarg
		display "insfarg"
	else if insfmem
		display "insfmem"
	else if ivchan
		display "ivchan"
	else if ivdevnam
		display "ivdevnam"
	else if noiochan
		display "noiochan"
	else if nopriv
		display "nopriv"
	else if normal
		display "normal"
	else if nosuchdev
		display "nosuchdev"
	else if unasefc
		display "unasefc"
	else if abort
		display	"abort"
	else if datacheck
		display "datacheck"
	else if drverr
		display "drverr"
	else if dataoverun
		display "dataoverun"
	else if parity
		display "parity"
	else if ctrlerr
		display "ctrlerr"
	else if timeout
		display "timeout"
	else if writlck
		display "writlckl"
	else
		display	"???"
	.