Conference ilbbak::ibi_focus

270.0. "%NONAME-W-NOMSG, Message number 00000000" by WMOIS::E_FINKELSEN (I'm a closet exhibitionist) Thu Sep 28 1989 12:37

I'm getting %NONAME-W-NOMSG, Message number 00000000 when I try running a 
fex from within a .com file.  

Someone in my group said that he has gotten that error before when they've 
run out of disk space.  Our space is fine and he didn't know why we got it. 

Is there anyone out there that is a little more experienced with this 
error?  

Thanks.

Ellen

Following is the LOG, the COM, and the FEX is at the bottom.



$ SET NOVERIFY

$!
$RMS_defaults:
$ 	SET RMS/BUFFER_COUNT=64
$ 	SET WORKING_SET/EXTENT=10000
%SET-I-NEWLIMS, new working set:  Limit = 512  Quota = 512  Extent = 768
$!
$FOCUS_Log_Sym:
$ 	DEFINE/NOLOG foc$exe       [report_mgr.focexe]! For .EXE Files
$ 	DEFINE/NOLOG foc$dir1      [report_mgr.focdat]! For .MAS Files
$ 	DEFINE/NOLOG foc$dir2      [report_mgr.focexe]! For .FEX Files
$!
$Notification_log:
$! 	VAXmail message denoting success/failure of this DCL procedures
$! 	should be sent to foc$acc_mgr.  This distribution list to be edited by
$!	you. 
$!
$ 	DEFINE/NOLOG foc$acc_mgr         foc$dir1:acc_mgr.dis 
$!
$Set_default:
$ 	IF F$SEARCH("foc$dir1:acc*.fex") .NES. "" THEN SET DEFAULT foc$dir1
$ 	IF F$SEARCH("foc$dir1:acc*.fex") .EQS. "" THEN GOTO dcl_badend
$!
$Disability:
$!
$ 	FOCUS
FOCUS  5.2     VX5.2.1 CREATED 01/03/89
(C)Copyright 1988 Information Builders Inc.
>>
>
EX ACC_DISA.FEX
 
>>>
 NUMBER OF RECORDS IN TABLE=     15  LINES=     15
 
OFFLINE...
 
 
%NONAME-W-NOMSG, Message number 00000000
$ 	IF $STATUS THEN GOTO mail_disability 
$ 	err_msg = F$MESSAGE($STATUS)
$ 	wo "Disability FOCUS Procedure failed on Disability"
Disability FOCUS Procedure failed on Disability
$ 	GOTO dcl_badend
$Dcl_badend:
$ 	wo "Account_mgr FOCUS Procedures FAILED...VMS Error Msg is:"
Account_mgr FOCUS Procedures FAILED...VMS Error Msg is:
$ 	wo " "
 
$ 	wo err_msg
%NONAME-W-NOMSG, Message number 00000000
$GOTO FINISH
$Finish:
$	SET DEF sys$login
$ 	EXIT
  REPORT_MGR   job terminated at 28-SEP-1989 10:49:18.02

  Accounting information:
  Buffered I/O count:          423      Peak working set size:   768
  Direct I/O count:            305      Peak page file size:    5919
  Page faults:               13452      Mounted volumes:           0
  Charged CPU time:     0 00:00:23.10   Elapsed time:     0 00:01:07.28


************* .COM FILE ***********

$ Initialize:
$ 	SET NOON
$ 	wo  = "write sys$output"
$ 	SET VERIFY
$!
$RMS_defaults:
$ 	SET RMS/BUFFER_COUNT=4
$ 	SET WORKING_SET/EXTENT=10000
$!
$FOCUS_Log_Sym:
$ 	DEFINE/NOLOG foc$exe       [report_mgr.focexe]! For .EXE Files
$ 	DEFINE/NOLOG foc$dir1      [report_mgr.focdat]! For .MAS Files
$ 	DEFINE/NOLOG foc$dir2      [report_mgr.focexe]! For .FEX Files
$!
$Notification_log:
$! 	VAXmail message denoting success/failure of this DCL procedures
$! 	should be sent to foc$acc_mgr.  This distribution list to be edited by
$!	you. 
$!
$ 	DEFINE/NOLOG foc$acc_mgr         foc$dir1:acc_mgr.dis 
$!
$Set_default:
$ 	IF F$SEARCH("foc$dir1:acc*.fex") .NES. "" THEN SET DEFAULT foc$dir1
$ 	IF F$SEARCH("foc$dir1:acc*.fex") .EQS. "" THEN GOTO dcl_badend
$!
$Disability:
$!
$ 	FOCUS
EX ACC_DISA.FEX
$ 	IF $STATUS THEN GOTO mail_disability 
$ 	err_msg = F$MESSAGE($STATUS)
$ 	wo "Disability FOCUS Procedure failed on Disability"
$ 	GOTO dcl_badend
$!
$Mail_disability:
$	MAIL
send foc$dir1:disa.rpt
@foc$acc_mgr
$!
$Alpha:
$ 	FOCUS
EX ACC_ALPH.FEX
$ 	IF $STATUS THEN GOTO mail_alpha
$ 	err_msg = F$MESSAGE($STATUS)
$ 	wo "Alpha FOCUS Procedure failed on Alpha"
$ 	GOTO dcl_badend
$!
$Mail_alpha:
$	MAIL
send foc$dir1:alph.rpt
@foc$acc_mgr
$!
$Dcl_success:
$ 	wo "Both Procedures completed SUCCESSFULLY"
$ 	MAIL
send
@foc$acc_mgr
Personnel Job Procedure Account_mgr completed successfully
You should have received two reports. One for disability and one alphabetical
listing. 
$!
$!
$ 	GOTO finish
$!
$Dcl_badend:
$ 	wo "Account_mgr FOCUS Procedures FAILED...VMS Error Msg is:"
$ 	wo " "
$ 	wo err_msg
$GOTO FINISH
$ 	MAIL
send
@foc$acc_mgr
Personnel Job Procedure ACCOUNT_MGR failed
$!
$Finish:
$	SET DEF sys$login
$ 	EXIT


**************** FEX FILE *************
OFFLINE CLOSE
FILEDEF OFFLINE DISK DISA.RPT
TABLE FILE EMP
PRINT LN FN CC BADGE BY AC
IF AC NE A OR R OR T
IF RECORDLIMIT EQ 15
END

    I've gotten this before.  As I recall it was a result of not making a
    clean exit from FOCUS.  Put a FIN statement on the line following
    EX FEXNAME in your .COM.  Regardless you don't have to worry because 
    NONAME-NOMSG is a NULL MSG.

Thank you.  That did the trick.

I just started to use FOCUS recently and it is mind boggling!

I'll get there.

Ln