Retro1.org codex

*DECK NETSETP 
USETEXT NP$MODE 
USETEXT NP$STAT 
PROC NETSETP((OPTION)); 
*IF DEF,IMS 
 #
*1DC  NETSETP 
* 
*     1. PROC NAME         AUTHOR               DATE
*        NETSETP           S.KRULEVITCH         78/11/10
* 
*     2. FUNCTIONAL DESCRIPTION 
*        PARALLEL MODE MAY BE SELECTED AT RUN-TIME BY CALLING THIS
*        ROUTINE. THE APPLICATION WILL GET CONTROL BACK AS SOON AS
*        POSSIBLE AFTER NIP HAS BEEN CALLED,IF PARALLEL MODE IS ON. 
* 
*     3. METHOD USED
*        PARALLEL FLAG SET TRUE IF OPTION IS ZERO, ELSE FALSE.
* 
*     4. ENTRY CONDITIONS 
*        OPTION - ZERO FOR PARALLEL,OTHERWISE NON-ZERO. 
* 
*     5. EXIT CONDITIONS
*        PARALLEL - TRUE IF IN PARALLEL MODE, OTHERWISE FALSE.
* 
*     6. COMDECKS CALLED
*        NP$CRT  NP$MODE  NP$STAT 
* 
*     7. ROUTINES CALLED
*        NP$ERR - ERROR PROCESSOR 
*        NP$SN - INCREMENTS STATISTICS COUNTER
* 
*     8. DAYFILE MESSAGES 
*        NETWORK APPLICATION ABORTED, RC = 41.
*        NETSETP: PREVIOUS REQUEST INCOMPLETE.
* 
* 
 #
*ENDIF
   BEGIN
 
*CALL NP$CRT
 
#                                                                     # 
#     FORMAL PARAMETERS:                                              # 
#                                                                     # 
      ITEM
        OPTION          I;              #ZERO VALUE IMPLIES PARALLEL  # 
#                                                                     # 
#     EXTERNAL ROUTINES:                                              # 
#                                                                     # 
   XREF BEGIN 
        PROC NP$ERR;                    #ERROR PROCESSOR              # 
*IF DEF,STAT
        PROC NP$SN;                     #INCREMENTS STATISTICS COUNTER# 
*ENDIF
        END #XREFS# 
#**********************************************************************#
#                                                                     # 
#     NETSETP EXECUTION BEGINS HERE:                                  # 
#                                                                     # 
*IF DEF,STAT
#                                                                     # 
#     UPDATE STATISTICS IF STATISTICS GATHERING IS TURNED ON.         # 
#                                                                     # 
      NP$SN(TYPE"SETP");                #INCREMENT COUNTER            # 
*ENDIF
      IF DEFER$PRO
      THEN
        NP$ERR("41");                  # PREVIOUS REQUEST INCOMPLETE.  #
      IF OPTION EQ 0
      THEN
        PARALLEL = TRUE;
      ELSE
        PARALLEL = FALSE; 
      RETURN; 
   END #NETSETP#
TERM