$ DISCCOPY MESSAGES                                                     00001000
$                                                                       00002000
$SET 1   3741 TO MPE DISC FILE CONVERSION                               00003000
$                                                                       00004000
$ Messages 1-80 displayed through GENMESSAGE, end with <return>         00005000
$                                                                       00006000
1 ! NOT COPIED.  (DCERR 1)                                              00007000
2 ! RECORDS COPIED.                                                     00008000
3 %                                                                     00009000
! TOTAL RECORDS COPIED.                                                 00010000
4 ACCESS NOT ALLOWED.  (DCERR 4)                                        00011000
5 ACCESS NOT ALLOWED TO VOLUME !.  (DCERR 5)                            00012000
6 BEGINNING OF EXTENT ADDRESS IS !, MUST BE BETWEEN 01 0 01%            00013000
  AND 73 0 26 (MIDDLE NUMBER IS ALWAYS 0).  (DCERR 6)                   00014000
7 BEGINNING OF EXTENT ADDRESS, !, MUST BE <=%                           00015000
  END OF ! ADDRESS, !.  (DCERR 7)                                       00016000
8 ALL SELECTED DATA SETS PROCESSED.                                    00017000
9 DATA SET ! NOT FOUND.  (DCERR 9)                                      00018000
10 DATA SET EXPIRED ON !.  (DCWARN 10)                                  00019000
11 DATA SET IS MARKED "BYPASS".  NOTRANSLATE OPTION WILL BE%            00020000
  FORCED IF DATA SET IS SELECTED.  (DCWARN 11)                          00021000
12 DATA SET IS NOT IN INTERCHANGE FORMAT.  NOTRANSLATE OPTION%          00022000
  WILL BE FORCED IF DATA SET IS SELECTED.  (DCWARN 12)                  00023000
13 DATA SET NAME MUST BE <= 8 CHARACTERS, FIRST 8 CHARACTERS%           00024000
  USED.  (DCERR 13)                                                     00025000
14 DATA SET NAME MUST BE ALPHANUMERIC, LETTER FIRST.  (DCERR 14)        00026000
15 DATA SET SEQUENCE NUMBER MUST BE BETWEEN 1 AND !.  (DCERR 15)        00027000
$                                                                       00028000
$ "Can't open DCOPYIN.  (DCERR 16)"                                     00029000
$ "Can't open DCOPYOUT.  (DCERR 17)"                                    00030000
$ Messages 16 and 17, above, are in procedure WELCOME of DISCCOPY code. 00031000
$                                                                       00032000
18 END OF DATA ADDRESS IS !, MUST BE BETWEEN 01 0 01 AND 74 0 01%       00033000
  (MIDDLE NUMBER IS ALWAYS 0).  (DCERR 18)                              00034000
19 END OF DATA ADDRESS, !, CANNOT BE GREATER THAN END OF EXTENT%        00035000
  ADDRESS, !, PLUS 1 SECTOR.  (DCERR 19)                                00036000
20 END OF EXTENT ADDRESS IS !, MUST BE BETWEEN 01 0 01 AND 73 0 26%     00037000
  (MIDDLE NUMBER IS ALWAYS 0).  (DCERR 20)                              00038000
$                                                                       00039000
$ "Error while accessing DISCCOPY message catalog..." (DCERR 21)        00040000
$ Message 21, above, is in procedure MESSAGE of DISCCOPY code.          00041000
$                                                                       00042000
22 EXPECTED "NOTRANSLATE=" FOLLOWING SEMICOLON.  (DCERR 22)             00043000
23 FILE ! ALREADY EXISTS, NEW FILE KEPT AS D!.  (DCERR 23)              00044000
24 FIRST DATA SET NUMBER MUST BE <= SECOND DATA SET NUMBER WHEN%        00045000
  "/" FORM IS USED.  (DCERR 24)                                         00046000
