GDSX Manual

Using Pseudo Procedures in a NonStop TS/MP
Environment
Extended General Device Support (GDSX) Manual–134303
D-29
USAMPLE2 Listing
474. !===========================================================================
475. Proc USER^BACKUP;
476. !===========================================================================
477. Begin
478. End;
479.
480.
481. !===========================================================================
482. Int Proc USER^COMMANDS (iocb, file^error, sg^error) ;
483. !===========================================================================
484.
485. Int .EXT iocb (iocb^template), ! routines for processing
486 .file^error , ! user's commands, functions, etc.
487 .sg^error ;
488. Begin
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*************************************************************************