/********************************************************
*                   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'. *
********************************************************/


/* * *  SET CURRENT OWNER BASED ON CURRENT MEMBER  * * */
SOM:     PROC (SETNAM1,SETNAM2,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 SETNAM1 CHAR(8);    /* SET NAME OF CURRENT OWNER */
       DCL SETNAM2 CHAR(8);    /* SET NAME OF CURRENT MEMBER */
       DCL NULPTR POINTER;     /* DUMMY VARIABLES */
       DCL NULCHR CHAR(8);
       CALL MDBSCL(56,'',SETNAM1,SETNAM2,RTNCOD,NULPTR,0);
       END SOM;


/********************************************************
*               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.