/* ABBR_JOURNAL.mffm  version 1.1 */
/* This macro must be run from within the MFF citation database from */
/* which you wish to export abbreviated 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);
  parse var rec.4.value Abbr_Journal ',';
  say Abbr_Journal;
  foo = writeln(exportfile,Abbr_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;