Thursday 21 November 2024

A sintaxe desta macro é

 

Label DFHMSD argumentos

O Label desta macro define o nome do mapset. Ele deverá ser usado nos programas dentro dos comandos de leitura e gravação da tela.

Os argumentos do comando devem ser separados por virgula e podem ser:

TYPE=tipo,

Este deve ser o primeiro argumento da macro. Tipo pode ser DSECT ou MAP.

TYPE=DSECT, Indica que deve ser gerada uma area copy para ser inserida nos programas Cobol.
TYPE=MAP, Indica que deve ser gerado um modulo objeto do mapset, com o nome do label da macro, para uso do Cics.

MODE=mode,

MODE=IN, As telas serão de INPUT (entrada de dados).
MODE=OUT, As telas serão de OUTPUT (saída de dados).
MODE=INOUT, As telas serão de INPUT e OUTPUT.

 

LANG=linguagem,

LANG=ASM, a linguagem do programa Cics é Assembler.
LANG=COBOL, a linguagem do programa Cics é Cobol.

STORAGE=AUTO,

STORAGE=AUTO, As áreas de INPUT e OUTPUT das telas usarão a mesma área de memória (serão geradas com a clausula REDEFINES).

CTRL=(PRINT,length,FREEKB,ALARM,FRSET),

Este argumento define varias características do terminal para onde a tela deve ser enviada. Todas estas características são opcionais, e são descritas abaixo.

CTRL=(PRINT, O terminal é uma impressora remota.
length, Quando o terminal for impressora, contem o comprimento da linha podendo ser: L40, L64, L80 ou HONEOM. (HONEOM indica um comprimento padrão definido no Cics).
FREEKB, Libera automaticamente o teclado quando uma tela é enviada ao terminal. No sistema 3270 os teclados ficam bloqueados enquanto a tela esta sendo tratada pelo Cics.
ALARM, Aciona o alarme do terminal no envio da tela.
FRSET), Muda as tags MDT de todos os atributos dos campos desprotegidos para OFF antes de enviar a tela para o terminal.

 

TIOAPFX=YES,

Este argumento deve ser usado sempre quando o programa Cics for escrito em Command Level. 

TIOAPFX=YES, Cria um campo FILLER de 12 posições no inicio da área copy da tela (usado internamente pelo Cics).

TYPE=FINAL

TYPE=FINAL Esta deve ser a ultima linha de um mapa BMS.