Pathcom/options/$PM ;commands
abort term-name|TERM term-name TO variable... ROUNDED
    ON SIZE ERROR statement 
    NOT ON SIZE ERROR statement 
    END-ADD 
ADD value... TO variable GIVING variable... ROUNDED
    ON SIZE ERROR statement 
    NOT ON SIZE ERROR statement 
    END-ADD
CALL value USING 
    BY REFERENCE variable...
    BY CONTENT variable...
    ON OVERFLOW statement 
    END-CALL 
CLOSE filehandle...
COMPUTE variable ROUNDED = compute
    ON SIZE ERROR statement 
    NOT ON SIZE ERROR statement 
    END-COMPUTE
COPY filename IN library 
    REPLACING{==pText==|value BY==pText==|value }... 
DELETE filehandle RECORD
    INVALID KEY statement 
    NOT INVALID KEY statement 
    END-DELETE 
DISPLAY value ... UPON device WITH NO ADVANCING
DIVIDE value INTO|BY value GIVING variable ROUNDED
    REMAINDER variable
    ON SIZE ERROR statement 
    NOT ON SIZE ERROR statement 
    END-DIVIDE 
DIVIDE value INTO variable ROUNDED 
    ON SIZE ERROR statement 
    NOT ON SIZE ERROR statement 
    END-DIVIDE 
EVALUATE {value|compute|TRUE|FALSE}
    ALSO {variable|literal-2|compute|TRUE|FALSE} 
    {WHEN
        condition|ANY|TRUE|FALSE|
            NOT{variable|literal-3|compute}
            THRU  {variable|literal-4|compute} }
        ALSO {condition|ANY|TRUE|FALSE|
            NOT{variable|literal-5|compute}
            THRU  {variable|literal-6|compute} }...
        statement} ...
    WHEN OTHER statement 
    END-EVALUATE 
IF condition THEN 
    NEXT SENTENCE|statement...
ELSE 
    NEXT SENTENCE|statement...
END-IF 
INITIALIZE variable...
INSPECT variable REPLACING
    CHARACTERS BY value BEFORE|AFTER INITIAL value...
    ALL|LEADING|FIRST value BY value BEFORE|AFTER INITIAL value...
INSPECT variable TALLYING variable FOR
    CHARACTERS BEFORE|AFTER INITIAL value...
    ALL|LEADING value BEFORE|AFTER INITIAL value
INSPECT variable CONVERTING value TO value
    BEFORE|AFTER INITIAL value...
MERGE filehandle-1 {ON {ASCENDING|DESCENDING} KEY SD-Element ...} ...
    COLLATING SEQUENCE IS ASCII|EBCDIC 
      USING filehandle...
    {OUTPUT PROCEDURE IS paragraph-1 THRU paragraph-2 
      | GIVING filehandle...}
MOVE value TO variable....
MULTIPLY variable BY value ROUNDED...
    ON SIZE ERROR statement 
    NOT ON SIZE ERROR statement 
    END-MULTIPLY 
MULTIPLY value BY value GIVING variable ROUNDED...
    ON SIZE ERROR statement 
    NOT ON SIZE ERROR statement 
    END-MULTIPLY 
OPEN INPUT filehandle... OUTPUT filehandle... I-O filehandle... EXTEND filehandle...
PERFORM paragraph-1 THRU paragraph-2 
      value TIMES
      VARYING variable FROM value BY value UNTIL condition { 
         WITH TEST BEFORE|AFTER} 
      statement... 
      END-PERFORM 
READ filehandle NEXT {INTO variable} 
    AT END statement 
    NOT AT END statement 
    END-READ 
READ filehandle { INTO variable} 
    KEY IS Fd-element 
    INVALID KEY statement 
    NOT INVALID KEY statement 
    END-READ 
REWRITE FD-record { FROM FD-record} 
    INVALID KEY statement
    NOT INVALID KEY statement
    END-REWRITE 
SEARCH variable VARYING {variable|index}
    AT END statement 
    {WHEN condition-1 {statement|NEXT SENTENCE}} ...
    END-SEARCH
SEARCH ALL variable
    AT END statement 
    WHEN {variable = {var-3|literal-1|compute}|condition-1}
        AND {var-4 = {var-5|literal-2|compute}|condition-2}...
        {statement|NEXT SENTENCE}
    END-SEARCH 
