<?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html lang="en-us" xml:lang="en-us"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <meta name="security" content="public" /> <meta name="Robots" content="index,follow" /> <meta http-equiv="PICS-Label" content='(PICS-1.1 "http://www.icra.org/ratingsv02.html" l gen true r (cz 1 lz 1 nz 1 oz 1 vz 1) "http://www.rsac.org/ratingsv01.html" l gen true r (n 0 s 0 v 0 l 0) "http://www.classify.org/safesurf/" l gen true r (SS~~000 1))' /> <meta name="DC.Type" content="reference" /> <meta name="DC.Title" content="Host structure in COBOL applications that use SQL" /> <meta name="abstract" content="The following figure shows the syntax for the valid host structure." /> <meta name="description" content="The following figure shows the syntax for the valid host structure." /> <meta name="DC.Relation" scheme="URI" content="rzajphoststructurecobol.htm" /> <meta name="copyright" content="(C) Copyright IBM Corporation 1998, 2006" /> <meta name="DC.Rights.Owner" content="(C) Copyright IBM Corporation 1998, 2006" /> <meta name="DC.Format" content="XHTML" /> <meta name="DC.Identifier" content="rzajphoststruccobol" /> <meta name="DC.Language" content="en-us" /> <!-- All rights reserved. Licensed Materials Property of IBM --> <!-- US Government Users Restricted Rights --> <!-- Use, duplication or disclosure restricted by --> <!-- GSA ADP Schedule Contract with IBM Corp. --> <link rel="stylesheet" type="text/css" href="./ibmdita.css" /> <link rel="stylesheet" type="text/css" href="./ic.css" /> <title>Host structure in COBOL applications that use SQL</title> </head> <body id="rzajphoststruccobol"><a name="rzajphoststruccobol"><!-- --></a> <!-- Java sync-link --><script language="Javascript" src="../rzahg/synch.js" type="text/javascript"></script> <h1 class="topictitle1">Host structure in COBOL applications that use SQL</h1> <div><p>The following figure shows the syntax for the valid host structure.</p> <div class="section"><pre><span><img src="./c.gif" border="0" alt="Read syntax diagram" longdesc="rzajphoststruccobolsyn1.htm" /></span><a href="#d0e13"><img src="./c.gif" border="0" alt="Skip visual syntax diagram" /></a> >>-<i>level-1</i>--<i>variable-name</i>--.------------------------------------> .--------------------------------------------------------------------------. V .-IS-. | >----<i>level-2</i>--<i>var-1</i>--+-+-PICTURE-+--+----+--<i>picture-string</i>--<i>usage-clause</i>--.-+-+->< | '-PIC-----' | +-<i>floating-point</i>--.------------------------------------+ +-.--<i>varchar-string</i>--.---------------------------------+ +-.--<i>vargraphic-string</i>--.------------------------------+ +-<i>lob</i>--.-----------------------------------------------+ +-<i>datetime</i>--.------------------------------------------+ +-<i>rowid</i>--.---------------------------------------------+ '-<i>binary</i>--.--------------------------------------------' floating-point |--+----------------------------------------+-------------------> | .-IS-. | | .-USAGE--+----+-. | '-+---------------+--+-COMPUTATIONAL-1-+-' +-COMP-1----------+ +-COMPUTATIONAL-2-+ '-COMP-2----------' >--+-------------------------+----------------------------------| | .-IS-. | '-VALUE--+----+--<i>constant</i>-' usage-clause |--+--------------------------------------------+---------------> | .-IS-. | | .-USAGE--+----+-. | '-+---------------+--+-+-BINARY----------+-+-' | +-COMPUTATIONAL-4-+ | | '-COMP-4----------' | +-+-PACKED-DECIMAL--+-+ | +-COMPUTATIONAL-3-+ | | +-COMP-3----------+ | | +-COMPUTATIONAL---+ | | '-COMP------------' | +-+-DISPLAY--------+--+ | '-<i>display-clause</i>-' | '---DISPLAY-1---------' >--+-------------------------+----------------------------------| | .-IS-. | '-VALUE--+----+--<i>constant</i>-' display-clause .-DISPLAY-. .-IS-. .-CHARACTER-. |--+---------+--SIGN--+----+--LEADING--SEPARATE--+-----------+--| </pre><a name="d0e13"></a></div> <div class="section"><pre><span><img src="./c.gif" border="0" alt="Read syntax diagram" longdesc="rzajphoststruccobolsyn2.htm" /></span><a href="#d0e166"><img src="./c.gif" border="0" alt="Skip visual syntax diagram" /></a> varchar-string .-IS-. |--49--<i>var-2</i>--+-PICTURE-+--+----+--<i>picture-string-1</i>-------------> '-PIC-----' .-IS-. .-USAGE--+----+-. >--+---------------+--+-BINARY----------+--+---------------------------------+--> +-COMPUTATIONAL-4-+ | .-IS-. | '-COMP-4----------' '-VALUE--+----+--<i>numeric-constant</i>-' .-IS-. >--.--49--<i>var-3</i>--+-PICTURE-+--+----+--<i>picture-string-2</i>----------> '-PIC-----' >--+----------------------------+--+-------------------------+--| | .-IS-. | | .-IS-. | | .-USAGE--+----+-. | '-VALUE--+----+--<i>constant</i>-' '-+---------------+--DISPLAY-' vargraphic-string .-IS-. |--49--<i>var-2</i>--+-PICTURE-+--+----+--<i>picture-string-1</i>-------------> '-PIC-----' .-IS-. .-USAGE--+----+-. >--+---------------+--+-BINARY----------+-----------------------> +-COMPUTATIONAL-4-+ '-COMP-4----------' >--+---------------------------------+--.-----------------------> | .-IS-. | '-VALUE--+----+--<i>numeric-constant</i>-' .-IS-. .-IS-. .-USAGE--+----+-. >--49--<i>var-3</i>--+-PICTURE-+--+----+--<i>picture-string-2</i>--+---------------+--DISPLAY-1--> '-PIC-----' >--+-------------------------+----------------------------------| | .-IS-. | '-VALUE--+----+--<i>constant</i>-' </pre><a name="d0e166"></a></div> <div class="section"><pre><span><img src="./c.gif" border="0" alt="Read syntax diagram" longdesc="rzajphoststruccobolsyn3.htm" /></span><a href="#d0e316"><img src="./c.gif" border="0" alt="Skip visual syntax diagram" /></a> lob .-IS-. .-USAGE--+----+-. |--+---------------+--SQL TYPE IS--+-+-CLOB---+--(--<i>lob-length</i>--+---+--)-+--| | +-DBCLOB-+ +-K-+ | | '-BLOB---' '-M-' | +-+-CLOB-LOCATOR---+------------------+ | +-DBCLOB-LOCATOR-+ | | '-BLOB-LOCATOR---' | '-+-CLOB-FILE---+---------------------' +-DBCLOB-FILE-+ '-BLOB-FILE---' datetime .-OF-. .-IS-. |--<i>variable-name</i>--FORMAT--+----+--+-DATE------+--+----+---------> +-TIME------+ '-TIMESTAMP-' >--<i>format-options</i>-----------------------------------------------| rowid |--SQL TYPE IS ROWID--------------------------------------------| binary .-IS-. .-USAGE--+----+-. |--+---------------+--SQL TYPE IS----+-BINARY---------+--(--<i>length</i>--)----| +-VARBINARY------+ '-BINARY VARYING-' </pre><a name="d0e316"></a></div> <div class="section"> <div class="note"><span class="notetitle">Notes:</span> <ol><li>level-1 indicates a COBOL level between 1 and 47.</li> <li>level-2 indicates a COBOL level between 2 and 48 where level-2 > level-1.</li> <li>Graphic host variables, LOB host variables, and floating-point host variables are only supported for ILE COBOL for <span class="keyword">iSeries™</span>.</li> <li>For details on declaring numeric, character, graphic, LOB, ROWID, and binary host variables, see the notes under numeric-host variables, character-host variables, graphic-host variables, LOB host variables, ROWID, and binary host variables.</li> <li><em>format-options</em> indicates valid datetime options that are supported by the COBOL compiler. See the <em>ILE COBOL Reference</em> manual on the <a href="http://publib.boulder.ibm.com/iseries/v5r1/ic2924/rzaqhindex.htm">V5R1 Supplemental Manuals</a><img src="www.gif" alt="Link outside information center" /> Web site for details.</li> </ol> </div> </div> </div> <div> <div class="familylinks"> <div class="parentlink"><strong>Parent topic:</strong> <a href="rzajphoststructurecobol.htm" title="A host structure is a named set of host variables that is defined in your program's DATA DIVISION.">Use host structures in COBOL applications that use SQL</a></div> </div> </div> </body> </html>