github.com/PDP-10.stacken
1
0
Fork 0
mirror of https://github.com/PDP-10/stacken.git synced 2026-03-01 09:21:15 +00:00
Code Issues Projects Releases Wiki Activity
Files
master
PDP-10.stacken/files/stacken-tape-backup/dskb:10_7/dil/dilsrc/dapcod.req
Lars Brinkhoff 6e18f5ebef Extract files from tape images. 
Some tapes could not be extracted.
2021-01-29 10:47:33 +01:00

910 lines
34 KiB
Plaintext
Raw Permalink Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
!
!Common definitions for DAP
!
! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED
! OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
!
! COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1986.
! ALL RIGHTS RESERVED.
LIBRARY 'CONDIT';
!DAP buffer size
LITERAL DAP$K_BUFFER_SIZE=2500;
!The FAL Object Type
LITERAL DAP$K_FAL=17;
!
! DAP MESSAGE TYPES DEFINED
!
LITERAL
DAP$K_CONFIG=1, ! CONFIGURATION
DAP$K_ATTRIBUTES=2, ! ATTRIBUTES
DAP$K_ACCESS=3, ! ACCESS
DAP$K_CONTROL=4, ! CONTROL
DAP$K_CONTINUE=5, ! CONTINUE
DAP$K_ACK=6, ! ACKNOWLEDGE
DAP$K_ACCESS_COMPLETE=7,! ACCESS COMPLETE
DAP$K_DATA=8, ! DATA
DAP$K_STATUS=9, ! STATUS
DAP$K_KEY=10, ! KEY DEFINITION
DAP$K_ALLOCATION=11, ! ALLOCATION
DAP$K_SUMMARY=12, ! SUMMARY ATTRIBUTES MESSAGE
DAP$K_DATE_TIME=13, ! DATE & TIME ATTRIBUTES MESSAGE
DAP$K_PROTECTION=14, ! PROTECTION
DAP$K_NAME=15, ! NAME MESSAGE
DAP$K_ACL=16; ! ACCESS CONTROL LIST
!
!Bits within FLAGS byte
!
! We do not use these, see description of $DAP_DESCRIPTOR
%(
LITERAL
DAP$V_MFLAGS_STREAMID=0, ! STREAMID present
DAP$V_MFLAGS_LENGTH=1, ! LENGTH field present
DAP$V_MFLAGS_LEN256=2, !2-byte length field present
DAP$V_MFLAGS_BITCNT=3, !BIT COUNT in DATA message only
!4 is reserved
DAP$V_MFLAGS_SYSPEC=5, !System-specific field
DAP$V_MFLAGS_MORE=6; !Not last segment of message
)%
!
! FIELDS WITHIN CONFIGURATION MESSAGES
!
! SEE CONFIG.REQ for definition of CONFIG block
!
!DAP Operating system type codes defined:
!
LITERAL DAP$K_RT11=1,
DAP$K_RSTS=2,
DAP$K_RSX11S=3,
DAP$K_RSX11M=4,
DAP$K_RSX11D=5,
DAP$K_IAS=6,
DAP$K_VMS=7,
DAP$K_TOPS20=8,
DAP$K_TOPS10=9,
DAP$K_RTS8=10,
DAP$K_OS8=11,
DAP$K_RSX11MPLUS=12,
DAP$K_COPOS11=13;
LITERAL DAP$K_OSTYPE_MAX=13;
!
!DAP File system type codes defined:
!
LITERAL DAP$K_FILESYS_RMS11=1,
DAP$K_RMS11=DAP$K_FILESYS_RMS11,
DAP$K_FILESYS_RMS20=2,
DAP$K_RMS20=DAP$K_FILESYS_RMS20,
DAP$K_FILESYS_RMS32=3,
DAP$K_RMS32=DAP$K_FILESYS_RMS32,
DAP$K_FILESYS_FCS11=4,
DAP$K_FCS11=DAP$K_FILESYS_FCS11,
DAP$K_FILESYS_RT11=5,
DAP$K_FILESYS_NONE=6,
DAP$K_FILESYS_TOPS20=7,
DAP$K_FILESYS_TOPS10=8,
DAP$K_FILESYS_OS8=9;
LITERAL DAP$K_FILESYS_MAX=9;
!
! DAP ATTRIBUTE MESSAGE FIELD DEFINITIONS
!
%(
![5.0] SYSCAP BITS
LITERAL
SYS_PREALLOCATE=0, !PREALLOCATION
SYS_SEQ_ORG=1, !Sequential file organization
SYS_REL_ORG=2, !Relative...
SYS_DIR_ORG=3, !Direct... (reserved)
SYS_1KEY_ORG=4, !Single keyed indexed... (reserved)
SYS_SEQ_ACC=5, !Sequential file access
SYS_REC_ACC=6, !Access by record #
SYS_VBN_ACC=8, !Access by VBN
SYS_KEY_ACC=9, !Random access by Key
SYS_HSH_ACC=10, !User generated hash code access (reserved)
SYS_RFA_ACC=11, !Access by RFA
SYS_NKEY_ORG=12,!Multi-key indexed organization
SYS_SWITCH_ACC=13, !Switching access mode
SYS_APPEND=14, !Append
SYS_SUBMIT_ACC=16, !SUBMIT access message
SYS_COMPRESS=17, !File compression (reserved)
SYS_STREAMS=18, !Multiple data streams
SYS_STSRET=19, !Status return
SYS_BLOCKING=20,!DAP message blocking
SYS_SBLOCKING=21, !Blocking across responses
SYS_LEN256=22, !2-byte length field supported
SYS_CHECKSUM=24,!File checksum
SYS_KDF=25, !KEY definition XAM
SYS_ALLOC=26, !ALLOCATION XAM
SYS_SUM=27, !Summary attributes XAM
SYS_FHC=28, !File header characteristics XAM
SYS_DTM=29, !Date & time XAM
SYS_PRO=30, !Protection XAM
SYS_ACL=32, !Access control list XAM
SYS_SPOOL_FOP=33, !Spool via FOP field
SYS_SUBMIT_FOP=34, !Submit via FOP field
SYS_ERASE_FOP=35, !Delete via FOP field
SYS_DEFAULT_FSP=36, !Default filespec
SYS_RELATED_FSP=37, !Related filespec
SYS_RECOVERY=38, !Recovery option (reserved)
SYS_BITCNT=40; !BITCOUNT field
)%
! MENU OF FIELDS IN ATTRIBUTES MESSAGE
LITERAL
DAP$V_ATTMENU_DAT=0, ! DATA TYPE
DAP$V_ATTMENU_ORG=1,
DAP$V_ATTMENU_RFM=2,
DAP$V_ATTMENU_RAT=3,
DAP$V_ATTMENU_BLS=4,
DAP$V_ATTMENU_MRS=5,
DAP$V_ATTMENU_ALQ=6,
DAP$V_ATTMENU_BKS=7,
DAP$V_ATTMENU_FSZ=8,
DAP$V_ATTMENU_MRN=9,
DAP$V_ATTMENU_RUN=10,
DAP$V_ATTMENU_DEQ=11,
DAP$V_ATTMENU_FOP=12, !FOP
DAP$V_ATTMENU_BSZ=13, !Byte size
DAP$V_ATTMENU_DEV=14, !Device characteristics
DAP$V_ATTMENU_SDC=15, !Spooled dev char. (reserved)
DAP$V_ATTMENU_LRL=16, ! Longest record length
DAP$V_ATTMENU_HBK=17, ! High block number
DAP$V_ATTMENU_EBK=18, ! EOF block number
DAP$V_ATTMENU_FFB=19, ! First free byte in last block
DAP$V_ATTMENU_SBN=20; ! Starting block number (contiguous file only)
! DATATYPE FIELD DEFINITIONS
LITERAL
DAP$V_DATATYPE_ASCII=0, ! ASCII DATA
DAP$V_DATATYPE_IMAGE=1, ! IMAGE MODE (DEFAULT)
DAP$V_DATATYPE_EBCDIC=2, ! EBCDIC
DAP$V_DATATYPE_COMPRESSED=3, ! COMPRESSED
DAP$V_DATATYPE_EXECUTABLE=4, ! EXECUTABLE
DAP$V_DATATYPE_PRIVELEGED=5, ! PRIVILEGED
! 6 is reserved
DAP$V_DATATYPE_ZERO_ON_DELETE=7;! Zero on delete [5.0]
! ORG FIELD
LITERAL
DAP$K_ORG_SEQ=0, ! SEQUENTIAL (DEFAULT)
DAP$K_ORG_REL=%O'20', ! RELATIVE
DAP$K_ORG_IDX=%O'40', ! INDEXED
DAP$K_ORG_DIR=%O'60'; ! DIRECT
! RECORD FORMAT (RFM) FIELD
LITERAL
DAP$K_RFM_UDF=0, ! UNDEFINED RECORD FORMAT
DAP$K_RFM_FIX=1, ! FIXED LENGTH (DEFAULT)
DAP$K_RFM_VAR=2, ! VARIABLE LENGTH
DAP$K_RFM_VFC=3, ! VARIABLE WITH FIXED CONTROL
DAP$K_RFM_STM=4, ! ASCII STREAM
DAP$K_RFM_LSA=5; ! LINE SEQUENCED ASCII
! RAT FIELD - RECORD ATTRIBUTES
LITERAL
DAP$V_RAT_FTN=0, ! FORTRAN CARRIAGE CONTROL
DAP$V_RAT_CR=1, ! LF/CR ENVELOPE
DAP$V_RAT_BLK=3, ! RECORDS DO NOT SPAN BLOCKS
DAP$V_RAT_EFC=4, ! EMBEDDED FORMAT CONTROL
DAP$V_RAT_CBL=5, ! COBOL CARRIAGE CTL
DAP$V_RAT_LSA=6, ! LINE SEQUENCED ASCII
DAP$V_RAT_MACY11=7; ! MACY11 FORMAT
! DEV FIELD - GENERIC DEVICE CHARACTERISTICS
LITERAL
DAP$V_DEV_REC=0, ! RECORD ORIENTED
DAP$V_DEV_CCL=1, ! CARRAIGE CONTROL DEVICE
DAP$V_DEV_TRM=2, ! TERMINAL
DAP$V_DEV_MDI=3, ! DIRECTORY STRUCTURED
DAP$V_DEV_SDI=4, ! SINGLE DIRECTORY
DAP$V_DEV_SQD=5, ! INHERENTLY SEQUENTIAL
DAP$V_DEV_FOD=7, ! FILES ORIENTED DEVICE
DAP$V_DEV_SHR=8, ! SHARABLE DEVICE
DAP$V_DEV_SPL=9, ! DEVICE IS BEING SPOOLED
DAP$V_DEV_MNT=10, ! DEVICE IS CURRENTLY MOUNTED
DAP$V_DEV_DMT=11, ! DEV MARKED FOR DISMOUNT
DAP$V_DEV_ALL=12, ! DEV ALLOCATED
DAP$V_DEV_IDV=13, ! DEVICE CAPABLE OF INPUT
DAP$V_DEV_ODV=14, ! DEVICE CAPABLE OF OUTPUT
DAP$V_DEV_SWL=15, ! SOFTWARE WRITE=LOCKED
DAP$V_DEV_AVL=16, ! DEVICE AVAILABLE
DAP$V_DEV_ELG=17, ! ERROR LOGGING ENABLED
DAP$V_DEV_MBX=18, ! DEVICE IS A MAILBOX
DAP$V_DEV_RTM=19, ! DEVICE IS REAL-TIME IN NATURE
DAP$V_DEV_RAD=20; ! DEVICE IS RANDOM ACCESS
! FOP - FILE ACCESS OPTIONS REQUIRED
LITERAL
DAP$V_FOP_RWO=0, ! REWIND ON OPEN
DAP$V_FOP_RWC=1, ! REWIND ON CLOSE
DAP$V_FOP_POS=3, ! MAG TAPE POSITIONED PAST LAST FILE
DAP$V_FOP_DLK=4, ! DO NOT LOCK IF CLOSE OK
DAP$V_FOP_ACK=6, ! VERIFY ATTRIBUTES
DAP$V_FOP_CTG=7, ! CONTIGUOUS ALLOCATION
DAP$V_FOP_SUP=8, ! SUPERSCEDE EXISTING FILE
DAP$V_FOP_NEF=9, ! FORTRAN TAPE OPEN UPDATE
DAP$V_FOP_TMP=10, ! CREATE TEMP FILE
DAP$V_FOP_MKD=11, ! MARK FOR DELETION
DAP$V_FOP_FID=12, ! OPEN BY FILE ID
DAP$V_FOP_DMP=13, ! DISMOUNT ON CLOSE
DAP$V_FOP_WCK=14, ! WRITE CHECKING
DAP$V_FOP_RCK=15, ! READ CHECKING
DAP$V_FOP_CIF=16, ! NEW FILE ONLY
DAP$V_FOP_LKO=17, ! OVERRIDE FILE LOCK ON OPEN
DAP$V_FOP_SQO=18, ! SEQUENTIAL ACCESS ONLY
DAP$V_FOP_MVN=19, ! Maximum version number
DAP$V_FOP_SPL=20, ! Spool to printer
DAP$V_FOP_SCF=21, ! Submit to BATCH on close
DAP$V_FOP_DLT=22, ! Delete on close
DAP$V_FOP_CBT=23, ! Contiguous best try
DAP$V_FOP_WAT=24; ! Wait if locked by another user
! MENU BITS FOR DATE & TIME MESSAGE
LITERAL
DAP$V_DTM_CDT=0, ! CREATION DATE PRESENT
DAP$V_DTM_RDT=1, ! ACCESS DATE PRESENT
DAP$V_DTM_EDT=2, ! SCRATCH DATE PRESENT
DAP$V_DTM_RVN=3, ! Revision number present
DAP$V_DTM_PDT=4, ! Internal date present
DAP$V_DTM_BDT=5; ! Backup date present
! MENU BITS FOR PROTECTION MESSAGE
LITERAL
DAP$V_PROTMENU_OWNER=0, ! OWNER FIELD PRESENT
DAP$V_PROTMENU_PROTSYS=1, ! SYSTEM PROTECTION FIELD PRESENT
DAP$V_PROTMENU_PROTOWN=2, ! OWNER PROTECTION FIELD PRESENT
DAP$V_PROTMENU_PROTGRP=3, ! GROUP PROTECTION FIELD PRESENT
DAP$V_PROTMENU_PROTWLD=4; ! WORLD PROTECTION FIELD PRESENT
! BIT DEFINITIONS IN PROTECTION FIELDS
LITERAL
DAP$V_PROT_RDV=0, ! DENY READ ACCESS
DAP$V_PROT_WRV=1, ! DENY WRITE ACCESS
DAP$V_PROT_EXE=2, ! DENY EXECUTE ACCESS
DAP$V_PROT_DLE=3, ! DENY DELETE ACCESS
DAP$V_PROT_APP=4, ! DENY APPEND ACCESS
DAP$V_PROT_LST=5, ! DENY LIST (directory) ACCESS
DAP$V_PROT_UPD=6, ! DENY UPDATE ACCESS
DAP$V_PROT_CNG=7, ! DENY CHANGE PROTECTION ACCESS
DAP$V_PROT_EXT=8; ! DENY EXTEND ACCESS
!
! ACCESS MESSAGE FIELD DEFINITIONS
!
! ACCESS FUNCTION FIELD
LITERAL
DAP$K_OPEN=1, ! OPEN EXISTING FILE
DAP$K_CREATE=2, ! LCREATE NEW FILE
DAP$K_RENAME=3, ! RENAME FILE
DAP$K_ERASE=4, ! ERASE A FILE
DAP$K_DIRECTORY=6, ! DIRECTORY LIST
DAP$K_SUBMIT=7, ! SUBMIT AS A BATCH JOB
DAP$K_EXECUTE=8, ! EXECUTE A BATCH JOB
DAP$K_ACCFUNC_MAX=8; ! Maximum value for ACCFUNC
! FAC FIELD - FILE ACCESS OPERATIONS REQUIRED
! Following are bit numbers
LITERAL
DAP$V_FAC_PUT=0, ! PUT ACCESS
DAP$V_FAC_GET=1, ! GET ACCESS
DAP$V_FAC_DEL=2, ! DELETE ACCESS
DAP$V_FAC_UPD=3, ! UPDATE ACCESS
DAP$V_FAC_TRN=4, ! TRUNCATE ACCESS
DAP$V_FAC_BIO=5; ! BLOCK I/O ACCESS
!
! CONTROL MESSAGE FIELD DEFINITIONS
!
! CONTROL FUNCTION CODES
LITERAL
DAP$K_GET=1, ! GET RECORD
DAP$K_CONNECT=2, ! INITIATE A DATA STREAM
DAP$K_UPDATE=3, ! UPDATE CURRENT RECORD
DAP$K_PUT=4, ! PUT FOLLOWING RECORDS
DAP$K_DELETE=5, ! DELETE CURRENT RECORD
DAP$K_REWIND=6, ! REWIND FILE
DAP$K_TRUNCATE=7, ! TRUNCATE FILE
DAP$K_MODIFY=8, ! MODIFY FILE ATTRIBUTES
DAP$K_RELEASE=9, ! UNLOCK RECORD
DAP$K_FREE=10, ! UNLOCK ALL RECORDS
DAP$K_EXTEND_BEGIN=11, ! EXTEND FILE BY ALC MSG
DAP$K_FLUSH=12, ! WRITE OUT ALL MODIFIED I/O BUFS
DAP$K_NXTVOL=13, ! START NEXT VOLUME
DAP$K_FIND=14, ! FIND RECORD
DAP$K_EXTEND_END=15, ! EXTEND FILE BY ALC MSG
DAP$K_DISPLAY=16, ! RETRIEVE ATTRIBUTES MESSAGE
DAP$K_SPACE_FORWARD=17, ! FORWARD SPACE
DAP$K_SPACE_BACKWARD=18, ! BACKWARD SPACE
DAP$K_CHECKPOINT=19, ! CHECKPOINT
DAP$K_RECOVERY_GET=20, ! GET, recovering after checkpoint
DAP$K_RECOVERY_PUT=21, ! PUT, recovering after checkpoint
DAP$K_CTLFUNC_MAX=21; ! Highest defined function code
! CONTROL MESSAGE MENU FIELD
LITERAL
DAP$V_CTL_RAC=0, ! RAC FIELD PRESENT
DAP$V_CTL_KEY=1,
DAP$V_CTL_KRF=2,
DAP$V_CTL_ROP=3,
DAP$V_CTL_HSH=4,
DAP$V_CTL_DISPLAY=5;
! RAC FIELD DEFINITIONS
LITERAL
DAP$K_RAC_SEQ=0, ! SEQUENTIAL RECORD ACCESS
DAP$K_RAC_KEY=1, ! KEYED ACCESS
DAP$K_RAC_RFA=2, ! ACCESS BY RECORD FILE ADDRESS
DAP$K_RAC_TRA=3, ! SEQUENTIAL FILE TRANSFER
DAP$K_RAC_BLK=4, ! ACCESS BY VIRTUAL BLOCK NUMBER
DAP$K_RAC_BFT=5; ! BLOCK MODE FILE TRANSFER
! ROP FIELD - RECORD PROCESSING FEATURES
LITERAL
DAP$V_ROP_EOF=0, ! POSITION TO EOF
DAP$V_ROP_HSH=3, ! USE HASH CODE IN HSH FIELD
DAP$V_ROP_LOA=4, ! FOLLOW FILL QUANTITIES
DAP$V_ROP_ULK=5, ! MANUAL LOCKING/UNLOCKING
DAP$V_ROP_RAH=7, ! READ AHEAD
DAP$V_ROP_WBH=8, ! WRITE BEHIND
DAP$V_ROP_KGE=9, ! KEY IS >=
DAP$V_ROP_KGT=10; ! KEY IS >
! DISPLAY FIELD DEFINITIONS
LITERAL
DAP$V_DISPLAY_ATT=0, ! MAIN ATTRIBUTES MESSAGE
DAP$V_DISPLAY_KEY=1, ! KEY DEF ATTRIBUTES
DAP$V_DISPLAY_ALL=2, ! ALLOCATION ATTRIBUTES
DAP$V_DISPLAY_SUM=3, ! SUMMARY ATTRIBUTES
DAP$V_DISPLAY_DTM=4, ! DATE/TIME
DAP$V_DISPLAY_PRO=5, ! PROTECTION
DAP$V_DISPLAY_ACL=7, ! ACCESS CONTROL LIST
DAP$V_DISPLAY_NAM=8; ! RESULTANT FILE NAME
!
! CONTINUE TRANSFER MESSAGE FIELDS
!
! RECOVERY ACTION DEFINITIONS
LITERAL
DAP$K_CON_TRY=1, ! TRY AGAIN
DAP$K_CON_SKP=2, ! SKIP RECORD
DAP$K_CON_ABO=3; ! ABORT TRANSFER
!
! ACCESS COMPLETE FIELD DEFINITIONS
!
! FUNCTION DEFINITIONS
LITERAL
DAP$K_ACCOMP_COMMAND=1, ! COMMAND - CLOSE THE FILE
DAP$K_ACCOMP_RESPONSE=2, ! RESPONSE
DAP$K_ACCOMP_PURGE=3, ! PURGE FILE
DAP$K_ACCOMP_EOS=4; ! END STREAM (DISCONNECT)
!
! STATUS message
!
LITERAL
DAP$M_MACCODE=%O'170000',
DAP$M_MICCODE=%O'7777';
!
! MACCODE FIELD VALUES
!
LITERAL
DAP$K_MAC_PENDING = %O'00000', ! OPERATION IN PROGRESS
DAP$K_MAC_SUCCESS = %O'10000', ! SUCCESS
DAP$K_MAC_UNSUPPORTED= %O'20000', ! UNSUPPORTED
DAP$K_MAC_OPEN = %O'40000', ! ERROR IN OPEN
DAP$K_MAC_TRANSFER = %O'50000', ! ERROR IN TRANSFER
DAP$K_MAC_WARNING = %O'60000', ! WARNING
DAP$K_MAC_TERMINATION= %O'70000', ! ERROR IN TERMINATION
DAP$K_MAC_FORMAT = %O'100000', ! BAD FORMAT
DAP$K_MAC_INVALID = %O'110000', ! FIELD OF MESSAGE INVALID
DAP$K_MAC_SYNC = %O'120000'; ! MESSAGE OUT OF SEQUENCE
!
! MICCODE VALUES FOR MACCODE 2,8,9
!
LITERAL
! FIRST 6 BITS FOR DAP MESSAGE TYPE NUMBER
DAP$K_MIC_MISC=0, ! UNSPECIFIED DAP MSG ERROR
DAP$K_MIC_CONFIG=%O'0100', ! IN CONFIGURATION
DAP$K_MIC_ATTRIBUTES=%O'0200', ! IN ATTRIBUTES
DAP$K_MIC_ACCESS=%O'0300', ! IN ACCESS
DAP$K_MIC_CONTROL=%O'0400', ! IN CONTROL
DAP$K_MIC_CONTINUE=%O'0500', ! IN CONTINUE
DAP$K_MIC_ACKNOWLEDGE=%O'0600', ! IN ACKNOWLEDGE
DAP$K_MIC_ACCESS_COMPLETE=%O'0700', ! IN ACCOMP
DAP$K_MIC_DATA=%O'1000', ! IN DATA
DAP$K_MIC_STATUS=%O'1100', ! IN STATUS
DAP$K_MIC_KEY=%O'1200', ! IN KEY DEF MSG
DAP$K_MIC_ALLOCATION=%O'1300', ! IN ALLOCATION MSG
DAP$K_MIC_SUMMARY=%O'1400', ! IN SUMMARY MSG
DAP$K_MIC_DATE_TIME=%O'1500', ! IN DATE/TIME MSG
DAP$K_MIC_PROTECTION=%O'1600', ! IN PROTECTION MSG
DAP$K_MIC_NAME=%O'1700', ! IN NAME MSG
DAP$K_MIC_ACL=%O'2000'; ! IN ACCESS CONTROL LIST
!
! MICCODE VALUES TO INDICATE WHICH FIELD IS IN ERROR
! (For MACCODE=2,8,9)
!
! Common to all messages
LITERAL
DAP$K_MIC_UNKNOWN=0, ! Unknown field
DAP$K_MIC_FLAGS=%O'10', ! Message flags
DAP$K_MIC_STREAMID=%O'11', ! Stream Identifier
DAP$K_MIC_LENGTH=%O'12', ! Length
DAP$K_MIC_LEN256=%O'13', ! Len256 (hi byte of length)
DAP$K_MIC_BITCNT=%O'14', ! Bit Count
DAP$K_MIC_SYSPEC=%O'15'; ! System specific field
! Configuration message errors by field
LITERAL
DAP$K_MIC_CONFIG_BUFFER_SIZE=DAP$K_MIC_CONFIG+%O'20',
DAP$K_MIC_CONFIG_OSTYPE=DAP$K_MIC_CONFIG+%O'21',
DAP$K_MIC_CONFIG_FILESYS=DAP$K_MIC_CONFIG+%O'22',
DAP$K_MIC_CONFIG_VERNUM=DAP$K_MIC_CONFIG+%O'23',
DAP$K_MIC_CONFIG_ECONUM=DAP$K_MIC_CONFIG+%O'24',
DAP$K_MIC_CONFIG_USRNUM=DAP$K_MIC_CONFIG+%O'25',
DAP$K_MIC_CONFIG_SOFTVER=DAP$K_MIC_CONFIG+%O'26',
DAP$K_MIC_CONFIG_USRSOFT=DAP$K_MIC_CONFIG+%O'27',
DAP$K_MIC_CONFIG_SYSCAP=DAP$K_MIC_CONFIG+%O'30';
!Attributes message errors by field
LITERAL
DAP$K_MIC_ATTRIBUTES_ATTMENU=DAP$K_MIC_ATTRIBUTES+%O'20',
DAP$K_MIC_ATTRIBUTES_DATATYPE=DAP$K_MIC_ATTRIBUTES+%O'21',
DAP$K_MIC_ATTRIBUTES_ORG=DAP$K_MIC_ATTRIBUTES+%O'22',
DAP$K_MIC_ATTRIBUTES_RFM=DAP$K_MIC_ATTRIBUTES+%O'23',
DAP$K_MIC_ATTRIBUTES_RAT=DAP$K_MIC_ATTRIBUTES+%O'24',
DAP$K_MIC_ATTRIBUTES_BLS=DAP$K_MIC_ATTRIBUTES+%O'25',
DAP$K_MIC_ATTRIBUTES_MRS=DAP$K_MIC_ATTRIBUTES+%O'26',
DAP$K_MIC_ATTRIBUTES_ALQ=DAP$K_MIC_ATTRIBUTES+%O'27',
DAP$K_MIC_ATTRIBUTES_BKS=DAP$K_MIC_ATTRIBUTES+%O'30',
DAP$K_MIC_ATTRIBUTES_FSZ=DAP$K_MIC_ATTRIBUTES+%O'31',
DAP$K_MIC_ATTRIBUTES_MRN=DAP$K_MIC_ATTRIBUTES+%O'32',
DAP$K_MIC_ATTRIBUTES_RUNSYS=DAP$K_MIC_ATTRIBUTES+%O'33',
DAP$K_MIC_ATTRIBUTES_DEQ=DAP$K_MIC_ATTRIBUTES+%O'34',
DAP$K_MIC_ATTRIBUTES_FOP=DAP$K_MIC_ATTRIBUTES+%O'35',
DAP$K_MIC_ATTRIBUTES_BSZ=DAP$K_MIC_ATTRIBUTES+%O'36',
DAP$K_MIC_ATTRIBUTES_DEV=DAP$K_MIC_ATTRIBUTES+%O'37',
DAP$K_MIC_ATTRIBUTES_SDC=DAP$K_MIC_ATTRIBUTES+%O'40',
DAP$K_MIC_ATTRIBUTES_LRL=DAP$K_MIC_ATTRIBUTES+%O'41',
DAP$K_MIC_ATTRIBUTES_HBK=DAP$K_MIC_ATTRIBUTES+%O'42',
DAP$K_MIC_ATTRIBUTES_EBK=DAP$K_MIC_ATTRIBUTES+%O'43',
DAP$K_MIC_ATTRIBUTES_FFB=DAP$K_MIC_ATTRIBUTES+%O'44',
DAP$K_MIC_ATTRIBUTES_SBN=DAP$K_MIC_ATTRIBUTES+%O'45';
! Access message errors by field
LITERAL
DAP$K_MIC_ACCESS_ACCFUNC=DAP$K_MIC_ACCESS+%O'20',
DAP$K_MIC_ACCESS_ACCOPT=DAP$K_MIC_ACCESS+%O'21',
DAP$K_MIC_ACCESS_FILESPEC=DAP$K_MIC_ACCESS+%O'22',
DAP$K_MIC_ACCESS_FAC=DAP$K_MIC_ACCESS+%O'23',
DAP$K_MIC_ACCESS_SHR=DAP$K_MIC_ACCESS+%O'24',
DAP$K_MIC_ACCESS_DISPLAY=DAP$K_MIC_ACCESS+%O'25',
DAP$K_MIC_ACCESS_PASSWORD=DAP$K_MIC_ACCESS+%O'26';
! Control message errors by field
LITERAL
DAP$K_MIC_CONTROL_CTLFUNC=DAP$K_MIC_CONTROL+%O'20',
DAP$K_MIC_CONTROL_CTLMENU=DAP$K_MIC_CONTROL+%O'21',
DAP$K_MIC_CONTROL_RAC=DAP$K_MIC_ACCESS+%O'22',
DAP$K_MIC_CONTROL_KEY=DAP$K_MIC_CONTROL+%O'23',
DAP$K_MIC_CONTROL_KRF=DAP$K_MIC_CONTROL+%O'24',
DAP$K_MIC_CONTROL_ROP=DAP$K_MIC_CONTROL+%O'25',
DAP$K_MIC_CONTROL_HSH=DAP$K_MIC_CONTROL+%O'26',
DAP$K_MIC_CONTROL_DISPLAY=DAP$K_MIC_CONTROL+%O'27';
! Continue message errors by field
LITERAL
DAP$K_MIC_CONTINUE_CONTFUNC=DAP$K_MIC_CONTINUE+%O'20';
! Acknowledge message errors by field
! None
! Access complete message errors by field
LITERAL
DAP$K_MIC_ACCOMP_CMPFUNC=DAP$K_MIC_ACCESS_COMPLETE+%O'20',
DAP$K_MIC_ACCOMP_FOP=DAP$K_MIC_ACCESS_COMPLETE+%O'21',
DAP$K_MIC_ACCOMP_CHECK=DAP$K_MIC_ACCESS_COMPLETE+%O'22';
! Data message errors by field
LITERAL
DAP$K_MIC_DATA_RECNUM=DAP$K_MIC_DATA+%O'20',
DAP$K_MIC_DATA_FILEDATA=DAP$K_MIC_DATA+%O'21';
! Status message errors by field
LITERAL
DAP$K_MIC_STATUS_MACCODE=DAP$K_MIC_STATUS+%O'20',
DAP$K_MIC_STATUS_MICCODE=DAP$K_MIC_STATUS+%O'21',
DAP$K_MIC_STATUS_RFA=DAP$K_MIC_STATUS+%O'22',
DAP$K_MIC_STATUS_RECNUM=DAP$K_MIC_STATUS+%O'23',
DAP$K_MIC_STATUS_STV=DAP$K_MIC_STATUS+%O'24';
! Key Definition message errors by field
LITERAL
DAP$K_MIC_KEY_KEYMENU=DAP$K_MIC_KEY+%O'20',
DAP$K_MIC_KEY_FLG=DAP$K_MIC_KEY+%O'21',
DAP$K_MIC_KEY_DFL=DAP$K_MIC_KEY+%O'22',
DAP$K_MIC_KEY_IFL=DAP$K_MIC_KEY+%O'23',
DAP$K_MIC_KEY_SEGCNT=DAP$K_MIC_KEY+%O'24',
DAP$K_MIC_KEY_POS=DAP$K_MIC_KEY+%O'25',
DAP$K_MIC_KEY_SIZ=DAP$K_MIC_KEY+%O'26',
DAP$K_MIC_KEY_REF=DAP$K_MIC_KEY+%O'27',
DAP$K_MIC_KEY_KNM=DAP$K_MIC_KEY+%O'30',
DAP$K_MIC_KEY_NUL=DAP$K_MIC_KEY+%O'31',
DAP$K_MIC_KEY_IAN=DAP$K_MIC_KEY+%O'32',
DAP$K_MIC_KEY_LAN=DAP$K_MIC_KEY+%O'33',
DAP$K_MIC_KEY_DAN=DAP$K_MIC_KEY+%O'34',
DAP$K_MIC_KEY_DTP=DAP$K_MIC_KEY+%O'35',
DAP$K_MIC_KEY_RVB=DAP$K_MIC_KEY+%O'36',
DAP$K_MIC_KEY_HAL=DAP$K_MIC_KEY+%O'37',
DAP$K_MIC_KEY_DVB=DAP$K_MIC_KEY+%O'40',
DAP$K_MIC_KEY_DBS=DAP$K_MIC_KEY+%O'41',
DAP$K_MIC_KEY_IBS=DAP$K_MIC_KEY+%O'42',
DAP$K_MIC_KEY_LVL=DAP$K_MIC_KEY+%O'43',
DAP$K_MIC_KEY_TKS=DAP$K_MIC_KEY+%O'44',
DAP$K_MIC_KEY_MRL=DAP$K_MIC_KEY+%O'45';
! Allocation message errors by field
LITERAL
DAP$K_MIC_ALLOCATION_ALLMENU=DAP$K_MIC_ALLOCATION+%O'20',
DAP$K_MIC_ALLOCATION_VOL=DAP$K_MIC_ALLOCATION+%O'21',
DAP$K_MIC_ALLOCATION_ALN=DAP$K_MIC_ALLOCATION+%O'22',
DAP$K_MIC_ALLOCATION_AOP=DAP$K_MIC_ALLOCATION+%O'23',
DAP$K_MIC_ALLOCATION_LOC=DAP$K_MIC_ALLOCATION+%O'24',
DAP$K_MIC_ALLOCATION_RFI=DAP$K_MIC_ALLOCATION+%O'25',
DAP$K_MIC_ALLOCATION_ALQ=DAP$K_MIC_ALLOCATION+%O'26',
DAP$K_MIC_ALLOCATION_AID=DAP$K_MIC_ALLOCATION+%O'27',
DAP$K_MIC_ALLOCATION_BKZ=DAP$K_MIC_ALLOCATION+%O'30',
DAP$K_MIC_ALLOCATION_DEQ=DAP$K_MIC_ALLOCATION+%O'31';
! Summary message errors by field
LITERAL
DAP$K_MIC_SUMMARY_SUMENU=DAP$K_MIC_SUMMARY+%O'20',
DAP$K_MIC_SUMMARY_NOK=DAP$K_MIC_SUMMARY+%O'21',
DAP$K_MIC_SUMMARY_NOA=DAP$K_MIC_SUMMARY+%O'22',
DAP$K_MIC_SUMMARY_NOR=DAP$K_MIC_SUMMARY+%O'23',
DAP$K_MIC_SUMMARY_PVN=DAP$K_MIC_SUMMARY+%O'24';
! Date/Time message errors by field
LITERAL
DAP$K_MIC_DATE_TIME_DATMENU=DAP$K_MIC_DATE_TIME+%O'20',
DAP$K_MIC_DATE_TIME_CDT=DAP$K_MIC_DATE_TIME+%O'21',
DAP$K_MIC_DATE_TIME_RDT=DAP$K_MIC_DATE_TIME+%O'22',
DAP$K_MIC_DATE_TIME_EDT=DAP$K_MIC_DATE_TIME+%O'23',
DAP$K_MIC_DATE_TIME_RVN=DAP$K_MIC_DATE_TIME+%O'24';
! Protection message errors by field
LITERAL
DAP$K_MIC_PROTECTION_PROTMENU=DAP$K_MIC_PROTECTION+%O'20',
DAP$K_MIC_PROTECTION_OWNER=DAP$K_MIC_PROTECTION+%O'21',
DAP$K_MIC_PROTECTION_PROTSYS=DAP$K_MIC_PROTECTION+%O'22',
DAP$K_MIC_PROTECTION_PROTOWN=DAP$K_MIC_PROTECTION+%O'23',
DAP$K_MIC_PROTECTION_PROTGRP=DAP$K_MIC_PROTECTION+%O'24',
DAP$K_MIC_PROTECTION_PROTWLD=DAP$K_MIC_PROTECTION+%O'25';
! Name message errors by field
LITERAL
DAP$K_MIC_NAME_NAMETYPE=DAP$K_MIC_NAME+%O'20',
DAP$K_MIC_NAME_NAMESPEC=DAP$K_MIC_NAME+%O'21';
! ACL message errors by field
LITERAL
DAP$K_MIC_ACL_ACLCNT=DAP$K_MIC_ACL+%O'20',
DAP$K_MIC_ACL_ACL=DAP$K_MIC_ACL+%O'21';
!
! MICCODE VALUES FOR MACCODE=4,5,6,7 THESE ARE OPEN ERRORS
!
LITERAL
DAP$K_ERR_ABO=1, ! OPERATION ABORTED
DAP$K_ERR_ACC=2, ! COULD NOT ACCESS FILE
DAP$K_ERR_ACT=3, ! FILE ACTIVITY PRECLUDES OP
DAP$K_ERR_AID=4, ! BAD AREA ID
DAP$K_ERR_ALN=5, ! ALIGNMENT OPTIONS ERROR
DAP$K_ERR_ALQ=6, ! ALLOCATION QUANTITY TOO LARGE
DAP$K_ERR_ANI=7, ! NOT ANSI 'D' FORMAT
DAP$K_ERR_AOP=8, ! ALLOC OPTION ERROR
DAP$K_ERR_AST=9, ! INVALID OP AT AST LEVEL
DAP$K_ERR_ATR=10, ! ATTRIBUTE READ ERR
DAP$K_ERR_ATW=11, ! ATTRIBUTE WRITE ERROR
DAP$K_ERR_BKS=12, ! BUCKET SIZE TOO LARGE
DAP$K_ERR_BKZ=13, ! "
DAP$K_ERR_BLN=14, ! BLN LENGTH ERROR
DAP$K_ERR_BOF=15, ! BEGINNING OF FILE DETECTED
DAP$K_ERR_BPA=16, ! PRIVATE POOL ADT NOT MULT OF 4
DAP$K_ERR_BPS=17, ! PRIVATE POOL SIZE NOT MULT OF 4
DAP$K_ERR_BUG=18, ! Internal RMS Error
DAP$K_ERR_CCR=19, ! Can't connect RAB
DAP$K_ERR_CHG=20, ! $UPDATE changed a key w/o XB$CHG
DAP$K_ERR_CHK=21, ! Bucket format Check-byte error
DAP$K_ERR_CLS=22, ! RSTS/E close function failed *
DAP$K_ERR_COD=23, ! Invalid or unsupported COD field (STV=XAB)
DAP$K_ERR_CRE=24, ! F11ACP could not create file *
DAP$K_ERR_CUR=25, ! No current record (no GET/FIND)
DAP$K_ERR_DAC=26, ! F11ACP deaccess error in CLOSE *
DAP$K_ERR_DAN=27, ! Data "AREA" number invalid (STV=XAB)
DAP$K_ERR_DEL=28, ! RFA-Accessed record was deleted
DAP$K_ERR_DEV=29, ! Bad device or inappropriate device type
DAP$K_ERR_DIR=30, ! Error in directory name
DAP$K_ERR_DME=31, ! Dynamic memory exhausted
DAP$K_ERR_DNF=32, ! Directory not found
DAP$K_ERR_DNR=33, ! Device not ready
DAP$K_ERR_DPE=34, ! Device has positioning error *
DAP$K_ERR_DTP=35, ! "DTP" field invalid (STV=XAB)
DAP$K_ERR_DUP=36, ! Duplicate key detected, XB$DUP not set
DAP$K_ERR_ENT=37, ! RSX-F11ACP enter failed *
DAP$K_ERR_ENV=38, ! Operation not selected in ORG$ macro
DAP$K_ERR_EOF=39, ! end of file
DAP$K_ERR_ESS=40, ! Expanded string area too short
DAP$K_ERR_EXP=41, ! File hasn't expired yet
DAP$K_ERR_EXT=42, ! Extend failure *
DAP$K_ERR_FAB=43, ! Not valid FAB ("BID" not FB$BID)
DAP$K_ERR_FAC=44, ! Illegal FAC for REC-OP 0 or no FB$PUB (create)
DAP$K_ERR_FEX=45, ! File already exists
DAP$K_ERR_FID=46, ! Invalid File-ID
DAP$K_ERR_FLG=47, ! Invalid Flag-bits combination (STV=XAB)
DAP$K_ERR_FLK=48, ! File is locked
DAP$K_ERR_FND=49, ! RSX-F11ACP FIND function failed
DAP$K_ERR_FNF=50, ! file not found
DAP$K_ERR_FNM=51, ! Error in File name
DAP$K_ERR_FOP=52, ! Invalid "FOP" Options
DAP$K_ERR_FUL=53, ! Device or file full
DAP$K_ERR_IAN=54, ! Index "AREA" number invalid #
DAP$K_ERR_IFI=55, ! Invalid IFI value or unopened file
DAP$K_ERR_IMX=56, ! Maximum number of areas/key XABs exceeded #
DAP$K_ERR_INI=57, ! INIT$ never issued
DAP$K_ERR_IOP=58, ! Operation illegal or invalid for file org
DAP$K_ERR_IRC=59, ! Illegal record encountered in sequential file
DAP$K_ERR_ISI=60, ! Invalid ISI value, on unconnected RAB
DAP$K_ERR_KBF=61, ! Bad KEY buffer address
DAP$K_ERR_KEY=62, ! Invalid key field
DAP$K_ERR_KRF=63, ! Invalid key-of-reference
DAP$K_ERR_KSZ=64, ! Key size too large
DAP$K_ERR_LAN=65, ! Lowest-level-index "AREA" number invalid #
DAP$K_ERR_LBL=66, ! Not ANSI labeled tape
DAP$K_ERR_LBY=67, ! Logical channel busy
DAP$K_ERR_LCH=68, ! Logical channel number too large
DAP$K_ERR_LEX=69, ! Logical extend error, prior extend still valid #
DAP$K_ERR_LOC=70, ! "LOC" field invalid #
DAP$K_ERR_MAP=71, ! Buffer mapping error
DAP$K_ERR_MKD=72, ! F11ACP could not mark file for deletion #
DAP$K_ERR_MRN=73, ! MRN value negative or relative key>MRN
DAP$K_ERR_MRS=74, ! MRS value=0 for fix len record or rel file
DAP$K_ERR_NAM=75, ! "NAM" block address invalid
DAP$K_ERR_NEF=76, ! Not positioned at EOF
DAP$K_ERR_NID=77, ! Can't allocate internal file descriptor
DAP$K_ERR_NPK=78, ! Indexed file--no primary key defined
DAP$K_ERR_OPN=79, ! RSTS/E OPEN failure *
DAP$K_ERR_ORD=80, ! XAB's not in correct order #
DAP$K_ERR_ORG=81, ! Invalid file organization value
DAP$K_ERR_PLG=82, ! Error in file's prologue (reconstruct file)
DAP$K_ERR_POS=83, ! "POS" field invalid (>MRS) #
DAP$K_ERR_PRM=84, ! Bad file date field retrived #
DAP$K_ERR_PRV=85, ! Protection violation
DAP$K_ERR_RAB=86, ! Not a valid RAB ("BID" not = RB$BID)
DAP$K_ERR_RAC=87, ! Illegal RAC value
DAP$K_ERR_RAT=88, ! Illegal record attributes
DAP$K_ERR_RBF=89, ! Invalid record buffer addr
DAP$K_ERR_RER=90, ! File Read Error *
DAP$K_ERR_REX=91, ! Record already exists
DAP$K_ERR_RFA=92, ! Bad RFA value (RFA=0)
DAP$K_ERR_RFM=93, ! Invalid record format
DAP$K_ERR_RLK=94, ! Target bucket locked by another stream
DAP$K_ERR_RMV=95, ! RSX-F11ACP REMOVE function failed *
DAP$K_ERR_RNF=96, ! Record not found (STV=0)
DAP$K_ERR_RNL=97, ! Record not locked
DAP$K_ERR_ROP=98, ! Invalid record options
DAP$K_ERR_RPL=99, ! Error while reading prologue *
DAP$K_ERR_RRV=100, ! Invalid RRV record encountered
DAP$K_ERR_RSA=101, ! RAB stream currently active
DAP$K_ERR_RSZ=102, ! Bad record size (>MRS or <>MRS for fixed len)
DAP$K_ERR_RTB=103, ! Record too big for user buffer (STV=actual size)
DAP$K_ERR_SEQ=104, ! Primary key out of sequence
DAP$K_ERR_SHR=105, ! }"SHR" field invalid (can't share sequential)
DAP$K_ERR_SIZ=106, ! "SIZ" field invalid #
DAP$K_ERR_STK=107, ! Stack too big for save area
DAP$K_ERR_SYS=108, ! System directive error *
DAP$K_ERR_TRE=109, ! Index tree error
DAP$K_ERR_TYP=110, ! Error in file type, extension on FNS too big
DAP$K_ERR_UBF=111, ! Invalid user buffer address
DAP$K_ERR_USZ=112, ! Invalid user buffer size
DAP$K_ERR_VER=113, ! Error in version number
DAP$K_ERR_VOL=114, ! Invalid volume number
DAP$K_ERR_WER=115, ! File write error *
DAP$K_ERR_WLK=116, ! Device is write-locked
DAP$K_ERR_WPL=117, ! Error while writing prologue
DAP$K_ERR_XAB=118, ! Invalid XAB
DAP$K_ERR_BUGDDI=119, ! Default directory invalid
DAP$K_ERR_CCA=120, ! Can't access argument list
DAP$K_ERR_CCF=121, ! Can't close file *
DAP$K_ERR_CDA=122, ! Can't deliver AST
DAP$K_ERR_CHN=123, ! Channel assignment failure *
DAP$K_ERR_CNTRLO=124, ! Terminal output ignored due to ^O
DAP$K_ERR_CNTRLY=125, ! Terminal input aborted due to ^Y
DAP$K_ERR_DNA=126, ! Default filename string address error
DAP$K_ERR_DVI=127, ! Invalid device ID field
DAP$K_ERR_ESA=128, ! Expanded string address error
DAP$K_ERR_FNA=129, ! Filename string address error
DAP$K_ERR_FSZ=130, ! FSZ field invalid
DAP$K_ERR_IAL=131, ! Invalid argument list
DAP$K_ERR_KFF=132, ! Known file found
DAP$K_ERR_LNE=133, ! Logical name error
DAP$K_ERR_NOD=134, ! Node name error
DAP$K_ERR_NORMAL=135, ! Operation successful
DAP$K_ERR_OK_DUP=136, ! Record inserted had duplicate key
DAP$K_ERR_OK_IDX=137, ! Index update occurred, record inserted
DAP$K_ERR_OK_RLK=138, ! Record locked, but read anyway
DAP$K_ERR_OK_RRV=139, ! Record inserted in primary, maybe not secondary or RFA
DAP$K_ERR_OPENED=140, ! Existing file opened
DAP$K_ERR_PBF=141, ! Bad prompt buffer address
DAP$K_ERR_PNDING=142, ! Asyncronous operation pending
DAP$K_ERR_QUO=143, ! Quoted string error
DAP$K_ERR_RHB=144, ! Record header buffer invalid
DAP$K_ERR_RLF=145, ! Invalid related file
DAP$K_ERR_RSS=146, ! Invalid resultant string size
DAP$K_ERR_RST=147, ! Invalid resultant string address
DAP$K_ERR_SQO=148, ! Operation not sequential
DAP$K_ERR_SUC=149, ! Operation successful
DAP$K_ERR_SPRSED=150, ! Superceding existing file
DAP$K_ERR_SYN=151, ! Filename syntax error
DAP$K_ERR_TMO=152, ! Timeout period expired
DAP$K_ERR_BLK=153, ! FB$BLK record attribute not supported
DAP$K_ERR_BSZ=154, ! Bad byte size
DAP$K_ERR_CDR=155, ! Can't disconnect RAB
DAP$K_ERR_CGJ=156, ! Can't get JFN for file
DAP$K_ERR_COF=157, ! Can't open file
DAP$K_ERR_JFN=158, ! Bad JFN value
DAP$K_ERR_PEF=159, ! Can't position to EOF
DAP$K_ERR_TRU=160, ! Can't truncate file
DAP$K_ERR_UDF=161, ! File is in an undefined state, access denied
DAP$K_ERR_XCL=162, ! File must be opened for exclusive access
DAP$K_ERR_DFL=163, ! Directory full
DAP$K_ERR_RDD=183, ! Rename-- 2 different devices
DAP$K_ERR_RFE=184, ! Rename-- file already exists
DAP$K_ERR_ALC=193, ! File exceeds allocated space
DAP$K_ERR_NLN=196, ! No file accessed on LUN
DAP$K_ERR_NMF=199, ! No more files
DAP$K_ERR_DCK=200, !DAP checksum error
DAP$K_ERR_QEX=201; !Quota Exceeded
!
!NAME message:
!
!NAME MESSAGE TYPE BITS
LITERAL
DAP$K_NAMETYPE_FSP=0, ! File specification
DAP$K_NAMETYPE_NAM=1, ! File name only
DAP$K_NAMETYPE_DIR=2, ! Directory name only
DAP$K_NAMETYPE_STR=3, ! Volume or structure name
DAP$K_NAMETYPE_DEF=4, ! Default file specifation
DAP$K_NAMETYPE_REL=5; ! Related file specifation
LITERAL ! Trace function codes
DAP$K_TRACE_INPUT=1,
DAP$K_TRACE_OUTPUT=2,
DAP$K_TRACE_INPUT_INTERRUPT=5,
DAP$K_TRACE_OUTPUT_INTERRUPT=6;
!
! Error Codes Defined
!
LITERAL DAP$K_FACILITY_CODE=%O'30000000';
COMPILETIME DAP$K_ERRTAB_LENGTH=0;
MACRO ERR_DS(MAC,MIC)=((MAC+MIC)^3+DAP$K_FACILITY_CODE+STS$K_ERROR) %;
MACRO $DAP$ERROR[CODE,VALUE,SEVERITY,TEXT]=
%ASSIGN(DAP$K_ERRTAB_LENGTH,%COUNT+1)
CODE=(VALUE^3)+DAP$K_FACILITY_CODE+%NAME(STS$K_,SEVERITY) %;
MACRO $DAP$ERRORS=$DAP$ERROR(
DAP$_DEV, %O'040035', ERROR, 'Structure not mounted, or bad device',
DAP$_DIR, %O'040036', ERROR, 'Error in directory name',
DAP$_DNF, %O'040040', ERROR, 'Directory not found',
DAP$_DNR, %O'040041', ERROR, 'Device not ready',
DAP$_FEX, %O'040055', ERROR, 'File already exists',
DAP$_FLK, %O'040060', ERROR, 'File locked by another user',
DAP$_FNF, %O'040062', ERROR, 'File not Found',
DAP$_FNM, %O'040063', ERROR, 'Error in File Name',
DAP$_FOP, %O'040064', ERROR, 'Error in File Options',
DAP$_FUL, %O'040065', ERROR, 'Device/File Full',
DAP$_MRS, %O'040112', ERROR, 'MRS=0 for fixed or relative file',
DAP$_PRV, %O'040125', ERROR, 'Protection violation',
DAP$_RAT, %O'040130', ERROR, 'Illegal record attributes',
DAP$_RFM, %O'040135', ERROR, 'Illegal Record Format',
DAP$_SHR, %O'040151', ERROR, 'Invalid SHR field',
DAP$_TYP, %O'040156', ERROR, 'Error in file type',
DAP$_GES, %O'040161', ERROR, 'Version must be explicit or *',
DAP$_WLK, %O'040164', ERROR, 'Device is write-locked',
DAP$_SYN, %O'040227', ERROR, 'Filename syntax error',
DAP$_CGJ, %O'040234', ERROR, 'Can''t get JFN',
DAP$_COF, %O'040235', ERROR, 'Can''t open file',
DAP$_DFL, %O'040243', ERROR, 'Directory full',
DAP$_RTD, %O'040267', ERROR, 'Rename: two different devices',
DAP$_RFX, %O'040270', ERROR, 'Rename: new file name already in use',
DAP$_NMF, %O'040307', WARNING, 'No more files',
DAP$_CRC, %O'070310', ERROR, 'DAP file transfer CRC error',
DAP$_TFL, %O'050065', ERROR, 'Device or File Full',
DAP$_EOF, %O'050047', ERROR, 'End of File',
DAP$_RER, %O'050132', ERROR, 'File Read Error',
DAP$_RLK, %O'050136', ERROR, 'Target bucket locked by another stream',
DAP$_RNF, %O'050140', ERROR, 'Record not found',
DAP$_ROP, %O'050142', ERROR, 'Invalid record options',
DAP$_RSZ, %O'050146', ERROR, 'Invalid record size',
DAP$_RTB, %O'050147', ERROR, 'Record too big for user''s buffer',
DAP$_WER, %O'050163', ERROR, 'File Write Error',
DAP$_QEX, %O'050311', ERROR, 'Disk quota exceeded',
DAP$_LAE, %O'050347', ERROR, 'Error reading file attributes',
DAP$_LNP, %O'050350', ERROR, 'Protection failure reading file name',
DAP$_LAP, %O'050351', ERROR, 'Protection failure reading file attributes',
DAP$_AOR, %O'770100', FATAL, 'Argument out of range',
DAP$_FTL, %O'770010', ERROR, 'Field Too Long',
DAP$_SYNC, %O'120000', ERROR, 'Remote system sent message out of sync'
) %;
LITERAL $DAP$ERRORS;
Reference in New Issue View Git Blame Copy Permalink