GDSX (Extended General Device Support) Manual

Using Pseudo Procedures in a TS/MP Environment
Extended General Device Support (GDSX) Manual—529931-001
D-11
SCOBGDSX Listing
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.
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.