LayOut Mapa BMS (Basic Mapping Support) Mapa Fisico do Exemplo acimaPRINT NOGEN*-----------------------------------------------------------** MAPA FISICODO MENU MANUTENCAO AGENCIAS HABILITADAS **-----------------------------------------------------------** PSWD :TEF5 **-----------------------------------------------------------*TCEF5MS DFHMSD TYPE=MAP, X TIOAPFX=YES, X STORAGE=AUTO, X CTRL=(FRSET,FREEKB), X LANG=COBOL, X MODE=INOUTTCEF5M1 DFHMDI DATA=FIELD, X SIZE=(024,080)***** LINHA 1 DFHMDFPOS=(01,001), X LENGTH=014, X ATTRB=(ASKIP,FSET), X INITIAL='BANCOEXE' DFHMDFPOS=(01,028), X LENGTH=025, X ATTRB=(ASKIP,FSET,BRT), X INITIAL='C A P I T A L I Z A C A O'T1DATA DFHMDFPOS=(01,071), X LENGTH=008, X ATTRB=(ASKIP,FSET) ***** LINHA 2 DFHMDFPOS=(02,001), X LENGTH=007, X ATTRB=(ASKIP,FSET), X INITIAL='TCEF5MS' DFHMDFPOS=(02,025), X LENGTH=031, X ATTRB=(ASKIP,FSET,BRT), X INITIAL='CADASTRO RASPINVEST DE AGENCIAS'T1HORA DFHMDFPOS=(02,071), X LENGTH=008, X ATTRB=(ASKIP,FSET)***** LINHA 7 DFHMDF POS=(07,016), X LENGTH=017, X ATTRB=(ASKIP,FSET), X INITIAL='1 - CADASTRAMENTO'***** LINHA 9 DFHMDF POS=(09,016), X LENGTH=033, X ATTRB=(ASKIP,FSET), X INITIAL='2 - ALTERACAO DE DADOSCADASTRAIS'***** LINHA 11 DFHMDFPOS=(11,016), X LENGTH=024, X ATTRB=(ASKIP,FSET), X INITIAL='3 - CONSULTA DO CADASTRO'***** LINHA17 DFHMDF POS=(17,009), X LENGTH=006, X ATTRB=(ASKIP,FSET), X INITIAL='OPCAO:'T1OPCAO DFHMDF POS=(17,016), X LENGTH=001, X ATTRB=(UNPROT,NUM,FSET,IC), X INITIAL='_' DFHMDFPOS=(17,018), X LENGTH=001, X ATTRB=ASKIP***** LINHA 22T1MENS DFHMDFPOS=(22,001), X LENGTH=078, X ATTRB=(ASKIP,FSET,BRT)***** LINHA 23 DFHMDFPOS=(23,001), X LENGTH=005, X ATTRB=(ASKIP,FSET), X INITIAL='ENTER' DFHMDFPOS=(23,017), X LENGTH=003, X ATTRB=(ASKIP,FSET), X INITIAL='PF1' DFHMDFPOS=(23,029), X LENGTH=003, X ATTRB=(ASKIP,FSET), X INITIAL='PF2' DFHMDFPOS=(23,041), X LENGTH=003, X ATTRB=(ASKIP,FSET), X INITIAL='PF3' DFHMDFPOS=(23,054), X LENGTH=004, X ATTRB=(ASKIP,FSET), X INITIAL='PF12'***** LINHA24 DFHMDF POS=(24,001), X LENGTH=008, X ATTRB=(ASKIP,FSET), X INITIAL='PROCESSA' DFHMDFPOS=(24,017), X LENGTH=004, X ATTRB=(ASKIP,FSET), X INITIAL='HELP' DFHMDFPOS=(24,029), X LENGTH=004, X ATTRB=(ASKIP,FSET), X INITIAL='MENU' DFHMDFPOS=(24,041), X LENGTH=005, X ATTRB=(ASKIP,FSET), X INITIAL='VOLTA' DFHMDFPOS=(24,054), X LENGTH=003, X ATTRB=(ASKIP,FSET), X INITIAL='FIM'TCEF5MS DFHMSD TYPE=FINAL END Mapa Simbolico ou Logico 01 TCEF5M1I. 02 FILLER PIC X(12). 02 T1DATAL COMP PIC S9(4). 02 T1DATAF PICTURE X. 02 FILLER REDEFINES T1DATAF. 03 T1DATAA PICTURE X. 02 T1DATAI PIC X(8). 02 T1HORAL COMP PIC S9(4). 02 T1HORAF PICTURE X. 02 FILLER REDEFINES T1HORAF. 03 T1HORAA PICTURE X. 02 T1HORAI PIC X(8). 02 T1OPCAOL COMP PIC S9(4). 02 T1OPCAOF PICTURE X. 02 FILLER REDEFINES T1OPCAOF. 03 T1OPCAOA PICTURE X. 02 T1OPCAOI PIC X(1). 02 T1MENSL COMP PIC S9(4). 02 T1MENSF PICTURE X. 02 FILLER REDEFINES T1MENSF. 03 T1MENSA PICTURE X. 02 T1MENSI PIC X(78).01 TCEF5M1O REDEFINES TCEF5M1I. 02 FILLER PIC X(12). 02 FILLER PICTURE X(3). 02 T1DATAO PIC X(8). 02 FILLER PICTURE X(3). 02 T1HORAO PIC X(8). 02 FILLER PICTURE X(3). 02 T1OPCAOO PIC X(1). 02 FILLER PICTURE X(3). 02 T1MENSO PIC X(78). 5. ARRAYS5.1. DefinicaoTambem chamada de MATRIZ, TABELA, VETOR, LISTA, etc.,consistem em um conjunto de dados homogeneos em relacao aos seus atributos. Ouseja todos os elementos de uma ARRAY em PL/I terao os mesmos atributos.Para declarar a dimensao de uma ARRAY basta colocar o numerode elementos entre parenteses, nao havendo um limite para tal numero.Exemplos:DCL LISTA(1000) REALDECIMAL FLOAT(6), VALORES(30) REAL DECIMAL(3);O acesso a um elemento de uma matriz e feito atraves de seusubscrito que pode estar na forma de uma constante, uma variavel ou umaexpressao. Se a expressao resultar em valor nao inteiro, este sera truncado.5.2. Limites inferiores e superioresda arrayPL/I tambem admite uma outra maneira de declarar uma matriz.Na declaracao tradicional que aprendemos, IDENTIFICADOR (N) a matrizidentificada comeca no subscrito 1 (limite inferior) e vai ate o subscrito N(limite superior). No entanto, e possivel estabelecer quem sera o