/********************************************************
*                   MDBS CALL INTERFACE                 *
*                                                       *
*       THE FOLLOWING ARE THE CALL INTERFACE ROUTINES   *
*  FOR THE PARTICULAR FUNCTIONS OF MDBS.  EACH ROUTINE  *
*  INTERFACES TO THE COMMON ASSEMBLER ROUTINE 'MDBSCL'. *
********************************************************/


/* * *  FIND NEXT MEMBER OF A SET  * * */
FNM:     PROC (SETNAME,RTNCOD);
       DCL MDBSCL ENTRY(BIN(7),CHAR(8),CHAR(8),CHAR(8),BIN(7),POINTER,
                        BIN(15));
       DCL RTNCOD BIN(7);      /* RETURN CODE FROM MDBS CALL */
       DCL SETNAME CHAR(8);    /* SET NAME */
       DCL NULPTR POINTER;     /* DUMMY VARIABLES */
       DCL NULCHR CHAR(8);
       CALL MDBSCL(19,'','',SETNAME,RTNCOD,NULPTR,0);
       END FNM;


/********************************************************
*               END OF MDBS CALL INTERFACE              *
********************************************************/

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.