Fala, Philippe!
Você trombou num detalhe clássico de “mundo legado”: no MVS 3.8J (TK5), muita coisa ainda segue a gramática do OS/VS COBOL, que é mais antiga. Resultado? Alguns ASSIGN que funcionam no Enterprise COBOL mais novo não batem com o dialeto do TK5.
O erro
“Device class invalid in system-name”
“external-name not present in system-name”
aparece quando o COBOL do MVS antigo não reconhece o system-name do ASSIGN — ele espera um prefixo de classe de dispositivo no nome do sistema.
Como corrigir no TK5 (OS/VS COBOL)
Para arquivo sequencial em disco (QSAM), use o padrão com prefixo UT-S- (ou DA-S-, dependendo do dialeto instalado; no TK5, UT-S- costuma atender bem para sequenciais):
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT MYFILE ASSIGN TO UT-S-PHYSDATA
ORGANIZATION IS SEQUENTIAL.
E no JCL, mantenha o DD assim (DDNAME em maiúsculas e até 8 chars):
//PHYSDATA DD DSN=HERC02.COBOL.DATA,DISP=SHR
Por que isso?
No OS/VS COBOL, o ASSIGN usa um mapeamento por classe de dispositivo (UT-, DA-, PRT-, etc.) + o DDNAME. Já no Enterprise/VS COBOL II, o ASSIGN TO ddname “puro” é aceito. Como o TK5 é MVS 3.8J, ele puxa o jeito antigo — legado raiz.
Abraço e bem-vindo ao Forum COBOL Dicas! 🦖
COBOL is not DEAD!
