ENABLE User's Guide

Sample Project-Tracking System
Modifying the PATHCOM Command File to Integrate the Applications
-----------------------------------------------------------------
| |
| SET TCP PROGRAM $SYSTEM.SYSTEM.PATHTCP2 |
| SET TCP CPUS 0:1 |
| SET TCP MAXTERMS 5 |
| SET TCP MAXSERVERCLASSES 003 |
| SET TCP MAXSERVERPROCESSES 003 |
| SET TCP MAXTERMDATA 27732 (1) |
| SET TCP MAXREPLY 02000 |
| SET TCP NONSTOP 0 |
| SET TCP TCLPROG $DATA.PROJ.POBJ |
| ADD TCP ENABLE-TCP |
| |
| SET PROGRAM TCP ENABLE-TCP |
| SET PROGRAM TYPE T16-6520 INITIAL MENU (2) |
| SET PROGRAM TMF OFF |
| ADD PROGRAM MENU (3) |
| |
| RESET SERVER ASSIGN, PARAM |
| |
| SET SERVER PROGRAM $SYSTEM.SYSTEM.ENABLEGS |
| SET SERVER CPUS 0:1 |
| SET SERVER NUMSTATIC 1 |
| SET SERVER (ASSIGN PROJECT-BOX, PROJECTS) (4) |
| SET SERVER (ASSIGN PARTIC-BOX, RESPFOR) |
| SET SERVER (ASSIGN MANAGER, EMPLOYS, INPUT) |
| SET SERVER (ASSIGN PROJECTS, PROJECTS) |
| SET SERVER (ASSIGN EVENTS, EVENTS) |
| SET SERVER (ASSIGN EVENTS-BOX, EVENTS, INPUT) |
| SET SERVER (ASSIGN EVENT-X, EVENTS, INPUT) |
| SET SERVER (ASSIGN EVENTS-A, EVENTS, INPUT) |
| SET SERVER (ASSIGN EMPLOY-ASSIGN, EMPLOYS, INPUT) |
| SET SERVER (ASSIGN MY-EVENT, EVENTS, INPUT) |
| SET SERVER (ASSIGN EVENTS-3, EVENTS) |
| SET SERVER (ASSIGN EVENTS-4, EVENTS) |
| SET SERVER (ASSIGN EMPLOYEES, EMPLOYS) |
| SET SERVER (ASSIGN PROJ-BOX, PROJECTS, INPUT) |
| SET SERVER (ASSIGN EMPLOYEE-PART, RESPFOR, INPUT) |
| SET SERVER (ASSIGN EVENT-B, EVENTS, INPUT) |
| SET SERVER (ASSIGN EMPLOY-BOX, EMPLOYS, INPUT) |
| SET SERVER TMF OFF |
| ADD SERVER ENABLE-SERVER |
| |
-----------------------------------------------------------------
Figure 12-28. Sample Modified PATHCOM Command File
(Continued)
12-56