Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-08 - 43,50512/error.r36
There are no other files named error.r36 in the archive.
%IF NOT %DECLARED(FTTOPS10) %THEN COMPILETIME FTTOPS10=1 %FI;
%IF NOT %DECLARED(FTNET) %THEN COMPILETIME FTNET=1 %FI;
%IF NOT %DECLARED(FTQUASAR) %THEN COMPILETIME FTQUASAR=1 %FI;

!
! Bit definitions within a CONDITION_VALUE
!

FIELD
    CONDIT_FIELDS =
        SET
        STS$V_SEVERITY = [0,0,3,0],
            STS$V_SUCCESS = [0,0,1,0],
        STS$V_COND_ID = [0,3,29,0],
            STS$V_MSG_NO =  [0,3,15,0],
                STS$V_CODE = [0,3,14,0],
                STS$V_FAC_SP = [0,17,1,0],
            STS$V_FAC_NO = [0,18,14,0],
                STS$V_CUST_DEF = [0,31,1,0]
        TES;

LITERAL
	FAC_SP=%O'400000',	!Code is facility-specific
	CUST_DEF=%O'20000',	!Facility is customer-defined
	COND=3;			!# of bits to shift UUO error codes

MACRO
    CONDITION_VALUE = BLOCK[1] FIELD(CONDIT_FIELDS) %;

! The prevailing interpretation of the above is that
! all application-specific codes have STS$V_FAC_SP set
! and all 'unofficial' software has STS$V_CUST_DEF set.
! UDFFAC will ensure this.

MACRO DFFAC(NAME,VALUE)=
	LITERAL NAME=(VALUE^18),
		%NAME('K_',NAME)=VALUE %;

MACRO UDFFAC(NAME,VALUE)=
	LITERAL NAME=((VALUE OR CUST_DEF)^18),
		%NAME('K_',NAME)=VALUE OR CUST_DEF %;

!
!Facility codes for FTS defined:
!

%IF FTTOPS10 %THEN	!TOPS-10 specific codes

!For the following, STS$V_CODE will be the error code from the UUO

UDFFAC(FILERR,%O'155');		!File selection errors
UDFFAC(PATERR,%O'110');		!PATH. UUO errors
UDFFAC(PISERR,%O'136');		!PISYS. error codes
UDFFAC(IPCERR,%O'142');		!IPCF error codes

!The following codes are generated internally to FTS (still TOPS-10)

UDFFAC(FPAERR,%O'700');		!Filespec parsing errors
UDFFAC(CMDERR,%O'702');		!Command parsing errors
UDFFAC(ABOERR,%O'7777');		!Operation aborted (deliberately?)

%FI	!End TOPS-10 specific

!The following are generated internally

UDFFAC(DAPERR,%O'0');		!DAP errors
UDFFAC(DAPPEN,%O'0');		! ... Pending
UDFFAC(DAPSUC,%O'1');		! ... Success
UDFFAC(DAPUNS,%O'2');		! ... Unsupported
UDFFAC(DAPOPE,%O'4');		! ... Open errors
UDFFAC(DAPTRA,%O'5');		! ... Transfer
UDFFAC(DAPTRW,%O'6');		! ... Transfer Warning
UDFFAC(DAPTER,%O'7');		! ... Access Termination
UDFFAC(DAPFOR,%O'10');		! ... Format
UDFFAC(DAPINV,%O'11');		! ... Invalid
UDFFAC(DAPSYN,%O'12');		! ... Sync errors
UDFFAC(DAPUSE,%O'16');		! ... User defined = 16 or 17
UDFFAC(DAPUS2,%O'17');

LITERAL DAPZZZ=DAPUS2+%O'7777';	!Highest possible DAP error.

UDFFAC(FMTERR,%O'20');		!Dap msg format errors

UDFFAC(IOERR,%O'666');		!I/O errors

UDFFAC(NODERR,%O'713');		!Node-table/Node-level-access errors
UDFFAC(QSRERR,%O'712');		!QUASAR-related errors

UDFFAC(RESERR,%O'767');		!Resource allocation failures
UDFFAC(LNKERR,%O'770');		!Data link errors

UDFFAC(TTYINF,%O'1000');		!TTY-related NON-ERROR conditions
UDFFAC(FRKINF,%O'1005');		!Pseudo-Fork-related NON-ERROR conditions
UDFFAC(NETINF,%O'1070');		!Network-related NON-ERROR conditions

