v4.0/src/CMD/XCOPY/XCOPY.SKL

   1 ;==========================================================
   2 ;       XCOPY MESSAGE SKELETON FILE
   3 ;==========================================================
   4
   5 :util   XCOPY                   ;AN000;
   6
   7
   8 :class  A                       ;AN000;System message class
   9
  10 :use 1  COMMON1                 ;AN000;MSG 1 is always "Incorrect DOS Version"
  11
  12 :use 2  EXTEND8                 ;AN000;MSG 2 is always "Insufficient Memory"
  13
  14 :use 3  PARSE10                 ;AN000;PARSER MSG 10 "Invalid parameter"
  15
  16 :def 4  "Does %1 specify a file name",CR,LF      ;AN000;
  17         "or directory name on the target",CR,LF
  18         "(F = file, D = directory)?"
  19
  20 :def 5  "Press any key to begin copying file(s)" ;AN000;
  21
  22 :def 6  "Path too long",CR,LF   ;AN000;
  23
  24 :use 7  COMMON25                ;AN000;"Invalid path"
  25
  26 :def 8  "Cannot perform a cyclic copy",CR,LF ;AN000;
  27
  28 :use 9  COMMON23                ;AN000;"Invalid date"
  29
  30 :use 10 COMMON32                ;AN000;"Unable to create directory"
  31
  32 :use 11 EXTEND15                ;AN000;"Invalid drive specification"
  33
  34 :def 12 "Cannot XCOPY from a reserved device",CR,LF ;AN000;
  35
  36 :use 13 EXTEND5                 ;AN000;"Access denied"
  37
  38 :use 14 EXTEND4                 ;AN000;"Too many open files"
  39
  40 :use 15 EXTEND31                ;AN000;"General failure"
  41
  42 :use 16 EXTEND32                ;AN000;"Sharing Violation"
  43
  44 :use 17 EXTEND33                ;AN000;"Lock Violation"
  45
  46 :use 18 EXTEND3                 ;AN000;"Path not found"
  47
  48 :use 19 COMMON20                ;AN000;"Insufficient disk space"
  49
  50 :use 20 COMMON18                ;AN000;"File cannot be copied onto itself"
  51
  52 :def 21 "Invalid number of parameters",CR,LF ;AN000;
  53
  54 :def 22 "Cannot XCOPY to a reserved device",CR,LF ;AN000;
  55
  56 :use 23 EXTEND2                 ;AN000;"File not found"
  57
  58 :def 24 "File creation error",CR,LF    ;AN000;
  59
  60 :def 25 "Reading source file(s)...",CR,LF ;AN000;
  61
  62 :def 26 CR,LF                   ;AN000;
  63
  64 :def 27 "%1 File(s) copied",CR,LF  ;AN000;
  65
  66 :def 29 "F D " ;AN000;'PLEASE TRANSLATE' ELIMINATE THE SPACE CHARACTERS
  67                      ; FOR DBCS TRANSLATE. THIS TEXT IS USED TO COMPARE
  68                      ; THE RESPONSE OF F = FILE, D = DIRECTORY (MSG 4)
  69
  70 :def 30 "%1%2",CR,LF            ;AN000;S_PATH_FILE0
  71
  72 :def 31 "%1\%2",CR,LF           ;AN000;S_PATH_FILE1
  73
  74 :def 32 "%1",CR,LF              ;AN000;DISPLAY_S_PATH
  75
  76 :def 33 "%1%2 (Y/N)?"           ;AN000;P_S_PATH_FILE0
  77
  78 :def 34 "%1\%2 (Y/N)?"          ;AN000;P_S_PATH_FILE1
  79
  80 :use 35 PARSE03                 ;AC023;DUP SW ERROR MSG, 'INVALID SWITCH'
  81
  82 :end                            ;AN000;
  83 ;==========================================================