home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol049 / mdbsputm.pli < prev    next >
Encoding:
Text File  |  1984-04-29  |  1002 b   |  27 lines
  1. /********************************************************
  2. *                   MDBS CALL INTERFACE            *
  3. *                            *
  4. *    THE FOLLOWING ARE THE CALL INTERFACE ROUTINES    *
  5. *  FOR THE PARTICULAR FUNCTIONS OF MDBS.  EACH ROUTINE  *
  6. *  INTERFACES TO THE COMMON ASSEMBLER ROUTINE 'MDBSCL'. *
  7. ********************************************************/
  8.  
  9.  
  10. /* * *  PUT A MEMBER OF A SET  * * */
  11. PUTM:     PROC (SETNAME,DATABLK,DATALEN,RTNCOD);
  12.     DCL MDBSCL ENTRY(BIN(7),CHAR(8),CHAR(8),CHAR(8),BIN(7),POINTER,
  13.              BIN(15));
  14.     DCL RTNCOD BIN(7);    /* RETURN CODE FROM MDBS CALL */
  15.     DCL SETNAME CHAR(8);    /* SET NAME */
  16.     DCL DATABLK POINTER;    /* DATA RECORD PTR */
  17.     DCL DATALEN BIN(15);    /* DATA RECORD LENGTH */
  18.     DCL NULPTR POINTER;    /* DUMMY VARIABLES */
  19.     DCL NULCHR CHAR(8);
  20.     CALL MDBSCL(39,'',SETNAME,'',RTNCOD,DATABLK,DATALEN);
  21.     END PUTM;
  22.  
  23.  
  24. /********************************************************
  25. *               END OF MDBS CALL INTERFACE        *
  26. ********************************************************/
  27.