<?xml version="1.0" encoding="UTF-8"?>
<rss xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/" version="2.0">
  <channel>
    <title>topic Re: Working with COBOL files in SAS in SAS Procedures</title>
    <link>https://communities.sas.com/t5/SAS-Procedures/Working-with-COBOL-files-in-SAS/m-p/158585#M41432</link>
    <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;There was a macro to do this&amp;nbsp; &lt;A href="http://ftp.sas.com/techsup/download/technote/ts620.html" title="http://ftp.sas.com/techsup/download/technote/ts620.html"&gt;http://ftp.sas.com/techsup/download/technote/ts620.html&lt;/A&gt; , it dates to version 8 but it should work.&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
    <pubDate>Mon, 09 Feb 2015 14:15:08 GMT</pubDate>
    <dc:creator>tlk</dc:creator>
    <dc:date>2015-02-09T14:15:08Z</dc:date>
    <item>
      <title>Working with COBOL files in SAS</title>
      <link>https://communities.sas.com/t5/SAS-Procedures/Working-with-COBOL-files-in-SAS/m-p/158583#M41430</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;Hello Community,&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;we need to import a TSO data file with packed fields. It is located on a host with OS390. We transfer it per ftp to the SAS server (with UNIX OS).&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;This is my current routine to import the files:&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;%let PFAD_BILANZWERTE = "/appdata/sas/fb_daten/vrm/lp/lf/inte/BIL_032015.bin";&lt;/P&gt;&lt;P&gt;data BILGEWZER;&amp;nbsp;&amp;nbsp; &lt;/P&gt;&lt;P&gt;infile &amp;amp;PFAD_BILANZWERTE.&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; &lt;/P&gt;&lt;P&gt;encoding="ebcdic500"&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; &lt;/P&gt;&lt;P&gt;lrecl=1152&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; &lt;/P&gt;&lt;P&gt;recfm=F&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; &lt;/P&gt;&lt;P&gt;blksize=27648;&amp;nbsp;&amp;nbsp;&amp;nbsp; &lt;/P&gt;&lt;P&gt;input&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; &lt;/P&gt;&lt;P&gt;MONAT&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; S370FIBU2.&lt;/P&gt;&lt;P&gt;VSNR&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; $EBCDIC11.&lt;/P&gt;&lt;P&gt;@22&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; AENDDAT&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; $EBCDIC10.&lt;/P&gt;&lt;P&gt;@32&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; AENDGRU&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; $EBCDIC4.&lt;/P&gt;&lt;P&gt;@38&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; AENDBUCH_HHJJ&amp;nbsp;&amp;nbsp; $EBCDIC4.&lt;/P&gt;&lt;P&gt;@42&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; AENDBUCH_MM&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; $EBCDIC2.&lt;/P&gt;&lt;P&gt;@48&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; MVANT&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; S370FPD5.6&lt;/P&gt;&lt;P&gt;@89&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; BGKZ&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; $EBCDIC3.&lt;/P&gt;&lt;P&gt;@230&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; DRZ&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; S370FPD8.2&lt;/P&gt;&lt;P&gt;@238&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; DRP&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; S370FPD8.2&lt;/P&gt;&lt;P&gt;@246&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; DRA&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; S370FPD8.2&lt;/P&gt;&lt;P&gt;@931&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; VTID&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; S370FPD3.;&lt;/P&gt;&lt;P&gt;run;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;I would like to optimize this routine. My preferred solution would be to supply the COBOL copy member of this file to SAS such that SAS knows where the fields start, end and which format they are on its own. Is this possible?&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Has anyone experience with such files?&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Thank you in advance!&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Mon, 09 Feb 2015 08:29:21 GMT</pubDate>
      <guid>https://communities.sas.com/t5/SAS-Procedures/Working-with-COBOL-files-in-SAS/m-p/158583#M41430</guid>
      <dc:creator>andreas_schmitz</dc:creator>
      <dc:date>2015-02-09T08:29:21Z</dc:date>
    </item>
    <item>
      <title>Re: Working with COBOL files in SAS</title>
      <link>https://communities.sas.com/t5/SAS-Procedures/Working-with-COBOL-files-in-SAS/m-p/158584#M41431</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;You would need to write a data step that reads the COBOL definitions, and generates the input statement from that.&lt;/P&gt;&lt;P&gt;This data step could either write an external file that you later use with %include, or generate the data step to read the TSO file by using call execute.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Since you use FTP, you could also read the file directly from the z/OS mainframe with filename ftp. Saves the external FTP transfer and the disk space needed for the transferred file.&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Mon, 09 Feb 2015 09:36:11 GMT</pubDate>
      <guid>https://communities.sas.com/t5/SAS-Procedures/Working-with-COBOL-files-in-SAS/m-p/158584#M41431</guid>
      <dc:creator>Kurt_Bremser</dc:creator>
      <dc:date>2015-02-09T09:36:11Z</dc:date>
    </item>
    <item>
      <title>Re: Working with COBOL files in SAS</title>
      <link>https://communities.sas.com/t5/SAS-Procedures/Working-with-COBOL-files-in-SAS/m-p/158585#M41432</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;There was a macro to do this&amp;nbsp; &lt;A href="http://ftp.sas.com/techsup/download/technote/ts620.html" title="http://ftp.sas.com/techsup/download/technote/ts620.html"&gt;http://ftp.sas.com/techsup/download/technote/ts620.html&lt;/A&gt; , it dates to version 8 but it should work.&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Mon, 09 Feb 2015 14:15:08 GMT</pubDate>
      <guid>https://communities.sas.com/t5/SAS-Procedures/Working-with-COBOL-files-in-SAS/m-p/158585#M41432</guid>
      <dc:creator>tlk</dc:creator>
      <dc:date>2015-02-09T14:15:08Z</dc:date>
    </item>
  </channel>
</rss>

