50 lines
1.4 KiB
Plaintext
50 lines
1.4 KiB
Plaintext
Compile Insert CompDoc_Equates
|
|
|
|
*****************************************************************************
|
|
*
|
|
* Product : OI/WG
|
|
* Poject : OI/CS
|
|
* Release : 2.7
|
|
*
|
|
* Name : CompDoc() Equates
|
|
* Description: Instructions and return values for the CompDoc() function
|
|
*
|
|
* History (Date, Initials, Notes)
|
|
* 06/27/95 cp Original programmer
|
|
*
|
|
*****************************************************************************
|
|
|
|
declare function CompDoc ;* Flag = CompDoc(Instruction, Doc, Name, SubDoc)
|
|
|
|
|
|
* Instruction values:
|
|
equ CD_LISTDOCS$ to 1
|
|
* Doc [in] - the compound document
|
|
* Name [out] - an @vm delimited list of sub-document names
|
|
|
|
equ CD_PUTDOC$ to 2
|
|
* Doc [i/o] - the compound document
|
|
* Name [in] - the name of the sub-document to put
|
|
* SubDoc [in] - the body of the sub-document to put
|
|
* Error returned if the compound document would exceed 64k limit
|
|
|
|
equ CD_GETDOC$ to 3
|
|
* Doc [in] - the compound document
|
|
* Name [in] - the name of the sub-document to extract
|
|
* SubDoc [out] - the extracted sub-document
|
|
* Error returned if the sub-document is not found
|
|
|
|
equ CD_DELDOC$ to 4
|
|
* Doc [i/o] - the compound document
|
|
* Name [in] - the name of the sub-document to delete
|
|
* Error returned if the sub-document is not found
|
|
|
|
|
|
* Flag values
|
|
equ CD_ERROR$ to 0
|
|
equ CD_SUCCESS$ to 1
|
|
|
|
* Compound Document header
|
|
equ CD_STAMP$ to "%CD%"
|
|
|