GDSX Manual

Using Pseudo Procedures in a NonStop TS/MP
Environment
Extended General Device Support (GDSX) Manual–134303
D-10
USAMPLE1 Listing
316.
317. item^name ':=' xlate^user^parm^name [index] for s; ! get table name
318. If item^name = s[1] for s Then ! param name
found
319. Begin
320. @s := @s[s+1] ; ! point to param
value
321. ! assign param
value
322. ! set the desired parameter variable to parm value(s[1] FOR s)
323. goto try^next^param;
324. End
325. Else
326. index := index + 15; ! go to next
param
327. End;
328. drop index;
329.
330. @s := @s [s+1]; ! name not found let us forget it
331.
332. try^next^param:
333. ! if multiple user parm messages are in one
string
334. ! continue to process, otherwise return to
TSCODE
335. Return; ! for further processing
336. End;
337.
338.
339. !===========================================================================
340. Int Proc USER^ATTRIBUTES (sg^cmd, sg^objtype, sg^objname, token^code,
341. token^value);
342. !===========================================================================
343.
344. Int sg^cmd , ! SPI command for this request
345. sg^objtype , ! object type for this request
346. .sg^objname , ! object name for this request
347. .token^value ; ! SPI token value for this token
348. INT(32) token^code ; ! SPI token code
349.
350. Begin
351. Return 0;
352. End;
353.
354. !===========================================================================
355. Proc USER^BACKUP;
356. !===========================================================================
357. Begin
358. End;
360.
361. !===========================================================================
362. Int Proc USER^COMMANDS (iocb, file^error, sg^error) ;
363. !===========================================================================
364.
365. Int .EXT iocb (iocb^template), ! routines for processing
366. .file^error , ! user's commands, functions, etc.
367. .sg^error ;
368. Begin
369.
370. SG^ERROR := -1; ! -1 indicates that this command is unknown
371. Return 0;
372.
373. END ;
374.
375.
376.
377. !===========================================================================
378. Proc user^init^config^params;
379. !===========================================================================
380. Begin
381. End;
382.
383.
384.