OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-226
Translation Application Example
157 {
158 zResponderParam = getenv (RESPONDER_PARAM);
159 if (!zResponderParam )/* If not already open, open it */
160 {
161 printf ("Required parameter ’%s’ missing.\n", RESPONDER_PARAM);
162 return FALSE;
163 }
164
165
166
167 /* Save the probable phandle*/
168 FILENAME_TO_PROCESSHANDLE_ (zResponderParam,
169 (short) strlen (zResponderParam),
170 (short *) &ThisProcessHandle);
171 sprintf (zFilename, "%s%s", zResponderParam, ZSPI_QUAL);
172 sLastError = FILE_OPEN_ (zFilename, (short) strlen (zFilename),
173 &sSpiFnum);
174 if (sLastError)
175 {
176 printf ("Error opening Responder file (’%s’): %d\n",
177 zFilename, sLastError);
178 return FALSE;
179 }
180 }
189 else
190 memcpy (&ThisProcessHandle, &ResponderPhandle,
191 sizeof (ThisProcessHandle));
192 /* Build the SSID you always will use */
193 TEXTTOSSID (ZOSF_VAL_EXTERNAL_SSID, (short *) &zosf_val_ssid);
194 zosf_val_ssid.z_version = ZOSF_VAL_VERSION;
195 /* Build and send the ’Enable’ command */
196 SSINIT (saSpiBuffer, ZOSA_VAL_MIN_BUFLEN,
197 (short *) &zosf_val_ssid, ZSPI_VAL_CMDHDR,
198 ZOSF_CMD_ENABLE_XLATE, ZCOM_OBJ_PROCESS);
199 sLen = (short) sizeof (saSpiBuffer);
200 SSPUTTKN (saSpiBuffer, ZSPI_TKN_MAXRESP, (char *) &sLen);
201 SSGETTKN (saSpiBuffer, ZSPI_TKN_USEDLEN, (char *) &sLen);
202 WRITEREADX (sSpiFnum, (char *) saSpiBuffer, sLen,
203 (short) sizeof (saSpiBuffer), &sLen);