SELECT filehandle ASSIGN TO library|device
    ORGANIZATION IS SEQUENTIAL|INDEXED|DYNAMIC|LINE SEQUENTIAL 
    ACCESS MODE IS SEQUENTIAL|RANDOM|DYNAMIC 
    RECORD KEY IS Fd-element
    ALTERNATE RECORD KEY IS Fd-element
    FILE STATUS IS variable
SET index|variable... TO index|value
SET index... UP|DOWN BY value
SET 88-level... TO TRUE
SORT SD-filehandle 
    ON ASCENDING|DESCENDING KEY SD-element...
    WITH DUPLICATES IN ORDER
    COLLATING SEQUENCE IS ASCII|EBCDIC
    USING filehandle... GIVING filehandle...
SORT SD-filehandle 
    ON ASCENDING|DESCENDING KEY SD-element...
    WITH DUPLICATES IN ORDER
    COLLATING SEQUENCE IS ASCII|EBCDIC
    INPUT PROCEDURE IS sort-input-paragraph {THRU paragraph}
    OUTPUT PROCEDURE IS sort-output-paragraph {THRU paragraph}
    sort-input-paragraph
       RETURN SD-filehandle INTO variable
         AT END statement
         NOT AT END statement 
         END-RETURN 
    sort-output-paragraph
       RELEASE Sd-record FROM variable
START filehandle KEY IS =|KEY IS >|KEY IS NOT <|KEY IS >= Fd-element 
     INVALID KEY statement 
    NOT INVALID KEY statement 
    END-START 
STOP {RUN|literal-1}
STRING value...  DELIMITED BYvalue|SIZE ...
    INTO variable
    WITH POINTER variable 
    ON OVERFLOW statement 
    NOT ON OVERFLOW statement 
    END-STRING 
SUBTRACT value...  FROMvariable ROUNDED  ...
    ON SIZE ERROR statement 
    NOT ON SIZE ERROR statement 
    END-SUBTRACT 
SUBTRACT value... FROM value
    GIVING variable ROUNDED  ...
    ON SIZE ERROR statement 
    NOT ON SIZE ERROR statement 
    END-SUBTRACT 
UNSTRING variable
    DELIMITED BY { ALL} value {OR ALL value}...
     INTOvariable
        DELIMITER IN variable-delimiter 
        COUNT IN variable-counter  ...
    WITH POINTER variable-pointer 
    TALLYING IN variable-tally 
    ON OVERFLOW statement 
     NOT ON OVERFLOW statement 
    END-UNSTRING 
WRITE filehandle FROM Fd-record 
    BEFORE|AFTER ADVANCING PAGE|value LINE
    END-WRITE 
WRITE filehandle FROM Fd-record 
    INVALID KEY statement 
    NOT INVALID KEY statement 
    END-WRITE 

IDENTIFICATION DIVISION.
PROGRAM-ID. EXAMPLE-SCREEN-PROGRAM.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
   SOURCE-COMPUTER. T16.
   OBJECT-COMPUTER. T16,
   TERMINAL IS T16-6520.
SPECIAL-NAMES.
   F1-KEY IS F1, F2-KEY IS F2, F15-KEY IS F15, F16-KEY IS F16
   SF1-KEY IS SF1, SF16-KEY IS SF16, ATTENTION IS REVERSE.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS.
   02 ERROR-MSG PIC X(64).
01 EXIT-FLAG PIC 9 VALUE 0.
   88 EXIT-PROGRAM VALUE 1.
01 SEND-ERROR-FLAG PIC 99.
01 ENTRY-MSG.
   02 PW-HEADER.
      04 REPLY-CODE PIC S9(4) COMP.
      04 FUNCTION-CODE PIC XX.
         02 MESSAGE-NUMBER PIC 9.
01 ENTRY-REPLY.
   02 PW-HEADER.
      04 REPLY-CODE PIC S9(4) COMP.
      04 FILLER PIC X(2).
   02 SERVER-RECORD PIC X(64).
01 ERROR-REPLY.
   02 REPLY-CODE PIC 9(4) COMP.
   02 FILLER PIC X(2).
   02 ERROR-CODE PIC 999 COMP.
