compile insert IMPORTEQUATES EQU COMMA$ TO \2C\ EQU SPACE$ TO \20\ EQU VERIFY$ TO -1 EQU SINGLE_QUOTE$ TO \27\ EQU DOUBLE_QUOTE$ TO \22\ *EQU ESC$ TO @INT.CONST<1> EQU SINGLE$ TO 2 EQU MULTI$ TO 3 EQU PUSH$ TO 4 EQU POP$ TO 5 EQU MAXLEN$ TO 65530 ;* Approx 64K EQU REBUILD$ TO 2 ;* INDEX_TOGGLE rebuild flag EQU FIXED_LEN_FIELD_POS$ TO 4 * * Import Field Array parameters. * EQU FMC$ TO 1 EQU MV$ TO 2 EQU APPEND$ TO 3 EQU FIELD_START_BYTE$ TO 4 EQU FIELD_LEN$ TO 5 EQU SKIP_IF_DATA$ TO 6 /* Literal resources equates */ EQU RES_UNTITLED$ TO 5 EQU RES_CAPTION$ TO 6 EQU RES_FILTERS$ TO 7 EQU RES_TYPETEXT$ TO 8 EQU RES_DELIMREQ$ TO 9 EQU RES_FILETYPEREQ$ TO 10 EQU RES_NOOPTIONS$ TO 11 EQU RES_COLREQ$ TO 12 EQU RES_ERRORWRI$ TO 13 EQU RES_ERROROPN$ TO 14 EQU RES_QUITOK$ TO 15 EQU RES_ERRORREAD$ TO 16 EQU RES_PROCESSREQ$ TO 17 EQU RES_FILEREQ$ TO 18 EQU RES_TABLEREQ$ TO 19 EQU RES_TOTALROWREQ$ TO 20 EQU RES_PROCESSDNE$ TO 21 EQU RES_NORECDELIM$ TO 22 EQU RES_TABLEEXISTS$ TO 23 EQU RES_TABLENOTAVAIL$ TO 24 EQU RES_NOFILES$ TO 25 EQU RES_PRESIZEOK$ TO 26 EQU RES_OPNDOSFILE$ TO 27 EQU RES_STARTBYTEREQ$ TO 28 EQU RES_PROCFILES$ TO 29 EQU RES_IMPORTLASTDONE$ TO 30 EQU RES_CANCELIMPORT$ TO 31 EQU RES_PROCESSCANCEL$ TO 32 EQU RES_IMPORTCOMPLETE$ TO 33 EQU RES_INVALIDDATA$ TO 34 /*-------------------------------------------------------------------------- dictionary field equates for file IMPORT.EXPORT --------------------------------------------------------------------------*/ EQU DOS_FILENAME$ TO 1 EQU REV_FILENAME$ TO 2 EQU FIELD_DELIMITER$ TO 3 EQU RECORD_DELIMITER$ TO 4 EQU EOF_DELIMITER$ TO 5 EQU IMPORT_REC_LENGTH$ TO 6 EQU FIELD_NAMES$ TO 7 EQU START_BYTE$ TO 8 EQU FIELD_LENGTH$ TO 9 EQU CONVERSION$ TO 10 EQU CLEARFILE_FLAG$ TO 11 EQU RECORDS_IN_FILE$ TO 12 EQU OBSERVE_QUOTES$ TO 13 EQU PRESIZE_FLAG$ TO 14 EQU MERGE_FLAG$ TO 15 EQU MAKEDICT_FLAG$ TO 16 EQU SUPPRESS_FLAG$ TO 17 EQU ACTUAL_FLAG$ TO 18 EQU HEADER_FLAG$ TO 19 EQU TEXT_MARKER_FLAG$ TO 20 EQU MAKEFILE_FLAG$ TO 21 EQU INDEXING_FLAG$ TO 22 EQU BATCH_FLAG$ TO 23 EQU PROCESS_TYPE$ TO 24 EQU LOCK_FLAG$ TO 25 * Source Date: 10:56:09 18 OCT 1995 Build ID: OI*3.0.150 Level: 2.8