phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added sysprog entities

Browse Source
This commit is contained in:
Infineon\StieberD
2024-03-25 15:17:34 -07:00
parent 600a8e1f61
commit 3a6a2b6b5b
1028 changed files with 171660 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
SYSPROG/STPROCINS/ATTACH_IMAGE_EQUATES.txt Normal file
View File

@ -0,0 +1,33 @@
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