/*
** AltFileError.ced
**
** $VER: AltFileError.ced 1.0.0 (1.06.93)
**
** This script tries to load the alternate file associated with
** an error, as specified by SAS/C's scmsg program.
**
** This script requires CygnusEd Professional v3.5 (or later) to run.
**
** SAS/C is a registered trademark of SAS Institute, Inc.
**
** Copyright © 1993 ASDG, Incorporated  All Rights Reserved
*/

IF ~SHOW('P', 'SC_SCMSG') THEN DO
    ADDRESS 'rexx_ced' DM
    EXIT 0
END


ADDRESS 'SC_SCMSG'

OPTIONS RESULTS

'ALTFILE'
FILE = RESULT

'ALTLINE'
LINE = RESULT

OPTIONS

ADDRESS 'rexx_ced'

IF FILE ~= "" THEN DO
	OW FILE
	LL LINE
END

EXIT 0
