GDSX Manual

Using Pseudo Procedures in a NonStop TS/MP
Environment
Extended General Device Support (GDSX) Manual–134303
D-11
SCOBGDSX Listing
385. !===========================================================================
386. Int Proc USER^REPLIES (sg^cmd, sg^objtype, sg^objname, sg^buf);
387. !===========================================================================
388. Int sg^cmd , ! SPI command for this request
389. sg^objtype , ! object type for this request
390. sg^objname , ! object name for this request
391. .sg^buf ; ! SPI response buffer
392.
393. Begin
394. Return 0;
395. End ;
396.
397. !===========================================================================
398 Proc User^Takeover;
399. !===========================================================================
400. Begin
401.
402. End;
403.
404.
405. !===========================================================================
406. Int Proc User^Version (version^string);
407. !===========================================================================
408. String .version^string;
409. Begin
410.
411. version^string ':=' "011493" ; ! Jan. 14 1993 User Version
412. Return 1;
413.
414. End;
415.
!***EOF***********************************************************************
SCOBGDSX Listing
1
******************************************************************************
2 * Sample SCREEN COBOL program for communication with GDSX. *
3
******************************************************************************
4 Identification Division.
5 Program-Id. SCOBGDSX.
6
7
******************************************************************************
8 Environment Division.
9
******************************************************************************
10 Configuration Section.
11 Source-Computer. T16.
12 Object-Computer. T16,
13 Terminal is Intelligent.
14
15
******************************************************************************
16 Data Division.
17
******************************************************************************
18 Working-Storage Section.
19 *
20 01 Ws-Send.
21 05 Ws-Send-Reply-Code Pic 9(4) Comp.
22 05 Ws-Send-Function-Code Pic X(01).
23 05 Ws-Send-Loop Pic 9(03).
24 05 Ws-Send-Key1 Pic X(08).
25 05 Ws-Send-Text Pic X(50).
26 *
27 01 Ws-Rcvd.
28 05 Ws-Rcvd-Reply-Code Pic 9(4) Comp.
29 05 Ws-Rcvd-Function-Code Pic X(01).
30 05 Ws-Rcvd-Loop Pic 9(03).