25 FLEXIBLE DISC IS NOT IN IBM SINGLE-SIDED FORMAT.  (DCERR 25)         00047000
26 FUNCTION MUST BE "E[XIT]"! OR A NUMBER BETWEEN 1 AND !. (DCERR 26)   00048000
27 %                                                                    00049000
INPUTS CANCELLED.                                                       00050000
28 FILE ! ! TEMPORARY.  NOT ENOUGH ! SPACE.  (DCERR 28)                 00051000
29 FILE ! IS PERMANENT.                                                 00052000
30 NO DATA SETS COPIED.                                                 00053000
31 CAN'T OPEN OLD FILE !.  (DCERR 31)                                   00054000
32 NUMBER OF VOLUMES MUST BE A NUMBER BETWEEN 2 AND 99!.  (DCERR 32)    00055000
33 OPERATOR HAS BEEN ASKED TO INSERT AND ALLOCATE VOLUME!.              00056000
34 PROPER RESPONSE IS "@", RETURN, OR DATA SET NUMBERS&                 00057000
 OR NAMES!.  (DCERR 34)                                                 00058000
35 READ ERROR IN LOGICAL RECORD ! OF DATA SET !.  RECORD COPIED%        00059000
  AS READ.  (DCERR 35)                                                  00060000
36 READ ERROR WHILE ACCESSING 3741 DIRECTORY FOR DATA SET !.  (DCERR 36)00061000
37 RECORD LENGTH IS !, MUST BE BETWEEN 1 AND 128.  (DCERR 37)           00062000
38 DEVICE ALLOCATED BY OPERATOR IS NOT A FOREIGN DISC.  (DCERR 38)      00063000
39 %                                                                    00064000
THE FOLLOWING DATA SET(S) CANNOT BE COPIED.  CHECK ABOVE%               00065000
  FOR ERRORS.  (DCERR 39)                                               00066000
40 THIS IS VOLUME !.                                                    00067000
41 UNABLE TO COMPLETE CONVERSION OF THIS DATA SET.  (DCERR 41)          00068000
42 NO FLEXIBLE DISC DRIVE AVAILABLE OR OPERATOR HAS DENIED%             00069000
  ACCESS TO IT.  (DCERR 42)                                             00070000
$                                                                       00071000
$ "Unable to open DISCCOPY message catalog..."  (DCERR 43)              00072000
$ Message 43, above, is in procedure OPEN'MESSAGE'FILE of DISCCOPY code.00073000
$                                                                       00074000
44 UNABLE TO PERFORM CONVERSION.  (DCERR 44)                            00075000
45 RESPONSE MUST BE Y[ES], N[O], OR <RETURN> (=NO).  (DCERR 45)         00076000
46 VOLUME LABEL SECTOR POSITIONS 1-4 ARE "!", MUST BE "VOL1".&          00077000
  (DCERR 46)                                                            00078000
47 VOLUME MOUNTED BY OPERATOR IS NAMED !.  (DCERR 47)                   00079000
48 A COMMA IS REQUIRED AS SEPARATOR.  (DCERR 48)                        00080000
49 VOLUME NAME MUST BE <= 6 CHARACTERS!.  (DCERR 49)                    00081000
50 VOLUME NAME MUST BE ALPHANUMERIC, LETTER FIRST!.  (DCERR 50)         00082000
51 3741 DATA SET TO MPE DISC FILE CONVERSION.                           00083000
52 %                                                                    00084000
LIST OF DATA SETS ON VOLUME !:                                          00085000
$                                                                       00086000
$ Add new task titles here.  All but the last one should have a         00087000
$   trailing "%".                                                       00088000
$                                                                       00089000
53 %                                                                    00090000
PLEASE SELECT A FUNCTION:%                                              00091000
  1  3741 DATA SET TO MPE DISC FILE CONVERSION.                         00092000
54   C  CONTINUE WITH NEXT DATA SET.                                    00093000
55   E  EXIT.                                                           00094000
56 WHICH DATA SETS DO YOU WANT TO COPY?                                 00095000
57 END OF FILE ON DCOPYIN.  DISCCOPY CANNOT CONTINUE.  (DCERR 57)       00096000
58 MAXIMUM NUMBER OF INPUT LINES IS !.  (DCERR 58)                      00097000
59 READ ERROR WHILE ACCESSING 3741 VOLUME LABEL.  (DCERR 59)            00098000
$                                                                       00099000
$ Message 60, below, is duplicated in procedure END'IT'ALL of DISCCOPY  00100000
$ code.                                                                 00101000
$                                                                       00102000
60 IRRECOVERABLE I/O ERROR ON !.  (DCERR 60)                            00103000
61 EACH DATA SET HAS ONE OR MORE DATA-SET-FATAL ERRORS.%                00104000
  NONE CAN BE COPIED.  (DCERR 61)                                       00105000
