Retro1.org codex

*DECK NETDMB
USETEXT AIPDEF
USETEXT NP$STAT 
 PROC NETDMB(DUMPID,ECS) ;
 #
*1DC  NETDMB
* 
*     1. PROC NAME           AUTHOR              DATE 
*        NETDMB              L. T. NGUYEN        05/06/82 
* 
*     2. FUNCTIONAL DESCRIPTION 
*        PROCESS NETDMB CALL
* 
*     3. METHOD USED
*        CALL NP$DMB
* 
* 
*     4. ENTRY CONDITIONS 
*        DUMPID - INVOCATION NUMBER OF THE DUMP 
*        ECS - DUMP ECS FIELD LENGTH FLAG 
* 
*     5. EXIT CONDITIONS
*        NONE 
* 
*     6. COMDECKS CALLED AND SYMPL TEXTS USED 
*        AIPDEF     NP$STAT 
* 
*     7. ROUTINES CALLED
*        NP$SN - INCREMENT STATISTICS COUNTER 
*        NP$DMB - DUMP FIELD LENGTH TO ZZZZDMB
* 
*     8. DAYFILE MESSAGES 
*        NONE 
* 
 #
      BEGIN 
 
      ENTRY PROC QTDMB(DUMPID,ECS);    # QTRM ENTRY POINT FOR THIS PROC#
 
      ITEM DUMPID ; 
      ITEM ECS I ;
*IF DEF,DEBUG 
      XREF PROC NP$DMB ;
      XREF PROC NP$SN ; 
      BEGIN 
        NP$SN(TYPE"DMB") ;
        NP$DMB(DUMPID,ECS) ;
      END 
*ENDIF
      RETURN ;
      END 
     TERM