Retrieving a List of Securities Belonging to a Single OFDB File

/*----------------------------------------------------------------

                   SAS SAMPLE LIBRARY

       Name: fsdex08.sas
Description: Example program from SAS/ETS User's Guide,
             The SASEXFSD Interface Engine
      Title: Retrieving a List of Securities Belonging to a Single OFDB File
    Product: SAS/ETS Software
       Keys: FactSet data extraction
      Procs: SASEXFSD
      Notes: Read this before you run this sample.
             The sample data provided resides in the ets/sasmisc folder.
             If you are using automap=READONLY, then you must copy the
             map of your incoming XML data to a writeable folder before
             using it. So, define a system environment variable
             ,FACTSET, to the path of your  writeable folder containing
             the fsdex08.map file and FSDEX08.xml.
             To assign a fileref to the external file to be processed,
             use the following form of the libname statement:

           libname xfsd sasexfsd "%sysget(FACTSET)"
              factlet=ExtractOFDBUniverse
              ofdb='SASTESTING.OFDB'
              dates='20120227'
              format=sml
              outXml=fsdex08
              automap=replace
              mapref=MyMap
              xmlmap="%sysget(FACTSET)fsdex08.map"
              user='<your FactSet username for internet FASTfetch access>'
              pass='<your FactSet password for internet FASTfetch access>';
----------------------------------------------------------------*/

options validvarname=any
   sslcalistloc="/SASSecurityCertificateFramework/1.1/cacerts/trustedcerts.pem";

title 'Retrieve List of Securities Belonging to a Single OFDB File';
libname _all_ clear;

libname xfsd sasexfsd "%sysget(FACTSET)"
   debug=on
   factlet=ExtractOFDBUniverse
   ofdb='SASTESTING.OFDB'
   dates='20120227'
   format=sml
   outXml=fsdex08
   automap=replace
   mapref=MyMap
   xmlmap="%sysget(FACTSET)fsdex08.map"
   user='XXXXXXXXXXXXXXXX'
   pass='XXXXXXXXXXXXXXXX';

data ofdbUniv; set xfsd.fsdex08; run;
proc print data=ofdbUniv(firstobs=1 obs=15); run;