SCREEN SECTION.
01 EXAMPLE-SCREEN BASE SIZE 24, 80.
   03 FILLER				AT 1, 20	VALUE "EXAMPLE SCREEN COBOL PROGRAM".
   03 FILLER				AT 10, 1	VALUE "MESSAGE NUMBER :".
   03 MESSAGE-NUMBER 			AT 10, * + 2 	PIC 9, 
							USING MESSAGE-NUMBER OF ENTRY-MSG.
   03 MESSAGE-TEXT	AT 12, 1	PIC X(64) 	FROM SERVER-RECORD OF ENTRY-REPLY.
   03 FILLER				AT 21, 15 	VALUE "F1 - READ F16 - EXIT PROGRAM".
   03 ERROR-MSG		AT 24, 2	PIC X(64) 	ADVISORY FROM ERROR-MSG OF WS.
PROCEDURE DIVISION.
A-MAIN.
   DISPLAY BASE EXAMPLE-SCREEN.
   MOVE 0 TO MESSAGE-NUMBER OF ENTRY-MSG.
   DISPLAY MESSAGE-NUMBER OF EXAMPLE-SCREEN.
   PERFORM CASE-MANAGER UNTIL EXIT-PROGRAM.
A-EXIT.
   EXIT PROGRAM.
CASE-MANAGER.
   ACCEPT MESSAGE-NUMBER OF EXAMPLE-SCREEN 
    UNTIL F1-KEY ESCAPE ON F16-KEY (F2-KEY THROUGH F15-KEY, SF1-KEY THROUGH SF16-KEY).
   PERFORM ONE OF READ-MESSAGE, 
		  SET-EXIT, 
		  KEY-NOT-SUPPORTED
		  DEPENDING ON TERMINATION-STATUS.
READ-MESSAGE.
   MOVE "01" TO FUNCTION-CODE OF ENTRY-MSG.
   PERFORM SEND-DATA.
SET-EXIT.
   MOVE 1 TO EXIT-FLAG.
KEY-NOT-SUPPORTED.
   MOVE "FUNCTION KEY NOT SUPPORTED" TO ERROR-MSG OF WS.
   PERFORM DISPLAY-ADVISORY.
SEND-DATA.
   MOVE 0 TO SEND-ERROR-FLAG.
   SEND ENTRY-MSG TO "EXAMPLE-SERVER"
	REPLY CODE 0   YIELDS ENTRY-REPLY
	      CODE 999 YIELDS ERROR-REPLY ON ERROR PERFORM
SEND-ERROR.
  IF SEND-ERROR-FLAG = 99
     DISPLAY TEMP "SEND ERROR" IN ERROR-MSG OF EXAMPLE-SCREEN   
   ELSE 
     PERFORM ONE OF PARA-1 PARA-2 DEPENDING ON TERMINATION-STATUS.
PARA-1.
   MOVE SPACES TO ERROR-MSG OF WS
   DISPLAY MESSAGE-TEXT OF EXAMPLE-SCREEN, ERROR-MSG OF EXAMPLE-SCREEN.
PARA-2.
   PERFORM SETUP-SERVER-ERROR
   PERFORM DISPLAY-ADVISORY.
SEND-ERROR.
   MOVE 99 TO SEND-ERROR-FLAG.
SETUP-SERVER-ERROR.
   IF ERROR-CODE = 1

			MOVE "SERVER FUNCTION NOT SUPPORTED" TO ERROR-MSG OF WS
		ELSE
		IF ERROR-CODE = 2
			MOVE "MESSAGE DOES NOT EXIST FOR SPECIFIED NUMBER" TO ERROR-MSG OF WS
		ELSE
			MOVE "UNKNOWN SERVER ERROR" TO ERROR-MSG OF WS.
DISPLAY-ADVISORY.
		DISPLAY TEMP ERROR-MSG OF EXAMPLE-SCREEN.
		TURN TEMP ATTENTION IN ERROR-MSG OF EXAMPLE-SCREEN.

IDENTIFICATION DIVISION.
PROGRAM-ID. EXAMPLE-SERVER.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
	SOURCE-COMPUTER. TANDEM/16.
	OBJECT-COMPUTER. TANDEM/16.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
	SELECT MESSAGE-IN,	ASSIGN TO $RECEIVE FILE STATUS IS RECEIVE-FILE-STATUS.
	SELECT MESSAGE-OUT, 	ASSIGN TO $RECEIVE FILE STATUS IS RECEIVE-FILE-STATUS.
