34 lines
1.3 KiB
Plaintext
34 lines
1.3 KiB
Plaintext
cOMPILE Insert Attach_Image_Equates
|
|
|
|
|
|
* Equate record for attach image
|
|
|
|
EQU TAG$ TO 1
|
|
EQU BATCH_NAME$ TO 2 ;* Name of TCL batch command
|
|
EQU SYSTEM1$ TO 3 ;* SYSTEM USE ONLY!!! Do not change
|
|
EQU VOL_NAME_LIST$ TO 4
|
|
EQU BFS_NAME_LIST$ TO 5
|
|
EQU DATA_LOC_LIST$ TO 6
|
|
EQU CONTROL_LOC_LIST$ TO 7
|
|
EQU MAP_CHECKSUM$ TO 8
|
|
|
|
EQU IMAGE$ TO 20
|
|
|
|
|
|
EQU IMAGE_TAG$ TO 'ATTACH_IMAGE'
|
|
EQU IMAGE_DELIM$ TO \00\
|
|
|
|
|
|
******************************************************************************
|
|
* SET_ATTACH_IMAGE errors
|
|
EQU SET_ERROR_1$ TO 'W109' ;* Image record already exists
|
|
EQU SET_ERROR_2$ To '120' ;* Image to Big
|
|
|
|
******************************************************************************
|
|
* USE_ATTACH_IMAGE errors
|
|
EQU USE_ERROR_1$ TO '202' ;* Image record does not exist
|
|
EQU USE_ERROR_2$ TO 'B127' ;* Not a valid image record
|
|
EQU USE_ERROR_3$ TO 'B308' ;* Open media failed on volume %?%
|
|
EQU USE_ERROR_4$ TO '201' ;* Unable to open system file %?%
|
|
* Source Date: 13:04:14 20 MAR 1992 Build ID: AREV*2.12.104 Level: 2.12
|