Здравствуйте.
igorek2003 писал(а): ↑11.12.2022,10:52
print не хочет печатать из-за lrecl 1024 у
Там, вероятно, файлы упакованы - copy x x x = = a (unpack, завтра посмотрю причину ошибки с PRTML
Посмотрел) Файлы (документы) упакованы, как и предполагалось. Но кто-то очень постарался, и упаковал не только документы, но и PRTML EXEC и PRTML MODULE, т.е. все вообще файлы, что и вызывает ошибку). Файлы MODULE в CMS имеют формат V, так что увидев PRTML MODULE F 1024 все сразу понятно.
copy prtml exec d = = a (unpack
copy prtml module d = = a (unpack
P.S. Если хотите печатать документацию, то:
- в конфигурации hercules (oc7.cfg) определите принтер с типом 1403, т.е. 000E 1403 printer.00e, или, если hercules уже загружен, измените это динамически:
detach 00e
attach 00e 1403 printer.00e crlf
- активируйте принтер
vary on 00e
start 00e cl p
- перед печатью файла
sp prt cl p
- печатать c noheader, чтобы не появлялись заголовки команды print
print 040 001 z (noheader
P.P.S. Печать несколько облегчит примитивный скрипт:
/* REXX */
PARSE ARG F T
'COPY 'F T' D = = Z (UNPACK'
'PRINT 'F T' Z (NOHEADER'
'ERASE 'F T' Z'
EXIT
поместите эти 6 строк в файл, например, zprt exec и затем
ZPRT 040 001
ZPRT 041 001 и т.д.
*) здесь предполагается, что access 500 d, а диск z - любой, доступный по записи с достаточным свободным местом для распаковки больших файлов, например, maint 193