/* CATENTRY.SCL                             */

   length entryname $ 27 entrytype $ 8;
   GETENTRY:
     method entry $ 35;
         entryname=getnitemc(_self_,'_ename_');
         entrytype=getnitemc(_self_,'_etype_');
         entry=entryname||'.'||entrytype;
     endmethod;

   PRINT:
     method formname $ 35 dest $ 8 optional= fileref $ 8 ;
       call send(_self_,'get_entry',entry);
       if upcase(dest)='PRINTER' then do;
         rc=preview('copy',entry);
         rc=preview('print',formname);
         rc=preview('clear');
       end;
       if upcase(dest)='FILE' then do;
         if fileref(fileref)<=0 then do;
          rc=preview('copy',entry);
          rc=preview('print',formname,fileref);
          rc=preview('clear');
         end;
       end;
   endmethod;

/* The SCL code for your FRAME                   */

   INIT:
     catview=instance(loadclass
             ('sasuser.classes.catentry.class'));
     call notify('obj1','_attach_',catview);
     call send(catview,'_set_entry_','work.test.a.output');
    return;

    PRINTCAT:
     rc=filename('out','flat.fil');
     call send(catview,'print','','file','out');
     rc=filename('out','');
    return;



/* FILEVIEW.SCL                           */

   length ftype $ 1;
   GETFILE:
     method filename $ 80;
         ftype=getnitemc(_self_,'_ftype_');
         filename=getnitemc(_self_,'_fname_');
         if ftype='F' then filename=pathname(filename);
     endmethod;

   PRINT:
     method optional= hostcmd $ 35  ;
       call send(_self_,'get_file',filename);
       if hostcmd='' then
          rc=system('print '||filename);
       else
          rc=system(hostcmd||' '||filename);
   endmethod;

/* The SCL code for your FRAME           */

   INIT:
     fileview=instance(loadclass('sasuser.classes.fileview.class'));
     call notify('obj1','_attach_',fileview);
     call send(fileview,'_set_file_','extfile.sas','n','NOCC');
     call send(fileview,'print');
   return;


/* You can also execute the GET_FILE method from within the SCL code*/
/* associated with the FRAME entry as follows:                      */

     length filename $ 50;
     call send(fileview,'get_file',filename);
     put filename=;