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. |