/* FULL_JOURNAL.mffm  version 1.1 */
/* This macro must be run from within the MFF citation database from */
/* which you wish to export full journal names.  The macro writes a */
/* text file with the journal names of each citation/record on a */
/* separate line. */


/* make sure some records are selected */
options results;
options failat 20;
first;
if (rc ~= 0) then;
  do;
    display "You must select some records to export!";
    exit;
  end;


/* open the text file for export */
screentofront();
out_text = getfile(,,'ram:',,'Select export file name');
if (out_text = '') then exit;
if (open(exportfile,out_text,'W') ~= 1) then;
  do;
    screentoback();
    display 'I could not open the file ' || out_text || ' for exporting.';
    exit;
  end;


/* get the first record */
get rec;


/* export the journal name for each record/citation in the database */
do while (rc = 0);
  Full_Journal = rec.5.value;
  say Full_Journal;
  foo = writeln(exportfile,Full_Journal);


/* get the next record */
  next;
  if (rc ~= 0) then;
    do;
      screentoback();
      display 'Exported citation journal list in file ' || out_text;
      exit;
    end;
  else;
    get rec;
end;