RECEIVE-CONTROL. TABLE OCCURS 5 TIMES.
DATA DIVISION.
FILE SECTION.
FD MESSAGE-IN LABEL RECORDS ARE OMITTED.
01 ENTRY-MSG.
   02 PW-HEADER.
      04 REPLY-CODE				PIC S9(4) COMP.
      04 FUNCTION-CODE				PIC XX.
   02 MESSAGE-NUMBER				PIC 9.
FD MESSAGE-OUT LABEL RECORDS ARE OMITTED RECORD CONTAINS 1 TO 68 CHARACTERS.
01 ENTRY-REPLY.
   02 PW-HEADER.
      04 REPLY-CODE				PIC S9(4) COMP.
      04 FILLER					PIC X(2).
   02 SERVER-RECORD				PIC X(64).
01 ERROR-REPLY.
   02 REPLY-CODE				PIC S9(4) COMP.
   02 FILLER					PIC X(2).
   02 ERROR-CODE				PIC 999 COMP.
WORKING-STORAGE SECTION.
01 RECEIVE-FILE-STATUS.
   02 STAT-1					PIC 9.
      88 CLOSE-FROM-REQUESTOR 			VALUE 1.
   02 STAT-2					PIC 9.
01 WS.
   02 ERROR-CODE				PIC 999 COMP.
PROCEDURE DIVISION.
BEGIN-COBOL-SERVER.
	OPEN INPUT MESSAGE-IN.
	OPEN OUTPUT MESSAGE-OUT SYNCDEPTH 1.
	PERFORM B-TRANS UNTIL CLOSE-FROM-REQUESTOR.
	STOP RUN.
B-TRANS.
	READ MESSAGE-IN, AT END STOP RUN.
	MOVE PW-HEADER OF MESSAGE-IN		TO PW-HEADER OF MESSAGE-OUT.
	MOVE 0					TO ERROR-CODE OF WS
	IF FUNCTION-CODE = "01"
 	   PERFORM READ-MESSAGE
	ELSE
	   PERFORM FUNCTION-NOT-SUPPORTED.
	IF ERROR-CODE OF WS = 0
	   MOVE 0				TO REPLY-CODE OF ENTRY-REPLY
	   WRITE ENTRY-REPLY
	ELSE
	   MOVE 999				TO REPLY-CODE OF ERROR-REPLY
	   MOVE ERROR-CODE OF WS		TO ERROR-CODE OF ERROR-REPLY
	   WRITE ERROR-REPLY.
READ-MESSAGE.
	IF MESSAGE-NUMBER = 0 MOVE "THIS IS MESSAGE ZERO"       TO SERVER-RECORD ELSE
  IF MESSAGE-NUMBER = 1 MOVE "THIS IS MESSAGE NUMBER ONE" TO SERVER-RECORD ELSE 
  IF MESSAGE-NUMBER = 2 MOVE "THIS IS MESSAGE NUMBER TWO"	TO SERVER-RECORD
	ELSE	PERFORM INVALID-MESSAGE-NUMBER.
FUNCTION-NOT-SUPPORTED.
	MOVE 1 TO ERROR-CODE OF WS.
INVALID-MESSAGE-NUMBER.
	MOVE 2 TO ERROR-CODE OF WS.

ASSIGN PATHCTL, $data.obey.ccctl
PATHCOM  $CC;SHUTDOWN2,MODE IM;EXIT
PATHMON/NAME $CC,NOWAIT,PRI 149,OUT \CP1.$TRM3.#A,CPU 1/
or in Pathway
SET PATHMON [,BACKUPCPU number | ,DUMP OFF|ON (FILE file-name) ]

PATHCOM /mem 64/] $CC [; command [, command]...]]
SET PATHWAY pw-attribute [, pw-attribute]...
		MAXASSIGNS n,MAXPARAMS n,MAXSERVERCLASSES n,MAXSERVERPROCESSES n,MAXSTARTUPS n
		MAXTCPS n,MAXTERMS n,MAXDEFINES n,MAXEXTERNALTCPS n,MAXLINKMONS n,MAXPATHCOMS n
		MAXPROGRAMS n,MAXSPI n,MAXTELLQUEUE n,MAXTELLS n,MAXTMFRESTARTS n
		OWNER ownerid,SECURITY "NNNU"