!
! Error codes
!

MACRO ALL_ERRS=

UER(ILLFSP,FPAERR,%O'00'	,'Illegal filespec')
UER(ILLDIR,FPAERR,%O'01'	,'Illegal directory specification')
UER(DUPNAM,FPAERR,%O'02'	,'Duplicate file name')
UER(DUPEXT,FPAERR,%O'03'	,'Duplicate extension')
UER(DUPDEV,FPAERR,%O'04'	,'Duplicate device')
UER(DUPDIR,FPAERR,%O'05'	,'Duplicate Directory specification')
UER(ILCFSP,FPAERR,%O'07'	,'Illegal character in filespec')
UER(NODNAL,FPAERR,%O'10'	,'NODEID specified when none permitted')
UER(DUPNOD,FPAERR,%O'11'	,'Duplicate node id')
UER(WLDNAL,FPAERR,%O'12', 'Wildcard filespec not allowed')
UER(WLNNAL,FPAERR,%O'13', 'Wildcard NODEID not permitted')

UER(OPRABO,ABOERR,%O'77', 'Aborted by Operator')
UER(OPRDEF,ABOERR,%O'76', 'Deferred by Operator')
UER(TIMOUT,ABOERR,%O'50', 'Time-out period exhausted')
UER(USRABO,ABOERR,%O'40', 'Aborted by user')
UER(USRDEF,ABOERR,%O'41','Deferred by user')

UER(ILLSWI,CMDERR,%O'20', 'Undefined switch')
UER(AMBSWI,CMDERR,%O'21', 'Ambiguous switch')
UER(ILLCMD,CMDERR,%O'30', 'Undefined command')
UER(AMBCMD,CMDERR,%O'31', 'Ambiguous command')
UER(CONCMD,CMDERR,%O'32', 'Contradictory sequence of commands or switches')
UER(RNGCMD,CMDERR,%O'33', 'Argument to command out of range')
UER(ARGCMD,CMDERR,%O'34', 'Unrecognized argument to command')

UER(FRKNEX,CMDERR,%O'100', 'Process specified is not START''ed')
UER(FRKAEX,CMDERR,%O'101', 'Process specified has already been START''ed')

UER(CLKFUL,RESERR,%O'74', 'Clock request table full')
UER(NOINTC,RESERR,%O'75', 'No free interrupt channels')
UER(NOIOCH,RESERR,%O'76', 'No free I/O channels')
UER(ALLOCF,RESERR,%O'77', 'Memory allocation failed')

UER(PATNSF,PATERR,%O'77'	,'SFD not found')
UER(PATDND,PATERR,1,	'Device not DISK')

UER(PISTMA,PISERR,0,	'Argument block given when none was wanted')
UER(PISNFS,PISERR,1,	'No function code bits set')
UER(PISUKF,PISERR,2,	'Unknown function bits set')
UER(PISOOF,PISERR,3,	'You tried to turn PSI both on and off')
UER(PISUKC,PISERR,4,	'Bad argument block address')
UER(PISDNO,PISERR,5,	'Device not OPENed')
UER(PISPRV,PISERR,6,	'Priveleged (or illegal); operation')
UER(PISIVO,PISERR,7,	'Vector offset too large or not multiple of 4')
UER(PISUKR,PISERR,8,	'3rd word of argument block is not 0')
UER(PISNRW,PISERR,10,	'RH of 3rd word is not 0')
UER(PISPND,PISERR,11,	'No PIINI. was executed')
UER(PISARF,PISERR,12,	'You tried to both add & remove a device')

