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