START PATHWAY COOL|COLD !

SET TCP tcp-attribute [, tcp-attribute]...
		AUTORESTART 20
		CHECK-DIRECTORY ON
		CODEAREALEN 256000
		CPUS 1:2
		DEBUG OFF|ON
		DUMP OFF|ON (FILE file-name)
		GUARDIAN-LIB file-name
		GUARDIAN-SWAP $volume
		HIGHPIN OFF|ON
		HOMETERM $term3.#a
		INSPECT OFF|ON (FILE file-name)
		LIKE tcp-name
		MAXINPUTMSGLEN 133
		MAXINPUTMSGS 0
		MAXPATHWAYS 2
		MAXREPLY 5000
		MAXSERVERCLASSES 100
		MAXSERVERPROCESSES 300
		MAXTERMDATA 40000
		MAXTERMS 20
		NONSTOP 1
		POWERONRECOVERY ON
		PRI 143
		PROCESS $tcp1
		PROGRAM $SYSTEM.SYSTEM.PATHTCP2
		SERVERPOOL 20000
		STATS ON
		SWAP $volume
		TCLPROG $DATA.OBJECT.POBJ
		TERMBUF 5000
		TERMPOOL 20000
ADD TCP tcp-name [, tcp-attribute]...

RESET SERVER
SET SERVER server-attribute [, server-attribute]...
		PROGRAM $data.object.server
		ASSIGN FD-FILENAME , $data.file.filename
		DEFINE define-name , define-attribute-spec	[, define-attribute-spec]...])
		PARAM switch-1 on, switch-2 off
		AUTORESTART 5
		CPUS (0:1, 1:2, 2:3)
		CREATEDELAY 5 SECS|HRS|MINS
		DEBUG {ON | OFF}
		DELETEDELAY 30 MINS|HRS|SECS
		GUARDIAN-LIB file-name
		HIGHPIN {ON | OFF}
		HOMETERM file-name
		IN file-name
		LIKE server-class
		LINKDEPTH 1
		MAXLINKS 5
		MAXSERVERS 5
		NUMSTATIC 1
		OUT file-name
		OWNER 1,255
		PRI 139
		PROCESS $process-name1 (pri 149)
		PROCESS $process-name2 (pri 149)
		SECURITY "N"
		STARTUP string
		TIMEOUT number HRS|MINS|SECS
		TMF ON
		VOLUME $data.obey
ADD SERVER server-class [, server-attribute]...
ALTER SERVER MY-SERVER, DEBUG ON, HOMETERM $LANA.#JC1