UER(IPCACK,IPCERR,1,	'Send/Receive address check')
UER(IPCBNL,IPCERR,2,	'Block not long enough')
UER(IPCNMR,IPCERR,3,	'No messages in receive queue')
UER(IPCDTL,IPCERR,5,	'Message too long')
UER(IPCDUN,IPCERR,6,	'Destination for message unknown')
UER(IPCDDS,IPCERR,7,	'Destination for message disabled')
UER(IPCSQE,IPCERR,%O'10','Send quota exceeded')
UER(IPCRQE,IPCERR,%O'11','Receive quota exceeded')
UER(IPCNSS,IPCERR,%O'12','No room in system storage')
UER(IPCCRP,IPCERR,%O'13','Can''t receive to this page')
UER(IPCISP,IPCERR,%O'14','Invalid sender''s PID')
UER(IPCIPE,IPCERR,%O'15','No IPCF priveleges enabled')
UER(IPCUKF,IPCERR,%O'16','Unknown function requested from system process')
UER(IPCNXJ,IPCERR,%O'17','Non-existant job number')
UER(IPCPTF,IPCERR,%O'20','System PID table full')
UER(IPCPMN,IPCERR,%O'21','Page mode bit in receive did not match message')
UER(IPCPIE,IPCERR,%O'22','Paging I/O error')
UER(IPCBIP,IPCERR,%O'23','Bad index specified for system PID table')
UER(IPCUID,IPCERR,%O'24','Undefined ID in system PID table')
!The following are errors from [SYSTEM]INFO
UER(IPCIIE,IPCERR,%O'70','Internal error in [SYSTEM]INFO')
UER(IPCIRF,IPCERR,%O'71','Request from [SYSTEM]INFO to [SYSTEM]IPCC failed')
UER(IPCIAF,IPCERR,%O'72','[SYSTEM]INFO failed to assign a PID or name')
UER(IPCPQE,IPCERR,%O'73','PID quota exceeded')
UER(IPCUPS,IPCERR,%O'74','Unknown PID specified')
UER(IPCDNS,IPCERR,%O'75','Duplicate receiver name specified')
UER(IPCUNS,IPCERR,%O'76','Unknown receiver name specified')
UER(IPCNIC,IPCERR,%O'77','Name contains illegal characters')

UER(FILFNF,FILERR,0,	'File not Found')
UER(FILIPP,FILERR,1,	'Bad PPN')
UER(FILPRT,FILERR,2,	'Protection failure')
UER(FILFBM,FILERR,3,	'File being modified')
UER(FILAEF,FILERR,4,	'File already exists')
UER(FILISU,FILERR,5,	'Illegal sequence of UUO''s')
UER(FILTRN,FILERR,6,	'Transmission error')
UER(FILNSF,FILERR,7,	'Not a .SAVE file')
UER(FILNEC,FILERR,%O'10'	,'Not enough core')
UER(FILDNA,FILERR,%O'11'	,'Device not avaliable')
UER(FILNSD,FILERR,%O'12'	,'No such device')
UER(FILILU,FILERR,%O'13'	,'Illegal UUO')
UER(FILNRM,FILERR,%O'14'	,'No room')
UER(FILWLK,FILERR,%O'15'	,'Write-locked')
UER(FILNET,FILERR,%O'16'	,'Not enough table space')
UER(FILPOA,FILERR,%O'17'	,'Partial allocation')
UER(FILBNF,FILERR,%O'20'	,'Block not free')
UER(FILCSD,FILERR,%O'21'	,'Can''t supercede a directory')
UER(FILDNE,FILERR,%O'22'	,'Can''t delete non-empty directory')
UER(FILSNF,FILERR,%O'23'	,'SFD not found')
UER(FILSLE,FILERR,%O'24'	,'Search list empty')
UER(FILLVL,FILERR,%O'25'	,'SFDs nested too deeply')
UER(FILNCE,FILERR,%O'26'	,'No-Create for whole search list')
UER(FILSNS,FILERR,%O'27'	,'Segment not on swap space')
UER(FILFCU,FILERR,%O'30'	,'Can''t update file')
UER(FILLOH,FILERR,%O'31'	,'Loseg overlaps Hiseg')
UER(FILNLI,FILERR,%O'32'	,'Login please')
UER(FILENQ,FILERR,%O'33'	,'File still has outstanding locks set')
UER(FILBED,FILERR,%O'34'	,'Bad .EXE directory')
UER(FILBEF,FILERR,%O'35'	,'.EXE file must have extension .EXE')
UER(FILDTB,FILERR,%O'36'	,'.EXE directory too big')
UER(FILENC,FILERR,%O'37'	,'Exceeded network capability')
UER(FILTNA,FILERR,%O'40'	,'Task not avaliable')
UER(FILUNN,FILERR,%O'41'	,'Undefined network node')
UER(FILOPN,FILERR,%O'77'	,'Open failure')

UER(IOERROR,IOERR,0,	'IO error')
UWR(ENDFILE,IOERR,%O'1'	,'End of File')
UER(INERROR,IOERR,%O'2',	'Read error')
UER(OUTERROR,IOERR,%O'3','Write error')
UER(DEVFULL,IOERR,%O'4',	'Device full')
UER(EXQUOTA,IOERR,%O'5',	'Quota Exceeded')
UER(IOINT,IOERR,%O'6',	'IO interrupt')

