Retro1.org codex

*DECK IPPENDN 
USETEXT TEXTIPL 
      PROC IPPENDN; 
*CALL COPYRITE          CDCNET - COPYRIGHT CONTROL DATA. 1992.
# TITLE IPPENDN - END NETWORK                                          #
 
      BEGIN                            # IPPENDN                       #
# 
****  IPPENDN  END NETWORK
* 
*     THIS PROCEDURE CLOSES THE CONNECTION TO NETWORK VIA *NAM*.
* 
*     PROC IPPENDN
* 
*     ENTRY    NONE 
* 
*     EXIT     CONNECTION TO NAM TERMINATED.
* 
*     METHOD   CALL NETOFF TO TERMINATE THE NAM CONNECTION. 
* 
# 
 
# 
****  PROC IPPENDN - XREF LIST
# 
      XREF
        BEGIN 
        PROC NETOFF;     # DISCONNECT APPLICATION FROM NETWORK         #
        END 
 
# 
****  START MAIN PROCEDURE
# 
      NETOFF; 
 
      RETURN;                          # RETURN TO CALLER              #
 
      END                              # IPPENDN                       #
 
      TERM