SET TERM term-attribute [, term-attribute]...
		AUTORESTART number
		BREAK ON|OFF
		DIAGNOSTIC ON|OFF
		DISPLAY-PAGES number
		ECHO ON|OFF|CURRENT
		EXCLUSIVE ON|OFF
		FILE file-name
		INITIAL program-unit-name
		INSPECT OFF|ON (FILE \CP1.$TRM0.#A)
		IOPROTOCOL 0|1
		LIKE term-name
		MAXINPUTMSGS number
		PRINTER {file-name [IS-ATTACHED]} {IS-ATTACHED}
		TCLPROG file-name
		TCP tcp-name
		TMF {ON | OFF}
		TRAILINGBLANKS {ON | OFF}
		TYPE term-class
ABORT TERM term-name|(term-name,term-name...)
			TERM * [,SEL [NOT] RUNNING | ,STATE STOPPED|SUSPENDED | ,TCP tcp-name]

SET PROGRAM program-attribute [, program-attribute]...
		LIKE program-name
		OWNER owner-id
		PRINTER {file-name [IS-ATTACHED]}{IS-ATTACHED}
		SECURITY "NNNU"
		TCP tcp-name
		TMF {ON|OFF}
		TYPE program-type (INITIAL program-unit-name)
		  ,BREAK ON|OFF | ,DISPLAY-PAGES number | ,ECHO ON|OFF|CURRENT | ,EXCLUSIVE ON|OFF
		  ,IOPROTOCOL 0|1 | ,MAXINPUTMSGS number | ,TCLPROG file-name | ,TRAILINGBLANKS ON|OFF | ,ERROR-ABORT ON|OFF
ADD PROGRAM program-name [, program-attribute]...

ALTER PROGRAM program-name
		, program-attribute
		, RESET program-keyword|(program-keyword,program-keyword...
ALTER SERVER server-class 
		,DELETE ASSIGN logical-unit|DEFINE define-name|PARAM parameter-name|PROCESS process-name|STARTUP
		,RESET server-keyword
ALTER TCP tcp-name, RESET tcp-keyword
ALTER TERM term-name, RESET (term-keyword,term-keyword)
CMDVOL \node.$volume.subvolume 
CONTROL PATHMON, BACKUPCPU number | DUMP {ON [( FILE file-name )] | OFF}
CONTROL TCP (tcp-name) | ,BACKUPCPU number |	,DUMP OFF|ON [( FILE file-name )] | ,STATS {ON | OFF}
DELETE PROGRAM|SERVER|TCP|TELL n|TERM|(name,name)|*
ERRORS [number]
EXIT
FC
FREEZE SERVER server-class|(server-class [, server-class]...)|* [!] [, WAIT]
HELP displays or lists to a file the command syntax for all PATHCOM commands.
HELP [/OUT list-file/] [ALL]
		[COMMANDS]
		[command-name]
		[<“detail-name”>]
		[error-num]
INFO [/OUT list-file/] PATHMON|PATHWAY|PROGRAM *|SERVER *|TCP *| TELL *|TERM * [,OBEYFORM]
INSPECT TERM term-name [, FILE file-name]
LOG1 file-name STATUS|EVENTFORMAT			reports errors and changes to a log file
LOG2 [file-name STATUS|EVENTFORMAT
OBEY file-name
O file-name
OBEYVOL \node.]$volume.subvolume|\node.]$volume|\node.]subvolume|\node
OPEN [\node.]$pm-proces
PRIMARY PATHMON [, IFPRICPU number]   if no IFPRICPU number then it reverts to configuration file
PRIMARY TCP *|tcp-name|(tcp-1,tcp-2) [, IFPRICPU number]
REFRESH-CODE TCP *|tcp-name|(tcp1,tcp2) {TCP * [, STATE state-type]}
		state-type is:
		{SEL} [NOT] {PENDING}
		{STATE} {RUNNING}
		{STOPPED}
RESET PROGRAM ERROR-ABORT|OWNER|PRINTER|SECURITY|TCP|TMF|TYPE program-type
RESET SERVER
		[server-keyword [, server-keyword]...]
		server-keyword is any of:
		ASSIGN|AUTORESTART|CPUS|CREATEDELAY|DEBUG|DEFINE|DELETEDELAY|GUARDIAN-LIB|HIGHPIN|HOMETERM|IN|LINKDEPTH|
		PRI|PROCESS|PROGRAM|SECURITY|STARTUP|MAXLINKS|MAXSERVERS|NUMSTATIC|TIMEOUT|OUT|TMF|OWNER|VOLUME|PARAM
RESET TCP [tcp-keyword [, tcp-keyword]...]
		tcp-keyword is any of:
		AUTORESTART|CHECK–DIRECTORY|CODEAREALEN|CPUS|DEBUG|DUMP|GUARDIAN–LIB|GUARDIAN–SWAP|HIGHPIN|HOMETERM|INSPECT|
		MAXINPUTMSGLEN|MAXINPUTMSGS|MAXPATHWAYS|MAXREPLY|MAXSERVERCLASSES|MAXSERVERPROCESSES|MAXTERMDATA|MAXTERMS|
		NONSTOP|PRI|POWERONRECOVERY|PROCESS|PROGRAM|SERVERPOOL|STATS|SWAP|TCLPROG|TERMBUF|TERMPOOL|
RESET TERM [term-keyword [, term-keyword]...]
		term-keyword is any of:
		AUTORESTART|FILE|TCLPROG
		BREAK|INITIAL|TCP
		DIAGNOSTIC|INSPECT|TMF
		DISPLAY-PAGES|IOPROTOCOL|TRAILINGBLANKS
		ECHO|MAXINPUTMSGS|TYPE
		EXCLUSIVE|PRINTER
