GDSX (Extended General Device Support) Manual

Using Pseudo Procedures in a TS/MP Environment
Extended General Device Support (GDSX) Manual—529931-001
D-6
USAMPLE1 Listing
DEVICETYPE 6, DEVICESUBTYPE 4, PHYSRECLEN 80
-> ADD SU $GDSX.#TERM2, ACCESSNAME $STAR.#PTY10
DEVICETYPE 6, DEVICESUBTYPE 4, PHYSRECLEN 80
-> START SU $GDSX.#TERM1
-> START SU $GDSX.#TERM2
USAMPLE1 Listing
1.
!******************************************************************************
2. ! GDSX USCODE Generic DEVICE^HANDLER
!
3. ! Sample program
!
4. !
!
5. ! Writing or deleting records in a database using IDS
!
6.
!******************************************************************************
8. ?NOMAP, NOLMAP, NOCODE, SYMBOLS, CPU TNS/II
9.
10. NAME uscode;
11.
12
13. BLOCK COMMON^TEMPLATES;
14. ?NOLIST, Source DCCBDECS (ERRORS)
16. ?NOLIST, Source DCCBDECS (EVENTS)
18. ?NOLIST, Source DCCBDECS (TCB^LAYOUT)
20. ?NOLIST, Source DCCBDECS (IOCB^LAYOUT)
22. ?NOLIST, Source DCCBDECS (FCB^LAYOUT)
24. ?NOLIST, Source DCCBDECS (RCB^LAYOUT)
26. !===========================================================================
27. !Comment Users may include their own file to modify DCB and LINE Templates.
28. !Comment See file ULHDECS that USAMPLE sources in here
29. ?NOLIST, Source ULHDECSE(Dcb^Template, Line^Template)
32. END BLOCK; ! COMMON^TEMPLATES
33.
34. BLOCK CONFIG^PARMS^TEMPLATES;
35. ?NOLIST, Source DCCBDECS (CONFIG^TEMPLATES)
37. END BLOCK; ! CONFIG^PARMS^TEMPLATES
38.
39. ! Global Data
40. !
41. BLOCK CONFIG^PARMS^DATA;
42. ?NOLIST, Source DCCBDECS (CONFIG^DATA)
44. END BLOCK; ! CONFIG^PARMS^DATA
45.
46. BLOCK COMMON^DATA;
47. ?NOLIST, Source DCCBDECS (COMMON^DATA)
49. END BLOCK; ! COMMON^DATA
50.
51. BLOCK USER^PRIVATE;
52. LITERAL TRUE = -1, FALSE = 0;
53. END BLOCK; !USER^PRIVATE
54.
55. !===========================================================================
56. !Comment User may include System Procedures desired here.
57. ?NOLIST, Source $SYSTEM.SYSTEM.EXTDECS0(Debug,String_Upshift_)
61. ?NOLIST, Source PEXTGDS
63.
65. !===========================================================================
66. Proc Device^Handler (Term^File^Num, Internal^Term^No, Term^Type);
67. !===========================================================================
68.
69. Int Term^File^Num , -- file number for this D^H
task
70. Internal^Term^No, -- terminal number for this
D^H task