[Search for users] [Overall Top Noters] [List of all Conferences] [Download this site]

Conference ilbbak::ibi_focus

Title:	FOCUS, from INFORMATION BUILDERS

Moderator:	ZAYIUS::BROUILLETTE

Created:	Thu Feb 19 1987
Last Modified:	Mon May 05 1997
Last Successful Update:	Fri Jun 06 1997
Number of topics:	615
Total number of notes:	1779

529.0. "another COBOL subroutine problem" by MELEE::DBA () Fri Aug 21 1992 15:25

    I am getting an error, %FOCUS-F-INTERROR, FOCUS internal error
    when trying to execute a very straightforward subroutine written
    in COBOL to delete a file.
    
    The COBOL program...
    
    IDENTIFICATION DIVISION.
    PROGRAM-ID. DELFIL.
    DATA DIVISION.
    WORKING-STORAGE SECTION.
    LINKAGE SECTION.
    01  DEL_FILE            PIC X(39).
    01  RETURN_STATUS               PIC S9(9) COMP VALUE ZERO.
    PROCEDURE DIVISION USING DEL_FILE, RETURN_STATUS.
    BEGIN.
                    CALL "LIB$SET_SYMBOL" USING
                            BY DESCRIPTOR DEL_FILE
                            GIVING RETURN_STATUS.
    
    The fex to execute the DELFIL subroutine...
    
    -DEFAULTS &RET=0,&DFIL=TEST.RPT;1
    -TYPE &DFIL
    -SET &RET = DELFIL(&DFIL,'I8');
    -TYPE &RET
    -VMS DIR TEST.RPT
    
    Any ideas?
    
    Thanks,
    		John

T.R	Title	User	Personal Name	Date	Lines
529.1		EVTDD1::CARRIERE	Jean-Claude Carriere	`Fri Aug 28 1992 13:11`	6
	John, Same causes same effect... I'll be surprise that LIB$SET_SYMBOL is going to delete any file ... Jean-Claude.