UER(REATTA,TTYINF,%O'104',	'ATTACH or DETACH was done')
%IF FTQUASAR %THEN
UER(QSRNRN,QSRERR,0,	'QUASAR not running')
UIN(QSRSTC,QSRERR,10,	'Status change request')
%FI
%IF FTNET %THEN
UWR(CNXFER,NETINF,1,	'Number of transfer slots changed')


UER(DAPFTL,FMTERR,1	,'Field too long')
UER(DAPEOM,FMTERR,2	,'End of Message')

UER(RERDEV,DAPOPE,%O'0035','Bad or inappropriate device specified')
UER(RERFNM,DAPOPE,%O'0063','File name syntax error')
UER(RERDNF,DAPOPE,%O'0040','Directory not found')
UWR(REREOF,DAPTRA,%O'0047','End of File')
UER(RERFEX,DAPOPE,%O'0055','File already exists')
UER(RERFLK,DAPOPE,%O'0060','File locked or being modified')
UER(RERFNF,DAPOPE,%O'0062','File not found')
UER(RERPRV,DAPOPE,%O'0125','Access refused')
UER(RERTMO,DAPOPE,%O'0230','Timeout period exhausted in setup phase')
UER(RETDFL,DAPTRA,%O'0243','Directory full or quota exceeded during transfer')
UER(RERDFL,DAPOPE,%O'0243',	'Directory full or quota exceeded')
UER(RERQEX,DAPOPE,%O'0311',	'Quota Exceeded')
UER(RETQEX,DAPTRA,%O'0311',	'Quota Exceeded during transfer')
UER(RERFUL,DAPTRA,%O'0065','Device full')
UER(RETTMO,DAPTRA,%O'0230','Timeout period exhausted during transfer')

!The following DAP codes are local!

UER(RERTEL,DAPOPE,%O'7777',	'/OPERATOR')
UER(RERMJE,DAPOPE,%O'7775',	'MJOB exceeded')
UER(RERLIM,DAPOPE,%O'7773',	'File size limit for node exceeded')
UER(RERUNN,DAPOPE,%O'7772',	'Node not in node table')


UIN(LNKCON,LNKERR,%O'1000',	'Local system established connection')
UIN(LNKDIS,LNKERR,%O'1001',	'Local system terminated connection')
UER(LNKNAV,LNKERR,%O'7770',	'Network link not available')
UER(RMTREJ,LNKERR,%O'7774',	'Remote system Rejected connection')
UER(RMTOFF,LNKERR,%O'7775',	'Network Connection Lost')
UER(RMTABO,LNKERR,%O'7776',	'Remote system aborted transfer')
UIN(RMTDIS,LNKERR,%O'7777',	'Remote system terminated connection')

UER(NODUNN,NODERR,0,	'Node not in node table')
UER(NODTOD,NODERR,1,	'Node not avaliable at this time of day')
UER(NODDIS,NODERR,2,	'Requested function disabled for this node')
UER(NODLIM,NODERR,3,	'File size limit for node exceeded')
%FI

UWR(INFQIT,FRKINF,%O'40','Inferior process has terminated')!for better or worse
UWR(FRKEND,FRKINF,%O'42',	'This process is terminating')

%;

MACRO	IN(SYM,FAC,MIC)=LITERAL SYM=FAC+(MIC^3) OR STS$K_NORMAL; %,
	ER(SYM,FAC,MIC)=LITERAL SYM=FAC+(MIC^3) OR STS$K_ERROR; %,
	WR(SYM,FAC,MIC)=LITERAL SYM=FAC+(MIC^3) OR STS$K_WARN; %;

MACRO	UIN(SYM,FAC,MIC)=LITERAL SYM=FAC+(MIC^3) OR STS$K_NORMAL OR FAC_SP; %,
	UER(SYM,FAC,MIC)=LITERAL SYM=FAC+(MIC^3) OR STS$K_ERROR OR FAC_SP; %,
	UWR(SYM,FAC,MIC)=LITERAL SYM=FAC+(MIC^3) OR STS$K_WARN OR FAC_SP; %;

ALL_ERRS;

LITERAL UNNCMD=NODUNN;	!Undefined network node