%EXTERNALINTEGERFN ROUTE(%LONGINTEGER ROUTE, %INTEGER OPERATION)
!
! Basic file route for STDAD.
!
! File route operation codes:
!
%CONSTINTEGER CREATE = 1, ASSIGN = 2, DELETE = 3, DEASSIGN = 4
%CONSTINTEGER CHOOSE RAM = 5
!
! File description parameter pair identifiers:
!
%CONSTINTEGER TEMP RAM = 141
!
%EXTERNALSTRINGFNSPEC ECTM DESC S(%LONGINTEGER ROUTE, %INTEGER ID)
%EXTERNALINTEGERFNSPEC ECTM DESC I(%LONGINTEGER ROUTE, %INTEGER ID)
%EXTERNALROUTINESPEC ECTM SET DESC I(%LONGINTEGER ROUTE,  %C
      %INTEGER ID, VALUE)
%EXTERNALINTEGERFNSPEC ECTM SET DESC S(%LONGINTEGER ROUTE,  %C
      %INTEGER ID, %STRING(255) VALUE)
!
%SWITCH CASE(1:5)
!
%UNLESS 0 < OPERATION < 6 %THEN %RESULT = 9183
-> CASE(OPERATION)
!
CASE(CREATE):
      %RESULT = 0
!
CASE(ASSIGN):
      %RESULT = 0
!
CASE(DEASSIGN):
      %RESULT = 0
!
CASE(DELETE):
      %RESULT = 0
!
CASE(CHOOSE RAM):
      %RESULT = ECTM SET DESC S(ROUTE, TEMP RAM, "PLULB1.CTMY_TTYRAM")
!
%END
!
%ENDOFFILE