T/FUNCTION ICL9HNSUBHEAD (/
I$FUNCTION ICL9HNCREATEALIAS (ALIASNAMEDESC, DUMMYDESC: DESC) : RESPONSE;
   EXTERN;
 
$
T/PROCEDURE GENERATEOMFMODULE(/
TS/CERESPINIT,/ B/:/, MAINKEYRESP/
TS/BEGIN/
I$
   PROCEDURE ADDOMFKEY(KEYNAME: ALFA; VAR KEYRESPONSE: RESPONSE);
      BEGIN
      KEYRESPONSE:=ICL9HNCREATEALIAS(SIGALFADESC(KEYNAME),NILDESC);
      END (*ADDOMFKEY*);
 
$
TS/ALFATOIMP(OMFFILENAME/ R/OMFFILENAME/MAINENTRYNAME/
TS/EDINRESP:=0/ T+1 P-1 R/EDIN/MAINKEY/
TS/EDINRESP:=ICL9CEZOMFOUT/ I$      BEGIN$$$
TS/IF EDINRESP/
I$      IF (EDINRESP=0) AND (OMFFILENAME<>MAINENTRYNAME) THEN
         ADDOMFKEY(MAINENTRYNAME,MAINKEYRESP);
      END;
$
TS/CERESPEND:=/
I$   IF MAINKEYRESP>0 THEN
      WRITELN(JOURNALFILEP@,'OMF ALIAS CREATION FAILURE');
$
TELE