GDSX (Extended General Device Support) Manual

Using Pseudo Procedures in a TS/MP Environment
Extended General Device Support (GDSX) Manual—529931-001
D-30
USAMPLE2 Listing
489.
490. SG^ERROR := -1; ! -1 indicates that this command is unknown
491. Return 0;
492.
493. END ;
494.
495.
496.
497. !===========================================================================
498 Proc user^init^config^params;
499. !===========================================================================
500. Begin
501. End;
502.
503.
504.
505. !===========================================================================
506. Int Proc USER^REPLIES (sg^cmd, sg^objtype, sg^objname, sg^buf);
507. !===========================================================================
508. Int sg^cmd , ! SPI command for this request
509. sg^objtype , ! object type for this request
510. sg^objname , ! object name for this request
511. .sg^buf ; ! SPI response buffer
512.
513. Begin
514. Return 0;
515. End ;
516.
517. !===========================================================================
518. Proc User^Takeover;
519. !===========================================================================
520. Begin
521.
522. End;
523.
524.
525. !===========================================================================
526. Int Proc User^Version (version^string);
527. !===========================================================================
528. String .version^string;
529. Begin
530.
531. version^string ':=' "011493" ; ! Jan. 14 1993 User Version
532. Return 1;
533.
534. End;
535.
!***EOF*************************************************************************