RESUME TERM term-name {SEL [NOT] RUNNING | STATE STOPPED|SUSPENDED|TCP tcp-name}
RUN PROGRAM program-name {,PRINTER {file-name [IS-ATTACHED]|FILE file-name|TYPE program-type|NOWAIT
SHOW [/ OUT list-file /] [CMDVOL|ERRORS|OBEYVOL]
SHOW PROGRAM|SERVER|TCP|TERM
SHUTDOWN [!] [, WAIT]
SHUTDOWN2 [ ,MODE ORDERLY|ABORT|IMMEDIATE | ,STATUS QUIET|AGGREGATE | ,UNTIL DONE | TIMEOUT number HRS|MINS|SECS]
START PATHWAY {COOL} [!] |COLD
START SERVER initiates the operation of the static servers in the server class.
START SERVER server-class [, PROCESS $process-name]}
START SERVER (server-class [, server-class]... )
START SERVER *
START TCP (tcp-name,tcpname)
START TCP * [, STATE SEL [NOT] PENDING | STATE RUNNING|STOPPED}]
START TERM term-name|(term-name,term-name)|*
START	TERM * [,SEL [NOT] RUNNING | ,STATE STOPPED|SUSPENDED |,TCP tcp-name |,INITIAL program-unit-name
STATS [/ OUT list-file /] TCP tcp-name
STATS TCP tcp-name}
STATS TCP *  [,COUNT number | ,DETAIL | ,FREQTABLE | ,INTERVAL number HRS|MINS|SECS ]
			RESET
			SEL [NOT] PENDING|STATE RUNNING STOPPED
STATS TERM displays resource usage and performance statistics for terminals, collected by the TCP.
STATS TERM *|term-name|(term-name,term-name) [ ,COUNT number | ,FREQTABLE | ,INTERVAL HRS|MINS|SECS ]
STATS TERM * [, SEL [NOT] RUNNING | ,STATE STOPPED|SUSPENDED | ,TCP tcp-name | ,RESET
STATUS / OUT list-file/ pathway-object
STATUS LINKMON \node.$process-name | *
STATUS PATHMON displays the status of the PATHMON process, the Pathway
		configuration file, and the logging files. This command also displays a list of the
		processes currently communicating with the PATHMON process.
STATUS PATHMON
STATUS PATHWAY  [ ,COUNT number | ,INTERVAL number HRS|MINS|SECS]
STATUS SERVER name [, PROCESS $process-name | ,PROCESSES | ,DETAIL | ,FREEZE]
STATUS TCP tcp-name|(tcp-name,tcp-name)|\node.$process-name [,DETAIL | }
STATUS TCP * [,SEL [NOT] PENDING | ,STATE RUNNING|STOPPED | ,DETAIL]
STATUS TERM  (term-name,term-name) [, DETAIL]}
STATUS TERM * [,SEL [NOT] RUNNING |	,STATE STOPPED|SUSPENDED | ,TCP tcp-name | ,DETAIL]
STOP PATHMON
STOP SERVER server-class|(server-class [, server-class]... )|*
STOP TCP tcp-name|(tcp-name,tcp-name) [, WAIT]
STOP TCP * [,SEL [NOT] PENDING| ,STATE RUNNING|STOPPED | ,WAIT
STOP TERM term-name|(term-name [, term-name]... )|* , option,option
STOP {TERM * [,SEL [NOT] RUNNING | ,STATE STOPPED|SUSPENDED  | ,TCP tcp-name
SUSPEND TERM term-name [!]}, SEL [NOT] RUNNING | STATE STOPPED|SUSPENDED  | TCP tcp-name
SWITCH PATHMON
SWITCH TCP tcp-name|* [,STATE SEL [NOT] PENDING|STATE RUNNING|STOPPED]
SWITCH TCP tcp-name [, tcp-name]...}
SWITCH TCP * [,STATE SEL [NOT] PENDING|STATE RUNNING|STOPPED]
TELL TERM termname-list|*|TCP tcp-name , "string"
THAW SERVER server-class|(server-class,server-class)|*

debug $xx,TERM $lana.#jc1
PATHCOM $CC;ALTER SERVER server-name, DEBUG ON, HOMETERM $lana.#jc1
PATHCOM $CC;ALTER TERM term-name INSPECT ON (FILE $lana#jc1);START term-name

SCOPE #HTCALLNM
ADD ALIAS X="SOURCE WRAP"
SOURCE ON
LOG TO $DATA8.HTOBEY.JIMJUNK
B #612 THEN "D WS-IN-BUFFER;R"
R * EXIT
T shows where you're at