Retrieving a List of CUSIPs Belonging to a Screen File

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

                   SAS SAMPLE LIBRARY

       Name: fsdex09.sas
Description: Example program from SAS/ETS User's Guide,
             The SASEXFSD Interface Engine
      Title: Retrieving a List of CUSIPs Belonging to a Screen 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 fsdex09.map file and FSDEX09.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=ExtractScreenUniverse
              screen='factset:bankruptcy'
              name=y
              format=sml
              outXml=fsdex09
              automap=replace
              mapref=MyMap
              xmlmap="%sysget(FACTSET)fsdex09.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 Screen File';
libname _all_ clear;

libname xfsd sasexfsd "%sysget(FACTSET)"
   debug=on
   factlet=ExtractScreenUniverse
   screen='factset:bankruptcy'
   name=y
   format=sml
   outXml=fsdex09
   automap=replace
   mapref=MyMap
   xmlmap="%sysget(FACTSET)fsdex09.map"
   user='XXXXXXXXXXXXXXXX'
   pass='XXXXXXXXXXXXXXXX';

data screenUniv; set xfsd.fsdex09; run;
proc print data=screenUniv(firstobs=1 obs=15); run;