friedkiwi/ibm-information-center
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
0332907f0f
ibm-information-center/dist/eclipse/plugins/i5OS.ic.rzalf_5.4.0.1/rzalfcallprogexamp.htm

152 lines
6.6 KiB
HTML
Raw Blame History

<?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="Example: Call i5/OS programs from i5/OS PASE" />
<meta name="abstract" content="You can read the example in this topic to learn about calling programs in an i5/OS PASE program using the _PGMCALL runtime function." />
<meta name="description" content="You can read the example in this topic to learn about calling programs in an i5/OS PASE program using the _PGMCALL runtime function." />
<meta name="DC.Relation" scheme="URI" content="rzalfcallprog.htm" />
<meta name="copyright" content="(C) Copyright IBM Corporation 2000, 2006" />
<meta name="DC.Rights.Owner" content="(C) Copyright IBM Corporation 2000, 2006" />
<meta name="DC.Format" content="XHTML" />
<meta name="DC.Identifier" content="rzalfcallprogexamp" />
<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>Example: Call i5/OS programs
from i5/OS PASE</title>
</head>
<body id="rzalfcallprogexamp"><a name="rzalfcallprogexamp"><!-- --></a>
<!-- Java sync-link --><script language="Javascript" src="../rzahg/synch.js" type="text/javascript"></script>
<h1 class="topictitle1">Example: Call <span class="keyword">i5/OS</span> programs
from <span class="keyword">i5/OS</span> PASE</h1>
<div><p>You can read the example in this topic to learn about calling programs
in an <span class="keyword">i5/OS™</span> PASE program
using the _PGMCALL runtime function.</p>
<div class="example"><p>The following example shows how you call programs in an <span class="keyword">i5/OS</span> PASE program using the _PGMCALL
runtime function.</p>
<p>Interspersed in the following example code are comments
that explain the code. Make sure to read these comments as you enter or review
the example.</p>
<div class="note"><span class="notetitle">Note:</span> By using the code examples, you agree
to the terms of the <a href="codedisclaimer.htm">Code license and disclaimer information</a>.</div>
<pre>/* This example uses the i5/OS PASE _PGMCALL function to call the i5/OS
API QSZRTVPR. The QSZRTVPR API is used to retrieve information about
i5/OS software product loads. Refer to the QSZRTVPR API documentation
for specific information regarding the input and output parameters needed
to call the API */
#include &lt;stdlib.h&gt;
#include &lt;stdio.h&gt;
#include &lt;string.h&gt;
#include "as400_types.h"
#include "as400_protos.h"
int main(int argc, char * argv[])
{
/* i5/OS API's (including QSZRTVPR) typically expect character
parameters to be in EBCDIC. However, character constants in
i5/OS PASE programs are typically in ASCII. So, declare some
CCSID 37 (EBCDIC) character parameter constants that will be
needed to call QSZRTVPR */
/* format[] is input parameter 3 to QSZRTVPR and is
initialized to the text 'PRDR0100' in EBCDIC */
const char format[] =
{0xd7, 0xd9, 0xc4, 0xd9, 0xf0, 0xf1, 0xf0, 0xf0};
/* prodinfo[] is input parameter 4 to QSZRTVPR and is
initialized to the text '*OPSYS *CUR 0033*CODE ' in EBCDIC
This value indicates we want to check the code load for Option 33
of the currently installed i5/OS release */
const char prodinfo[] =
{0x5c, 0xd6, 0xd7, 0xe2, 0xe8, 0xe2, 0x40, 0x5c, 0xc3,
0xe4, 0xd9, 0x40, 0x40, 0xf0, 0xf0, 0xf3, 0xf3, 0x5c,
0xc3, 0xd6, 0xc4, 0xc5, 0x40, 0x40, 0x40, 0x40, 0x40};
/* installed will be compared with the "Load State" field of the
information returned by QSZRTVPR and is initialized to the text
'90' in EBCDIC */
const char installed[] = {0xf9, 0xf0};
/* rcvr is the output parameter 1 from QSZRTVPR */
char rcvr[108];
/* rcvrlen is input parameter 2 to QSZRTVPR */
int rcvrlen = sizeof(rcvr);
/* errcode is input parameter 5 to QSZRTVPR */
struct {
int bytes_provided;
int bytes_available;
char msgid[7];
} errcode;
/* qszrtvpr_pointer will contain the i5/OS 16-byte tagged system
pointer to QSZRTVPR */
ILEpointer qszrtvpr_pointer;
/* qszrtvpr_argv6 is the array of argument pointers to QSZRTVPR */
void *qszrtvpr_argv[6];
/* return code from _RSLOBJ2 and _PGMCALL functions */
int rc;
/* Set the i5/OS pointer to the QSYS/QSZRTVPR *PGM object */
rc = _RSLOBJ2(&amp;qszrtvpr_pointer,
RSLOBJ_TS_PGM,
"QSZRTVPR",
"QSYS");
/* initialize the QSZRTVPR returned info structure */
memset(rcvr, 0, sizeof(rcvr));
/* initialize the QSZRTVPR error code structure */
memset(&amp;errcode, 0, sizeof(errcode));
errcode.bytes_provided = sizeof(errcode);
/* initialize the array of argument pointers for the QSZRTVPR API */
qszrtvpr_argv[0] = &amp;rcvr;
qszrtvpr_argv[1] = &amp;rcvrlen;
qszrtvpr_argv[2] = &amp;format;
qszrtvpr_argv[3] = &amp;prodinfo;
qszrtvpr_argv[4] = &amp;errcode;
qszrtvpr_argv[5] = NULL;
/* Call the i5/OS QSZRTVPR API from i5/OS PASE */
rc = _PGMCALL(&amp;qszrtvpr_pointer,
(void*)&amp;qszrtvpr_argv,
0);
/* Check the contents of bytes 63-64 of the returned information.
If they are not '90' (in EBCDIC), the code load is NOT correctly
installed */
if (memcmp(&amp;rcvr[63], &amp;installed, 2) != 0)
printf("i5/OS Option 33 is NOT installed\n");
else
printf("i5/OS Option 33 IS installed\n");
return(0);
}</pre>
</div>
</div>
<div>
<div class="familylinks">
<div class="parentlink"><strong>Parent topic:</strong> <a href="rzalfcallprog.htm" title="You can take advantage of existing i5/OS programs (*PGM objects) when you create your i5/OS PASE applications. In addition, you can use the systemCL() function to run the CL CALL command.">Call i5/OS programs from i5/OS PASE</a></div>
</div>
</div>
</body>
</html>
Reference in New Issue View Git Blame Copy Permalink