62 FLEXIBLE DISC DIRECTORY HAS NO (ERROR-FREE) ENTRIES.  (DCERR 62)     00106000
63 VOLUME NUMBER IS !, MUST BE BETWEEN 1 AND 99.  (DCERR 63)            00107000
64 MULTIPLE VOLUME INDICATOR IS "!", MUST BE " ", "C" OR "L".&          00108000
  (DCERR 64)                                                            00109000
65 THE FOLLOWING DATA SETS HAVE BEEN SELECTED UP TO NOW:                00110000
66 FLEXIBLE DISC ! MUST BE OPENED WITH BLOCKING FACTOR = 1%             00111000
  AND WITH NOBUF, MULTI-RECORD ACCESS AND READ ONLY,%                   00112000
  READ/WRITE OR UPDATE AOPTIONS.  (DCERR 66)                            00113000
67 FOREIGN DISC IS NOT A FLEXIBLE DISC.  (DCERR 67)                     00114000
68 YOU MAY SELECT ANY SUBSET OF SINGLE-VOLUME DATA SETS OR EXACTLY%     00115000
  ONE MULTIPLE-VOLUME DATA SET, BUT NOT BOTH.  (DCERR 68)               00116000
69 EXPECTED VOLUME ! OF DATA SET !.  (DCERR 69)                         00117000
70 CAN'T OPEN NEW FILE !.  (DCERR 70)                                   00118000
71 CAN'T SAVE NEW FILE !.  (DCERR 71)                                   00119000
72 CAN'T RE-OPEN OLD FILE !.  (DCERR 72)                                00120000
73 CAN'T WRITE USER LABEL.  (DCERR 73)                                  00121000
74 CAN'T READ USER LABEL.  (DCERR 74)                                   00122000
75 FILE ! IS NOT A DISCCOPY FILE OR CANNOT BE IDENTIFIED%               00123000
  AS THE PROPER INCOMPLETE DISCCOPY FILE.  (DCERR 75)                   00124000
76 FILE NAME MUST BE ALPHANUMERIC, LETTER FIRST.  (DCERR 76)            00125000
77 ! RECORDS PREVIOUSLY COPIED.                                         00126000
78 ! IS NOT A MULTIPLE-VOLUME DATA SET.  (DCERR 78)                     00127000
79 RECORD LENGTH IS !, MUST BE !.  (DCERR 79)                           00128000
80 MORE THAN ! PARAMETERS ENTERED, FIRST ! USED.  (DCERR 80)            00129000
$                                                                       00131000
$ Messages 81-100 are formatted with GENMESSAGE to an internal          00132000
$   buffer, and are then displayed with FWRITE with %320 CCTL.          00133000
$                                                                       00134000
81 CAN'T FIND A FILE NAMED !.  HAS IT BEEN RENAMED? (Y/N)               00135000
82 ENTER AN ALTERNATE FILE NAME FOR DATA SET !:                         00136000
83 ENTER THE NEW NAME:                                                  00137000
84 HOW MANY VOLUMES (2-99) IN DATA SET ! (<return> IF UNKNOWN)?         00138000
85 NAME OF VOLUME TO BE COPIED (<return> IF UNKNOWN):                   00139000
86 PURGE OLD !!? (Y/N)                                                  00140000
87 VOLUME MOUNTED BY OPERATOR IS NAMED !, O.K. TO USE? (Y/N)            00141000
88 IS DESIRED VOLUME NAME, !, CORRECT? (Y/N)                            00142000
$                                                                       00143000
$ Messages 89 through 100 are reserved for future use.                  00144000
$                                                                       00145000
$ Messages 101-120 are formatted with GENMESSAGE to an internal         00146000
$   buffer, and are then sent to the system console with PRINTOP.       00147000
$                                                                       00148000
101 DISCCOPY:  DISKETTE ON LDEV#! IS NOT IN IBM FORMAT.                 00149000
102 DISCCOPY:  LDEV#! IS NOT A FOREIGN DISC.                            00150000
103 DISCCOPY:  MOUNT FLEXIBLE DISC VOLUME!.                             00151000
104 DISCCOPY:  MOUNT FLEX DISC VOL ! OF DATA SET !.                     00152000
105 DISCCOPY:  VOLUME LABEL READ ERROR ON LDEV#!.                       00153000
106 DISCCOPY:  WRONG VOLUME ON LDEV#!.                                  00154000
$                                                                       00155000
$ Messages 107 through 120 are reserved for future use.                 00156000
